Packages October 2008

packages@lists.squeakfoundation.org

3 participants
120 discussions

SystemEditor: SystemEditor-mtf.134.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 14 Oct '08

14 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.134.mcz ==================== Summary ==================== Name: SystemEditor-mtf.134 Author: mtf Time: 13 October 2008, 8:32:44 pm UUID: de497877-e44d-4502-a948-6aad4289291e Ancestors: SystemEditor-mtf.133 More cleanup Implemented ClassEditor>>bindingOf: =============== Diff against SystemEditor-mtf.133 =============== Item was added: + ----- Method: RootClassEditor>>bindingOf: (in category 'reflecting') ----- + bindingOf: varName + ^ nil! Item was changed: ----- Method: MetaclassEditor>>system (in category 'accessing') ----- system + ^ system ifNil: [system := editor system]! - ^ editor system! Item was added: + ----- Method: ClassEditor>>bindingOf: (in category 'reflecting') ----- + bindingOf: varName + "Answer the binding of some variable resolved in the scope of the receiver" + | aSymbol | + aSymbol := varName asSymbol. + + "First look in classVar dictionary." + (classVarNames includes: aSymbol) + ifTrue: [^ subject ifNotNil: [subject classPool bindingOf: aSymbol]]. + + "Next look in shared pools." + self sharedPools do: [:pool | + (pool bindingOf: aSymbol) ifNotNilDo: [:binding | ^binding]]. + + "Next look in declared environment." + (self environment bindingOf: aSymbol) ifNotNilDo: [:binding | ^binding]. + + "Finally look higher up the superclass chain and fail at the end." + ^ self superclassOrEditor bindingOf: aSymbol! Item was added: + ----- Method: RootMetaclassEditor>>bindingOf: (in category 'reflecting') ----- + bindingOf: varName + ^ nil! Item was changed: ----- Method: ClassEditor>>comment (in category 'reflecting') ----- comment | comment | comment := self organization classComment. ^ comment isEmpty ifFalse: [comment] + ifTrue: [self classCommentBlank]! - ifTrue: [self edCommentTemplate]! Item was added: + ----- Method: MetaclassEditor>>bindingOf: (in category 'reflecting') ----- + bindingOf: varName + ^ editor bindingOf: varName! Item was changed: ----- Method: MetaclassEditor>>subject (in category 'accessing') ----- subject + ^ subject ifNil: [subject := editor subject class]! - ^ editor subject ifNotNil: [self subject | subject class]! Item was added: + ----- Method: PureBehaviorEditor>>bindingOf: (in category 'reflecting') ----- + bindingOf: varName + ^ self environment bindingOf: varName! Item was changed: + ----- Method: MetaclassEditor>>basicNew (in category 'initialization') ----- - ----- Method: MetaclassEditor>>basicNew (in category 'behavior') ----- basicNew "Primitive. Answer an instance of the receiver (which is a class) with no indexable variables. Fail if the class is indexable. Essential. See Object documentation whatIsAPrimitive." <primitive: 70> "space must be low" self environment signalLowSpace. ^ self basicNew "retry if user proceeds" ! Item was added: + ----- Method: PureBehaviorEditor>>classCommentBlank (in category 'reflecting') ----- + classCommentBlank + ^ 'Main comment stating the purpose of this class and relevant relationship to other classes. + + Possible useful expressions for doIt or printIt. + + Structure: + instVar1 type -- comment about the purpose of instVar1 + instVar2 type -- comment about the purpose of instVar2 + + Any further useful comments about the general approach of this implementation.'! Item was added: + ----- Method: PureBehaviorEditor class>>reservedNames (in category 'accessing') ----- + reservedNames + ^ ReservedNames! Item was added: + ----- Method: PureBehaviorEditor>>parserClass (in category 'reflecting') ----- + parserClass + ^ self class parserClass! Item was added: + ----- Method: MetaclassEditor>>initialize (in category 'initialization') ----- + initialize + "initialize myself so that I can create instances" + + superclass := self class classClassEditor. + methodDict := MethodDictionary new. + format := self class classClassEditor format.! Item was removed: - ----- Method: ClassEditor>>edCommentTemplate (in category 'accessing') ----- - edCommentTemplate - ^ 'Main comment stating the purpose of this class and relevant relationship to other classes. - - Possible useful expressions for doIt or printIt. - - Structure: - instVar1 type -- comment about the purpose of instVar1 - instVar2 type -- comment about the purpose of instVar2 - - Any further useful comments about the general approach of this implementation.'! Item was removed: - ----- Method: ClassEditor>>system (in category 'accessing') ----- - system - ^ system! Item was removed: - ----- Method: MetaclassEditor>>superclass:methodDictionary:format: (in category 'behavior') ----- - superclass: aClass methodDictionary: mDict format: fmt - "Basic initialization of the receiver. - Must only be sent to a new instance; else we would need Object flushCache." - superclass := aClass. - format := fmt. - methodDict := mDict.! Item was removed: - ----- Method: ClassEditor class>>reservedNames (in category 'accessing') ----- - reservedNames - ^ ReservedNames! Item was removed: - ----- Method: MetaclassEditor>>definitionST80: (in category 'reflecting') ----- - definitionST80: isST80 - ^ isST80 ifTrue: [self definitionST80] ifFalse: [self definition]! Item was removed: - ----- Method: MetaclassEditor>>browserDefinition: (in category 'reflecting') ----- - browserDefinition: style - ^ self definition! Item was removed: - ----- Method: ClassEditor>>parserClass (in category 'debugging') ----- - parserClass - ^ self class parserClass! Item was removed: - ----- Method: ClassEditor>>subject (in category 'accessing') ----- - subject - ^ subject! Item was removed: - ----- Method: MetaclassEditor class>>new (in category 'instance creation') ----- - new - | instance | - instance := self basicNew. - instance - superclass: self classClassEditor - methodDictionary: MethodDictionary new - format: self classClassEditor format. - ^ instance! Item was removed: - ----- Method: MetaclassEditor>>definition (in category 'reflecting') ----- - definition - ^ self definitionST80! Item was removed: - ----- Method: MetaclassEditor>>removeSelector: (in category 'editing') ----- - removeSelector: aSymbol - methods ifNil: [methods := MethodDictionaryEditor for: self]. - methods remove: aSymbol.!

1 0

SystemEditor: TraitEditor-mtf.7.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 14 Oct '08

14 Oct '08

A new version of TraitEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/TraitEditor-mtf.7.mcz ==================== Summary ==================== Name: TraitEditor-mtf.7 Author: mtf Time: 13 October 2008, 12:00 am UUID: 020bea91-e709-4915-88c4-4ee93284234d Ancestors: TraitEditor-mtf.6 Started filling out TraitEditor, and created PureBehaviorEditor =============== Diff against TraitEditor-mtf.6 =============== Item was added: + ----- Method: TraitEditor>>name (in category 'accessing') ----- + name + ^ name! Item was changed: TraitDescriptionEditor subclass: #TraitEditor + instanceVariableNames: 'name classTrait category' - instanceVariableNames: 'classTrait category' classVariableNames: '' poolDictionaries: '' category: 'TraitEditor'! Item was added: + ----- Method: PureBehaviorEditor>>hasTraitComposition (in category '*TraitEditor') ----- + hasTraitComposition + ^ self traitComposition notNil! Item was added: + ----- Method: PureBehaviorEditor>>traitComposition: (in category '*TraitEditor') ----- + traitComposition: aTraitCompositionOrCollection + self propertyAt: #traitComposition put: aTraitCompositionOrCollection! Item was changed: ----- Method: ClassEditor>>subclass:uses:instanceVariableNames:classVariableNames:poolDictionaries:category: (in category '*TraitEditor') ----- subclass: aSymbol uses: traitComposition instanceVariableNames: instString classVariableNames: classString poolDictionaries: poolString category: categoryString ^ self subclass: aSymbol instanceVariableNames: instString classVariableNames: classString poolDictionaries: poolString category: categoryString; traitComposition: traitComposition; yourself ! Item was added: + ----- Method: PureBehaviorEditor>>traitComposition (in category '*TraitEditor') ----- + traitComposition + ^ self propertyAt: #traitComposition ifAbsent: [nil]! Item was changed: + PureBehaviorEditor subclass: #TraitDescriptionEditor + instanceVariableNames: '' - AbstractEditor subclass: #TraitDescriptionEditor - instanceVariableNames: 'subject product system methods organization' classVariableNames: '' poolDictionaries: '' category: 'TraitEditor'! !TraitDescriptionEditor commentStamp: 'mtf 6/20/2008 22:21' prior: 0! A base class for both TraitEditor and ClassTraitEditor! Item was added: + ----- Method: TraitEditor>>setSubject:system: (in category 'initialization') ----- + setSubject: aClass system: aSystemEditor + subject := aClass. + system := aSystemEditor. + subject ifNil: + [name := #Annonymous. + methods := MethodDictionaryEditor for: self]. + decorators := ClassDecorator decoratorsFor: self.! Item was added: + ----- Method: TraitEditor>>setName: (in category 'initialization') ----- + setName: aSymbol + name := aSymbol! Item was added: + ----- Method: TraitEditor>>on:for: (in category 'initialization') ----- + on: aClass for: aSystemEditor + ^ self setSubject: aClass system: aSystemEditor! Item was added: + ----- Method: TraitEditor>>category: (in category 'reflecting') ----- + category: aSymbol + category := aSymbol! Item was removed: - ----- Method: ClassEditor>>hasTraitComposition (in category '*TraitEditor') ----- - hasTraitComposition - ^ self traitComposition notNil! Item was removed: - ----- Method: ClassEditor>>traitComposition (in category '*TraitEditor') ----- - traitComposition - ^ self propertyAt: #traitComposition ifAbsent: [nil]!

1 0

SystemEditor: SystemEditor-mtf.133.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 14 Oct '08

14 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.133.mcz ==================== Summary ==================== Name: SystemEditor-mtf.133 Author: mtf Time: 13 October 2008, 4:45:55 pm UUID: 12257b48-e46f-44a4-89dc-f691de4ccbd2 Ancestors: SystemEditor-mtf.132 Removed a bunch of redundant methods in MetaclassEditor Refactored editor heiarchy to include PureBehaviorEditor, a superclass for both Classes and Traits. It handles methods and organization =============== Diff against SystemEditor-mtf.132 =============== Item was added: + ----- Method: PureBehaviorEditor>>compile:classified:withStamp:notifying:logSource: (in category 'editing') ----- + compile: source classified: cat withStamp: aString notifying: anObject logSource: aBoolean + | cm | + cm := MethodEditor + source: source + classified: cat + stamp: aString + notifying: anObject + logging: aBoolean. + self methods add: cm. + ^ cm selector! Item was added: + ----- Method: PureBehaviorEditor>>edMethodAt:ifAbsent: (in category 'editing') ----- + edMethodAt: aSelector ifAbsent: aBlock + ^ self methods at: aSelector ifAbsent: aBlock! Item was added: + ----- Method: PureBehaviorEditor>>propertyAt:ifAbsent: (in category 'accessing properties') ----- + propertyAt: key ifAbsent: aBlock + + properties ifNil: [^ aBlock value]. + ^ properties at: key ifAbsent: aBlock! Item was added: + ----- Method: PureBehaviorEditor>>whichCategoryIncludesSelector: (in category 'reflecting') ----- + whichCategoryIncludesSelector: aSymbol + ^ self organization categoryOfElement: aSymbol! Item was added: + AbstractEditor subclass: #PureBehaviorEditor + instanceVariableNames: 'superclass methodDict format subject product system methods organization properties decorators' + classVariableNames: 'ReservedNames' + poolDictionaries: '' + category: 'SystemEditor-Editors'! Item was added: + ----- Method: PureBehaviorEditor>>propertyAt:ifAbsentPut: (in category 'accessing properties') ----- + propertyAt: key ifAbsentPut: aBlock + + ^ self propertyAt: key ifAbsent: [ + self propertyAt: key put: aBlock value]! Item was changed: ----- Method: MetaclassEditor>>edBuild (in category 'building') ----- edBuild | result class | + class := self subject ifNil: [Metaclass] ifNotNil: [self subject | subject class]. - class := self subject ifNil: [Metaclass] ifNotNilDo: [:subject | subject class]. result := class basicNew. "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" result superclass: self edSuperclass methodDictionary: MethodDictionary new format: self format; organization: self organization edBuild. result setInstVarNames: self instVarNames. ^ result! Item was added: + ----- Method: PureBehaviorEditor>>compile:classified:withStamp:notifying: (in category 'editing') ----- + compile: source classified: cat withStamp: aString notifying: anObject + ^ self + compile: source + classified: cat + withStamp: aString + notifying: anObject + logSource: self acceptsLoggingOfCompilation ! Item was added: + ----- Method: PureBehaviorEditor>>acceptsLoggingOfCompilation (in category 'reflecting') ----- + acceptsLoggingOfCompilation + + self subject ifNil: [ ^ true ]. + ^ self subject acceptsLoggingOfCompilation! Item was added: + ----- Method: PureBehaviorEditor>>sourceCodeTemplate (in category 'reflecting') ----- + sourceCodeTemplate + ^ self class sourceCodeTemplate! Item was added: + ----- Method: PureBehaviorEditor>>removeSelector: (in category 'editing') ----- + removeSelector: aSymbol + self methods remove: aSymbol.! Item was added: + ----- Method: PureBehaviorEditor>>compile:classified:notifying: (in category 'editing') ----- + compile: source classified: cat notifying: anObject + ^ self + compile: source + classified: cat + withStamp: Utilities changeStamp + notifying: anObject + logSource: self acceptsLoggingOfCompilation ! Item was changed: ClassDescriptionEditor subclass: #ClassEditor + instanceVariableNames: 'name classVarNames sharedPools category' - instanceVariableNames: 'subject product system name classVarNames sharedPools category' classVariableNames: '' poolDictionaries: '' category: 'SystemEditor-Editors'! Item was added: + ----- Method: PureBehaviorEditor>>selectors (in category 'reflecting') ----- + selectors + ^ self organization allMethodSelectors! Item was added: + ----- Method: PureBehaviorEditor>>ultimateSourceCodeAt:ifAbsent: (in category 'reflecting') ----- + ultimateSourceCodeAt: selector ifAbsent: aBlock + "Return the source code at selector" + + ^self sourceCodeAt: selector ifAbsent: aBlock! Item was added: + ----- Method: PureBehaviorEditor class>>initialize (in category 'initialize-release') ----- + initialize + | strings | + strings := #('self' 'super' 'true' 'false' 'nil' 'thisContext'). + ReservedNames := strings, strings collect: [:ea | ea asSymbol].! Item was added: + ----- Method: PureBehaviorEditor>>environment (in category 'accessing') ----- + environment + ^ self system! Item was added: + ----- Method: PureBehaviorEditor>>propertyAt:put: (in category 'accessing properties') ----- + propertyAt: aSymbol put: value + + properties ifNil: [properties := Dictionary new]. + ^ properties at: aSymbol put: value! Item was added: + ----- Method: PureBehaviorEditor>>edMethodsDo: (in category 'accessing') ----- + edMethodsDo: aBlock + methods ifNotNil: [methods do: aBlock]! Item was added: + ----- Method: PureBehaviorEditor>>compiledMethodAt:ifAbsent: (in category 'editing') ----- + compiledMethodAt: aSelector ifAbsent: aBlock + ^ self edMethodAt: aSelector ifAbsent: aBlock! Item was changed: ----- Method: MetaclassEditor>>subject (in category 'accessing') ----- subject + ^ editor subject ifNotNil: [self subject | subject class]! - ^ editor subject ifNotNilDo: [:subject | subject class]! Item was added: + ----- Method: PureBehaviorEditor>>decoratorsDo: (in category 'accessing') ----- + decoratorsDo: aBlock + decorators ifNotNil: [decorators do: aBlock]! Item was added: + ----- Method: PureBehaviorEditor>>propertyAt: (in category 'accessing properties') ----- + propertyAt: key + + ^self propertyAt: key ifAbsent: [nil]! Item was added: + ----- Method: PureBehaviorEditor>>system (in category 'accessing') ----- + system + ^ system! Item was changed: + ----- Method: MetaclassEditor>>instVarNames (in category 'debugging') ----- - ----- Method: MetaclassEditor>>instVarNames (in category 'reflecting') ----- instVarNames "Override the implemenation in Behavior. That will return the inst vars of ClassEditor, but we want the inst vars of the subject's class." self isDebuggingAsEditor ifTrue: [^ super instVarNames]. ^ instVarNames ifNil: [self subject instVarNames]! Item was added: + ----- Method: PureBehaviorEditor>>compiledMethodAt: (in category 'editing') ----- + compiledMethodAt: aSelector + + ^ self compiledMethodAt: aSelector ifAbsent: [ self error: 'key not found' ]! Item was changed: + ----- Method: MetaclassEditor>>instSize (in category 'debugging') ----- - ----- Method: MetaclassEditor>>instSize (in category 'reflecting') ----- instSize "Override the implemenation in Behavior, so that when inspecting the ClassEditor, it will look like a regular Class" self isDebuggingAsEditor ifTrue: [^ super instSize]. ^ self instVarNames size + self superclassOrEditor instSize! Item was added: + ----- Method: PureBehaviorEditor>>compile:classified: (in category 'editing') ----- + compile: source classified: cat + ^ self + compile: source + classified: cat + withStamp: Utilities changeStamp + notifying: nil + logSource: self acceptsLoggingOfCompilation ! Item was changed: + ----- Method: MetaclassEditor>>isUniClass (in category 'debugging') ----- - ----- Method: MetaclassEditor>>isUniClass (in category 'reflecting') ----- isUniClass "The debugger sometimes sends this message" ^ false! Item was added: + ----- Method: PureBehaviorEditor>>includesSelector: (in category 'reflecting') ----- + includesSelector: aSelector + ^ (methods ifNil: [self subject] ifNotNil: [methods]) + includesSelector: aSelector! Item was added: + ----- Method: PureBehaviorEditor>>compilerClass (in category 'reflecting') ----- + compilerClass + ^ self subject + ifNil: [Compiler] + ifNotNil: [self subject compilerClass]! Item was changed: + ----- Method: MetaclassEditor>>lookupSelector: (in category 'debugging') ----- - ----- Method: MetaclassEditor>>lookupSelector: (in category 'metaclass') ----- lookupSelector: aSelector "Override the implementation in Behavior to make ClassEditor debuggable. The debugger calls this during simulated execution, and since we override #includesSelector and #superclass to reflect on the subject, we get incorrect method dispatch." | lookupClass dict | lookupClass := self. [lookupClass == nil] whileFalse: [dict := lookupClass instVarAt: 2. (dict includesKey: aSelector) ifTrue: [^ dict at: aSelector]. lookupClass := lookupClass instVarAt: 1]. ^ nil! Item was changed: ----- Method: MetaclassEditor>>edRequiresSubclassRebuild (in category 'building') ----- edRequiresSubclassRebuild ^ self subject + ifNotNil: [self subject format ~= self format] - ifNotNilDo: [:subject | subject format ~= self format] ifNil: [false]! Item was added: + ----- Method: PureBehaviorEditor>>organization (in category 'accessing') ----- + organization + ^ organization ifNil: [organization := OrganizationEditor for: self]! Item was added: + ----- Method: PureBehaviorEditor>>sourceCodeAt: (in category 'reflecting') ----- + sourceCodeAt: aSelector + ^ self sourceCodeAt: aSelector ifAbsent: [nil]! Item was changed: + PureBehaviorEditor subclass: #ClassDescriptionEditor + instanceVariableNames: 'superEditor type instVarNames' + classVariableNames: '' - AbstractEditor subclass: #ClassDescriptionEditor - instanceVariableNames: 'superclass methodDict format superEditor methods type instVarNames organization properties decorators' - classVariableNames: 'ReservedNames' poolDictionaries: '' category: 'SystemEditor-Editors'! !ClassDescriptionEditor commentStamp: 'mtf 7/29/2008 21:55' prior: 0! I am an abstract superclass for both ClassEditor and MetaclassEditor. I implement the Behavior protocol: my instances can create instances. This means that my first three variables must remain 'superclass methodDict format', as the VM accesses them positionally, and my superclasses must not define any instance vairables. Only MetaclassEditor makes use of these ivars, but they are defined here to avoid duplicating a lot of ivars and accessing methods between ClassEditor and MetaclassEditor! Item was added: + ----- Method: PureBehaviorEditor>>edMethodAt: (in category 'editing') ----- + edMethodAt: aSelector + ^ self methods at: aSelector! Item was added: + ----- Method: PureBehaviorEditor>>methodDictionary (in category 'building') ----- + methodDictionary + | methodEditor | + (methods isNil and: [self edRequiresRecompile not]) ifTrue: [^ self subject methodDictionary]. + methodEditor := methods ifNil: [MethodDictionaryEditor for: self]. + ^ methodEditor buildFor: self! Item was added: + ----- Method: PureBehaviorEditor>>hasProperty: (in category 'accessing properties') ----- + hasProperty: aSymbol + self propertyAt: aSymbol ifAbsent: [^ false]. + ^ true! Item was changed: + ----- Method: MetaclassEditor>>allInstVarNames (in category 'debugging') ----- - ----- Method: MetaclassEditor>>allInstVarNames (in category 'reflecting') ----- allInstVarNames "specialized in order to enable debugger to show as self" self isDebuggingAsEditor ifTrue: [^ super allInstVarNames]. ^ self edSuperclass ifNil: [self instVarNames copy] ifNotNil: [self edSuperclass allInstVarNames, self instVarNames]! Item was added: + ----- Method: PureBehaviorEditor>>methods (in category 'accessing') ----- + methods + ^ methods ifNil: [methods := MethodDictionaryEditor for: self]! Item was added: + ----- Method: PureBehaviorEditor>>sourceCodeAt:ifAbsent: (in category 'reflecting') ----- + sourceCodeAt: aSelector ifAbsent: aBlock + ^ (self edMethodAt: aSelector ifAbsent: aBlock) source! Item was removed: - ----- Method: ClassDescriptionEditor>>sourceCodeAt:ifAbsent: (in category 'reflecting') ----- - sourceCodeAt: aSelector ifAbsent: aBlock - ^ (self edMethodAt: aSelector ifAbsent: aBlock) source! Item was removed: - ----- Method: MetaclassEditor>>edMethodsDo: (in category 'building') ----- - edMethodsDo: aBlock - methods ifNotNil: [methods do: aBlock]! Item was removed: - ----- Method: ClassDescriptionEditor>>compile:classified:withStamp:notifying:logSource: (in category 'editing') ----- - compile: source classified: cat withStamp: aString notifying: anObject logSource: aBoolean - | cm | - cm := MethodEditor - source: source - classified: cat - stamp: aString - notifying: anObject - logging: aBoolean. - self methods add: cm. - ^ cm selector! Item was removed: - ----- Method: ClassDescriptionEditor>>edMethodAt:ifAbsent: (in category 'editing') ----- - edMethodAt: aSelector ifAbsent: aBlock - ^ self methods at: aSelector ifAbsent: aBlock! Item was removed: - ----- Method: ClassEditor>>environment (in category 'accessing') ----- - environment - ^ self system! Item was removed: - ----- Method: MetaclassEditor>>indexIfCompact (in category 'reflecting') ----- - indexIfCompact - self subject ifNotNil: [^ self subject indexIfCompact]. - ^ 0! Item was removed: - ----- Method: ClassDescriptionEditor>>propertyAt:ifAbsent: (in category 'accessing properties') ----- - propertyAt: key ifAbsent: aBlock - - properties ifNil: [^ aBlock value]. - ^ properties at: key ifAbsent: aBlock! Item was removed: - ----- Method: ClassDescriptionEditor>>whichCategoryIncludesSelector: (in category 'reflecting') ----- - whichCategoryIncludesSelector: aSymbol - ^ self organization categoryOfElement: aSymbol! Item was removed: - ----- Method: ClassEditor>>methodDictionary (in category 'building') ----- - methodDictionary - | methodEditor | - (methods isNil and: [self edRequiresRecompile not]) ifTrue: [^ subject methodDictionary]. - methodEditor := methods ifNil: [MethodDictionaryEditor for: self]. - ^ methodEditor buildFor: self! Item was removed: - ----- Method: ClassDescriptionEditor>>propertyAt:ifAbsentPut: (in category 'accessing properties') ----- - propertyAt: key ifAbsentPut: aBlock - - ^ self propertyAt: key ifAbsent: [ - self propertyAt: key put: aBlock value]! Item was removed: - ----- Method: ClassDescriptionEditor>>organization (in category 'accessing') ----- - organization - ^ organization ifNil: [organization := OrganizationEditor for: self]! Item was removed: - ----- Method: MetaclassEditor>>compiledMethodAt: (in category 'reflecting') ----- - compiledMethodAt: aSelector - ^ self subjectDo: [:subject | subject compiledMethodAt: aSelector]! Item was removed: - ----- Method: ClassDescriptionEditor>>compile:classified:withStamp:notifying: (in category 'editing') ----- - compile: source classified: cat withStamp: aString notifying: anObject - ^ self - compile: source - classified: cat - withStamp: aString - notifying: anObject - logSource: self acceptsLoggingOfCompilation ! Item was removed: - ----- Method: MetaclassEditor>>compile:classified: (in category 'editing') ----- - compile: source classified: cat - ^ self - compile: source - classified: cat - withStamp: Utilities changeStamp - notifying: nil - logSource: self acceptsLoggingOfCompilation ! Item was removed: - ----- Method: ClassDescriptionEditor>>literalScannedAs:notifying: (in category 'compiling') ----- - literalScannedAs: literal notifying: anEncoder - literal isVariableBinding ifTrue: [self halt]. - ^ literal! Item was removed: - ----- Method: ClassDescriptionEditor>>removeSelector: (in category 'editing') ----- - removeSelector: aSymbol - self methods remove: aSymbol.! Item was removed: - ----- Method: ClassDescriptionEditor>>hasProperty: (in category 'accessing properties') ----- - hasProperty: aSymbol - self propertyAt: aSymbol ifAbsent: [^ false]. - ^ true! Item was removed: - ----- Method: ClassDescriptionEditor>>compile:classified:notifying: (in category 'editing') ----- - compile: source classified: cat notifying: anObject - ^ self - compile: source - classified: cat - withStamp: Utilities changeStamp - notifying: anObject - logSource: self acceptsLoggingOfCompilation ! Item was removed: - ----- Method: ClassDescriptionEditor>>methods (in category 'accessing') ----- - methods - ^ methods ifNil: [methods := MethodDictionaryEditor for: self]! Item was removed: - ----- Method: MetaclassEditor>>addInstVarName: (in category 'editing') ----- - addInstVarName: aString - instVarNames ifNil: [instVarNames := self subject instVarNames]. - instVarNames := instVarNames copyWith: aString! Item was removed: - ----- Method: ClassDescriptionEditor>>selectors (in category 'reflecting') ----- - selectors - ^ self organization allMethodSelectors! Item was removed: - ----- Method: MetaclassEditor>>includesSelector: (in category 'reflecting') ----- - includesSelector: aSelector - ^ (methods ifNil: [self subject] ifNotNil: [methods]) - includesSelector: aSelector! Item was removed: - ----- Method: MetaclassEditor>>environment (in category 'reflecting') ----- - environment - ^ self system! Item was removed: - ----- Method: MetaclassEditor>>subjectDo: (in category 'accessing') ----- - subjectDo: aBlock - ^ self subject - ifNotNilDo: [:subject | aBlock value: subject] - ifNil: [self error: 'key not found']! Item was removed: - ----- Method: MetaclassEditor>>sourceCodeAt: (in category 'reflecting') ----- - sourceCodeAt: aSelector - ^ self subjectDo: [:subject | subject sourceCodeAt: aSelector]! Item was removed: - ----- Method: MetaclassEditor>>methodDictionary (in category 'reflecting') ----- - methodDictionary - | methodEditor | - (methods isNil and: [self edRequiresRecompile not]) ifTrue: [^ self subject methodDictionary]. - methodEditor := methods ifNil: [MethodDictionaryEditor for: self]. - ^ methodEditor buildFor: self! Item was removed: - ----- Method: MetaclassEditor>>edClassFormat (in category 'building') ----- - edClassFormat - ^ ClassFormat - size: self instSize - type: self typeOfClass - index: self indexIfCompact! Item was removed: - ----- Method: MetaclassEditor>>methods (in category 'accessing') ----- - methods - ^ methods ifNil: [methods := MethodDictionaryEditor for: self]! Item was removed: - ----- Method: ClassDescriptionEditor>>propertyAt:put: (in category 'accessing properties') ----- - propertyAt: aSymbol put: value - - properties ifNil: [properties := Dictionary new]. - ^ properties at: aSymbol put: value! Item was removed: - ----- Method: ClassDescriptionEditor>>edMethodsDo: (in category 'accessing') ----- - edMethodsDo: aBlock - methods ifNotNil: [methods do: aBlock]! Item was removed: - ----- Method: ClassDescriptionEditor>>compiledMethodAt:ifAbsent: (in category 'reflecting') ----- - compiledMethodAt: aSelector ifAbsent: aBlock - ^ self edMethodAt: aSelector ifAbsent: aBlock! Item was removed: - ----- Method: ClassDescriptionEditor>>acceptsLoggingOfCompilation (in category 'reflecting') ----- - acceptsLoggingOfCompilation - - self subject ifNil: [ ^ true ]. - ^ self subject acceptsLoggingOfCompilation! Item was removed: - ----- Method: ClassDescriptionEditor>>sourceCodeTemplate (in category 'reflecting') ----- - sourceCodeTemplate - ^ self class sourceCodeTemplate! Item was removed: - ----- Method: MetaclassEditor>>compile:classified:withStamp:notifying:logSource: (in category 'editing') ----- - compile: source classified: category withStamp: aString notifying: anObject logSource: aBoolean - | cm | - cm := MethodEditor - source: source - classified: category - stamp: aString - notifying: anObject - logging: aBoolean. - self methods add: cm.! Item was removed: - ----- Method: ClassDescriptionEditor>>propertyAt: (in category 'accessing properties') ----- - propertyAt: key - - ^self propertyAt: key ifAbsent: [nil]! Item was removed: - ----- Method: MetaclassEditor>>instanceVariableNames: (in category 'reflecting') ----- - instanceVariableNames: instString - instVarNames := Scanner new scanFieldNames: instString! Item was removed: - ----- Method: MetaclassEditor>>format (in category 'reflecting') ----- - format - "Override the implemenation in Behavior. That will return the format of ClassEditor, but we want the format of the subject's meta class" - - ^ self edClassFormat bits! Item was removed: - ----- Method: ClassDescriptionEditor>>compiledMethodAt: (in category 'reflecting') ----- - compiledMethodAt: aSelector - - ^ self compiledMethodAt: aSelector ifAbsent: [ self error: 'key not found' ]! Item was removed: - ----- Method: ClassDescriptionEditor>>compile:classified: (in category 'editing') ----- - compile: source classified: cat - ^ self - compile: source - classified: cat - withStamp: Utilities changeStamp - notifying: nil - logSource: self acceptsLoggingOfCompilation ! Item was removed: - ----- Method: MetaclassEditor>>organization (in category 'reflecting') ----- - organization - ^ organization ifNil: [organization := OrganizationEditor for: self]! Item was removed: - ----- Method: MetaclassEditor>>compile:classified:withStamp:notifying: (in category 'editing') ----- - compile: source classified: cat withStamp: aString notifying: anObject - ^ self - compile: source - classified: cat - withStamp: aString - notifying: anObject - logSource: self acceptsLoggingOfCompilation ! Item was removed: - ----- Method: MetaclassEditor>>compile:classified:notifying: (in category 'editing') ----- - compile: source classified: cat notifying: anObject - ^ self - compile: source - classified: cat - withStamp: Utilities changeStamp - notifying: anObject - logSource: self acceptsLoggingOfCompilation ! Item was removed: - ----- Method: ClassDescriptionEditor>>includesSelector: (in category 'reflecting') ----- - includesSelector: aSelector - ^ (methods ifNil: [self subject] ifNotNil: [methods]) - includesSelector: aSelector! Item was removed: - ----- Method: ClassDescriptionEditor>>compilerClass (in category 'reflecting') ----- - compilerClass - ^ self subject - ifNil: [Compiler] - ifNotNil: [self subject compilerClass]! Item was removed: - ----- Method: MetaclassEditor>>instanceVariablesString (in category 'reflecting') ----- - instanceVariablesString - ^ String streamContents: - [:stream | - self allInstVarNames - do: [:ea | stream nextPutAll: ea] - separatedBy: [stream nextPut: $ ]]! Item was removed: - ----- Method: ClassDescriptionEditor>>sourceCodeAt: (in category 'reflecting') ----- - sourceCodeAt: aSelector - ^ self sourceCodeAt: aSelector ifAbsent: [nil]! Item was removed: - ----- Method: ClassDescriptionEditor>>edMethodAt: (in category 'editing') ----- - edMethodAt: aSelector - ^ self methods at: aSelector! Item was removed: - ----- Method: ClassDescriptionEditor>>decoratorsDo: (in category 'accessing') ----- - decoratorsDo: aBlock - decorators ifNotNil: [decorators do: aBlock]! Item was removed: - ----- Method: MetaclassEditor>>edIsEditor (in category 'testing') ----- - edIsEditor - ^ true! Item was removed: - ----- Method: ClassEditor class>>initialize (in category 'initialize-release') ----- - initialize - | strings | - strings := #('self' 'super' 'true' 'false' 'nil' 'thisContext'). - ReservedNames := strings, strings collect: [:ea | ea asSymbol].!

1 0

Monticello Public: Monticello.impl-mtf.586.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 13 Oct '08

13 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.586.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.586 Author: mtf Time: 12 October 2008, 10:47:03 pm UUID: 4c3abc8c-230d-457e-a412-9bd0205f7eba Ancestors: Monticello.impl-mtf.585 fixed typo in the dual repo browser that caused the panes to always be the same repo =============== Diff against Monticello.impl-mtf.585 =============== Item was changed: ----- Method: MCRepositoryDualVersionsInspector>>repository2 (in category 'as yet unclassified') ----- repository2 + ^ repository2! - ^ repository !

1 0

Installer: Installer-Core-kph.235.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 11 Oct '08

11 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.235.mcz ==================== Summary ==================== Name: Installer-Core-kph.235 Author: kph Time: 11 October 2008, 5:07:15 pm UUID: 6183955b-841b-4686-971b-204708f1d8f4 Ancestors: Installer-Core-mtf.234 attempt to apply retrying to files obtained from PBWiki as well as web pages =============== Diff against Installer-Core-mtf.234 =============== Item was added: + ----- Method: InstallerWeb>>urlToDownload (in category 'web install') ----- + urlToDownload + + "while we look for a url which returns what we are looking for, we get the data anyway" + + | delay retry | + delay := 0. + self class webSearchPath + do: [ :pathSpec | + | potentialUrl readPathSpec | + readPathSpec := pathSpec value readStream. + potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). + [ retry := false. pageDataStream := self urlGet: potentialUrl ] + doWhileTrue: [ + self wasPbwikiSpeedWarning + ifTrue: [ retry := true ] + ifFalse: [ self hasPage ifTrue: [ pageDataStream reset. + ^ potentialUrl ] ]. + (Delay forSeconds: (delay := delay + 5)) wait. + retry ]]. + ^nil + ! Item was changed: ----- Method: InstallerWeb>>basicBrowse (in category 'basic interface') ----- basicBrowse + self thing size > 0 - self webThing size > 0 ifTrue: [ self browse: url from: pageDataStream ] ifFalse: [ self logCR: 'NO DATA ',url,' was empty' ]. ! Item was changed: ----- Method: InstallerUrl>>urlThing (in category 'url') ----- urlThing + | retry delay | + self logCR: 'retrieving ', self urlToDownload , ' ...'. + + delay := 0. + [ retry := false. pageDataStream := self urlGet: self urlToDownload ] + doWhileTrue: [ + self wasPbwikiSpeedWarning ifTrue: [ retry := true. (Delay forSeconds: (delay := delay + 5)) wait ]. + + retry ]. + + pageDataStream ifNil: [ self error: 'unable to contact host' ]. - (pageDataStream := self urlGet: self urlToDownload) - ifNil: [ self error: 'unable to contact host' ]. ^ pageDataStream ! Item was changed: ----- Method: InstallerWeb>>basicInstall (in category 'basic interface') ----- basicInstall + self thing size > 0 - self webThing size > 0 ifTrue: [ self install: url from: pageDataStream ] ifFalse: [ url ifNil: [ ^ self logCR: self package, ' not found on webSearchPath' ]. self logCR: '...',url,' was empty' ]. ! Item was added: + ----- Method: InstallerInternetBased>>wasPbwikiSpeedWarning (in category 'url') ----- + wasPbwikiSpeedWarning + + ^ self hasPage and: [pageDataStream contents includesSubString: 'Please slow down a bit' ] + + ! Item was added: + ----- Method: InstallerWeb>>thing (in category 'web install') ----- + thing + + url := self urlToDownload. + url ifNil: [ self logCR: 'page ', self package, ' not found on path' ] + ifNotNil: [ self logCR: 'found ', url, ' ...'. ]. + ^ pageDataStream! Item was changed: ----- Method: InstallerWeb>>action:reportOn: (in category 'action report') ----- action: line reportOn: report self package: (line readStream upTo: $' ; upTo: $'). self reportSection: line on: report. + url := self urlToDownload. - url := self webFindUrlToDownload. self reportFor: line page: pageDataStream on: report ! Item was added: + ----- Method: InstallerInternetBased>>hasPage (in category 'url') ----- + hasPage + + ^ pageDataStream notNil and: [ pageDataStream size > 0 ] + ! Item was changed: ----- Method: InstallerWeb>>basicView (in category 'basic interface') ----- basicView + self thing size > 0 - self webThing size > 0 ifTrue: [ self view: url from: pageDataStream ] ifFalse: [ self logCR: 'NO DATA ',url,' was empty' ]. ! Item was removed: - ----- Method: InstallerWeb>>webThing (in category 'web install') ----- - webThing - - url := self webFindUrlToDownload. - url ifNil: [ self logCR: 'page ', self package, ' not found on path' ] - ifNotNil: [ self logCR: 'found ', url, ' ...'. ]. - ^ pageDataStream! Item was removed: - ----- Method: InstallerWeb>>webFindUrlToDownload (in category 'web install') ----- - webFindUrlToDownload - - | delay retry | - delay := 0. - self class webSearchPath - do: [ :pathSpec | - | potentialUrl readPathSpec | - readPathSpec := pathSpec value readStream. - potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). - [ retry := false. pageDataStream := self urlGet: potentialUrl ] - doWhileTrue: [ - (pageDataStream notNil and: [ pageDataStream size > 0 ]) - ifTrue: [ (pageDataStream contents includesSubString: 'Please slow down a bit') - ifTrue: [ retry := true ] - ifFalse: [ pageDataStream reset. - ^ potentialUrl ] ]. - (Delay forSeconds: (delay := delay + 5)) wait. - retry ]]. - ^nil - !

1 0

SystemEditor: SystemEditor-mtf.132.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 11 Oct '08

11 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.132.mcz ==================== Summary ==================== Name: SystemEditor-mtf.132 Author: mtf Time: 10 October 2008, 10:41:32 pm UUID: 099c03b4-c8b8-42fa-996b-b5042619dba1 Ancestors: SystemEditor-mtf.131 Removed OldMetaclassEditor. =============== Diff against SystemEditor-mtf.131 =============== Item was changed: ----- Method: ClassEditor class>>classMetaclassEditor (in category 'instance creation') ----- classMetaclassEditor "Answer the class of editors for my instances' cooresponding metaclass editor" + ^ MetaclassEditor! - ^ OldMetaclassEditor! Item was added: + ----- Method: MetaclassEditor>>superclass:methodDictionary:format: (in category 'behavior') ----- + superclass: aClass methodDictionary: mDict format: fmt + "Basic initialization of the receiver. + Must only be sent to a new instance; else we would need Object flushCache." + superclass := aClass. + format := fmt. + methodDict := mDict.! Item was changed: + ----- Method: MetaclassEditor>>new (in category 'behavior') ----- - ----- Method: MetaclassEditor>>new (in category 'metaclass') ----- new ^ editor := self basicNew! Item was added: + ----- Method: MetaclassEditor>>basicNew (in category 'behavior') ----- + basicNew + "Primitive. Answer an instance of the receiver (which is a class) with no + indexable variables. Fail if the class is indexable. Essential. See Object + documentation whatIsAPrimitive." + + <primitive: 70> + "space must be low" + self environment signalLowSpace. + ^ self basicNew "retry if user proceeds" + ! Item was removed: - ----- Method: OldMetaclassEditor>>subject (in category 'accessing') ----- - subject - ^ editor subject ifNotNilDo: [:subject | subject class]! Item was removed: - ----- Method: OldMetaclassEditor>>methods (in category 'accessing') ----- - methods - ^ methods ifNil: [methods := MethodDictionaryEditor for: self]! Item was removed: - ----- Method: OldMetaclassEditor>>theNonMetaClass (in category 'reflecting') ----- - theNonMetaClass - ^ editor! Item was removed: - OldMetaclassEditor subclass: #OldRootMetaclassEditor - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Editors'! Item was removed: - ----- Method: OldRootMetaclassEditor class>>classClassEditor (in category 'instance creation') ----- - classClassEditor - ^ RootClassEditor! Item was removed: - ----- Method: OldRootMetaclassEditor>>product (in category 'building') ----- - product - ^ nil! Item was removed: - ----- Method: OldMetaclassEditor>>superclass: (in category 'editing') ----- - superclass: aClass - superEditor := self system edEditorFor: aClass! Item was removed: - ----- Method: OldMetaclassEditor>>compile:classified:withStamp:notifying:logSource: (in category 'editing') ----- - compile: source classified: category withStamp: aString notifying: anObject logSource: aBoolean - | cm | - cm := MethodEditor - source: source - classified: category - stamp: aString - notifying: anObject - logging: aBoolean. - self methods add: cm.! Item was removed: - ----- Method: OldMetaclassEditor>>edMethodAt:ifAbsent: (in category 'editing') ----- - edMethodAt: aSelector ifAbsent: aBlock - ^ self methods at: aSelector ifAbsent: aBlock! Item was removed: - ----- Method: OldMetaclassEditor>>instVarNames (in category 'reflecting') ----- - instVarNames - "Override the implemenation in Behavior. That will return the inst vars of - ClassEditor, but we want the inst vars of the subject's class." - - self isDebuggingAsEditor ifTrue: [^ super instVarNames]. - ^ instVarNames ifNil: [self subject instVarNames]! Item was removed: - ----- Method: OldMetaclassEditor class>>new (in category 'instance creation') ----- - new - | instance | - instance := self basicNew. - instance - superclass: self classClassEditor - methodDictionary: MethodDictionary new - format: self classClassEditor format. - ^ instance! Item was removed: - ----- Method: OldMetaclassEditor>>instSize (in category 'reflecting') ----- - instSize - "Override the implemenation in Behavior, so that when inspecting the - ClassEditor, it will look like a regular Class" - - self isDebuggingAsEditor ifTrue: [^ super instSize]. - ^ self instVarNames size + self superclassOrEditor instSize! Item was removed: - ----- Method: OldMetaclassEditor>>classSide (in category 'reflecting') ----- - classSide - ^self theMetaClass! Item was removed: - ----- Method: OldMetaclassEditor>>instanceVariableNames: (in category 'reflecting') ----- - instanceVariableNames: instString - instVarNames := Scanner new scanFieldNames: instString! Item was removed: - ----- Method: OldMetaclassEditor>>format (in category 'reflecting') ----- - format - "Override the implemenation in Behavior. That will return the format of ClassEditor, but we want the format of the subject's meta class" - - ^ self edClassFormat bits! Item was removed: - ----- Method: OldRootMetaclassEditor class>>canEdit:for: (in category 'instance creation') ----- - canEdit: anObject for: anEditor - ^ false! Item was removed: - ----- Method: OldMetaclassEditor>>definition (in category 'reflecting') ----- - definition - ^ self definitionST80! Item was removed: - ----- Method: OldMetaclassEditor>>compile:classified:withStamp:notifying: (in category 'editing') ----- - compile: source classified: cat withStamp: aString notifying: anObject - ^ self - compile: source - classified: cat - withStamp: aString - notifying: anObject - logSource: self acceptsLoggingOfCompilation ! Item was removed: - ----- Method: OldMetaclassEditor>>isUniClass (in category 'reflecting') ----- - isUniClass - "The debugger sometimes sends this message" - ^ false! Item was removed: - ----- Method: OldMetaclassEditor>>acceptsLoggingOfCompilation (in category 'reflecting') ----- - acceptsLoggingOfCompilation - - ^ self instanceSide acceptsLoggingOfCompilation! Item was removed: - ----- Method: OldMetaclassEditor>>superclass (in category 'reflecting') ----- - superclass - "Answers the editor on my new superclass, creating it if necessary" - - ^ self environment edEditorFor: self superclassOrEditor! Item was removed: - ----- Method: OldMetaclassEditor>>isDebuggingAsEditor (in category 'debugging') ----- - isDebuggingAsEditor - "To be transparent enough to fool most existing software, - MetaclassEditors must answer their subject's instance variables when - sent the message allInstVarNames. However, this message is also used by - the debugger, inspector, and explorer, when inspecting ClassEditors, and - an inspector should see the real instance variables of ClassEditor rather - than those of the MetaclassEditor's subject. So there is a conflict of - interest already. - - But it gets worse. If you do open an inspector on an object that is - reporting wrong information about it's instance variables, Bad things - happen. Specifically, the inspector calls instVarAt: on an instance - variable that does not exist, leading to an error every time the display - is updated. Less severe, instVarAt: will answer nonsensical. - - So I took the instance variable proxying behavior all the way so that it - successfully fools the debugger, inspector, and explorer into seeing - proxied instance variables (see the senders af this message if you want - to know how). But there is still the original problem that you, the - programmer want to see the real state of ClassEditor. That is where this - method comes in. - - If this method returns false, everybody sees the proxied instance - variables. This is the correct behavior. If this method returns false, - everyone sees the true instance variables of ClassEditor. This is - incorrect behavior, and breaks the Unit tests, but it is invaluable if - you are debugging ClassEditor" - - ^ self environment debug! Item was removed: - ----- Method: OldMetaclassEditor>>removeSelector: (in category 'editing') ----- - removeSelector: aSymbol - methods ifNil: [methods := MethodDictionaryEditor for: self]. - methods remove: aSymbol.! Item was removed: - ----- Method: OldMetaclassEditor>>lookupSelector: (in category 'metaclass') ----- - lookupSelector: aSelector - - "Override the implementation in Behavior to make ClassEditor - debuggable. The debugger calls this during simulated execution, - and since we override #includesSelector and #superclass to - reflect on the subject, we get incorrect method dispatch." - - | lookupClass dict | - lookupClass := self. - [lookupClass == nil] whileFalse: - [dict := lookupClass instVarAt: 2. - (dict includesKey: aSelector) - ifTrue: [^ dict at: aSelector]. - lookupClass := lookupClass instVarAt: 1]. - ^ nil! Item was removed: - ----- Method: OldMetaclassEditor>>edRequiresSubclassRebuild (in category 'building') ----- - edRequiresSubclassRebuild - ^ self subject - ifNotNilDo: [:subject | subject format ~= self format] - ifNil: [false]! Item was removed: - ----- Method: OldMetaclassEditor>>hasComment (in category 'reflecting') ----- - hasComment - ^ self instanceSide hasComment! Item was removed: - ----- Method: OldMetaclassEditor>>compile:classified:notifying: (in category 'editing') ----- - compile: source classified: cat notifying: anObject - ^ self - compile: source - classified: cat - withStamp: Utilities changeStamp - notifying: anObject - logSource: self acceptsLoggingOfCompilation ! Item was removed: - ----- Method: OldMetaclassEditor>>instanceVariablesString (in category 'reflecting') ----- - instanceVariablesString - ^ String streamContents: - [:stream | - self allInstVarNames - do: [:ea | stream nextPutAll: ea] - separatedBy: [stream nextPut: $ ]]! Item was removed: - ----- Method: OldRootMetaclassEditor>>allSuperclasses (in category 'reflecting') ----- - allSuperclasses - ^ OrderedCollection new! Item was removed: - ----- Method: OldRootMetaclassEditor>>subject (in category 'accessing') ----- - subject - ^ nil! Item was removed: - ----- Method: OldMetaclassEditor>>allInstVarNames (in category 'reflecting') ----- - allInstVarNames - "specialized in order to enable debugger to show as self" - - self isDebuggingAsEditor ifTrue: [^ super allInstVarNames]. - ^ self edSuperclass - ifNil: [self instVarNames copy] - ifNotNil: [self edSuperclass allInstVarNames, self instVarNames]! Item was removed: - ----- Method: OldMetaclassEditor>>edSuperclass (in category 'building') ----- - edSuperclass - "Answer my product's superclass, building it if necessary" - - | classOrEditor | - classOrEditor := self superclassOrEditor. - ^ classOrEditor edIsEditor - ifTrue: [classOrEditor product] - ifFalse: [classOrEditor]! Item was removed: - ----- Method: OldMetaclassEditor>>isMethodsChanged (in category 'testing') ----- - isMethodsChanged - methods ifNil: [^ false]. - ^ methods isChanged! Item was removed: - ----- Method: OldMetaclassEditor>>typeOfClass (in category 'reflecting') ----- - typeOfClass - ^ #normal! Item was removed: - Behavior subclass: #OldMetaclassEditor - instanceVariableNames: 'editor superEditor instVarNames methods organization traitComposition' - classVariableNames: '' - poolDictionaries: '' - category: 'SystemEditor-Editors'! Item was removed: - ----- Method: OldMetaclassEditor>>superclassOrEditor (in category 'accessing') ----- - superclassOrEditor - "Answer my superclass as an editor if it is being edited, or as a class if it is not. Does not add anything to my SystemEditor" - - superEditor ifNotNil: [^ superEditor]. - self subject superclass ifNil: [^ self class classRootEditor on: nil for: self environment]. - ^ self environment classOrEditorFor: self subject superclass! Item was removed: - ----- Method: OldRootMetaclassEditor>>ultimateSourceCodeAt:ifAbsent: (in category 'reflecting') ----- - ultimateSourceCodeAt: selector ifAbsent: aBlock - "Return the source code at selector, deferring to superclass if necessary" - - ^ aBlock value! Item was removed: - ----- Method: OldMetaclassEditor>>edIsEditor (in category 'testing') ----- - edIsEditor - ^ true! Item was removed: - ----- Method: OldRootMetaclassEditor>>allInstVarNames (in category 'reflecting') ----- - allInstVarNames - ^ #()! Item was removed: - ----- Method: OldMetaclassEditor class>>classRootEditor (in category 'instance creation') ----- - classRootEditor - "Answer the class of editors for the root of my heiarchy" - - ^ OldRootMetaclassEditor! Item was removed: - ----- Method: OldMetaclassEditor>>theMetaClass (in category 'reflecting') ----- - theMetaClass - ^ self! Item was removed: - ----- Method: OldMetaclassEditor>>edRequiresRecompile (in category 'building') ----- - edRequiresRecompile - ^ instVarNames ~~ nil! Item was removed: - ----- Method: OldMetaclassEditor>>definitionST80 (in category 'reflecting') ----- - definitionST80 - ^ String streamContents: - [:strm | - strm print: self; - crtab; - nextPutAll: 'instanceVariableNames: '; - store: self instanceVariablesString]! Item was removed: - ----- Method: OldMetaclassEditor>>environment (in category 'reflecting') ----- - environment - ^ self system! Item was removed: - ----- Method: OldMetaclassEditor>>edMethodsDo: (in category 'building') ----- - edMethodsDo: aBlock - methods ifNotNil: [methods do: aBlock]! Item was removed: - ----- Method: OldRootMetaclassEditor>>instSize (in category 'reflecting') ----- - instSize - ^ 0! Item was removed: - ----- Method: OldRootMetaclassEditor>>edRequiresRecompile (in category 'building') ----- - edRequiresRecompile - ^ false! Item was removed: - ----- Method: OldMetaclassEditor>>definitionST80: (in category 'reflecting') ----- - definitionST80: isST80 - ^ isST80 ifTrue: [self definitionST80] ifFalse: [self definition]! Item was removed: - ----- Method: OldMetaclassEditor>>edClassFormat (in category 'building') ----- - edClassFormat - ^ ClassFormat - size: self instSize - type: self typeOfClass - index: self indexIfCompact! Item was removed: - ----- Method: OldMetaclassEditor>>indexIfCompact (in category 'reflecting') ----- - indexIfCompact - self subject ifNotNil: [^ self subject indexIfCompact]. - ^ 0! Item was removed: - ----- Method: OldMetaclassEditor>>removeInstVarName: (in category 'editing') ----- - removeInstVarName: aString - instVarNames ifNil: [instVarNames := self subject instVarNames]. - instVarNames := instVarNames copyWithout: aString! Item was removed: - ----- Method: OldMetaclassEditor>>edBuild (in category 'building') ----- - edBuild - | result class | - class := self subject ifNil: [Metaclass] ifNotNilDo: [:subject | subject class]. - result := class basicNew. - "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" - result - superclass: self edSuperclass - methodDictionary: MethodDictionary new - format: self format; - organization: self organization edBuild. - result setInstVarNames: self instVarNames. - ^ result! Item was removed: - ----- Method: OldMetaclassEditor class>>classClassEditor (in category 'instance creation') ----- - classClassEditor - "Answers the class of my instance-side editor" - - ^ ClassEditor! Item was removed: - ----- Method: OldMetaclassEditor>>isMeta (in category 'reflecting') ----- - isMeta - ^ true! Item was removed: - ----- Method: OldMetaclassEditor>>system (in category 'accessing') ----- - system - ^ editor system! Item was removed: - ----- Method: OldMetaclassEditor>>product (in category 'building') ----- - product - ^ editor product class! Item was removed: - ----- Method: OldMetaclassEditor>>edRequiresBuild (in category 'building') ----- - edRequiresBuild - ^ (superEditor ~~ nil) | (instVarNames ~~ nil) | (methods ~~ nil)! Item was removed: - ----- Method: OldMetaclassEditor>>classPool (in category 'reflecting') ----- - classPool - ^ editor classPool! Item was removed: - ----- Method: OldMetaclassEditor>>compiledMethodAt: (in category 'reflecting') ----- - compiledMethodAt: aSelector - ^ self subjectDo: [:subject | subject compiledMethodAt: aSelector]! Item was removed: - ----- Method: OldMetaclassEditor>>compile:classified: (in category 'editing') ----- - compile: source classified: cat - ^ self - compile: source - classified: cat - withStamp: Utilities changeStamp - notifying: nil - logSource: self acceptsLoggingOfCompilation ! Item was removed: - ----- Method: OldRootMetaclassEditor>>edRequiresBuild (in category 'building') ----- - edRequiresBuild - ^ false! Item was removed: - ----- Method: OldRootMetaclassEditor>>typeOfClass (in category 'reflecting') ----- - typeOfClass - ^ #normal! Item was removed: - ----- Method: OldMetaclassEditor>>instanceSide (in category 'reflecting') ----- - instanceSide - ^ self theNonMetaClass! Item was removed: - ----- Method: OldMetaclassEditor>>addInstVarName: (in category 'editing') ----- - addInstVarName: aString - instVarNames ifNil: [instVarNames := self subject instVarNames]. - instVarNames := instVarNames copyWith: aString! Item was removed: - ----- Method: OldMetaclassEditor>>printOn: (in category 'printing') ----- - printOn: aStream - aStream - nextPutAll: 'a MetaclassEditor on: '; - print: editor subject ! Item was removed: - ----- Method: OldMetaclassEditor>>comment (in category 'reflecting') ----- - comment - ^ self instanceSide comment! Item was removed: - ----- Method: OldMetaclassEditor>>includesSelector: (in category 'reflecting') ----- - includesSelector: aSelector - ^ (methods ifNil: [self subject] ifNotNil: [methods]) - includesSelector: aSelector! Item was removed: - ----- Method: OldMetaclassEditor>>rearrangeInstVarNames: (in category 'editing') ----- - rearrangeInstVarNames: associations - "The associations are name -> pos and cover the subset - of vars that should be moved. The old just fill in the holes." - - instVarNames := ClassEditor rearrangeVarNames: associations oldNames: instVarNames! Item was removed: - ----- Method: OldMetaclassEditor>>new (in category 'metaclass') ----- - new - ^ editor := self basicNew! Item was removed: - ----- Method: OldMetaclassEditor>>name (in category 'reflecting') ----- - name - ^ editor name, ' class'! Item was removed: - ----- Method: OldMetaclassEditor>>subjectDo: (in category 'accessing') ----- - subjectDo: aBlock - ^ self subject - ifNotNilDo: [:subject | aBlock value: subject] - ifNil: [self error: 'key not found']! Item was removed: - ----- Method: OldMetaclassEditor>>edInitializeForNewClass (in category 'building') ----- - edInitializeForNewClass - superEditor := self system edEditorFor: Object class. - instVarNames := Array new. - methods := MethodDictionaryEditor for: self! Item was removed: - ----- Method: OldMetaclassEditor>>sourceCodeAt: (in category 'reflecting') ----- - sourceCodeAt: aSelector - ^ self subjectDo: [:subject | subject sourceCodeAt: aSelector]! Item was removed: - ----- Method: OldMetaclassEditor>>organization (in category 'reflecting') ----- - organization - ^ organization ifNil: [organization := OrganizationEditor for: self]! Item was removed: - ----- Method: OldRootMetaclassEditor>>edRegisterEditor (in category 'initialize-release') ----- - edRegisterEditor - "Do nothing"! Item was removed: - ----- Method: OldMetaclassEditor>>edMethodAt: (in category 'editing') ----- - edMethodAt: aSelector - ^ self methods at: aSelector! Item was removed: - ----- Method: OldMetaclassEditor>>methodDictionary (in category 'reflecting') ----- - methodDictionary - | methodEditor | - (methods isNil and: [self edRequiresRecompile not]) ifTrue: [^ self subject methodDictionary]. - methodEditor := methods ifNil: [MethodDictionaryEditor for: self]. - ^ methodEditor buildFor: self! Item was removed: - ----- Method: OldMetaclassEditor>>browserDefinition: (in category 'reflecting') ----- - browserDefinition: style - ^ self definition!

1 0

Installer: Installer-Core-mtf.234.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 11 Oct '08

11 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.234.mcz ==================== Summary ==================== Name: Installer-Core-mtf.234 Author: mtf Time: 9 October 2008, 4:31:26 pm UUID: 46a0ae9d-6dc7-47db-94ff-c8e896b408cd Ancestors: Installer-Core-mtf.233 moved the Launcher support code out of cruft moved Installer view: out of cruft =============== Diff against Installer-Core-mtf.233 =============== Item was added: + ----- Method: Installer>>reportFor:page:on: (in category 'action report') ----- + reportFor: theLine page: thePage on: report + + [ thePage atEnd ] whileFalse: [ + | line | + line := thePage nextLine. + Installer actionMatch: line reportOn: report ifNoMatch: [ report nextPutAll: line; cr. ]].! Item was added: + ----- Method: Installer class>>do: (in category 'launcher support') ----- + do: webPageName + + | rs | + self webSearchPath isEmpty ifTrue: [ ^self error: 'search path not set' ]. + rs := webPageName readStream. + [ rs atEnd ] whileFalse: [ self install: (rs upTo: $;) ]. + ! Item was added: + ----- Method: Installer>>reportSection:on: (in category 'action report') ----- + reportSection: line on: report + + report isEmpty ifFalse: [ report cr ]. + report nextPutAll: '">>>> ' ; nextPutAll: (line copyWithout: $"); nextPut: $"; cr. + + ! Item was added: + ----- Method: InstallerUrl>>action:reportOn: (in category 'action report') ----- + action: line reportOn: report + + url := line readStream upTo: $' ; upTo: $'. + + self reportSection: line on: report. + + (pageDataStream := self urlGet: self urlToDownload) + ifNil: [ self error: 'unable to contact host' ]. + + self reportFor: line page: pageDataStream on: report ! Item was added: + ----- Method: Installer class>>actionMatch:reportOn:ifNoMatch: (in category 'action report') ----- + actionMatch: theLine reportOn: report ifNoMatch: aBlock + + | line | + line := theLine withBlanksCondensed. + self allSubclassesDo: [:class | + (class canReportLine: line) + ifTrue: [ ^ class new action: theLine reportOn: report ]]. + ^ aBlock value! Item was added: + ----- Method: InstallerMantis>>action:reportOn: (in category 'action report') ----- + action: line reportOn: report + + | param mantis | + mantis := Installer mantis. + param := line readStream upTo: $: ; upTo: $.. + + mantis setBug: ((param readStream upTo: $'; atEnd) + ifTrue: [ param ] + ifFalse: [ param readStream upTo: $'; upTo: $' ]). + + self reportSection: line on: report. + report nextPutAll: (mantis replaceEntitiesIn: mantis markersBegin readStream). + self reportFor: line page: mantis maScript on: report. + report nextPutAll: (mantis replaceEntitiesIn: mantis markersEnd readStream); cr. + ! Item was added: + ----- Method: InstallerMantis class>>canReportLine: (in category 'action report') ----- + canReportLine: line + ^ line beginsWith: 'Installer mantis fixBug:'! Item was added: + ----- Method: InstallerWeb class>>canReportLine: (in category 'action report') ----- + canReportLine: line + ^ ((line beginsWith: 'Installer install:') | (line beginsWith: 'Installer do:'))! Item was added: + ----- Method: Installer class>>view: (in category 'instanciation') ----- + view: webPageNameOrUrl + + | theReport | + + theReport := String streamContents: [ :report | + (webPageNameOrUrl beginsWith: 'http://') ifTrue: [ + self actionMatch: ('Installer installUrl: ', (webPageNameOrUrl printString),'.') + reportOn: report ifNoMatch: [] + ] + ifFalse: [ + self actionMatch: ('Installer install: ', (webPageNameOrUrl printString),'.') + reportOn: report ifNoMatch: [] + ]]. + + Workspace new contents: (theReport contents); openLabel: webPageNameOrUrl. + + ^theReport contents + ! Item was added: + ----- Method: Installer class>>launchHelp (in category 'launcher support') ----- + launchHelp + + ^'path=/dir/*.txt Specify a search path for the item to install + p=/dir1/*.txt;<url2>/ Multiple items delimited by ; + The page name is typically appended to the path string, or + if a "*" is present, it will be replaced by the page name. + + in,i,install=<page> Page appended to the path to begin the install process + url,u=<url> Install using an explicit url from which to obtain a script or file + file=<url> Install using a local file + +debug Do not trap errors + view=<page> Print the script that would have been installed. + + For more options use Script eval="Installer ... " + ' + ! Item was added: + ----- Method: Installer class>>launchFrom: (in category 'launcher support') ----- + launchFrom: launcher + + ^self launchWith: launcher getParameters! Item was added: + ----- Method: InstallerWeb>>action:reportOn: (in category 'action report') ----- + action: line reportOn: report + + self package: (line readStream upTo: $' ; upTo: $'). + + self reportSection: line on: report. + + url := self webFindUrlToDownload. + + self reportFor: line page: pageDataStream on: report ! Item was added: + ----- Method: InstallerUrl class>>canReportLine: (in category 'action report') ----- + canReportLine: line + ^ ((line beginsWith: 'Installer installUrl:') and: + [ | ext | + ext := (line readStream upToAll: '''.') copyAfterLast: $.. + (#( 'cs' 'st' 'mcz' 'sar') includes: ext) not ])! Item was added: + ----- Method: Installer class>>canReportLine: (in category 'action report') ----- + canReportLine: line + ^ false! Item was added: + ----- Method: Installer class>>launchWith: (in category 'launcher support') ----- + launchWith: params + + params at: 'P' ifPresent: [ :v | params at: 'PATH' put: v ]. + params at: 'I' ifPresent: [ :v | params at: 'INSTALL' put: v ]. + params at: 'IN' ifPresent: [ :v | params at: 'INSTALL' put: v ]. + params at: 'U' ifPresent: [ :v | params at: 'URL' put: v ]. + + params at: 'PATH' ifPresent: [ :v | + self webSearchPathFrom: v. + ]. + + params at: 'USER' ifPresent: [ :v | + Utilities setAuthorInitials: v + ]. + params at: 'VERSION' ifPresent: [ :v | + SystemVersion current version: v + ]. + params at: 'VIEW' ifPresent: [ :v | + self view: v + ]. + + IsSetToTrapErrors := true. + params at: 'DEBUG' ifPresent: [ :v | IsSetToTrapErrors := (v == true) not ]. + + params at: 'URL' ifPresent: [ :v | + self installUrl: v + ]. + + params at: 'FILE' ifPresent: [ :v | + self installFile: v + ]. + + params at: 'INSTALL' ifPresent: [ :v | + self do: v + ]. + params at: 'DO' ifPresent: [ :v | + self do: v + ]. + + ^true + + ! Item was removed: - ----- Method: InstallerCruft>>reportFor:page:on: (in category 'action report') ----- - reportFor: theLine page: thePage on: report - - [ thePage atEnd ] whileFalse: [ - | line | - line := thePage nextLine. - self actionMatch: line reportOn: report ifNoMatch: [ report nextPutAll: line; cr. ]].! Item was removed: - ----- Method: InstallerCruft class>>do: (in category 'launcher support') ----- - do: webPageName - - | rs | - self webSearchPath isEmpty ifTrue: [ ^self error: 'search path not set' ]. - rs := webPageName readStream. - [ rs atEnd ] whileFalse: [ self install: (rs upTo: $;) ]. - ! Item was removed: - ----- Method: InstallerCruft>>urlAction:reportOn: (in category 'action report') ----- - urlAction: line reportOn: report - - url := line readStream upTo: $' ; upTo: $'. - - self reportSection: line on: report. - - (pageDataStream := self urlGet: self urlToDownload) - ifNil: [ self error: 'unable to contact host' ]. - - self reportFor: line page: pageDataStream on: report ! Item was removed: - ----- Method: InstallerCruft>>reportSection:on: (in category 'action report') ----- - reportSection: line on: report - - report isEmpty ifFalse: [ report cr ]. - report nextPutAll: '">>>> ' ; nextPutAll: (line copyWithout: $"); nextPut: $"; cr. - - ! Item was removed: - ----- Method: InstallerCruft>>webAction:reportOn: (in category 'action report') ----- - webAction: line reportOn: report - - self package: (line readStream upTo: $' ; upTo: $'). - - self reportSection: line on: report. - - url := self webFindUrlToDownload. - - self reportFor: line page: pageDataStream on: report ! Item was removed: - ----- Method: InstallerCruft class>>view: (in category 'instanciation') ----- - view: webPageNameOrUrl - - | theReport | - - theReport := String streamContents: [ :report | - (webPageNameOrUrl beginsWith: 'http://') ifTrue: [ - self new urlAction: ('Installer installUrl: ', (webPageNameOrUrl printString),'.') - reportOn: report. - ] - ifFalse: [ - self new webAction: ('Installer install: ', (webPageNameOrUrl printString),'.') - reportOn: report. - ]]. - - Workspace new contents: (theReport contents); openLabel: webPageNameOrUrl. - - ^theReport contents - ! Item was removed: - ----- Method: InstallerCruft class>>launchHelp (in category 'launcher support') ----- - launchHelp - - ^'path=/dir/*.txt Specify a search path for the item to install - p=/dir1/*.txt;<url2>/ Multiple items delimited by ; - The page name is typically appended to the path string, or - if a "*" is present, it will be replaced by the page name. - - in,i,install=<page> Page appended to the path to begin the install process - url,u=<url> Install using an explicit url from which to obtain a script or file - file=<url> Install using a local file - +debug Do not trap errors - view=<page> Print the script that would have been installed. - - For more options use Script eval="Installer ... " - ' - ! Item was removed: - ----- Method: InstallerCruft>>actionMatch:reportOn:ifNoMatch: (in category 'action report') ----- - actionMatch: theLine reportOn: report ifNoMatch: aBlock - - | line | - line := theLine withBlanksCondensed. - ((line beginsWith: 'Installer install:') | (line beginsWith: 'Installer do:')) - ifTrue: [ ^self webAction: theLine reportOn: report ]. - - ((line beginsWith: 'Installer installUrl:') and: - [ | ext | - ext := (line readStream upToAll: '''.') copyAfterLast: $.. - (#( 'cs' 'st' 'mcz' 'sar') includes: ext) not ]) ifTrue: [ ^self urlAction: theLine reportOn: report ]. - - (line beginsWith: 'Installer mantis fixBug:') ifTrue: [ ^self mantisAction: theLine reportOn: report ]. - aBlock value. - ! Item was removed: - ----- Method: InstallerCruft class>>launchFrom: (in category 'launcher support') ----- - launchFrom: launcher - - ^self launchWith: launcher getParameters! Item was removed: - ----- Method: InstallerCruft class>>launchWith: (in category 'launcher support') ----- - launchWith: params - - params at: 'P' ifPresent: [ :v | params at: 'PATH' put: v ]. - params at: 'I' ifPresent: [ :v | params at: 'INSTALL' put: v ]. - params at: 'IN' ifPresent: [ :v | params at: 'INSTALL' put: v ]. - params at: 'U' ifPresent: [ :v | params at: 'URL' put: v ]. - - params at: 'PATH' ifPresent: [ :v | - self webSearchPathFrom: v. - ]. - - params at: 'USER' ifPresent: [ :v | - Utilities setAuthorInitials: v - ]. - params at: 'VERSION' ifPresent: [ :v | - SystemVersion current version: v - ]. - params at: 'VIEW' ifPresent: [ :v | - self view: v - ]. - - IsSetToTrapErrors := true. - params at: 'DEBUG' ifPresent: [ :v | IsSetToTrapErrors := (v == true) not ]. - - params at: 'URL' ifPresent: [ :v | - self installUrl: v - ]. - - params at: 'FILE' ifPresent: [ :v | - self installFile: v - ]. - - params at: 'INSTALL' ifPresent: [ :v | - self do: v - ]. - params at: 'DO' ifPresent: [ :v | - self do: v - ]. - - ^true - - ! Item was removed: - ----- Method: InstallerCruft>>mantisAction:reportOn: (in category 'action report') ----- - mantisAction: line reportOn: report - - | param mantis | - mantis := Installer mantis. - param := line readStream upTo: $: ; upTo: $.. - - mantis setBug: ((param readStream upTo: $'; atEnd) - ifTrue: [ param ] - ifFalse: [ param readStream upTo: $'; upTo: $' ]). - - self reportSection: line on: report. - report nextPutAll: (mantis replaceEntitiesIn: mantis markersBegin readStream). - self reportFor: line page: mantis maScript on: report. - report nextPutAll: (mantis replaceEntitiesIn: mantis markersEnd readStream); cr. - !

1 0

Installer: Installer-Core-mtf.233.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 09 Oct '08

09 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.233.mcz ==================== Summary ==================== Name: Installer-Core-mtf.233 Author: mtf Time: 9 October 2008, 1:21:18 pm UUID: 24206889-2ba2-41bb-8e4b-c87ea316df23 Ancestors: Installer-Core-kph.232 Split up Installer into 14 classes Monticello's move-unaware diffing makes reviewing this change virtually impossible. Here are the side-by-side comparable file-outs I used to manage this change: http://lists.squeakfoundation.org/pipermail/release/2008-October/000035.html =============== Diff against Installer-Core-kph.232 =============== Item was changed: + ----- Method: Installer class>>sophie (in category 'monticello') ----- - ----- Method: Installer class>>sophie (in category 'instanciation-abbreviated') ----- sophie ^ self monticello http: 'source.sophieproject.org' ! Item was added: + ----- Method: InstallerWeb class>>install: (in category 'compatability') ----- + install: webPageName + "This keeps the syntax Installer web install: working" + ^ self new install: webPageName! Item was added: + ----- Method: InstallerCruft>>reportFor:page:on: (in category 'action report') ----- + reportFor: theLine page: thePage on: report + + [ thePage atEnd ] whileFalse: [ + | line | + line := thePage nextLine. + self actionMatch: line reportOn: report ifNoMatch: [ report nextPutAll: line; cr. ]].! Item was changed: + ----- Method: Installer>>withAnswersDo: (in category 'auto answering') ----- - ----- Method: Installer>>withAnswersDo: (in category 'monticello') ----- withAnswersDo: aBlock (aBlock respondsTo: #valueSuppressingMessages:supplyingAnswers: ) ifTrue: [aBlock valueSuppressingMessages: self messagesToSuppress supplyingAnswers: self answers.] ifFalse: [ aBlock value ] ! Item was added: + ----- Method: Installer>>basicInstall (in category 'basic interface') ----- + basicInstall! Item was changed: + ----- Method: Installer class>>squeakmap (in category 'squeakmap') ----- - ----- Method: Installer class>>squeakmap (in category 'instanciation') ----- squeakmap + ^ InstallerSqueakMap new sm: true; yourself! - ^self new sm: true; yourself! Item was added: + ----- Method: InstallerUniverse>>classUVersion (in category 'class references') ----- + classUVersion + + ^Smalltalk at: #UVersion ifAbsent: [ self error: 'Universes code not present' ]! Item was added: + InstallerWebBased subclass: #InstallerMantis + instanceVariableNames: 'ma bug desc date' + classVariableNames: 'Fixes' + poolDictionaries: '' + category: 'Installer-Core'! Item was added: + ----- Method: InstallerMantis>>setBug: (in category 'mantis') ----- + setBug: stringOrNumber + + | str | + self logCR: stringOrNumber. + stringOrNumber isInteger ifTrue: [ bug := stringOrNumber. desc := ''. ^self ]. + bug := stringOrNumber asInteger. + str := str printString. + desc := stringOrNumber copyFrom: (str size + 1) to: (stringOrNumber size) + + ! Item was added: + ----- Method: InstallerUpdateStream>>loadUpdatesFromDiskToUpdateNumber:stopIfGap: (in category 'updates') ----- + loadUpdatesFromDiskToUpdateNumber: lastUpdateNumber stopIfGap: stopIfGapFlag + "To use this mechanism, be sure all updates you want to have considered + are in a folder named 'updates' which resides in the same directory as + your image. Having done that, simply evaluate: + + Installer new loadUpdatesFromDiskToUpdateNumber: 100020 stopIfGap: false + + and all numbered updates <= lastUpdateNumber not yet in the image will + be loaded in numerical order." + + "apparently does not use the updatelist too bad!! and to rewrite - sd 7 March 2008" + | previousHighest currentUpdateNumber done fileNames aMessage updateDirectory loaded | + updateDirectory := self updateDirectoryOrNil. + updateDirectory ifNil: [^ self]. + previousHighest := SystemVersion current highestUpdate. + currentUpdateNumber := previousHighest. + done := false. + loaded := 0. + [done] + whileFalse: [currentUpdateNumber := currentUpdateNumber + 1. + currentUpdateNumber > lastUpdateNumber + ifTrue: [done := true] + ifFalse: [fileNames := updateDirectory fileNamesMatching: currentUpdateNumber printString , '*'. + fileNames size > 1 + ifTrue: [^ self inform: 'ambiguity -- two files both start with ' , currentUpdateNumber printString , ' + (at this point it is probably best to remedy + the situation on disk, then try again.)']. + fileNames size == 0 + ifTrue: [Transcript cr; show: 'gap in updates from disk for update number '; print: currentUpdateNumber; show: ' found...'. + done := stopIfGapFlag] + ifFalse: [ChangeSet + newChangesFromStream: (updateDirectory readOnlyFileNamed: fileNames first) + named: fileNames first. + SystemVersion current registerUpdate: currentUpdateNumber. + loaded := loaded + 1]]]. + aMessage := loaded = 0 + ifTrue: ['No new updates found.'] + ifFalse: [loaded printString , ' update(s) loaded.']. + self inform: aMessage , ' + Highest numbered update is now ' , (currentUpdateNumber - 1) printString , '.'! Item was added: + ----- Method: InstallerSake class>>sake (in category 'accessing') ----- + sake + + ^ Sake ifNil: [ self classPackages current ]! Item was added: + ----- Method: InstallerMantis>>justFixBug: (in category 'public interface') ----- + justFixBug: aBugNo + + ^self class skipLoadingTests: true during: [ self fixBug: aBugNo date: nil ]! Item was changed: ----- Method: Installer>>packagesMatching: (in category 'searching') ----- packagesMatching: aMatch - - self sm ifTrue: [ ^ (self availablePackages select: [ :p | aMatch match: p name ]) - collect: [ :p | self copy package: p name; yourself ] ]. - self mc ifNotNil: [ ^ (self availablePackages select: [ :p | ( aMatch , '.mcz' ) match: p ]) collect: [ :p | self copy package: p ; yourself ] ]. - self wsm ifNotNil: [ ^ (self availablePackages select: [ :p | ( aMatch) match: p ]) - collect: [ :p | self copy package: p ; yourself ] ]. ^'search type not supported'! Item was added: + ----- Method: InstallerCruft class>>classes (in category 'accessing system') ----- + classes + + ^ Smalltalk! Item was added: + InstallerInternetBased subclass: #InstallerWebBased + instanceVariableNames: 'markers' + classVariableNames: '' + poolDictionaries: '' + category: 'Installer-Core'! Item was added: + ----- Method: InstallerInternetBased>>httpGet: (in category 'utils') ----- + httpGet: aUrl + + | page | + page := self classHTTPSocket httpGet: aUrl accept: 'application/octet-stream'. + + (page respondsTo: #reset) ifFalse: [ self error: 'unable to contact web site' ]. + ^ page + ! Item was changed: + ----- Method: Installer class>>websqueakmap (in category 'websqueakmap') ----- - ----- Method: Installer class>>websqueakmap (in category 'instanciation') ----- websqueakmap + ^ InstallerWebSqueakMap new wsm: 'http://map.squeak.org'; yourself! - ^self new wsm: 'http://map.squeak.org'; yourself! Item was changed: + ----- Method: Installer class>>saltypickle (in category 'monticello') ----- - ----- Method: Installer class>>saltypickle (in category 'instanciation-abbreviated') ----- saltypickle ^ self monticello http: 'squeak.saltypickle.com'! Item was added: + ----- Method: InstallerMantis>>fixBug:date: (in category 'public interface') ----- + fixBug: aBugNo date: aDate + + self setBug: aBugNo. + self install: self maUrl from: self maScript. + self maCheckDateAgainst: aDate. + + + + ! Item was added: + ----- Method: Installer>>basicBrowse (in category 'basic interface') ----- + basicBrowse! Item was added: + ----- Method: InstallerCruft>>classMCMczReader (in category 'class references') ----- + classMCMczReader + + ^Smalltalk at: #MCMczReader ifAbsent: [ nil ] + ! Item was changed: + ----- Method: Installer>>view: (in category 'public interface') ----- - ----- Method: Installer>>view: (in category 'accessing') ----- view: packageNameCollectionOrDetectBlock self package: packageNameCollectionOrDetectBlock. self view! Item was added: + ----- Method: InstallerWeb>>basicBrowse (in category 'basic interface') ----- + basicBrowse + + self webThing size > 0 + ifTrue: [ self browse: url from: pageDataStream ] + ifFalse: [ self logCR: 'NO DATA ',url,' was empty' ]. + ! Item was added: + ----- Method: InstallerMantis>>ensureFix: (in category 'public interface') ----- + ensureFix: aBugNo + + | fixesAppliedNumbers | + self setBug: aBugNo. + fixesAppliedNumbers := self class fixesApplied collect: [ :fixDesc | fixDesc asInteger ]. + (fixesAppliedNumbers includes: bug) ifFalse: [ self fixBug: aBugNo ]! Item was added: + ----- Method: InstallerMantis>>date: (in category 'accessing') ----- + date: anObject + + date := anObject asDate! Item was added: + ----- Method: InstallerSqueakMap>>basicAvailablePackages (in category 'basic interface') ----- + basicAvailablePackages + + ^self classSMSqueakMap default packagesByName! Item was added: + ----- Method: InstallerFile>>file (in category 'accessing') ----- + file + + ^ afile! Item was added: + ----- Method: InstallerInternetBased>>urlGet: (in category 'url') ----- + urlGet: aUrl + + | page | + page := HTTPSocket httpGet: aUrl accept: 'application/octet-stream'. + (page respondsTo: #reset) ifFalse: [ ^ nil ]. + (self isHtmlStream: page) ifTrue: [ page := self extractFromHtml: page option: nil ]. + ^ page reset + ! Item was added: + ----- Method: InstallerWebSqueakMap>>wsm: (in category 'websqueakmap') ----- + wsm: aUrl + + wsm := aUrl last = $/ ifTrue: [ aUrl ] ifFalse: [ aUrl, '/' ]! Item was added: + ----- Method: InstallerMonticello>>mc: (in category 'accessing') ----- + mc: aUrl + + mc := aUrl last = $/ ifTrue: [ aUrl ] ifFalse: [ aUrl, '/' ]! Item was changed: + ----- Method: Installer class>>squeakfoundation (in category 'monticello') ----- - ----- Method: Installer class>>squeakfoundation (in category 'instanciation-abbreviated') ----- squeakfoundation ^ self monticello http: 'source.squeakfoundation.org'! Item was added: + ----- Method: InstallerInternetBased class>>entities (in category 'accessing') ----- + entities + + ^ Entities ifNil: [ Entities := + "enough entities to be going on with" + Dictionary new. + Entities at: 'lt' put: '<'; + at: 'gt' put: '>'; + at: 'amp' put: '&'; + at: 'star' put: '*'; + at: 'quot' put: '"'; + at: 'nbsp' put: ' '; + yourself + ] + + ! Item was added: + ----- Method: InstallerMonticello class>>classMCCacheRepository (in category 'class references') ----- + classMCCacheRepository + + ^Smalltalk at: #MCCacheRepository ifAbsent: [ self error: 'Monticello not present' ] + ! Item was changed: + ----- Method: Installer class>>validationBlock (in category 'accessing') ----- - ----- Method: Installer class>>validationBlock (in category 'instanciation-abbreviated') ----- validationBlock ^ ValidationBlock! Item was added: + ----- Method: InstallerMonticello class>>classMCDirectoryRepository (in category 'class references') ----- + classMCDirectoryRepository + + ^Smalltalk at: #MCDirectoryRepository ifAbsent: [ self error: 'Monticello not present' ] + ! Item was added: + ----- Method: InstallerSqueakMap>>basicVersions (in category 'basic interface') ----- + basicVersions + + ^ (self smReleasesForPackage: self package) + collect: [ :v | self copy package: (v package name,'(',v version,')'); yourself. ] + + ! Item was added: + ----- Method: InstallerSqueakMap>>basicView (in category 'basic interface') ----- + basicView + + self smThing explore! Item was added: + ----- Method: InstallerWeb class>>initialize (in category 'instanciation') ----- + initialize + + WebSearchPath := OrderedCollection + with: [ 'http://installer.pbwiki.com/*-', (Smalltalk version copy replaceAll: $. with: $:) ,'-', Utilities authorInitialsPerSe ,'?raw=bare' ] + with: [ 'http://installer.pbwiki.com/*-', (Smalltalk version copy replaceAll: $. with: $:), '?raw=bare' ] + with: [ 'http://installer.pbwiki.com/*-', (SystemVersion current majorMinorVersion replaceAll: $. with: $:) ,'?raw=bare' ] + with: 'http://installer.pbwiki.com/*?raw=bare' + + ! Item was added: + ----- Method: InstallerMonticello class>>classMCSmtpRepository (in category 'class references') ----- + classMCSmtpRepository + + ^Smalltalk at: #MCSmtpRepository ifAbsent: [ self error: 'Monticello not present' ] + ! Item was changed: ----- Method: Installer>>browse (in category 'public interface') ----- browse + self logErrorDuring: [self basicBrowse]! - - self logErrorDuring: [ - self file ifNotNil: [ ^ self fileBrowse ]. - self mc ifNotNil: [ ^self mcBrowse ]. - self wsm ifNotNil: [ ^self wsmBrowse ]. - self sm ifTrue: [ ^self smBrowse ]. - self url ifNotNil: [ ^self urlBrowse ]. - self package ifNotNil: [ ^self webBrowse ]. - ] ! Item was added: + ----- Method: InstallerWeb>>webThing (in category 'web install') ----- + webThing + + url := self webFindUrlToDownload. + url ifNil: [ self logCR: 'page ', self package, ' not found on path' ] + ifNotNil: [ self logCR: 'found ', url, ' ...'. ]. + ^ pageDataStream! Item was added: + ----- Method: InstallerMantis>>maCheckDateAgainst: (in category 'utils') ----- + maCheckDateAgainst: okDate + + (okDate notNil and: [date < okDate asDate ]) + ifTrue: [ self notify: 'bug ', self bug asString, ' updated on ', date printString ]. + ! Item was changed: + ----- Method: Installer>>availablePackages (in category 'public interface') ----- - ----- Method: Installer>>availablePackages (in category 'accessing') ----- availablePackages + ^ self basicAvailablePackages! - self sm ifTrue: [ ^self smPackages ]. - self mc ifNotNil: [ ^self mc allFileNames ]. - self wsm ifNotNil: [ ^self wsmPackagesByName keys ].! Item was changed: + ----- Method: Installer class>>installUrl: (in category 'url') ----- - ----- Method: Installer class>>installUrl: (in category 'instanciation') ----- installUrl: urlString + ^ self url url: urlString; install. - ^ self web url: urlString; install. ! Item was added: + ----- Method: InstallerInternetBased>>isHtmlStream: (in category 'url') ----- + isHtmlStream: page + "matches '<!!DOCTYPE HTML', and <html>' " + + | first | + first := (page next: 14) asUppercase. + ^ (first = '<!!DOCTYPE HTML') | (first beginsWith: '<HTML>') + + ! Item was added: + ----- Method: InstallerMantis>>maReadNotes: (in category 'mantis') ----- + maReadNotes: page + + | notes note | + + notes := OrderedCollection new. + + [ page upToAll: 'tr class="bugnote"'; upTo: $>. + page atEnd ] + + whileFalse: [ + note := (self removeHtmlMarkupFrom: (page upToAll: '</tr>') readStream) contents. + note := note withBlanksCondensed. + "note replaceAll: Character cr with: $ ." + note replaceAll: Character lf with: Character cr. + notes add: note + ]. + + ^notes! Item was added: + ----- Method: InstallerSake class>>classPackages (in category 'accessing system') ----- + classPackages + + ^Smalltalk at: #Packages ifAbsent: [ self error: 'Sake Packages code not present' ]! Item was added: + ----- Method: Installer>>basicAvailablePackages (in category 'basic interface') ----- + basicAvailablePackages! Item was added: + ----- Method: InstallerMonticello class>>unloadCleanUp (in category 'unload') ----- + unloadCleanUp + + SystemOrganization removeEmptyCategories. + + "Until Mantis 5718 is addressed" + Smalltalk at: #PackagePaneBrowser ifPresent: [ :ppbClass | ppbClass allInstancesDo: [ :ppb | ppb updatePackages ] ]. + Smalltalk at: #Browser ifPresent: [ :bClass | bClass allInstancesDo: [ :b | b updateSystemCategories ] ]. + MCFileBasedRepository freeSomeSpace. + SmalltalkImage current fixObsoleteReferences.! Item was added: + ----- Method: InstallerSake class>>sake: (in category 'accessing') ----- + sake: aClass + + Sake := aClass! Item was added: + ----- Method: InstallerSqueakMap>>basicInstall (in category 'basic interface') ----- + basicInstall + + self log: ' installing '. + self withAnswersDo: [ self smThing install ]. + self log: ' done'. + ! Item was added: + Installer subclass: #InstallerSake + instanceVariableNames: 'sake' + classVariableNames: 'Sake' + poolDictionaries: '' + category: 'Installer-Core'! Item was added: + ----- Method: InstallerUpdateStream>>writeList:toStream: (in category 'updates') ----- + writeList: listContents toStream: strm + "Write a parsed updates.list out as text. + This is the inverse of parseUpdateListContents:" + + | fileNames releaseTag | + strm reset. + listContents do: + [:pair | + releaseTag := pair first. + fileNames := pair last. + strm nextPut: $#; nextPutAll: releaseTag; cr. + fileNames do: [:fileName | strm nextPutAll: fileName; cr]]. + strm close! Item was added: + ----- Method: InstallerWebSqueakMap>>wsm (in category 'websqueakmap') ----- + wsm + + ^ wsm! Item was added: + ----- Method: InstallerInternetBased>>replaceEntitiesIn: (in category 'url') ----- + replaceEntitiesIn: in + + | out | + out := ReadWriteStream on: (String new: 100). + [ in atEnd ] whileFalse: [ + out nextPutAll: ((in upTo: $&) replaceAll: Character lf with: Character cr). + in atEnd ifFalse: [ out nextPutAll: (self class entities at: (in upTo: $;) ifAbsent: '?') ]. + ]. + + ^out reset! Item was added: + ----- Method: InstallerCruft>>viewUrl (in category 'utils') ----- + viewUrl + + ^Workspace new contents: (self urlGet contents); openLabel: self urlToDownload. + ! Item was added: + ----- Method: InstallerMantis>>maUrlFor: (in category 'mantis') ----- + maUrlFor: maBugNo + + ^ url := self ma, 'view.php?id=', maBugNo asString + ! Item was changed: + ----- Method: Installer>>rememberAs: (in category 'custom names') ----- - ----- Method: Installer>>rememberAs: (in category 'accessing') ----- rememberAs: symbol self class remembered at: symbol asSymbol put: self! Item was added: + ----- Method: InstallerCruft class>>mczInstall: (in category 'documentation') ----- + mczInstall: urlOrFile + + ^ self new mczInstall: urlOrFile + ! Item was changed: + ----- Method: Installer class>>installSilentlyUrl: (in category 'url') ----- - ----- Method: Installer class>>installSilentlyUrl: (in category 'instanciation') ----- installSilentlyUrl: urlString + ^ SystemChangeNotifier uniqueInstance doSilently: [ self url url: urlString; install ]. - ^ SystemChangeNotifier uniqueInstance doSilently: [ self web url: urlString; install ]. ! Item was added: + ----- Method: InstallerMonticello class>>classMCFtpRepository (in category 'class references') ----- + classMCFtpRepository + + ^Smalltalk at: #MCFtpRepository ifAbsent: [ self error: 'Monticello not present' ] + ! Item was added: + ----- Method: InstallerMonticello class>>cache (in category 'instance creation') ----- + cache + | mc | + ^ self new + mc: (mc := self classMCCacheRepository default) + root: mc directory localName + ! Item was added: + ----- Method: InstallerSqueakMap>>packagesMatching: (in category 'searching') ----- + packagesMatching: aMatch + ^ (self availablePackages + select: [ :p | aMatch match: p name ]) + collect: [ :p | self copy package: p name; yourself ]! Item was added: + ----- Method: InstallerUrl>>basicView (in category 'basic interface') ----- + basicView + "(Installer debug url: 'http://installer.pbwiki.com/f/Installer.st') view.". + + self view: self urlToDownload from: self urlThing. + + + ! Item was changed: + ----- Method: Installer class>>path: (in category 'web') ----- - ----- Method: Installer class>>path: (in category 'instanciation') ----- path: aString "convenience abbreviation" self webSearchPathFrom: aString! Item was added: + ----- Method: InstallerMonticello>>project (in category 'accessing') ----- + project + + ^ project! Item was added: + ----- Method: InstallerMonticello class>>goods:port: (in category 'instance creation') ----- + goods: host port: aport + + ^ self new mc: ((self classMCGOODSRepository new) host: host port: aport; yourself) + ! Item was added: + ----- Method: InstallerMantis>>bugFiles: (in category 'public interface') ----- + bugFiles: aBugNo + "provide a list of files associated with the bug in id order" + " + Installer mantis bugFiles: 6660. + " + self setBug: aBugNo. + ^ (self maFiles associations asSortedCollection: [ :a :b | a value asInteger >installQuietly (in category 'public interface') ----- - ----- Method: Installer>>installQuietly (in category 'accessing') ----- installQuietly [ self install ] on: Warning do: [ :ex | ex resume: true ].! Item was added: + ----- Method: InstallerUniverse>>universe (in category 'universes') ----- + universe + + ^ universe! Item was changed: + ----- Method: Installer class>>sm (in category 'squeakmap') ----- - ----- Method: Installer class>>sm (in category 'instanciation-abbreviated') ----- sm ^ self squeakmap! Item was changed: + ----- Method: Installer class>>universe (in category 'universe') ----- - ----- Method: Installer class>>universe (in category 'instanciation') ----- universe + ^ InstallerUniverse new universe: (self classUGlobalInstaller universe: self classUUniverse systemUniverse)! - ^ self new universe: (self classUGlobalInstaller universe: self classUUniverse systemUniverse)! Item was added: + ----- Method: InstallerUpdateStream>>loadUpdatesFromDisk (in category 'updates') ----- + loadUpdatesFromDisk + + | updateDirectory updateNumbers | + updateDirectory := self updateDirectoryOrNil. + updateDirectory ifNil: [^ self]. + updateNumbers := updateDirectory fileNames + collect: [:fn | fn initialIntegerOrNil] + thenSelect: [:fn | fn notNil]. + + self loadUpdatesFromDiskToUpdateNumber: updateNumbers max + stopIfGap: false + + ! Item was added: + ----- Method: InstallerSake>>sake: (in category 'websqueakmap') ----- + sake: aSakePackagesClass + + sake := aSakePackagesClass! Item was added: + ----- Method: InstallerMonticello>>basicAvailablePackages (in category 'basic interface') ----- + basicAvailablePackages + ^ self mc allFileNames! Item was changed: + ----- Method: Installer>>versions (in category 'public interface') ----- - ----- Method: Installer>>versions (in category 'accessing') ----- versions + ^ self basicVersions! - self sm ifTrue: [ ^self smVersions ]. - self mc ifNotNil: [ ^self mcVersions ]. - self wsm ifNotNil: [ ^self wsmVersions ].! Item was added: + ----- Method: InstallerMantis class>>host: (in category 'instance creation') ----- + host: host + + ^self new ma: host; + markers: '"fix begin"..."fix test"..."fix end"'; + yourself. + ! Item was added: + ----- Method: InstallerFile>>file: (in category 'accessing') ----- + file: f + + afile := f! Item was added: + ----- Method: InstallerWebSqueakMap>>basicVersions (in category 'basic interface') ----- + basicVersions + + | pkgAndVersion packageId packageName packageVersion versions | + pkgAndVersion := self packageAndVersionFrom: self package . + packageName := pkgAndVersion first. + packageVersion := pkgAndVersion last. + packageVersion isEmpty ifTrue: [ packageVersion := #latest ]. + packageId := self availablePackages at: packageName. + versions := (self wsmReleasesFor: packageId) keys. + versions remove: #latest. + ^ versions collect: [ :version | self copy package: (packageName,'(', version ,')'); yourself ]. ! Item was added: + ----- Method: InstallerSqueakMap>>basicBrowse (in category 'basic interface') ----- + basicBrowse + + self smThing explore! Item was added: + ----- Method: InstallerMantis>>bug:fix: (in category 'public interface') ----- + bug: aBugNo fix: aFileName + + ^ self bug: aBugNo fix: aFileName date: nil! Item was added: + ----- Method: InstallerUrl>>basicInstall (in category 'basic interface') ----- + basicInstall + + self install: self urlToDownload from: self urlThing. + ^ pageDataStream + ! Item was added: + ----- Method: InstallerUrl>>urlToDownload (in category 'url') ----- + urlToDownload + + ^ (self url, (self package ifNil: [ '' ])) asUrl asString. + + ! Item was changed: + ----- Method: Installer>>printOn: (in category 'printing') ----- - ----- Method: Installer>>printOn: (in category 'accessing') ----- printOn: s + + "I don't feel like fixing this yet" + true ifTrue: [^ super printOn: s]. s nextPutAll: '(Installer'. self sm ifTrue: [ s nextPutAll: ' squeakmap' ]. self ma ifNotNil: [ s nextPutAll: ' mantis' ]. self wsm ifNotNil: [ s nextPutAll: ' websqueakmap' ]. self url ifNotNil: [ s nextPutAll: ' url:''', self url,'''' ]. self mc ifNotNil: [ s nextPutAll: ' repository:''', mc description,'''' ]. s nextPut: $). self project ifNotNil: [ s nextPutAll: ' project:'; nextPutAll: '''', self project, ''''. self package ifNotNil: [ s nextPutAll: '; '] ]. self package ifNotNil: [ s nextPutAll: ' package:'; nextPutAll: '''', self package asString, '''' ]. s nextPut: $..! Item was added: + ----- Method: InstallerUrl>>urlThing (in category 'url') ----- + urlThing + + self logCR: 'retrieving ', self urlToDownload , ' ...'. + (pageDataStream := self urlGet: self urlToDownload) + ifNil: [ self error: 'unable to contact host' ]. + + ^ pageDataStream + ! Item was added: + ----- Method: InstallerCruft>>user: (in category 'accessing') ----- + user: anObject + + user := anObject! Item was added: + ----- Method: InstallerMonticello>>basicVersions (in category 'basic interface') ----- + basicVersions + + ^ (self availablePackages select: [ :p | ( self package,'-*.mcz' ) match: p ]) collect: [ :p | self copy package: p ; yourself ]. + ! Item was added: + Installer subclass: #InstallerFile + instanceVariableNames: 'afile' + classVariableNames: '' + poolDictionaries: '' + category: 'Installer-Core'! Item was changed: + ----- Method: Installer>>open (in category 'public interface') ----- + open! - ----- Method: Installer>>open (in category 'actions') ----- - open - - self sm ifTrue: [ self classSMLoader open ]. - self mc ifNotNil: [ self mc morphicOpen: nil ].! Item was added: + ----- Method: InstallerMantis>>viewBug: (in category 'public interface') ----- + viewBug: aBugNo + + ^Workspace new contents: (self bug: aBugNo); openLabel: ('Mantis ', aBugNo printString). + ! Item was changed: + ----- Method: Installer class>>impara (in category 'monticello') ----- - ----- Method: Installer class>>impara (in category 'instanciation-abbreviated') ----- impara ^ self monticello http: 'source.impara.de'! Item was added: + ----- Method: InstallerMantis>>bug:fix:date: (in category 'public interface') ----- + bug: aBugNo fix: aFileName date: aDate + + | fixed | + self setBug: aBugNo. + self ditchOldChangeSetFor: aFileName. + self install: aFileName from: (self maThing: aFileName date: aDate). + + fixed := self class fixesApplied. + (fixed isEmpty or: [ fixed last ~= aBugNo]) ifTrue: [ fixed add: aBugNo ]. + + ^ date! Item was changed: + ----- Method: Installer class>>websqueakmap: (in category 'websqueakmap') ----- - ----- Method: Installer class>>websqueakmap: (in category 'instanciation') ----- websqueakmap: host + ^ InstallerWebSqueakMap new wsm: host; yourself! - ^self new wsm: host; yourself! Item was added: + ----- Method: InstallerMonticello>>basicView (in category 'basic interface') ----- + basicView + "Installer ss project: 'Installer'; view: 'Installer-Core'. " + | it | + it := self mcThing. + (it respondsTo: #open) ifTrue: [ ^ it open ]. + + (MCSnapshotBrowser forSnapshot: it) + showLabelled: 'Snapshot of ', self package! Item was added: + ----- Method: InstallerMantis>>maUrl (in category 'mantis') ----- + maUrl + + ^ url := self ma, 'view.php?id=', bug asString + ! Item was added: + ----- Method: InstallerMonticello>>mcUrl (in category 'monticello') ----- + mcUrl + + ^ self mc, (self project ifNil: [''])! Item was added: + ----- Method: InstallerWebSqueakMap>>basicInstall (in category 'basic interface') ----- + basicInstall + + | it | + it := self wsmThing. + self install: it from: it asUrl retrieveContents contentStream. + + ! Item was changed: + ----- Method: Installer class>>webSearchPathFrom: (in category 'web') ----- - ----- Method: Installer class>>webSearchPathFrom: (in category 'accessing') ----- webSearchPathFrom: string | reader wsp path | reader := string readStream. wsp := self webSearchPath. [ reader atEnd ] whileFalse: [ path := reader upTo: $;. (wsp includes: wsp) ifFalse: [ wsp addFirst: path ]]. ! Item was added: + ----- Method: InstallerMonticello>>mc (in category 'accessing') ----- + mc + + ^ mc! Item was added: + ----- Method: InstallerCruft class>>do: (in category 'launcher support') ----- + do: webPageName + + | rs | + self webSearchPath isEmpty ifTrue: [ ^self error: 'search path not set' ]. + rs := webPageName readStream. + [ rs atEnd ] whileFalse: [ self install: (rs upTo: $;) ]. + ! Item was added: + ----- Method: InstallerWeb class>>searchPath (in category 'accessing') ----- + searchPath + "a search path item, has the following format. prefix*suffix" + + ^ WebSearchPath ifNil: [ WebSearchPath := OrderedCollection new ].! Item was added: + ----- Method: InstallerCruft>>urlAction:reportOn: (in category 'action report') ----- + urlAction: line reportOn: report + + url := line readStream upTo: $' ; upTo: $'. + + self reportSection: line on: report. + + (pageDataStream := self urlGet: self urlToDownload) + ifNil: [ self error: 'unable to contact host' ]. + + self reportFor: line page: pageDataStream on: report ! Item was added: + ----- Method: InstallerInternetBased>>classHTTPSocket (in category 'class references') ----- + classHTTPSocket + + ^Smalltalk at: #HTTPSocket ifAbsent: [ self error: 'Network package not present' ]! Item was added: + ----- Method: InstallerMonticello>>basicInstall (in category 'basic interface') ----- + basicInstall + + self withAnswersDo: [ self mcThing load ]. + self log: 'loaded'. + ! Item was added: + ----- Method: InstallerMonticello class>>unload: (in category 'unload') ----- + unload: match + + (MCWorkingCopy allManagers select: [ :wc | match match: (wc package name) ]) + do: [ :wc | + self logCR: 'Unloading ', wc package asString. + wc unload.]. + self unloadCleanUp! Item was added: + ----- Method: InstallerSqueakMap>>classSMSqueakMap (in category 'class references') ----- + classSMSqueakMap + + ^Smalltalk at: #SMSqueakMap ifAbsent: [ self error: 'SqueakMap not present' ]! Item was added: + ----- Method: InstallerWebBased>>markersTest (in category 'url') ----- + markersTest + + ^ self markers readStream upToAll: '...'; upToAll: '...'! Item was added: + ----- Method: InstallerInternetBased>>urlGet (in category 'url') ----- + urlGet + + ^ self urlGet: self urlToDownload! Item was changed: + ----- Method: Installer class>>wsm (in category 'websqueakmap') ----- - ----- Method: Installer class>>wsm (in category 'instanciation-abbreviated') ----- wsm ^ self websqueakmap! Item was added: + ----- Method: InstallerUrl>>basicBrowse (in category 'basic interface') ----- + basicBrowse + "(Installer debug url: 'http://installer.pbwiki.com/f/Installer.st') browse.". + + self browse: self urlToDownload from: self urlThing. + + + ! Item was added: + ----- Method: InstallerCruft>>reportSection:on: (in category 'action report') ----- + reportSection: line on: report + + report isEmpty ifFalse: [ report cr ]. + report nextPutAll: '">>>> ' ; nextPutAll: (line copyWithout: $"); nextPut: $"; cr. + + ! Item was added: + ----- Method: InstallerSake>>sake (in category 'websqueakmap') ----- + sake + + ^ sake ! Item was added: + ----- Method: InstallerWebBased>>markers (in category 'accessing') ----- + markers + + ^ markers ifNil: [ '<code st>..."test ...</code st>' ]! Item was changed: + ----- Method: Installer class>>ss (in category 'monticello') ----- - ----- Method: Installer class>>ss (in category 'instanciation-abbreviated') ----- ss ^ self squeaksource ! Item was added: + ----- Method: InstallerCruft class>>history (in category 'documentation') ----- + history + + " + 7 Jan 2007 + !!Installer fixBug: <aBugNo> + + aBugNo can now be a number or a string, beginning with a number. + This allows the mantis bug report summary to be used verbatim. + It also provides more infomarion for Installer to support self documentation. + + !!Install fix if not already installed + Installer ensureFix: <aBugNoOrString> + Installer ensureFixes: #(1 2 3 4) + + Installer now keeps a list of fix <aBugNoOrString> that have been installed up to this point. + #ensureFix: will only install the fix if it has not already been loaded. + note that only the bugNumber not the description is significant in the check. + + 8 Jan 2007 + !!Installer view: <webPageNameOrUrl> + + Provided that web page based scripts follow some simple rules, installer can collate the scripts from + web pages into a single workspace where you can manually 'doit' portions as you wish. + + The report generation is not very clever, it only matches on: + 'Installer install:' , 'Installer installUrl:', and 'Installer mantis fixBug:' + note these lines must be properly completed with an ending $. (period). + + also invoked by commandline option VIEW=<webPageNameOrUrl> + + 10 Jan 2007 + !!Now matches simpler html + + Check for an html page, now matches + '<!!DOCTYPE HTML' and <html> + the allows use of pbwiki's raw=bare option which returns iframe + embeddable html without the usual headers. + + 8 May 2007 + Modified bug:fix:date: so that the fixesApplied history does not contain unnecessary duplicate entries. + Fixed changeset naming for mantis bugs. + + 25 July 2007 + Added Universes Support + "! Item was added: + ----- Method: InstallerMonticello>>packagesMatching: (in category 'searching') ----- + packagesMatching: aMatch + ^ (self availablePackages + select: [:p | ( aMatch , '.mcz' ) match: p]) + collect: [:p | self copy package: p ; yourself]! Item was added: + ----- Method: InstallerSqueakMap>>packageAndVersionFrom: (in category 'squeakmap') ----- + packageAndVersionFrom: pkg + + | p | + p := ReadStream on: pkg . + ^Array with: (p upTo: $() with: (p upTo: $)).! Item was added: + ----- Method: InstallerUniverse>>uniDoInstall (in category 'universes') ----- + uniDoInstall + + self withAnswersDo: [ self universe doInstall ] ! Item was changed: + ----- Method: Installer class>>doesNotUnderstand: (in category 'custom names') ----- - ----- Method: Installer class>>doesNotUnderstand: (in category 'accessing system') ----- doesNotUnderstand: aMessage ^ self remembered at: aMessage selector ifAbsent: [ super doesNotUnderstand: aMessage ]! Item was added: + ----- Method: InstallerCruft>>webAction:reportOn: (in category 'action report') ----- + webAction: line reportOn: report + + self package: (line readStream upTo: $' ; upTo: $'). + + self reportSection: line on: report. + + url := self webFindUrlToDownload. + + self reportFor: line page: pageDataStream on: report ! Item was added: + ----- Method: InstallerMonticello>>basicBrowse (in category 'basic interface') ----- + basicBrowse + "Installer ss project: 'Installer'; browse: 'Installer-Core'." + + | it | + it := self mcThing. + + (it respondsTo: #browse) ifTrue: [ ^ it browse ]. + + (MCSnapshotBrowser forSnapshot: it) + showLabelled: 'Snapshot of ', self package! Item was added: + ----- Method: InstallerMantis>>bug:view: (in category 'public interface') ----- + bug: aBugNo view: aFileName + "Installer mantis bug: 6089 browse: 'TTFSpeedUp-dgd.1.cs'" + + self setBug: aBugNo. + ^ self view: aFileName from: (self maThing: aFileName date: nil)! Item was added: + ----- Method: InstallerMantis>>maRead:field: (in category 'mantis') ----- + maRead: page field: fieldKey + + | value | + + value := page upToAll: ('!!-- ', fieldKey, ' -->'); upToAll: '<td'; upTo: $>; upToAll: '</td>'. + + page upTo: $<. + + page peek = $t ifTrue: [ value := page upToAll: 'td'; upTo: $>; upToAll: '</td>' ]. + + ^Association key: fieldKey value: value withBlanksTrimmed! Item was added: + ----- Method: InstallerUpdateStream>>parseUpdateListContents: (in category 'updates') ----- + parseUpdateListContents: listContentString + "Parse the contents of an updates.list into {{releaseTag. {fileNames*}}*}, and return it." + + | sections releaseTag strm line fileNames | + sections := OrderedCollection new. + fileNames := OrderedCollection new: 1000. + releaseTag := nil. + strm := ReadStream on: listContentString. + [strm atEnd] whileFalse: + [line := strm upTo: Character cr. + line size > 0 ifTrue: + [line first = $# + ifTrue: [releaseTag ifNotNil: [sections addLast: {releaseTag. fileNames asArray}]. + releaseTag := line allButFirst. + fileNames resetTo: 1] + ifFalse: [line first = $* ifFalse: [fileNames addLast: line]]]]. + releaseTag ifNotNil: [sections addLast: {releaseTag. fileNames asArray}]. + ^ sections asArray + ! Item was added: + ----- Method: InstallerMantis>>bug:retrieve: (in category 'public interface') ----- + bug: aBugNo retrieve: aFileName + + self setBug: aBugNo. + ^ (self maStreamForFile: aFileName) contents! Item was added: + ----- Method: InstallerWebBased>>removeHtmlMarkupFrom: (in category 'url') ----- + removeHtmlMarkupFrom: in + + | out | + out := ReadWriteStream on: (String new: 100). + [ in atEnd ] whileFalse: [ + out nextPutAll: (in upTo: $<). + (((in upTo: $>) asLowercase beginsWith: 'br') and: [ (in peek = Character cr) ]) ifTrue: [ in next ]. + ]. + + ^self replaceEntitiesIn: out reset. + ! Item was added: + ----- Method: InstallerSake>>basicInstall (in category 'basic interface') ----- + basicInstall + + self withAnswersDo: [ (self packages collect: [ :packageName | sake named: packageName ]) asTask run ]. + ! Item was changed: + ----- Method: Installer class>>url: (in category 'url') ----- - ----- Method: Installer class>>url: (in category 'instanciation') ----- url: urlString + ^self url url: urlString; yourself! - ^self web url: urlString; yourself! Item was added: + ----- Method: InstallerMantis>>maScript (in category 'mantis') ----- + maScript + + ^self extractFromHtml: self maPage option: #last + ! Item was added: + ----- Method: InstallerUniverse>>update (in category 'public interface') ----- + update + + (LastUniUpdate isNil or:[ (DateAndTime now - LastUniUpdate) > 600 seconds ]) + ifTrue: [universe requestPackageList. + LastUniUpdate := DateAndTime now]! Item was added: + ----- Method: InstallerCruft>>createRBforBug: (in category 'mantis') ----- + createRBforBug: aBugNo + | aStream fileList selFile aFileName | + + self setBug: aBugNo. + fileList := self maFiles keys asOrderedCollection. + fileList addLast: 'none'. + ReleaseBuilderFor3dot10 clear. + [selFile := UIManager default chooseFrom: fileList title: 'Choose what files load '. + selFile = fileList size ifFalse:[ + aFileName := fileList at: selFile. + self logCR: 'obtaining ', aFileName, '...'. + + aStream := self maStreamForFile: aFileName . + ReleaseBuilderFor3dot10 current packagesInfluenced: aStream named: aFileName. + + self installCS: aFileName from: aStream].selFile = fileList size]whileFalse. + + ReleaseBuilderFor3dot10 current newUpdateFor: aBugNo + + + ! Item was changed: + ----- Method: Installer class>>squeaksource (in category 'monticello') ----- - ----- Method: Installer class>>squeaksource (in category 'instanciation-abbreviated') ----- squeaksource ^ self monticello http: 'www.squeaksource.com'! Item was added: + ----- Method: InstallerSqueakMap>>smThing (in category 'squeakmap') ----- + smThing + + | pkgAndVersion releases release | + pkgAndVersion := self packageAndVersionFrom: self package. + self logCR: 'retrieving ', self package, ' from SqueakMap...'. + releases := self smReleasesForPackage: pkgAndVersion first. + release := pkgAndVersion last isEmpty + ifTrue: [ releases last ] + ifFalse:[ releases detect: [ :rel | rel version = pkgAndVersion last ] ]. + ^ release + + + ! Item was added: + ----- Method: InstallerSqueakMap>>sm: (in category 'accessing') ----- + sm: anObject + + sm := anObject! Item was changed: + ----- Method: Installer class>>mantis: (in category 'mantis') ----- - ----- Method: Installer class>>mantis: (in category 'instanciation') ----- mantis: host + ^ InstallerMantis host: host! - ^self new ma: host; - markers: '"fix begin"..."fix test"..."fix end"'; - yourself. - ! Item was added: + ----- Method: InstallerMonticello>>mcDetectFileBlock (in category 'monticello') ----- + mcDetectFileBlock + + self package isString ifTrue: [ ^ [ :aFile | aFile beginsWith: self package ] ]. + + (self package isKindOf: Array) + ifTrue: [ ^ [ :aFile | (self package detect: [ :item | aFile beginsWith: item ] ifNone: [ false ]) ~= false ] ]. + + self package isBlock ifTrue: [ ^ self package ]. + + ! Item was added: + ----- Method: InstallerMonticello class>>classMCVersionLoader (in category 'class references') ----- + classMCVersionLoader + + ^Smalltalk at: #MCVersionLoader ifAbsent: [ self error: 'Monticello not present' ]! Item was added: + ----- Method: InstallerMantis>>ma: (in category 'accessing') ----- + ma: aUrl + + ma := aUrl last = $/ ifTrue: [ aUrl ] ifFalse: [ aUrl, '/' ]! Item was changed: + ----- Method: Installer class>>webSearchPath (in category 'web') ----- - ----- Method: Installer class>>webSearchPath (in category 'accessing') ----- webSearchPath "a search path item, has the following format. prefix*suffix" + ^ self web searchPath! - ^ WebSearchPath ifNil: [ WebSearchPath := OrderedCollection new ].! Item was added: + ----- Method: InstallerMantis>>desc: (in category 'accessing') ----- + desc: anObject + + desc := anObject! Item was added: + ----- Method: InstallerSqueakMap>>classSMLoader (in category 'class references') ----- + classSMLoader + + ^Smalltalk at: #SMLoader ifAbsent: [ self error: 'SqueakMap Loader not present' ]! Item was added: + ----- Method: InstallerCruft class>>view: (in category 'instanciation') ----- + view: webPageNameOrUrl + + | theReport | + + theReport := String streamContents: [ :report | + (webPageNameOrUrl beginsWith: 'http://') ifTrue: [ + self new urlAction: ('Installer installUrl: ', (webPageNameOrUrl printString),'.') + reportOn: report. + ] + ifFalse: [ + self new webAction: ('Installer install: ', (webPageNameOrUrl printString),'.') + reportOn: report. + ]]. + + Workspace new contents: (theReport contents); openLabel: webPageNameOrUrl. + + ^theReport contents + ! Item was added: + ----- Method: InstallerSqueakMap>>open (in category 'public interface') ----- + open + self classSMLoader open! Item was changed: + ----- Method: Installer class>>sf (in category 'monticello') ----- - ----- Method: Installer class>>sf (in category 'instanciation-abbreviated') ----- sf ^ self squeakfoundation ! Item was added: + ----- Method: InstallerUniverse class>>classUGlobalInstaller (in category 'accessing system') ----- + classUGlobalInstaller + + ^Smalltalk at: #UGlobalInstaller ifAbsent: [ self error: 'Universes code not present' ]! Item was added: + ----- Method: InstallerMantis>>justFixBug:date: (in category 'public interface') ----- + justFixBug: aBugNo date: d + + ^self class skipLoadingTests: true during: [ self fixBug: aBugNo date: d ]! Item was added: + ----- Method: InstallerCruft>>skipTests (in category 'mantis') ----- + skipTests + + ! Item was added: + ----- Method: InstallerSqueakMap>>sm (in category 'accessing') ----- + sm + + ^ sm ifNil: [ false ]! Item was added: + ----- Method: InstallerWebSqueakMap>>basicAvailablePackages (in category 'websqueakmap') ----- + basicAvailablePackages + + | html id name pkgs | + pkgs := Dictionary new. + html := self httpGet: (self wsm, 'packagesbyname'). + + [ id := html upToAll: '/package/'; upToAll: '">'. + name := html upTo: $<. + (id notEmpty and: [ name notEmpty ])] + whileTrue: [ pkgs at: name put: id ]. + + ^ pkgs + ! Item was added: + ----- Method: InstallerWebSqueakMap>>wsmDownloadUrl (in category 'websqueakmap') ----- + wsmDownloadUrl + | pkgAndVersion packageId packageName packageVersion releaseAutoVersion + downloadPage | + + pkgAndVersion := self packageAndVersionFrom: self package. + packageName := pkgAndVersion first. + packageVersion := pkgAndVersion last. + packageVersion isEmpty ifTrue: [ packageVersion := #latest ]. + + packageId := self availablePackages at: packageName. + releaseAutoVersion := (self wsmReleasesFor: packageId) at: packageVersion. + + downloadPage := self httpGet: (self wsm,'packagebyname/', packageName,'/autoversion/', releaseAutoVersion,'/downloadurl') asUrl asString. + + ^ downloadPage contents + + ! Item was added: + InstallerInternetBased subclass: #InstallerUrl + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Installer-Core'! Item was changed: ----- Method: Installer>>update (in category 'public interface') ----- + update! - update - - universe ifNotNil: [ self uniUpdate ]. - sm ifNotNil: [ self smUpdate ].! Item was added: + ----- Method: InstallerInternetBased>>url: (in category 'accessing') ----- + url: aUrl + + url := aUrl! Item was added: + ----- Method: InstallerMantis>>bugFilesView: (in category 'public interface') ----- + bugFilesView: aBugNo + + + (self bugFiles: aBugNo) do: [ :ea | self bug: aBugNo view: ea ].! Item was added: + Installer subclass: #InstallerMonticello + instanceVariableNames: 'mc root project' + classVariableNames: '' + poolDictionaries: '' + category: 'Installer-Core'! Item was added: + ----- Method: InstallerMonticello>>mcThing (in category 'monticello') ----- + mcThing + + | loader files fileToLoad version count | + + loader := self class classMCVersionLoader new. + + 1 to: self packages size do: [ :n | + + self logCR: 'finding ', self package asString, '...'. + "several attempts to read files - repository readableFileNames sometimes fails" + count := 0. fileToLoad := nil. + + [count := count + 1. + (fileToLoad = nil) and:[ count < 5 ] ] + whileTrue: [ + files := mc readableFileNames asSortedCollection: self mcSortFileBlock. + fileToLoad := files detect: self mcDetectFileBlock ifNone: [ nil ]. + ]. + + version := mc versionFromFileNamed: fileToLoad. + (version isKindOf: MCConfiguration) + ifTrue: [ ^ version ] + ifFalse:[version workingCopy repositoryGroup addRepository: mc. + loader addVersion: version]. + self log: ' found ', version fileName, '...'. + + packages removeFirst. + ]. + + ^ loader! Item was added: + ----- Method: InstallerUniverse class>>classUUniverse (in category 'accessing system') ----- + classUUniverse + + ^Smalltalk at: #UUniverse ifAbsent: [ self error: 'Universes code not present' ]! Item was changed: + ----- Method: Installer class>>web (in category 'web') ----- - ----- Method: Installer class>>web (in category 'instanciation') ----- web + ^ InstallerWeb! - ^self new ! Item was added: + ----- Method: Installer class>>http: (in category 'instance creation') ----- + http: aUrl + + ^ self http: aUrl user: 'squeak' password: 'squeak' + + ! Item was changed: + ----- Method: Installer class>>goran (in category 'monticello') ----- - ----- Method: Installer class>>goran (in category 'instanciation-abbreviated') ----- goran ^ self monticello http: 'squeak.krampe.se'; project: ''! Item was added: + ----- Method: InstallerWeb>>webFindUrlToDownload (in category 'web install') ----- + webFindUrlToDownload + + | delay retry | + delay := 0. + self class webSearchPath + do: [ :pathSpec | + | potentialUrl readPathSpec | + readPathSpec := pathSpec value readStream. + potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). + [ retry := false. pageDataStream := self urlGet: potentialUrl ] + doWhileTrue: [ + (pageDataStream notNil and: [ pageDataStream size > 0 ]) + ifTrue: [ (pageDataStream contents includesSubString: 'Please slow down a bit') + ifTrue: [ retry := true ] + ifFalse: [ pageDataStream reset. + ^ potentialUrl ] ]. + (Delay forSeconds: (delay := delay + 5)) wait. + retry ]]. + ^nil + ! Item was added: + ----- Method: InstallerWebBased>>markers: (in category 'accessing') ----- + markers: anObject + + markers := anObject! Item was added: + ----- Method: InstallerCruft class>>launchHelp (in category 'launcher support') ----- + launchHelp + + ^'path=/dir/*.txt Specify a search path for the item to install + p=/dir1/*.txt;<url2>/ Multiple items delimited by ; + The page name is typically appended to the path string, or + if a "*" is present, it will be replaced by the page name. + + in,i,install=<page> Page appended to the path to begin the install process + url,u=<url> Install using an explicit url from which to obtain a script or file + file=<url> Install using a local file + +debug Do not trap errors + view=<page> Print the script that would have been installed. + + For more options use Script eval="Installer ... " + ' + ! Item was added: + ----- Method: InstallerCruft>>actionMatch:reportOn:ifNoMatch: (in category 'action report') ----- + actionMatch: theLine reportOn: report ifNoMatch: aBlock + + | line | + line := theLine withBlanksCondensed. + ((line beginsWith: 'Installer install:') | (line beginsWith: 'Installer do:')) + ifTrue: [ ^self webAction: theLine reportOn: report ]. + + ((line beginsWith: 'Installer installUrl:') and: + [ | ext | + ext := (line readStream upToAll: '''.') copyAfterLast: $.. + (#( 'cs' 'st' 'mcz' 'sar') includes: ext) not ]) ifTrue: [ ^self urlAction: theLine reportOn: report ]. + + (line beginsWith: 'Installer mantis fixBug:') ifTrue: [ ^self mantisAction: theLine reportOn: report ]. + aBlock value. + ! Item was added: + ----- Method: InstallerWebSqueakMap>>basicView (in category 'basic interface') ----- + basicView + + | it | + it := self wsmThing. + self view: it from: (self httpGet: it). + + ! Item was added: + Installer subclass: #InstallerUniverse + instanceVariableNames: 'universe' + classVariableNames: 'LastUniUpdate' + poolDictionaries: '' + category: 'Installer-Core'! Item was added: + Installer subclass: #InstallerSqueakMap + instanceVariableNames: 'sm' + classVariableNames: '' + poolDictionaries: '' + category: 'Installer-Core'! Item was added: + ----- Method: InstallerCruft>>mczInstall: (in category 'monticello') ----- + mczInstall: urlOrFile + + self log: ('Loading ', urlOrFile, ' ...'). + + (urlOrFile beginsWith: 'http:') + ifTrue: [ MczInstaller installStream: (HTTPSocket httpGet: urlOrFile) ] + ifFalse: [ MczInstaller installFileNamed: urlOrFile ]. + + self logCR: ' Loaded'. + + + + ! Item was added: + ----- Method: InstallerWeb>>basicInstall (in category 'basic interface') ----- + basicInstall + + self webThing size > 0 + ifTrue: [ self install: url from: pageDataStream ] + ifFalse: [ url ifNil: [ ^ self logCR: self package, ' not found on webSearchPath' ]. + self logCR: '...',url,' was empty' ]. + ! Item was changed: + ----- Method: Installer class>>sake: (in category 'sake') ----- - ----- Method: Installer class>>sake: (in category 'instanciation') ----- sake: aSakePackagesClass + ^ InstallerSake new sake: aSakePackagesClass! - ^ self new sake: aSakePackagesClass! Item was added: + ----- Method: InstallerCruft class>>smalltalkImage (in category 'accessing system') ----- + smalltalkImage + + ^ SmalltalkImage current! Item was added: + ----- Method: InstallerMantis>>bug: (in category 'accessing') ----- + bug: aBugNo + "Installer mantis viewBug: 5639." + | page text | + + self setBug: aBugNo. + + page := self maPage. + + text := String streamContents: [ :str | + + #('Bug ID' 'Category' 'Severity' 'Reproducibility' 'Date Submitted' + 'Date Updated' 'Reporter' 'View Status' 'Handler' + 'Priority' 'Resolution' 'Status' 'Product Version' 'Summary' 'Description' 'Additional Information' ) + do: [ :field | + | f | + f := self maRead: page field: field. + str nextPutAll: f key; nextPutAll: ': '; nextPutAll: f value; cr. + ]. + + str nextPutAll: 'Notes: '; cr. + (self maReadNotes: page) do: [ :note | str nextPutAll: note; cr; cr ]. + + str nextPutAll: 'Files: '; nextPutAll: self maFiles keys asArray printString. + ]. + ^ text + ! Item was added: + ----- Method: InstallerMantis>>bugScript: (in category 'public interface') ----- + bugScript: aBugNo + + self setBug: aBugNo. + ^ self maScript contents. + + + + ! Item was added: + ----- Method: InstallerMantis class>>fixesApplied (in category 'accessing') ----- + fixesApplied + + ^ Fixes ifNil: [ Fixes := OrderedCollection new ].! Item was added: + ----- Method: InstallerUpdateStream>>updateDirectoryOrNil (in category 'updates') ----- + updateDirectoryOrNil + + ^ (FileDirectory default directoryNames includes: 'updates') + ifTrue: [FileDirectory default directoryNamed: 'updates'] + ifFalse: [self inform: 'Error: cannot find "updates" folder'. + nil]! Item was added: + ----- Method: InstallerWebBased>>extractFromHtml:option: (in category 'action report') ----- + extractFromHtml: html option: allOrLast + + | start stop test in | + + start := self markersBegin. + stop := self markersEnd. + test := self markersTest. + + in := ReadWriteStream with: String new. + + [ html upToAll: start; atEnd ] + whileFalse: [ + | chunk | + (allOrLast == #last) ifTrue: [ in resetToStart ]. + chunk := html upToAll: stop. + self isSkipLoadingTestsSet ifTrue: [ chunk := chunk readStream upToAll: test ]. + in nextPutAll: chunk. + ]. + + ^self removeHtmlMarkupFrom: in reset + + ! Item was changed: + ----- Method: Installer class>>monticello (in category 'monticello') ----- - ----- Method: Installer class>>monticello (in category 'instanciation') ----- monticello + ^ InstallerMonticello! - ^ self new! Item was added: + ----- Method: InstallerMantis>>bug:browse: (in category 'public interface') ----- + bug: aBugNo browse: aFileName + + self setBug: aBugNo. + ^ self browse: aFileName from: (self maThing: aFileName date: nil)! Item was changed: ----- Method: Installer>>install (in category 'public interface') ----- install + self logErrorDuring: [self basicInstall]! - - self logErrorDuring: [ - self sake ifNotNil: [ ^ self sakeInstall ]. - self universe ifNotNil: [ ^ self uniInstall ]. - self file ifNotNil: [ ^ self fileInstall ]. - self mc ifNotNil: [ ^self mcInstall ]. - self wsm ifNotNil: [ ^self wsmInstall ]. - self sm ifTrue: [ ^self smInstall ]. - self url ifNotNil: [ ^self urlInstall ]. - self package ifNotNil: [ ^self webInstall ]. - ] ! Item was changed: + ----- Method: Installer class>>validationBlock: (in category 'accessing') ----- - ----- Method: Installer class>>validationBlock: (in category 'instanciation-abbreviated') ----- validationBlock: aBlock ValidationBlock := aBlock! Item was added: + Installer subclass: #InstallerCruft + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Installer-Core'! + + !InstallerCruft commentStamp: 'mtf 10/1/2008 22:24' prior: 0! + I am a copy of Installer as of Installer-Core-kph.232. I am being split up. + I am called InstallerCruft because I stand-in for Sake{MC,SM,Mantis,Web,etc}Installer! Item was added: + Installer subclass: #InstallerInternetBased + instanceVariableNames: 'url pageDataStream' + classVariableNames: 'Entities' + poolDictionaries: '' + category: 'Installer-Core'! Item was added: + ----- Method: InstallerMantis>>bug (in category 'accessing') ----- + bug + + ^ bug! Item was added: + ----- Method: InstallerMantis>>maFiles (in category 'mantis') ----- + maFiles + | file files bugPage id | + files := Dictionary new. + bugPage := self maPage. + [ + id := bugPage upToAll: 'href="file_download.php?file_id='; upTo: $&. + file := bugPage upToAll: 'amp;type=bug"' ; upTo: $<. + ((file size > 1) and: [file first = $>]) ifTrue: [ files at: file copyWithoutFirst put: id ]. + id notEmpty ] whileTrue. + + ^files ! Item was added: + ----- Method: InstallerWebSqueakMap>>packagesMatching: (in category 'searching') ----- + packagesMatching: aMatch + ^ (self availablePackages + select: [ :p | ( aMatch) match: p ]) + collect: [ :p | self copy package: p ; yourself ]! Item was added: + ----- Method: InstallerMonticello>>project: (in category 'accessing') ----- + project: name + + project := name. + packages := nil. + + (mc respondsTo: #location:) ifTrue:[ mc := mc copy location: root , name ]. + (mc respondsTo: #directory:) ifTrue: [ mc := mc copy directory: root ,'/', name ]. + + ^self copy.! Item was changed: + ----- Method: Installer class>>webInstall: (in category 'web') ----- - ----- Method: Installer class>>webInstall: (in category 'instanciation') ----- webInstall: webPageName self webSearchPath isEmpty ifTrue: [ ^self error: 'search path not set' ]. ^ self web install: webPageName ! Item was changed: + ----- Method: Installer class>>keith (in category 'monticello') ----- - ----- Method: Installer class>>keith (in category 'instanciation-abbreviated') ----- keith ^ self monticello ftp: 'squeak.warwick.st' directory: 'mc' user: 'squeak' password: 'viewpoints'! Item was added: + Installer subclass: #InstallerUpdateStream + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Installer-Core'! Item was added: + ----- Method: InstallerMantis>>fixBug: (in category 'public interface') ----- + fixBug: aBugNo + + ^ self fixBug: aBugNo date: nil! Item was added: + ----- Method: InstallerMonticello>>open (in category 'public interface') ----- + open + self mc morphicOpen: nil! Item was added: + ----- Method: InstallerMonticello class>>magma:port: (in category 'instance creation') ----- + magma: host port: aport + + ^ self new mc: (self classMCMagmaRepository new) host: host port: aport; yourself! Item was added: + ----- Method: InstallerCruft class>>launchFrom: (in category 'launcher support') ----- + launchFrom: launcher + + ^self launchWith: launcher getParameters! Item was added: + ----- Method: InstallerMantis>>ensureFixes: (in category 'public interface') ----- + ensureFixes: aBugNos + + aBugNos do: [ :bugNo | self ensureFixes: bugNo ].! Item was added: + ----- Method: InstallerMonticello class>>classMCGOODSRepository (in category 'class references') ----- + classMCGOODSRepository + + ^Smalltalk at: #MCGOODSRepository ifAbsent: [ self error: 'Monticello not present' ] + ! Item was added: + ----- Method: InstallerMantis>>desc (in category 'accessing') ----- + desc + + ^ desc! Item was changed: + ----- Method: Installer class>>setSakeToUse: (in category 'sake') ----- - ----- Method: Installer class>>setSakeToUse: (in category 'instanciation') ----- setSakeToUse: aClass + InstallerSake sake: aClass! - Sake := aClass! Item was added: + ----- Method: Installer class>>url (in category 'url') ----- + url + + ^ InstallerUrl new! Item was changed: + ----- Method: Installer class>>sake (in category 'sake') ----- - ----- Method: Installer class>>sake (in category 'instanciation') ----- sake + ^ self sake: InstallerSake sake! - ^ self sake: (Sake ifNil: [ self classPackages current ])! Item was added: + ----- Method: InstallerMantis>>ma (in category 'accessing') ----- + ma + + ^ ma! Item was changed: Object subclass: #Installer + instanceVariableNames: 'answers packages messagesToSuppress' + classVariableNames: 'IsSetToTrapErrors Remembered SkipLoadingTests InstallerBindings ValidationBlock' - instanceVariableNames: 'sm wsm mc ma url root command markers project package bug desc answers packages messagesToSuppress pageDataStream date universe afile sake' - classVariableNames: 'WebSearchPath SkipLoadingTests Fixes Sake Entities ValidationBlock InstallerBindings Remembered LastUniUpdate IsSetToTrapErrors' poolDictionaries: '' category: 'Installer-Core'! !Installer commentStamp: 'kph 12/19/2007 14:42' prior: 0! Documentation now available at http://installer.pbwiki.com/Installer ! Item was added: + ----- Method: InstallerFile class>>installFile: (in category 'instanciation') ----- + installFile: fileName + + ^ (self file: fileName) install. + ! Item was added: + ----- Method: InstallerCruft>>evaluate: (in category 'mantis') ----- + evaluate: stream + + stream fileIn.! Item was added: + ----- Method: InstallerFile>>basicView (in category 'basic interface') ----- + basicView + + self view: self file from: (FileDirectory readOnlyFileNamed: self file). + + ! Item was added: + ----- Method: InstallerMantis>>maThing:date: (in category 'mantis') ----- + maThing: aFileName date: aDate + + self logCR: 'obtaining ', aFileName, '...'. + + pageDataStream := self maStreamForFile: aFileName. + + self maCheckDateAgainst: aDate. + + ^ pageDataStream + ! Item was added: + ----- Method: InstallerSqueakMap>>smPackageAndVersion (in category 'squeakmap') ----- + smPackageAndVersion + + | p | + p := ReadStream on: self package . + ^Array with: (p upTo: $() with: (p upTo: $)).! Item was changed: + ----- Method: Installer class>>remembered (in category 'custom names') ----- - ----- Method: Installer class>>remembered (in category 'accessing system') ----- remembered ^ Remembered ifNil: [ Remembered := IdentityDictionary new ]! Item was added: + ----- Method: InstallerMantis>>maStreamForFile: (in category 'mantis') ----- + maStreamForFile: aFileName + + | fileId | + + fileId := self maFiles at: aFileName ifAbsent: [ self error: aFileName, ' not found' ]. + + ^ self httpGet: (self ma, 'file_download.php?file_id=' , fileId , '&type=bug'). + ! Item was changed: + ----- Method: Installer>>installQuietly: (in category 'public interface') ----- - ----- Method: Installer>>installQuietly: (in category 'accessing') ----- installQuietly: packageNameCollectionOrDetectBlock self package: packageNameCollectionOrDetectBlock. self installQuietly.! Item was added: + ----- Method: InstallerCruft class>>launchWith: (in category 'launcher support') ----- + launchWith: params + + params at: 'P' ifPresent: [ :v | params at: 'PATH' put: v ]. + params at: 'I' ifPresent: [ :v | params at: 'INSTALL' put: v ]. + params at: 'IN' ifPresent: [ :v | params at: 'INSTALL' put: v ]. + params at: 'U' ifPresent: [ :v | params at: 'URL' put: v ]. + + params at: 'PATH' ifPresent: [ :v | + self webSearchPathFrom: v. + ]. + + params at: 'USER' ifPresent: [ :v | + Utilities setAuthorInitials: v + ]. + params at: 'VERSION' ifPresent: [ :v | + SystemVersion current version: v + ]. + params at: 'VIEW' ifPresent: [ :v | + self view: v + ]. + + IsSetToTrapErrors := true. + params at: 'DEBUG' ifPresent: [ :v | IsSetToTrapErrors := (v == true) not ]. + + params at: 'URL' ifPresent: [ :v | + self installUrl: v + ]. + + params at: 'FILE' ifPresent: [ :v | + self installFile: v + ]. + + params at: 'INSTALL' ifPresent: [ :v | + self do: v + ]. + params at: 'DO' ifPresent: [ :v | + self do: v + ]. + + ^true + + ! Item was added: + ----- Method: InstallerMonticello class>>http:user:password: (in category 'instance creation') ----- + http: aUrl user: name password: secret + + | mc | + ^ self new + mc: (mc := self classMCHttpRepository location: aUrl user: name password: secret) + root: mc locationWithTrailingSlash! Item was added: + InstallerWebBased subclass: #InstallerWebSqueakMap + instanceVariableNames: 'wsm' + classVariableNames: '' + poolDictionaries: '' + category: 'Installer-Core'! Item was changed: + ----- Method: Installer class>>cache (in category 'monticello') ----- - ----- Method: Installer class>>cache (in category 'instanciation-abbreviated') ----- cache ^ self monticello cache! Item was added: + ----- Method: InstallerMonticello class>>ftp:directory:user:password: (in category 'instance creation') ----- + ftp: host directory: dir user: name password: secret + "Installer mc ftp: 'mc.gjallar.se' directory: '' user: 'gjallar' password: secret." + + ^ self new + mc: (self classMCFtpRepository host: host directory: dir user: name password: '') + root: dir! Item was added: + ----- Method: InstallerWebBased>>markersBegin (in category 'url') ----- + markersBegin + + ^ self markers copyUpTo: $.! Item was added: + ----- Method: InstallerSqueakMap>>update (in category 'squeakmap') ----- + update + "Updates the local map for SqueakMap, upgrading SqueakMap to the latest version if necessary. + + When SqueakMap is old and needs to be upgraded, it does four things that mostly make sense in the interactive world SM was built for, but are totally evil here in the world of automatic scripting: + 1. It asks the user if she wants to upgrade, in the form of a pop-up (see SMSqueakMap >> #checkVersion:). + 2. It terminates its own process. + 3. It creates a new UI process. + (see the last line of the SqueakMap upgrade file-in: ''Project spawnNewProcessAndTerminateOld: true'', from + http://map.squeak.org/accountbyid/9bdedc18-1525-44a6-9b79-db5d4a87f6f8/file… + 4. It opens a SqueakMap window + + We work around these three problems seperately: + 1. We use #answer:with: and #withAnswersDo: to automatically answer ''Yes'' when asked if we want to upgrade + 2. We don't want this process to be terminated, so we run the update in a forked process and wait for it to finish, using #fork, #ensure:, and a Semaphore + 3. We keep track of the UI process before updating, and if it changes, we terminate the new UI process and reinstall the old one using Project >> #resumeProcess: + 4. We don't bother with the newly opened window. The other three problems are much worse. + + We do all this in a new process, since it is not unlikely that this method is executing in the UI process" + + | oldUIProcess newUIProcess doneSema | + self answer: 'You need to upgrade the SqueakMap package' with: true. + oldUIProcess := Project uiProcess. + doneSema := Semaphore new. + [[self withAnswersDo: [self classSMSqueakMap default loadUpdates]] + ensure: [newUIProcess := Project uiProcess. + (oldUIProcess ~~ newUIProcess + and: [oldUIProcess notNil] + and: [oldUIProcess isTerminated not]) + ifTrue: [ + newUIProcess ifNotNil: [newUIProcess terminate]. + oldUIProcess suspend. + Project resumeProcess: oldUIProcess.]. + doneSema signal]] fork. + doneSema wait! Item was added: + ----- Method: InstallerWebSqueakMap>>wsmThing (in category 'websqueakmap') ----- + wsmThing + + | downloadUrl | + self logCR: 'finding ', self package, ' from websqueakmap(', self wsm, ') ...'. + downloadUrl := self wsmDownloadUrl. + self logCR: 'found at ', downloadUrl asString, ' ...'. + ^ downloadUrl + ! Item was added: + ----- Method: InstallerCruft>>user (in category 'accessing') ----- + user + + ^ user ifNil: [ '' ]! Item was added: + ----- Method: InstallerFile>>basicInstall (in category 'basic interface') ----- + basicInstall + + self install: self file from: (FileDirectory default readOnlyFileNamed: self file) + + ! Item was added: + ----- Method: InstallerMonticello>>mcSortFileBlock (in category 'monticello') ----- + mcSortFileBlock + + ^ [:a :b | + [(a findBetweenSubStrs: #($.)) allButLast last asInteger > (b findBetweenSubStrs: #($.)) allButLast last asInteger] + on: Error do: [:ex | false]].! Item was changed: + ----- Method: Installer class>>lukas (in category 'monticello') ----- - ----- Method: Installer class>>lukas (in category 'instanciation-abbreviated') ----- lukas ^ self monticello http: 'source.lukas-renggli.ch'! Item was changed: + ----- Method: Installer class>>mc (in category 'monticello') ----- - ----- Method: Installer class>>mc (in category 'instanciation') ----- mc + ^ self monticello! - ^ self new! Item was added: + ----- Method: InstallerCruft class>>classProjectLauncher (in category 'accessing system') ----- + classProjectLauncher + + ^Smalltalk at: #ProjectLauncher ifAbsent: [ self error: 'ProjectLauncher not present' ]! Item was added: + ----- Method: InstallerInternetBased>>url (in category 'accessing') ----- + url + + ^url! Item was added: + ----- Method: InstallerFile class>>file: (in category 'instanciation') ----- + file: fileName + + ^ InstallerFile new file: fileName; yourself + ! Item was added: + ----- Method: InstallerUniverse>>basicInstall (in category 'basic interface') ----- + basicInstall + + | pkgAndVersion pkg version potentials | + self packages do: [ :packageName | + + pkgAndVersion := self packageAndVersionFrom: packageName. + pkg := pkgAndVersion first. + version := pkgAndVersion last. + + potentials := universe packageVersionsForPackage: pkg. + + pkg := version isEmpty + ifTrue: [ potentials last ] + ifFalse: [ + version := self classUVersion readFrom: version readStream. + potentials detect:[ :p | p version = version] ifNone: [ ^ self error: 'version not found'] + ]. + universe planToInstallPackage: pkg. + ]. + self uniDoInstall! Item was changed: + ----- Method: Installer class>>mantis (in category 'mantis') ----- - ----- Method: Installer class>>mantis (in category 'instanciation') ----- mantis ^ self mantis: 'http://bugs.squeak.org/'! Item was added: + ----- Method: InstallerMonticello>>mc:root: (in category 'initialize-release') ----- + mc: aRepo root: aPath + mc := aRepo. + root := aPath.! Item was added: + ----- Method: InstallerCruft class>>unload: (in category 'unload') ----- + unload: categoryMatchesString + + ^ self error: 'deprecated, use Installer mc unload: ''pkgname''.'! Item was added: + ----- Method: InstallerWebBased>>markersEnd (in category 'url') ----- + markersEnd + "return the third marker or the second if there are only two" + + | str a | + str := self markers readStream. + a := str upToAll: '...'; upToAll: '...'. + str atEnd ifTrue: [ ^a ] ifFalse: [ ^str upToEnd ] + ! Item was added: + ----- Method: InstallerCruft class>>sourceFiles (in category 'accessing system') ----- + sourceFiles + + ^ SourceFiles! Item was added: + ----- Method: InstallerMonticello class>>directory: (in category 'instance creation') ----- + directory: dir + + | directory | + directory := dir isString + ifTrue: [ FileDirectory on: (FileDirectory default fullNameFor: dir) ] + ifFalse: [ dir ]. + + ^ self new + mc: (self classMCDirectoryRepository new directory: directory; yourself) + root: dir! Item was added: + ----- Method: InstallerUniverse>>universe: (in category 'universes') ----- + universe: u + + universe := u. + self update.! Item was added: + ----- Method: InstallerCruft>>mantisAction:reportOn: (in category 'action report') ----- + mantisAction: line reportOn: report + + | param mantis | + mantis := Installer mantis. + param := line readStream upTo: $: ; upTo: $.. + + mantis setBug: ((param readStream upTo: $'; atEnd) + ifTrue: [ param ] + ifFalse: [ param readStream upTo: $'; upTo: $' ]). + + self reportSection: line on: report. + report nextPutAll: (mantis replaceEntitiesIn: mantis markersBegin readStream). + self reportFor: line page: mantis maScript on: report. + report nextPutAll: (mantis replaceEntitiesIn: mantis markersEnd readStream); cr. + ! Item was added: + ----- Method: Installer>>basicVersions (in category 'basic interface') ----- + basicVersions! Item was added: + ----- Method: InstallerSqueakMap>>smSearch: (in category 'searching') ----- + smSearch: aMatch + + | results | + results := Set new. + self availablePackages do: [ :pkg | + ({ 'name:',pkg name. + 'summary:', pkg summary. + 'description:', pkg description. + 'author:', pkg author. } anySatisfy: [ :field | aMatch match: field ]) + ifTrue: [ results add: (self copy package: pkg name) ]. + ]. + ^results + + ! Item was added: + ----- Method: InstallerMonticello class>>classMCMagmaRepository (in category 'class references') ----- + classMCMagmaRepository + + ^Smalltalk at: #MCMagmaRepository ifAbsent: [ self error: 'Magma not present' ] + ! Item was added: + ----- Method: InstallerSqueakMap>>smReleasesForPackage: (in category 'squeakmap') ----- + smReleasesForPackage: name + + ^(self classSMSqueakMap default packageWithName: name) releases! Item was added: + ----- Method: InstallerMantis>>maPage (in category 'mantis') ----- + maPage + " self mantis bug: 5251." + + | page | + page := self httpGet: self maUrl. + date := ((self maRead: page field: 'Date Updated') value copyUpTo: $ ). + date isEmpty ifTrue: [ ^self error: bug, ' not found' ]. + date := date asDate. + ^page reset! Item was added: + InstallerWebBased subclass: #InstallerWeb + instanceVariableNames: '' + classVariableNames: 'WebSearchPath' + poolDictionaries: '' + category: 'Installer-Core'! Item was added: + ----- Method: InstallerCruft class>>classSakePackages (in category 'accessing system') ----- + classSakePackages + + ^Smalltalk at: #SakePackages ifAbsent: [ self error: 'Sake Packages code not present' ]! Item was added: + ----- Method: Installer>>basicView (in category 'basic interface') ----- + basicView! Item was changed: + ----- Method: Installer>>view (in category 'public interface') ----- - ----- Method: Installer>>view (in category 'accessing') ----- view + self logErrorDuring: [self basicView]! - - self logErrorDuring: [ - self file ifNotNil: [ ^ self fileView ]. - self mc ifNotNil: [ ^self mcView ]. - self wsm ifNotNil: [ ^self wsmView ]. - self sm ifTrue: [ ^self smView ]. - self url ifNotNil: [ ^self urlView ]. - self package ifNotNil: [ ^self webView ]. - ] ! Item was added: + ----- Method: InstallerWebSqueakMap>>wsmReleasesFor: (in category 'websqueakmap') ----- + wsmReleasesFor: packageId + + | html autoVersion version releases | + releases := Dictionary new. + html := self httpGet: (self wsm, '/package/', packageId ). + [releases at: #latest put: autoVersion. + autoVersion := html upToAll: '/autoversion/'; upTo: $". + version := html upTo: $-; upTo: $<. + (autoVersion notEmpty and: [version notEmpty ])] + whileTrue: [ releases at: version put: autoVersion ]. + ^ releases + ! Item was changed: + ----- Method: Installer class>>repository: (in category 'monticello') ----- - ----- Method: Installer class>>repository: (in category 'instanciation') ----- repository: host ^self monticello http: host ! Item was changed: + ----- Method: Installer class>>wiresong (in category 'monticello') ----- - ----- Method: Installer class>>wiresong (in category 'instanciation-abbreviated') ----- wiresong ^ self monticello http: 'source.wiresong.ca'! Item was changed: + ----- Method: Installer class>>install: (in category 'web') ----- - ----- Method: Installer class>>install: (in category 'instanciation') ----- install: webPageName self webSearchPath isEmpty ifTrue: [ ^self error: 'search path not set' ]. ^ self web install: webPageName ! Item was added: + ----- Method: InstallerFile>>basicBrowse (in category 'basic interface') ----- + basicBrowse + + self browse: self file from: (FileDirectory readOnlyFileNamed: self file). + + ! Item was added: + ----- Method: InstallerWeb>>basicView (in category 'basic interface') ----- + basicView + + self webThing size > 0 + ifTrue: [ self view: url from: pageDataStream ] + ifFalse: [ self logCR: 'NO DATA ',url,' was empty' ]. + ! Item was added: + ----- Method: InstallerUpdateStream>>changesetNamesFromUpdates:through: (in category 'updates') ----- + changesetNamesFromUpdates: startNumber through: stopNumber + "Answer the concatenation of summary strings for updates numbered in the given range" + "self new changesetNamesFromUpdates: 7059 through: 7061" + + ^ String streamContents: [:aStream | + ((ChangeSet changeSetsNamedSuchThat: + [:aName | aName first isDigit and: + [aName initialIntegerOrNil >= startNumber] and: + [aName initialIntegerOrNil <= stopNumber]]) asSortedCollection: + [:a :b | a name >classMCHttpRepository (in category 'class references') ----- + classMCHttpRepository + + ^Smalltalk at: #MCHttpRepository ifAbsent: [ self error: 'Monticello not present' ] + ! Item was added: + ----- Method: InstallerCruft>>info (in category 'accessing') ----- + info + + self sm ifTrue: [ ^ self smInfo ]. + self wsm ifNotNil: [ ^ self wsmInfo ].! Item was removed: - ----- Method: Installer>>urlInstall (in category 'url') ----- - urlInstall - - self install: self urlToDownload from: self urlThing. - ^ pageDataStream - ! Item was removed: - ----- Method: Installer>>mcDetectFileBlock (in category 'monticello') ----- - mcDetectFileBlock - - self package isString ifTrue: [ ^ [ :aFile | aFile beginsWith: self package ] ]. - - (self package isKindOf: Array) - ifTrue: [ ^ [ :aFile | (self package detect: [ :item | aFile beginsWith: item ] ifNone: [ false ]) ~= false ] ]. - - self package isBlock ifTrue: [ ^ self package ]. - - ! Item was removed: - ----- Method: Installer>>extractFromHtml:option: (in category 'action report') ----- - extractFromHtml: html option: allOrLast - - | start stop test in | - - start := self markersBegin. - stop := self markersEnd. - test := self markersTest. - - in := ReadWriteStream with: String new. - - [ html upToAll: start; atEnd ] - whileFalse: [ - | chunk | - (allOrLast == #last) ifTrue: [ in resetToStart ]. - chunk := html upToAll: stop. - self isSkipLoadingTestsSet ifTrue: [ chunk := chunk readStream upToAll: test ]. - in nextPutAll: chunk. - ]. - - ^self removeHtmlMarkupFrom: in reset - - ! Item was removed: - ----- Method: Installer>>urlAction:reportOn: (in category 'action report') ----- - urlAction: line reportOn: report - - url := line readStream upTo: $' ; upTo: $'. - - self reportSection: line on: report. - - (pageDataStream := self urlGet: self urlToDownload) - ifNil: [ self error: 'unable to contact host' ]. - - self reportFor: line page: pageDataStream on: report ! Item was removed: - ----- Method: Installer>>viewUrl (in category 'utils') ----- - viewUrl - - ^Workspace new contents: (self urlGet contents); openLabel: self urlToDownload. - ! Item was removed: - ----- Method: Installer class>>unload: (in category 'unload') ----- - unload: categoryMatchesString - - ^ self error: 'deprecated, use Installer mc unload: ''pkgname''.'! Item was removed: - ----- Method: Installer>>uniUpdate (in category 'universes') ----- - uniUpdate - - (LastUniUpdate isNil or:[ (DateAndTime now - LastUniUpdate) > 600 seconds ]) - ifTrue: [universe requestPackageList. - LastUniUpdate := DateAndTime now]! Item was removed: - ----- Method: Installer>>sakeInstall (in category 'actions') ----- - sakeInstall - - self withAnswersDo: [ (self packages collect: [ :packageName | sake named: packageName ]) asTask run ]. - ! Item was removed: - ----- Method: Installer class>>sourceFiles (in category 'accessing system') ----- - sourceFiles - - ^ SourceFiles! Item was removed: - ----- Method: Installer class>>initialize (in category 'instanciation') ----- - initialize - - WebSearchPath := OrderedCollection - with: [ 'http://installer.pbwiki.com/*-', (Smalltalk version copy replaceAll: $. with: $:) ,'-', Utilities authorInitialsPerSe ,'?raw=bare' ] - with: [ 'http://installer.pbwiki.com/*-', (Smalltalk version copy replaceAll: $. with: $:), '?raw=bare' ] - with: [ 'http://installer.pbwiki.com/*-', (SystemVersion current majorMinorVersion replaceAll: $. with: $:) ,'?raw=bare' ] - with: 'http://installer.pbwiki.com/*?raw=bare' - - ! Item was removed: - ----- Method: Installer>>ma: (in category 'accessing') ----- - ma: aUrl - - ma := aUrl last = $/ ifTrue: [ aUrl ] ifFalse: [ aUrl, '/' ]! Item was removed: - ----- Method: Installer>>loadUpdatesFromDisk (in category 'updates') ----- - loadUpdatesFromDisk - - | updateDirectory updateNumbers | - updateDirectory := self updateDirectoryOrNil. - updateDirectory ifNil: [^ self]. - updateNumbers := updateDirectory fileNames - collect: [:fn | fn initialIntegerOrNil] - thenSelect: [:fn | fn notNil]. - - self loadUpdatesFromDiskToUpdateNumber: updateNumbers max - stopIfGap: false - - ! Item was removed: - ----- Method: Installer>>mantisAction:reportOn: (in category 'action report') ----- - mantisAction: line reportOn: report - - | param mantis | - mantis := Installer mantis. - param := line readStream upTo: $: ; upTo: $.. - - mantis setBug: ((param readStream upTo: $'; atEnd) - ifTrue: [ param ] - ifFalse: [ param readStream upTo: $'; upTo: $' ]). - - self reportSection: line on: report. - report nextPutAll: (mantis replaceEntitiesIn: mantis markersBegin readStream). - self reportFor: line page: mantis maScript on: report. - report nextPutAll: (mantis replaceEntitiesIn: mantis markersEnd readStream); cr. - ! Item was removed: - ----- Method: Installer>>wsm (in category 'websqueakmap') ----- - wsm - - ^ wsm! Item was removed: - ----- Method: Installer>>smVersions (in category 'squeakmap') ----- - smVersions - - ^ (self smReleasesForPackage: self package) - collect: [ :v | self copy package: (v package name,'(',v version,')'); yourself. ] - - ! Item was removed: - ----- Method: Installer>>universe: (in category 'universes') ----- - universe: u - - universe := u. - self uniUpdate.! Item was removed: - ----- Method: Installer>>fixBug:date: (in category 'mantis') ----- - fixBug: aBugNo date: aDate - - self setBug: aBugNo. - self install: self maUrl from: self maScript. - self maCheckDateAgainst: aDate. - - - - ! Item was removed: - ----- Method: Installer>>desc: (in category 'accessing') ----- - desc: anObject - - desc := anObject! Item was removed: - ----- Method: Installer>>wsmPackagesByName (in category 'websqueakmap') ----- - wsmPackagesByName - - | html id name pkgs | - pkgs := Dictionary new. - html := self httpGet: (self wsm, 'packagesbyname'). - - [ id := html upToAll: '/package/'; upToAll: '">'. - name := html upTo: $<. - (id notEmpty and: [ name notEmpty ])] - whileTrue: [ pkgs at: name put: id ]. - - ^ pkgs - ! Item was removed: - ----- Method: Installer class>>file: (in category 'instanciation') ----- - file: fileName - - ^ self new file: fileName; yourself - ! Item was removed: - ----- Method: Installer>>classMCSmtpRepository (in category 'class references') ----- - classMCSmtpRepository - - ^Smalltalk at: #MCSmtpRepository ifAbsent: [ self error: 'Monticello not present' ] - ! Item was removed: - ----- Method: Installer class>>classSakePackages (in category 'accessing system') ----- - classSakePackages - - ^Smalltalk at: #SakePackages ifAbsent: [ self error: 'Sake Packages code not present' ]! Item was removed: - ----- Method: Installer>>fileView (in category 'file') ----- - fileView - - self view: self file from: (FileDirectory readOnlyFileNamed: self file). - - ! Item was removed: - ----- Method: Installer>>smUpdate (in category 'squeakmap') ----- - smUpdate - "Updates the local map for SqueakMap, upgrading SqueakMap to the latest version if necessary. - - When SqueakMap is old and needs to be upgraded, it does four things that mostly make sense in the interactive world SM was built for, but are totally evil here in the world of automatic scripting: - 1. It asks the user if she wants to upgrade, in the form of a pop-up (see SMSqueakMap >> #checkVersion:). - 2. It terminates its own process. - 3. It creates a new UI process. - (see the last line of the SqueakMap upgrade file-in: ''Project spawnNewProcessAndTerminateOld: true'', from - http://map.squeak.org/accountbyid/9bdedc18-1525-44a6-9b79-db5d4a87f6f8/file… - 4. It opens a SqueakMap window - - We work around these three problems seperately: - 1. We use #answer:with: and #withAnswersDo: to automatically answer ''Yes'' when asked if we want to upgrade - 2. We don't want this process to be terminated, so we run the update in a forked process and wait for it to finish, using #fork, #ensure:, and a Semaphore - 3. We keep track of the UI process before updating, and if it changes, we terminate the new UI process and reinstall the old one using Project >> #resumeProcess: - 4. We don't bother with the newly opened window. The other three problems are much worse. - - We do all this in a new process, since it is not unlikely that this method is executing in the UI process" - - | oldUIProcess newUIProcess doneSema | - self answer: 'You need to upgrade the SqueakMap package' with: true. - oldUIProcess := Project uiProcess. - doneSema := Semaphore new. - [[self withAnswersDo: [self classSMSqueakMap default loadUpdates]] - ensure: [newUIProcess := Project uiProcess. - (oldUIProcess ~~ newUIProcess - and: [oldUIProcess notNil] - and: [oldUIProcess isTerminated not]) - ifTrue: [ - newUIProcess ifNotNil: [newUIProcess terminate]. - oldUIProcess suspend. - Project resumeProcess: oldUIProcess.]. - doneSema signal]] fork. - doneSema wait! Item was removed: - ----- Method: Installer>>justFixBug:date: (in category 'mantis') ----- - justFixBug: aBugNo date: d - - ^self class skipLoadingTests: true during: [ self fixBug: aBugNo date: d ]! Item was removed: - ----- Method: Installer>>ensureFix: (in category 'mantis') ----- - ensureFix: aBugNo - - | fixesAppliedNumbers | - self setBug: aBugNo. - fixesAppliedNumbers := self class fixesApplied collect: [ :fixDesc | fixDesc asInteger ]. - (fixesAppliedNumbers includes: bug) ifFalse: [ self fixBug: aBugNo ]! Item was removed: - ----- Method: Installer>>date: (in category 'accessing') ----- - date: anObject - - date := anObject asDate! Item was removed: - ----- Method: Installer>>httpGet: (in category 'utils') ----- - httpGet: aUrl - - | page | - page := self classHTTPSocket httpGet: aUrl accept: 'application/octet-stream'. - - (page respondsTo: #reset) ifFalse: [ self error: 'unable to contact web site' ]. - ^ page - ! Item was removed: - ----- Method: Installer>>info (in category 'accessing') ----- - info - - self sm ifTrue: [ ^ self smInfo ]. - self wsm ifNotNil: [ ^ self wsmInfo ].! Item was removed: - ----- Method: Installer>>parseUpdateListContents: (in category 'updates') ----- - parseUpdateListContents: listContentString - "Parse the contents of an updates.list into {{releaseTag. {fileNames*}}*}, and return it." - - | sections releaseTag strm line fileNames | - sections := OrderedCollection new. - fileNames := OrderedCollection new: 1000. - releaseTag := nil. - strm := ReadStream on: listContentString. - [strm atEnd] whileFalse: - [line := strm upTo: Character cr. - line size > 0 ifTrue: - [line first = $# - ifTrue: [releaseTag ifNotNil: [sections addLast: {releaseTag. fileNames asArray}]. - releaseTag := line allButFirst. - fileNames resetTo: 1] - ifFalse: [line first = $* ifFalse: [fileNames addLast: line]]]]. - releaseTag ifNotNil: [sections addLast: {releaseTag. fileNames asArray}]. - ^ sections asArray - ! Item was removed: - ----- Method: Installer>>bugFilesView: (in category 'mantis') ----- - bugFilesView: aBugNo - - - (self bugFiles: aBugNo) do: [ :ea | self bug: aBugNo view: ea ].! Item was removed: - ----- Method: Installer>>wsmReleasesFor: (in category 'websqueakmap') ----- - wsmReleasesFor: packageId - - | html autoVersion version releases | - releases := Dictionary new. - html := self httpGet: (self wsm, '/package/', packageId ). - [releases at: #latest put: autoVersion. - autoVersion := html upToAll: '/autoversion/'; upTo: $". - version := html upTo: $-; upTo: $<. - (autoVersion notEmpty and: [version notEmpty ])] - whileTrue: [ releases at: version put: autoVersion ]. - ^ releases - ! Item was removed: - ----- Method: Installer>>http: (in category 'monticello') ----- - http: aUrl - - self http: aUrl user: 'squeak' password: 'squeak' - - ! Item was removed: - ----- Method: Installer>>smView (in category 'squeakmap') ----- - smView - - self smThing explore! Item was removed: - ----- Method: Installer>>classMCVersionLoader (in category 'class references') ----- - classMCVersionLoader - - ^Smalltalk at: #MCVersionLoader ifAbsent: [ self error: 'Monticello not present' ]! Item was removed: - ----- Method: Installer>>reportFor:page:on: (in category 'action report') ----- - reportFor: theLine page: thePage on: report - - [ thePage atEnd ] whileFalse: [ - | line | - line := thePage nextLine. - self actionMatch: line reportOn: report ifNoMatch: [ report nextPutAll: line; cr. ]].! Item was removed: - ----- Method: Installer>>webAction:reportOn: (in category 'action report') ----- - webAction: line reportOn: report - - self package: (line readStream upTo: $' ; upTo: $'). - - self reportSection: line on: report. - - url := self webFindUrlToDownload. - - self reportFor: line page: pageDataStream on: report ! Item was removed: - ----- Method: Installer>>webInstall (in category 'web install') ----- - webInstall - - self webThing size > 0 - ifTrue: [ self install: url from: pageDataStream ] - ifFalse: [ url ifNil: [ ^ self logCR: self package, ' not found on webSearchPath' ]. - self logCR: '...',url,' was empty' ]. - ! Item was removed: - ----- Method: Installer>>smPackageAndVersion (in category 'squeakmap') ----- - smPackageAndVersion - - | p | - p := ReadStream on: self package . - ^Array with: (p upTo: $() with: (p upTo: $)).! Item was removed: - ----- Method: Installer>>sake: (in category 'websqueakmap') ----- - sake: aSakePackagesClass - - sake := aSakePackagesClass! Item was removed: - ----- Method: Installer>>mcVersions (in category 'monticello') ----- - mcVersions - - ^ (self availablePackages select: [ :p | ( self package,'-*.mcz' ) match: p ]) collect: [ :p | self copy package: p ; yourself ]. - ! Item was removed: - ----- Method: Installer>>smBrowse (in category 'squeakmap') ----- - smBrowse - - self smThing explore! Item was removed: - ----- Method: Installer>>bug: (in category 'mantis') ----- - bug: aBugNo - "Installer mantis viewBug: 5639." - | page text | - - self setBug: aBugNo. - - page := self maPage. - - text := String streamContents: [ :str | - - #('Bug ID' 'Category' 'Severity' 'Reproducibility' 'Date Submitted' - 'Date Updated' 'Reporter' 'View Status' 'Handler' - 'Priority' 'Resolution' 'Status' 'Product Version' 'Summary' 'Description' 'Additional Information' ) - do: [ :field | - | f | - f := self maRead: page field: field. - str nextPutAll: f key; nextPutAll: ': '; nextPutAll: f value; cr. - ]. - - str nextPutAll: 'Notes: '; cr. - (self maReadNotes: page) do: [ :note | str nextPutAll: note; cr; cr ]. - - str nextPutAll: 'Files: '; nextPutAll: self maFiles keys asArray printString. - ]. - ^ text - ! Item was removed: - ----- Method: Installer>>bugScript: (in category 'mantis') ----- - bugScript: aBugNo - - self setBug: aBugNo. - ^ self maScript contents. - - - - ! Item was removed: - ----- Method: Installer class>>fixesApplied (in category 'accessing') ----- - fixesApplied - - ^ Fixes ifNil: [ Fixes := OrderedCollection new ].! Item was removed: - ----- Method: Installer class>>classes (in category 'accessing system') ----- - classes - - ^ Smalltalk! Item was removed: - ----- Method: Installer>>webView (in category 'web install') ----- - webView - - self webThing size > 0 - ifTrue: [ self view: url from: pageDataStream ] - ifFalse: [ self logCR: 'NO DATA ',url,' was empty' ]. - ! Item was removed: - ----- Method: Installer>>bug:browse: (in category 'mantis') ----- - bug: aBugNo browse: aFileName - - self setBug: aBugNo. - ^ self browse: aFileName from: (self maThing: aFileName date: nil)! Item was removed: - ----- Method: Installer class>>classProjectLauncher (in category 'accessing system') ----- - classProjectLauncher - - ^Smalltalk at: #ProjectLauncher ifAbsent: [ self error: 'ProjectLauncher not present' ]! Item was removed: - ----- Method: Installer class>>do: (in category 'launcher support') ----- - do: webPageName - - | rs | - self webSearchPath isEmpty ifTrue: [ ^self error: 'search path not set' ]. - rs := webPageName readStream. - [ rs atEnd ] whileFalse: [ self install: (rs upTo: $;) ]. - ! Item was removed: - ----- Method: Installer>>webFindUrlToDownload (in category 'web install') ----- - webFindUrlToDownload - - | delay retry | - delay := 0. - self class webSearchPath - do: [ :pathSpec | - | potentialUrl readPathSpec | - readPathSpec := pathSpec value readStream. - potentialUrl := (readPathSpec upTo: $*), self package, (readPathSpec upToEnd ifNil: [ '' ]). - [ retry := false. pageDataStream := self urlGet: potentialUrl ] - doWhileTrue: [ - (pageDataStream notNil and: [ pageDataStream size > 0 ]) - ifTrue: [ (pageDataStream contents includesSubString: 'Please slow down a bit') - ifTrue: [ retry := true ] - ifFalse: [ pageDataStream reset. - ^ potentialUrl ] ]. - (Delay forSeconds: (delay := delay + 5)) wait. - retry ]]. - ^nil - ! Item was removed: - ----- Method: Installer>>classMCCacheRepository (in category 'class references') ----- - classMCCacheRepository - - ^Smalltalk at: #MCCacheRepository ifAbsent: [ self error: 'Monticello not present' ] - ! Item was removed: - ----- Method: Installer>>maCheckDateAgainst: (in category 'utils') ----- - maCheckDateAgainst: okDate - - (okDate notNil and: [date < okDate asDate ]) - ifTrue: [ self notify: 'bug ', self bug asString, ' updated on ', date printString ]. - ! Item was removed: - ----- Method: Installer>>maReadNotes: (in category 'mantis') ----- - maReadNotes: page - - | notes note | - - notes := OrderedCollection new. - - [ page upToAll: 'tr class="bugnote"'; upTo: $>. - page atEnd ] - - whileFalse: [ - note := (self removeHtmlMarkupFrom: (page upToAll: '</tr>') readStream) contents. - note := note withBlanksCondensed. - "note replaceAll: Character cr with: $ ." - note replaceAll: Character lf with: Character cr. - notes add: note - ]. - - ^notes! Item was removed: - ----- Method: Installer>>mcView (in category 'monticello') ----- - mcView - "Installer ss project: 'Installer'; view: 'Installer-Core'. " - | it | - it := self mcThing. - (it respondsTo: #open) ifTrue: [ ^ it open ]. - - (MCSnapshotBrowser forSnapshot: it) - showLabelled: 'Snapshot of ', self package! Item was removed: - ----- Method: Installer>>smThing (in category 'squeakmap') ----- - smThing - - | pkgAndVersion releases release | - pkgAndVersion := self packageAndVersionFrom: self package. - self logCR: 'retrieving ', self package, ' from SqueakMap...'. - releases := self smReleasesForPackage: pkgAndVersion first. - release := pkgAndVersion last isEmpty - ifTrue: [ releases last ] - ifFalse:[ releases detect: [ :rel | rel version = pkgAndVersion last ] ]. - ^ release - - - ! Item was removed: - ----- Method: Installer>>classMCDirectoryRepository (in category 'class references') ----- - classMCDirectoryRepository - - ^Smalltalk at: #MCDirectoryRepository ifAbsent: [ self error: 'Monticello not present' ] - ! Item was removed: - ----- Method: Installer>>maUrlFor: (in category 'mantis') ----- - maUrlFor: maBugNo - - ^ url := self ma, 'view.php?id=', maBugNo asString - ! Item was removed: - ----- Method: Installer class>>classPackages (in category 'accessing system') ----- - classPackages - - ^Smalltalk at: #Packages ifAbsent: [ self error: 'Sake Packages code not present' ]! Item was removed: - ----- Method: Installer>>webThing (in category 'web install') ----- - webThing - - url := self webFindUrlToDownload. - url ifNil: [ self logCR: 'page ', self package, ' not found on path' ] - ifNotNil: [ self logCR: 'found ', url, ' ...'. ]. - ^ pageDataStream! Item was removed: - ----- Method: Installer class>>view: (in category 'instanciation') ----- - view: webPageNameOrUrl - - | theReport | - - theReport := String streamContents: [ :report | - (webPageNameOrUrl beginsWith: 'http://') ifTrue: [ - self new urlAction: ('Installer installUrl: ', (webPageNameOrUrl printString),'.') - reportOn: report. - ] - ifFalse: [ - self new webAction: ('Installer install: ', (webPageNameOrUrl printString),'.') - reportOn: report. - ]]. - - Workspace new contents: (theReport contents); openLabel: webPageNameOrUrl. - - ^theReport contents - ! Item was removed: - ----- Method: Installer>>wsmView (in category 'websqueakmap') ----- - wsmView - - | it | - it := self wsmThing. - self view: it from: (self httpGet: it). - - ! Item was removed: - ----- Method: Installer>>reportSection:on: (in category 'action report') ----- - reportSection: line on: report - - report isEmpty ifFalse: [ report cr ]. - report nextPutAll: '">>>> ' ; nextPutAll: (line copyWithout: $"); nextPut: $"; cr. - - ! Item was removed: - ----- Method: Installer>>classSMSqueakMap (in category 'class references') ----- - classSMSqueakMap - - ^Smalltalk at: #SMSqueakMap ifAbsent: [ self error: 'SqueakMap not present' ]! Item was removed: - ----- Method: Installer>>bug (in category 'accessing') ----- - bug - - ^ bug! Item was removed: - ----- Method: Installer>>maFiles (in category 'mantis') ----- - maFiles - | file files bugPage id | - files := Dictionary new. - bugPage := self maPage. - [ - id := bugPage upToAll: 'href="file_download.php?file_id='; upTo: $&. - file := bugPage upToAll: 'amp;type=bug"' ; upTo: $<. - ((file size > 1) and: [file first = $>]) ifTrue: [ files at: file copyWithoutFirst put: id ]. - id notEmpty ] whileTrue. - - ^files ! Item was removed: - ----- Method: Installer>>classSMLoader (in category 'class references') ----- - classSMLoader - - ^Smalltalk at: #SMLoader ifAbsent: [ self error: 'SqueakMap Loader not present' ]! Item was removed: - ----- Method: Installer>>skipTests (in category 'mantis') ----- - skipTests - - ! Item was removed: - ----- Method: Installer>>project (in category 'accessing') ----- - project - - ^ project! Item was removed: - ----- Method: Installer>>smSearch: (in category 'searching') ----- - smSearch: aMatch - - | results | - results := Set new. - self availablePackages do: [ :pkg | - ({ 'name:',pkg name. - 'summary:', pkg summary. - 'description:', pkg description. - 'author:', pkg author. } anySatisfy: [ :field | aMatch match: field ]) - ifTrue: [ results add: (self copy package: pkg name) ]. - ]. - ^results - - ! Item was removed: - ----- Method: Installer>>smReleasesForPackage: (in category 'squeakmap') ----- - smReleasesForPackage: name - - ^(self classSMSqueakMap default packageWithName: name) releases! Item was removed: - ----- Method: Installer>>changesetNamesFromUpdates:through: (in category 'updates') ----- - changesetNamesFromUpdates: startNumber through: stopNumber - "Answer the concatenation of summary strings for updates numbered in the given range" - "self new changesetNamesFromUpdates: 7059 through: 7061" - - ^ String streamContents: [:aStream | - ((ChangeSet changeSetsNamedSuchThat: - [:aName | aName first isDigit and: - [aName initialIntegerOrNil >= startNumber] and: - [aName initialIntegerOrNil <= stopNumber]]) asSortedCollection: - [:a :b | a name >markersEnd (in category 'url') ----- - markersEnd - "return the third marker or the second if there are only two" - - | str a | - str := self markers readStream. - a := str upToAll: '...'; upToAll: '...'. - str atEnd ifTrue: [ ^a ] ifFalse: [ ^str upToEnd ] - ! Item was removed: - ----- Method: Installer>>markersTest (in category 'url') ----- - markersTest - - ^ self markers readStream upToAll: '...'; upToAll: '...'! Item was removed: - ----- Method: Installer>>isHtmlStream: (in category 'url') ----- - isHtmlStream: page - "matches '<!!DOCTYPE HTML', and <html>' " - - | first | - first := (page next: 14) asUppercase. - ^ (first = '<!!DOCTYPE HTML') | (first beginsWith: '<HTML>') - - ! Item was removed: - ----- Method: Installer>>sm (in category 'accessing') ----- - sm - - ^ sm ifNil: [ false ]! Item was removed: - ----- Method: Installer>>universe (in category 'universes') ----- - universe - - ^ universe! Item was removed: - ----- Method: Installer>>fixBug: (in category 'mantis') ----- - fixBug: aBugNo - - ^ self fixBug: aBugNo date: nil! Item was removed: - ----- Method: Installer>>ensureFixes: (in category 'mantis') ----- - ensureFixes: aBugNos - - aBugNos do: [ :bugNo | self ensureFixes: bugNo ].! Item was removed: - ----- Method: Installer>>mcThing (in category 'monticello') ----- - mcThing - - | loader files fileToLoad version count | - - loader := self classMCVersionLoader new. - - 1 to: self packages size do: [ :n | - - self logCR: 'finding ', self package asString, '...'. - "several attempts to read files - repository readableFileNames sometimes fails" - count := 0. fileToLoad := nil. - - [count := count + 1. - (fileToLoad = nil) and:[ count < 5 ] ] - whileTrue: [ - files := mc readableFileNames asSortedCollection: self mcSortFileBlock. - fileToLoad := files detect: self mcDetectFileBlock ifNone: [ nil ]. - ]. - - version := mc versionFromFileNamed: fileToLoad. - (version isKindOf: MCConfiguration) - ifTrue: [ ^ version ] - ifFalse:[version workingCopy repositoryGroup addRepository: mc. - loader addVersion: version]. - self log: ' found ', version fileName, '...'. - - packages removeFirst. - ]. - - ^ loader! Item was removed: - ----- Method: Installer>>bugFiles: (in category 'mantis') ----- - bugFiles: aBugNo - "provide a list of files associated with the bug in id order" - " - Installer mantis bugFiles: 6660. - " - self setBug: aBugNo. - ^ (self maFiles associations asSortedCollection: [ :a :b | a value asInteger >replaceEntitiesIn: (in category 'url') ----- - replaceEntitiesIn: in - - | out | - out := ReadWriteStream on: (String new: 100). - [ in atEnd ] whileFalse: [ - out nextPutAll: ((in upTo: $&) replaceAll: Character lf with: Character cr). - in atEnd ifFalse: [ out nextPutAll: (self class entities at: (in upTo: $;) ifAbsent: '?') ]. - ]. - - ^out reset! Item was removed: - ----- Method: Installer>>unloadCleanUp (in category 'actions') ----- - unloadCleanUp - - SystemOrganization removeEmptyCategories. - - "Until Mantis 5718 is addressed" - Smalltalk at: #PackagePaneBrowser ifPresent: [ :ppbClass | ppbClass allInstancesDo: [ :ppb | ppb updatePackages ] ]. - Smalltalk at: #Browser ifPresent: [ :bClass | bClass allInstancesDo: [ :b | b updateSystemCategories ] ]. - MCFileBasedRepository freeSomeSpace. - SmalltalkImage current fixObsoleteReferences.! Item was removed: - ----- Method: Installer>>loadUpdatesFromDiskToUpdateNumber:stopIfGap: (in category 'updates') ----- - loadUpdatesFromDiskToUpdateNumber: lastUpdateNumber stopIfGap: stopIfGapFlag - "To use this mechanism, be sure all updates you want to have considered - are in a folder named 'updates' which resides in the same directory as - your image. Having done that, simply evaluate: - - Installer new loadUpdatesFromDiskToUpdateNumber: 100020 stopIfGap: false - - and all numbered updates <= lastUpdateNumber not yet in the image will - be loaded in numerical order." - - "apparently does not use the updatelist too bad!! and to rewrite - sd 7 March 2008" - | previousHighest currentUpdateNumber done fileNames aMessage updateDirectory loaded | - updateDirectory := self updateDirectoryOrNil. - updateDirectory ifNil: [^ self]. - previousHighest := SystemVersion current highestUpdate. - currentUpdateNumber := previousHighest. - done := false. - loaded := 0. - [done] - whileFalse: [currentUpdateNumber := currentUpdateNumber + 1. - currentUpdateNumber > lastUpdateNumber - ifTrue: [done := true] - ifFalse: [fileNames := updateDirectory fileNamesMatching: currentUpdateNumber printString , '*'. - fileNames size > 1 - ifTrue: [^ self inform: 'ambiguity -- two files both start with ' , currentUpdateNumber printString , ' - (at this point it is probably best to remedy - the situation on disk, then try again.)']. - fileNames size == 0 - ifTrue: [Transcript cr; show: 'gap in updates from disk for update number '; print: currentUpdateNumber; show: ' found...'. - done := stopIfGapFlag] - ifFalse: [ChangeSet - newChangesFromStream: (updateDirectory readOnlyFileNamed: fileNames first) - named: fileNames first. - SystemVersion current registerUpdate: currentUpdateNumber. - loaded := loaded + 1]]]. - aMessage := loaded = 0 - ifTrue: ['No new updates found.'] - ifFalse: [loaded printString , ' update(s) loaded.']. - self inform: aMessage , ' - Highest numbered update is now ' , (currentUpdateNumber - 1) printString , '.'! Item was removed: - ----- Method: Installer>>mc: (in category 'accessing') ----- - mc: aUrl - - mc := aUrl last = $/ ifTrue: [ aUrl ] ifFalse: [ aUrl, '/' ]! Item was removed: - ----- Method: Installer>>desc (in category 'accessing') ----- - desc - - ^ desc! Item was removed: - ----- Method: Installer>>smInstall (in category 'squeakmap') ----- - smInstall - - self log: ' installing '. - self withAnswersDo: [ self smThing install ]. - self log: ' done'. - ! Item was removed: - ----- Method: Installer>>markers (in category 'accessing') ----- - markers - - ^ markers ifNil: [ '<code st>..."test ...</code st>' ]! Item was removed: - ----- Method: Installer>>classHTTPSocket (in category 'class references') ----- - classHTTPSocket - - ^Smalltalk at: #HTTPSocket ifAbsent: [ self error: 'Network package not present' ]! Item was removed: - ----- Method: Installer class>>history (in category 'documentation') ----- - history - - " - 7 Jan 2007 - !!Installer fixBug: <aBugNo> - - aBugNo can now be a number or a string, beginning with a number. - This allows the mantis bug report summary to be used verbatim. - It also provides more infomarion for Installer to support self documentation. - - !!Install fix if not already installed - Installer ensureFix: <aBugNoOrString> - Installer ensureFixes: #(1 2 3 4) - - Installer now keeps a list of fix <aBugNoOrString> that have been installed up to this point. - #ensureFix: will only install the fix if it has not already been loaded. - note that only the bugNumber not the description is significant in the check. - - 8 Jan 2007 - !!Installer view: <webPageNameOrUrl> - - Provided that web page based scripts follow some simple rules, installer can collate the scripts from - web pages into a single workspace where you can manually 'doit' portions as you wish. - - The report generation is not very clever, it only matches on: - 'Installer install:' , 'Installer installUrl:', and 'Installer mantis fixBug:' - note these lines must be properly completed with an ending $. (period). - - also invoked by commandline option VIEW=<webPageNameOrUrl> - - 10 Jan 2007 - !!Now matches simpler html - - Check for an html page, now matches - '<!!DOCTYPE HTML' and <html> - the allows use of pbwiki's raw=bare option which returns iframe - embeddable html without the usual headers. - - 8 May 2007 - Modified bug:fix:date: so that the fixesApplied history does not contain unnecessary duplicate entries. - Fixed changeset naming for mantis bugs. - - 25 July 2007 - Added Universes Support - "! Item was removed: - ----- Method: Installer class>>classUGlobalInstaller (in category 'accessing system') ----- - classUGlobalInstaller - - ^Smalltalk at: #UGlobalInstaller ifAbsent: [ self error: 'Universes code not present' ]! Item was removed: - ----- Method: Installer class>>classUUniverse (in category 'accessing system') ----- - classUUniverse - - ^Smalltalk at: #UUniverse ifAbsent: [ self error: 'Universes code not present' ]! Item was removed: - ----- Method: Installer>>wsm: (in category 'websqueakmap') ----- - wsm: aUrl - - wsm := aUrl last = $/ ifTrue: [ aUrl ] ifFalse: [ aUrl, '/' ]! Item was removed: - ----- Method: Installer>>goran (in category 'instanciation-abbreviated') ----- - goran - - ^ self monticello http: 'squeak.krampe.se'; project: ''! Item was removed: - ----- Method: Installer>>maThing:date: (in category 'mantis') ----- - maThing: aFileName date: aDate - - self logCR: 'obtaining ', aFileName, '...'. - - pageDataStream := self maStreamForFile: aFileName. - - self maCheckDateAgainst: aDate. - - ^ pageDataStream - ! Item was removed: - ----- Method: Installer>>actionMatch:reportOn:ifNoMatch: (in category 'action report') ----- - actionMatch: theLine reportOn: report ifNoMatch: aBlock - - | line | - line := theLine withBlanksCondensed. - ((line beginsWith: 'Installer install:') | (line beginsWith: 'Installer do:')) - ifTrue: [ ^self webAction: theLine reportOn: report ]. - - ((line beginsWith: 'Installer installUrl:') and: - [ | ext | - ext := (line readStream upToAll: '''.') copyAfterLast: $.. - (#( 'cs' 'st' 'mcz' 'sar') includes: ext) not ]) ifTrue: [ ^self urlAction: theLine reportOn: report ]. - - (line beginsWith: 'Installer mantis fixBug:') ifTrue: [ ^self mantisAction: theLine reportOn: report ]. - aBlock value. - ! Item was removed: - ----- Method: Installer>>ma (in category 'accessing') ----- - ma - - ^ ma! Item was removed: - ----- Method: Installer>>urlGet (in category 'url') ----- - urlGet - - ^ self urlGet: self urlToDownload! Item was removed: - ----- Method: Installer>>file (in category 'accessing') ----- - file - - ^ afile! Item was removed: - ----- Method: Installer>>bug:fix: (in category 'mantis') ----- - bug: aBugNo fix: aFileName - - ^ self bug: aBugNo fix: aFileName date: nil! Item was removed: - ----- Method: Installer class>>launchHelp (in category 'launcher support') ----- - launchHelp - - ^'path=/dir/*.txt Specify a search path for the item to install - p=/dir1/*.txt;<url2>/ Multiple items delimited by ; - The page name is typically appended to the path string, or - if a "*" is present, it will be replaced by the page name. - - in,i,install=<page> Page appended to the path to begin the install process - url,u=<url> Install using an explicit url from which to obtain a script or file - file=<url> Install using a local file - +debug Do not trap errors - view=<page> Print the script that would have been installed. - - For more options use Script eval="Installer ... " - ' - ! Item was removed: - ----- Method: Installer>>packageAndVersionFrom: (in category 'squeakmap') ----- - packageAndVersionFrom: pkg - - | p | - p := ReadStream on: pkg . - ^Array with: (p upTo: $() with: (p upTo: $)).! Item was removed: - ----- Method: Installer>>mczInstall: (in category 'monticello') ----- - mczInstall: urlOrFile - - self log: ('Loading ', urlOrFile, ' ...'). - - (urlOrFile beginsWith: 'http:') - ifTrue: [ MczInstaller installStream: (HTTPSocket httpGet: urlOrFile) ] - ifFalse: [ MczInstaller installFileNamed: urlOrFile ]. - - self logCR: ' Loaded'. - - - - ! Item was removed: - ----- Method: Installer>>classMCFtpRepository (in category 'class references') ----- - classMCFtpRepository - - ^Smalltalk at: #MCFtpRepository ifAbsent: [ self error: 'Monticello not present' ] - ! Item was removed: - ----- Method: Installer>>classMCMagmaRepository (in category 'class references') ----- - classMCMagmaRepository - - ^Smalltalk at: #MCMagmaRepository ifAbsent: [ self error: 'Magma not present' ] - ! Item was removed: - ----- Method: Installer>>maStreamForFile: (in category 'mantis') ----- - maStreamForFile: aFileName - - | fileId | - - fileId := self maFiles at: aFileName ifAbsent: [ self error: aFileName, ' not found' ]. - - ^ self httpGet: (self ma, 'file_download.php?file_id=' , fileId , '&type=bug'). - ! Item was removed: - ----- Method: Installer>>cache (in category 'monticello') ----- - cache - - mc := self classMCCacheRepository default. - root := mc directory localName - ! Item was removed: - ----- Method: Installer class>>installFile: (in category 'instanciation') ----- - installFile: fileName - - ^ (self file: fileName) install. - ! Item was removed: - ----- Method: Installer>>webBrowse (in category 'web install') ----- - webBrowse - - self webThing size > 0 - ifTrue: [ self browse: url from: pageDataStream ] - ifFalse: [ self logCR: 'NO DATA ',url,' was empty' ]. - ! Item was removed: - ----- Method: Installer>>fileBrowse (in category 'file') ----- - fileBrowse - - self browse: self file from: (FileDirectory readOnlyFileNamed: self file). - - ! Item was removed: - ----- Method: Installer>>magma:port: (in category 'monticello') ----- - magma: host port: aport - - mc := (self classMCMagmaRepository new) host: host port: aport; yourself - ! Item was removed: - ----- Method: Installer>>goods:port: (in category 'monticello') ----- - goods: host port: aport - - mc := (self classMCGOODSRepository new) host: host port: aport; yourself - ! Item was removed: - ----- Method: Installer>>mcBrowse (in category 'monticello') ----- - mcBrowse - "Installer ss project: 'Installer'; browse: 'Installer-Core'." - - | it | - it := self mcThing. - - (it respondsTo: #browse) ifTrue: [ ^ it browse ]. - - (MCSnapshotBrowser forSnapshot: it) - showLabelled: 'Snapshot of ', self package! Item was removed: - ----- Method: Installer>>mcUrl (in category 'monticello') ----- - mcUrl - - ^ self mc, (self project ifNil: [''])! Item was removed: - ----- Method: Installer>>createRBforBug: (in category 'mantis') ----- - createRBforBug: aBugNo - | aStream fileList selFile aFileName | - - self setBug: aBugNo. - fileList := self maFiles keys asOrderedCollection. - fileList addLast: 'none'. - ReleaseBuilderFor3dot10 clear. - [selFile := UIManager default chooseFrom: fileList title: 'Choose what files load '. - selFile = fileList size ifFalse:[ - aFileName := fileList at: selFile. - self logCR: 'obtaining ', aFileName, '...'. - - aStream := self maStreamForFile: aFileName . - ReleaseBuilderFor3dot10 current packagesInfluenced: aStream named: aFileName. - - self installCS: aFileName from: aStream].selFile = fileList size]whileFalse. - - ReleaseBuilderFor3dot10 current newUpdateFor: aBugNo - - - ! Item was removed: - ----- Method: Installer>>classMCGOODSRepository (in category 'class references') ----- - classMCGOODSRepository - - ^Smalltalk at: #MCGOODSRepository ifAbsent: [ self error: 'Monticello not present' ] - ! Item was removed: - ----- Method: Installer>>viewBug: (in category 'mantis') ----- - viewBug: aBugNo - - ^Workspace new contents: (self bug: aBugNo); openLabel: ('Mantis ', aBugNo printString). - ! Item was removed: - ----- Method: Installer>>bug:fix:date: (in category 'mantis') ----- - bug: aBugNo fix: aFileName date: aDate - - | fixed | - self setBug: aBugNo. - self ditchOldChangeSetFor: aFileName. - self install: aFileName from: (self maThing: aFileName date: aDate). - - fixed := self class fixesApplied. - (fixed isEmpty or: [ fixed last ~= aBugNo]) ifTrue: [ fixed add: aBugNo ]. - - ^ date! Item was removed: - ----- Method: Installer>>mc (in category 'accessing') ----- - mc - - ^ mc! Item was removed: - ----- Method: Installer>>markersBegin (in category 'url') ----- - markersBegin - - ^ self markers copyUpTo: $.! Item was removed: - ----- Method: Installer>>removeHtmlMarkupFrom: (in category 'url') ----- - removeHtmlMarkupFrom: in - - | out | - out := ReadWriteStream on: (String new: 100). - [ in atEnd ] whileFalse: [ - out nextPutAll: (in upTo: $<). - (((in upTo: $>) asLowercase beginsWith: 'br') and: [ (in peek = Character cr) ]) ifTrue: [ in next ]. - ]. - - ^self replaceEntitiesIn: out reset. - ! Item was removed: - ----- Method: Installer>>sm: (in category 'accessing') ----- - sm: anObject - - sm := anObject! Item was removed: - ----- Method: Installer>>urlToDownload (in category 'url') ----- - urlToDownload - - ^ (self url, (self package ifNil: [ '' ])) asUrl asString. - - ! Item was removed: - ----- Method: Installer class>>mczInstall: (in category 'documentation') ----- - mczInstall: urlOrFile - - ^ self new mczInstall: urlOrFile - ! Item was removed: - ----- Method: Installer>>classMCMczReader (in category 'class references') ----- - classMCMczReader - - ^Smalltalk at: #MCMczReader ifAbsent: [ nil ] - ! Item was removed: - ----- Method: Installer>>urlThing (in category 'url') ----- - urlThing - - self logCR: 'retrieving ', self urlToDownload , ' ...'. - (pageDataStream := self urlGet: self urlToDownload) - ifNil: [ self error: 'unable to contact host' ]. - - ^ pageDataStream - ! Item was removed: - ----- Method: Installer>>project: (in category 'accessing') ----- - project: name - - project := name. - packages := nil. - - (mc respondsTo: #location:) ifTrue:[ mc := mc copy location: root , name ]. - (mc respondsTo: #directory:) ifTrue: [ mc := mc copy directory: root ,'/', name ]. - - ^self copy.! Item was removed: - ----- Method: Installer>>http:user:password: (in category 'monticello') ----- - http: aUrl user: name password: secret - - mc := self classMCHttpRepository location: aUrl user: name password: secret. - root := mc locationWithTrailingSlash - ! Item was removed: - ----- Method: Installer>>ftp:directory:user:password: (in category 'monticello') ----- - ftp: host directory: dir user: name password: secret - "Installer mc ftp: 'mc.gjallar.se' directory: '' user: 'gjallar' password: secret." - - mc := self classMCFtpRepository host: host directory: dir user: name password: ''. - root := dir. - ! Item was removed: - ----- Method: Installer>>mcInstall (in category 'monticello') ----- - mcInstall - - self withAnswersDo: [ self mcThing load ]. - self log: 'loaded'. - ! Item was removed: - ----- Method: Installer>>maPage (in category 'mantis') ----- - maPage - " self mantis bug: 5251." - - | page | - page := self httpGet: self maUrl. - date := ((self maRead: page field: 'Date Updated') value copyUpTo: $ ). - date isEmpty ifTrue: [ ^self error: bug, ' not found' ]. - date := date asDate. - ^page reset! Item was removed: - ----- Method: Installer class>>launchFrom: (in category 'launcher support') ----- - launchFrom: launcher - - ^self launchWith: launcher getParameters! Item was removed: - ----- Method: Installer>>url (in category 'accessing') ----- - url - - ^url! Item was removed: - ----- Method: Installer>>urlView (in category 'url') ----- - urlView - "(Installer debug url: 'http://installer.pbwiki.com/f/Installer.st') view.". - - self view: self urlToDownload from: self urlThing. - - - ! Item was removed: - ----- Method: Installer>>wsmDownloadUrl (in category 'websqueakmap') ----- - wsmDownloadUrl - | pkgAndVersion packageId packageName packageVersion releaseAutoVersion - downloadPage | - - pkgAndVersion := self packageAndVersionFrom: self package. - packageName := pkgAndVersion first. - packageVersion := pkgAndVersion last. - packageVersion isEmpty ifTrue: [ packageVersion := #latest ]. - - packageId := self wsmPackagesByName at: packageName. - releaseAutoVersion := (self wsmReleasesFor: packageId) at: packageVersion. - - downloadPage := self httpGet: (self wsm,'packagebyname/', packageName,'/autoversion/', releaseAutoVersion,'/downloadurl') asUrl asString. - - ^ downloadPage contents - - ! Item was removed: - ----- Method: Installer>>sake (in category 'websqueakmap') ----- - sake - - ^ sake ! Item was removed: - ----- Method: Installer>>evaluate: (in category 'mantis') ----- - evaluate: stream - - stream fileIn.! Item was removed: - ----- Method: Installer>>updateDirectoryOrNil (in category 'updates') ----- - updateDirectoryOrNil - - ^ (FileDirectory default directoryNames includes: 'updates') - ifTrue: [FileDirectory default directoryNamed: 'updates'] - ifFalse: [self inform: 'Error: cannot find "updates" folder'. - nil]! Item was removed: - ----- Method: Installer>>unload: (in category 'actions') ----- - unload: match - - (MCWorkingCopy allManagers select: [ :wc | match match: (wc package name) ]) - do: [ :wc | - self logCR: 'Unloading ', wc package asString. - wc unload.]. - self unloadCleanUp! Item was removed: - ----- Method: Installer>>smPackages (in category 'squeakmap') ----- - smPackages - - ^self classSMSqueakMap default packagesByName! Item was removed: - ----- Method: Installer>>uniInstall (in category 'actions') ----- - uniInstall - - | pkgAndVersion pkg version potentials | - self packages do: [ :packageName | - - pkgAndVersion := self packageAndVersionFrom: packageName. - pkg := pkgAndVersion first. - version := pkgAndVersion last. - - potentials := universe packageVersionsForPackage: pkg. - - pkg := version isEmpty - ifTrue: [ potentials last ] - ifFalse: [ - version := self classUVersion readFrom: version readStream. - potentials detect:[ :p | p version = version] ifNone: [ ^ self error: 'version not found'] - ]. - universe planToInstallPackage: pkg. - ]. - self uniDoInstall! Item was removed: - ----- Method: Installer>>directory: (in category 'monticello') ----- - directory: dir - - | directory | - directory := dir isString - ifTrue: [ FileDirectory on: (FileDirectory default fullNameFor: dir) ] - ifFalse: [ dir ]. - - mc := self classMCDirectoryRepository new directory: directory; yourself. - root := dir - - ! Item was removed: - ----- Method: Installer>>uniDoInstall (in category 'universes') ----- - uniDoInstall - - self withAnswersDo: [ self universe doInstall ] ! Item was removed: - ----- Method: Installer>>user: (in category 'accessing') ----- - user: anObject - - user := anObject! Item was removed: - ----- Method: Installer>>classUVersion (in category 'class references') ----- - classUVersion - - ^Smalltalk at: #UVersion ifAbsent: [ self error: 'Universes code not present' ]! Item was removed: - ----- Method: Installer class>>launchWith: (in category 'launcher support') ----- - launchWith: params - - params at: 'P' ifPresent: [ :v | params at: 'PATH' put: v ]. - params at: 'I' ifPresent: [ :v | params at: 'INSTALL' put: v ]. - params at: 'IN' ifPresent: [ :v | params at: 'INSTALL' put: v ]. - params at: 'U' ifPresent: [ :v | params at: 'URL' put: v ]. - - params at: 'PATH' ifPresent: [ :v | - self webSearchPathFrom: v. - ]. - - params at: 'USER' ifPresent: [ :v | - Utilities setAuthorInitials: v - ]. - params at: 'VERSION' ifPresent: [ :v | - SystemVersion current version: v - ]. - params at: 'VIEW' ifPresent: [ :v | - self view: v - ]. - - IsSetToTrapErrors := true. - params at: 'DEBUG' ifPresent: [ :v | IsSetToTrapErrors := (v == true) not ]. - - params at: 'URL' ifPresent: [ :v | - self installUrl: v - ]. - - params at: 'FILE' ifPresent: [ :v | - self installFile: v - ]. - - params at: 'INSTALL' ifPresent: [ :v | - self do: v - ]. - params at: 'DO' ifPresent: [ :v | - self do: v - ]. - - ^true - - ! Item was removed: - ----- Method: Installer>>wsmVersions (in category 'websqueakmap') ----- - wsmVersions - - | pkgAndVersion packageId packageName packageVersion versions | - pkgAndVersion := self packageAndVersionFrom: self package . - packageName := pkgAndVersion first. - packageVersion := pkgAndVersion last. - packageVersion isEmpty ifTrue: [ packageVersion := #latest ]. - packageId := self wsmPackagesByName at: packageName. - versions := (self wsmReleasesFor: packageId) keys. - versions remove: #latest. - ^ versions collect: [ :version | self copy package: (packageName,'(', version ,')'); yourself ]. ! Item was removed: - ----- Method: Installer>>file: (in category 'accessing') ----- - file: f - - afile := f! Item was removed: - ----- Method: Installer>>wsmInstall (in category 'websqueakmap') ----- - wsmInstall - - | it | - it := self wsmThing. - self install: it from: it asUrl retrieveContents contentStream. - - ! Item was removed: - ----- Method: Installer>>setBug: (in category 'mantis') ----- - setBug: stringOrNumber - - | str | - self logCR: stringOrNumber. - stringOrNumber isInteger ifTrue: [ bug := stringOrNumber. desc := ''. ^self ]. - bug := stringOrNumber asInteger. - str := str printString. - desc := stringOrNumber copyFrom: (str size + 1) to: (stringOrNumber size) - - ! Item was removed: - ----- Method: Installer>>bug:view: (in category 'mantis') ----- - bug: aBugNo view: aFileName - "Installer mantis bug: 6089 browse: 'TTFSpeedUp-dgd.1.cs'" - - self setBug: aBugNo. - ^ self view: aFileName from: (self maThing: aFileName date: nil)! Item was removed: - ----- Method: Installer>>maRead:field: (in category 'mantis') ----- - maRead: page field: fieldKey - - | value | - - value := page upToAll: ('!!-- ', fieldKey, ' -->'); upToAll: '<td'; upTo: $>; upToAll: '</td>'. - - page upTo: $<. - - page peek = $t ifTrue: [ value := page upToAll: 'td'; upTo: $>; upToAll: '</td>' ]. - - ^Association key: fieldKey value: value withBlanksTrimmed! Item was removed: - ----- Method: Installer>>bug:retrieve: (in category 'mantis') ----- - bug: aBugNo retrieve: aFileName - - self setBug: aBugNo. - ^ (self maStreamForFile: aFileName) contents! Item was removed: - ----- Method: Installer>>url: (in category 'accessing') ----- - url: aUrl - - url := aUrl! Item was removed: - ----- Method: Installer>>writeList:toStream: (in category 'updates') ----- - writeList: listContents toStream: strm - "Write a parsed updates.list out as text. - This is the inverse of parseUpdateListContents:" - - | fileNames releaseTag | - strm reset. - listContents do: - [:pair | - releaseTag := pair first. - fileNames := pair last. - strm nextPut: $#; nextPutAll: releaseTag; cr. - fileNames do: [:fileName | strm nextPutAll: fileName; cr]]. - strm close! Item was removed: - ----- Method: Installer>>mcSortFileBlock (in category 'monticello') ----- - mcSortFileBlock - - ^ [:a :b | - [(a findBetweenSubStrs: #($.)) allButLast last asInteger > (b findBetweenSubStrs: #($.)) allButLast last asInteger] - on: Error do: [:ex | false]].! Item was removed: - ----- Method: Installer>>markers: (in category 'accessing') ----- - markers: anObject - - markers := anObject! Item was removed: - ----- Method: Installer>>urlGet: (in category 'url') ----- - urlGet: aUrl - - | page | - page := HTTPSocket httpGet: aUrl accept: 'application/octet-stream'. - (page respondsTo: #reset) ifFalse: [ ^ nil ]. - (self isHtmlStream: page) ifTrue: [ page := self extractFromHtml: page option: nil ]. - ^ page reset - ! Item was removed: - ----- Method: Installer>>justFixBug: (in category 'mantis') ----- - justFixBug: aBugNo - - ^self class skipLoadingTests: true during: [ self fixBug: aBugNo date: nil ]! Item was removed: - ----- Method: Installer>>user (in category 'accessing') ----- - user - - ^ user ifNil: [ '' ]! Item was removed: - ----- Method: Installer>>urlBrowse (in category 'url') ----- - urlBrowse - "(Installer debug url: 'http://installer.pbwiki.com/f/Installer.st') browse.". - - self browse: self urlToDownload from: self urlThing. - - - ! Item was removed: - ----- Method: Installer class>>smalltalkImage (in category 'accessing system') ----- - smalltalkImage - - ^ SmalltalkImage current! Item was removed: - ----- Method: Installer>>maScript (in category 'mantis') ----- - maScript - - ^self extractFromHtml: self maPage option: #last - ! Item was removed: - ----- Method: Installer>>fileInstall (in category 'file') ----- - fileInstall - - self install: self file from: (FileDirectory default readOnlyFileNamed: self file) - - ! Item was removed: - ----- Method: Installer class>>entities (in category 'accessing') ----- - entities - - ^ Entities ifNil: [ Entities := - "enough entities to be going on with" - Dictionary new. - Entities at: 'lt' put: '<'; - at: 'gt' put: '>'; - at: 'amp' put: '&'; - at: 'star' put: '*'; - at: 'quot' put: '"'; - at: 'nbsp' put: ' '; - yourself - ] - - ! Item was removed: - ----- Method: Installer>>wsmThing (in category 'websqueakmap') ----- - wsmThing - - | downloadUrl | - self logCR: 'finding ', self package, ' from websqueakmap(', self wsm, ') ...'. - downloadUrl := self wsmDownloadUrl. - self logCR: 'found at ', downloadUrl asString, ' ...'. - ^ downloadUrl - ! Item was removed: - ----- Method: Installer>>maUrl (in category 'mantis') ----- - maUrl - - ^ url := self ma, 'view.php?id=', bug asString - ! Item was removed: - ----- Method: Installer>>classMCHttpRepository (in category 'class references') ----- - classMCHttpRepository - - ^Smalltalk at: #MCHttpRepository ifAbsent: [ self error: 'Monticello not present' ] - !

1 0

Sake : Sake-Installer-mtf.14.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 09 Oct '08

09 Oct '08

A new version of Sake-Installer was added to project Sake : http://www.squeaksource.com/Sake/Sake-Installer-mtf.14.mcz ==================== Summary ==================== Name: Sake-Installer-mtf.14 Author: mtf Time: 9 October 2008, 10:42:15 am UUID: 0fa61680-e251-4693-b7a3-55ae50ed7d93 Ancestors: Sake-Installer-mtf.13 Split out files, sake, and the update stream. This concludes the Installer split-up =============== Diff against Sake-Installer-mtf.13 =============== Item was added: + ----- Method: SakeUpdateStreamInstaller>>writeList:toStream: (in category 'updates') ----- + writeList: listContents toStream: strm + "Write a parsed updates.list out as text. + This is the inverse of parseUpdateListContents:" + + | fileNames releaseTag | + strm reset. + listContents do: + [:pair | + releaseTag := pair first. + fileNames := pair last. + strm nextPut: $#; nextPutAll: releaseTag; cr. + fileNames do: [:fileName | strm nextPutAll: fileName; cr]]. + strm close! Item was added: + SakeInstaller subclass: #SakeFileInstaller + instanceVariableNames: 'afile' + classVariableNames: '' + poolDictionaries: '' + category: 'Sake-Installer'! Item was added: + SakeInstaller subclass: #SakeUpdateStreamInstaller + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Sake-Installer'! Item was added: + ----- Method: SakeUpdateStreamInstaller>>loadUpdatesFromDisk (in category 'updates') ----- + loadUpdatesFromDisk + + | updateDirectory updateNumbers | + updateDirectory := self updateDirectoryOrNil. + updateDirectory ifNil: [^ self]. + updateNumbers := updateDirectory fileNames + collect: [:fn | fn initialIntegerOrNil] + thenSelect: [:fn | fn notNil]. + + self loadUpdatesFromDiskToUpdateNumber: updateNumbers max + stopIfGap: false + + ! Item was changed: SakeInstaller subclass: #SakeXInstaller + instanceVariableNames: '' + classVariableNames: '' - instanceVariableNames: 'afile sake' - classVariableNames: 'Sake' poolDictionaries: '' category: 'Sake-Installer'! !SakeXInstaller commentStamp: 'mtf 10/1/2008 22:24' prior: 0! I am a copy of Installer as of Installer-Core-kph.232. I am being split up. I am called SakeXInstaller because I stand-in for Sake{MC,SM,Mantis,Web,etc}Installer! Item was added: + ----- Method: SakeSakeInstaller class>>sake (in category 'accessing') ----- + sake + + ^ Sake ifNil: [ self classPackages current ]! Item was added: + ----- Method: SakeFileInstaller class>>installFile: (in category 'instanciation') ----- + installFile: fileName + + ^ (self file: fileName) install. + ! Item was added: + ----- Method: SakeFileInstaller>>basicView (in category 'basic interface') ----- + basicView + + self view: self file from: (FileDirectory readOnlyFileNamed: self file). + + ! Item was added: + ----- Method: SakeFileInstaller>>basicInstall (in category 'basic interface') ----- + basicInstall + + self install: self file from: (FileDirectory default readOnlyFileNamed: self file) + + ! Item was added: + ----- Method: SakeInstaller class>>sake: (in category 'sake-sake') ----- + sake: aSakePackagesClass + + ^ SakeSakeInstaller new sake: aSakePackagesClass! Item was added: + ----- Method: SakeFileInstaller class>>file: (in category 'instanciation') ----- + file: fileName + + ^ SakeFileInstaller new file: fileName; yourself + ! Item was changed: ----- Method: SakeInstaller>>install (in category 'public interface') ----- install "self logErrorDuring: [ self sake ifNotNil: [ ^ self sakeInstall ]. - self file ifNotNil: [ ^ self fileInstall ]. ]" self logErrorDuring: [self basicInstall]! Item was added: + ----- Method: SakeFileInstaller>>basicBrowse (in category 'basic interface') ----- + basicBrowse + + self browse: self file from: (FileDirectory readOnlyFileNamed: self file). + + ! Item was added: + ----- Method: SakeInstaller class>>setSakeToUse: (in category 'sake-sake') ----- + setSakeToUse: aClass + + SakeSakeInstaller sake: aClass! Item was added: + ----- Method: SakeInstaller class>>sake (in category 'sake-sake') ----- + sake + + ^ self sake: SakeSakeInstaller sake! Item was added: + ----- Method: SakeSakeInstaller>>sake: (in category 'websqueakmap') ----- + sake: aSakePackagesClass + + sake := aSakePackagesClass! Item was added: + ----- Method: SakeFileInstaller>>file (in category 'accessing') ----- + file + + ^ afile! Item was changed: ----- Method: SakeInstaller>>view (in category 'public interface') ----- view - - "self logErrorDuring: [ - self file ifNotNil: [ ^ self fileView ]. - ]" - self logErrorDuring: [self basicView]! Item was added: + ----- Method: SakeUpdateStreamInstaller>>updateDirectoryOrNil (in category 'updates') ----- + updateDirectoryOrNil + + ^ (FileDirectory default directoryNames includes: 'updates') + ifTrue: [FileDirectory default directoryNamed: 'updates'] + ifFalse: [self inform: 'Error: cannot find "updates" folder'. + nil]! Item was added: + ----- Method: SakeSakeInstaller>>sake (in category 'websqueakmap') ----- + sake + + ^ sake ! Item was added: + SakeInstaller subclass: #SakeSakeInstaller + instanceVariableNames: 'sake' + classVariableNames: 'Sake' + poolDictionaries: '' + category: 'Sake-Installer'! Item was added: + ----- Method: SakeUpdateStreamInstaller>>parseUpdateListContents: (in category 'updates') ----- + parseUpdateListContents: listContentString + "Parse the contents of an updates.list into {{releaseTag. {fileNames*}}*}, and return it." + + | sections releaseTag strm line fileNames | + sections := OrderedCollection new. + fileNames := OrderedCollection new: 1000. + releaseTag := nil. + strm := ReadStream on: listContentString. + [strm atEnd] whileFalse: + [line := strm upTo: Character cr. + line size > 0 ifTrue: + [line first = $# + ifTrue: [releaseTag ifNotNil: [sections addLast: {releaseTag. fileNames asArray}]. + releaseTag := line allButFirst. + fileNames resetTo: 1] + ifFalse: [line first = $* ifFalse: [fileNames addLast: line]]]]. + releaseTag ifNotNil: [sections addLast: {releaseTag. fileNames asArray}]. + ^ sections asArray + ! Item was added: + ----- Method: SakeFileInstaller>>file: (in category 'accessing') ----- + file: f + + afile := f! Item was changed: ----- Method: SakeInstaller>>browse (in category 'public interface') ----- browse - - "self logErrorDuring: [ - self file ifNotNil: [ ^ self fileBrowse ]. - ]" - self logErrorDuring: [self basicBrowse]! Item was added: + ----- Method: SakeUpdateStreamInstaller>>changesetNamesFromUpdates:through: (in category 'updates') ----- + changesetNamesFromUpdates: startNumber through: stopNumber + "Answer the concatenation of summary strings for updates numbered in the given range" + "self new changesetNamesFromUpdates: 7059 through: 7061" + + ^ String streamContents: [:aStream | + ((ChangeSet changeSetsNamedSuchThat: + [:aName | aName first isDigit and: + [aName initialIntegerOrNil >= startNumber] and: + [aName initialIntegerOrNil <= stopNumber]]) asSortedCollection: + [:a :b | a name >sakeInstall (in category 'actions') ----- + sakeInstall + + self withAnswersDo: [ (self packages collect: [ :packageName | sake named: packageName ]) asTask run ]. + ! Item was added: + ----- Method: SakeUpdateStreamInstaller>>loadUpdatesFromDiskToUpdateNumber:stopIfGap: (in category 'updates') ----- + loadUpdatesFromDiskToUpdateNumber: lastUpdateNumber stopIfGap: stopIfGapFlag + "To use this mechanism, be sure all updates you want to have considered + are in a folder named 'updates' which resides in the same directory as + your image. Having done that, simply evaluate: + + Installer new loadUpdatesFromDiskToUpdateNumber: 100020 stopIfGap: false + + and all numbered updates <= lastUpdateNumber not yet in the image will + be loaded in numerical order." + + "apparently does not use the updatelist too bad!! and to rewrite - sd 7 March 2008" + | previousHighest currentUpdateNumber done fileNames aMessage updateDirectory loaded | + updateDirectory := self updateDirectoryOrNil. + updateDirectory ifNil: [^ self]. + previousHighest := SystemVersion current highestUpdate. + currentUpdateNumber := previousHighest. + done := false. + loaded := 0. + [done] + whileFalse: [currentUpdateNumber := currentUpdateNumber + 1. + currentUpdateNumber > lastUpdateNumber + ifTrue: [done := true] + ifFalse: [fileNames := updateDirectory fileNamesMatching: currentUpdateNumber printString , '*'. + fileNames size > 1 + ifTrue: [^ self inform: 'ambiguity -- two files both start with ' , currentUpdateNumber printString , ' + (at this point it is probably best to remedy + the situation on disk, then try again.)']. + fileNames size == 0 + ifTrue: [Transcript cr; show: 'gap in updates from disk for update number '; print: currentUpdateNumber; show: ' found...'. + done := stopIfGapFlag] + ifFalse: [ChangeSet + newChangesFromStream: (updateDirectory readOnlyFileNamed: fileNames first) + named: fileNames first. + SystemVersion current registerUpdate: currentUpdateNumber. + loaded := loaded + 1]]]. + aMessage := loaded = 0 + ifTrue: ['No new updates found.'] + ifFalse: [loaded printString , ' update(s) loaded.']. + self inform: aMessage , ' + Highest numbered update is now ' , (currentUpdateNumber - 1) printString , '.'! Item was added: + ----- Method: SakeSakeInstaller class>>classPackages (in category 'accessing system') ----- + classPackages + + ^Smalltalk at: #Packages ifAbsent: [ self error: 'Sake Packages code not present' ]! Item was added: + ----- Method: SakeSakeInstaller class>>sake: (in category 'accessing') ----- + sake: aClass + + Sake := aClass! Item was removed: - ----- Method: SakeXInstaller>>updateDirectoryOrNil (in category 'updates') ----- - updateDirectoryOrNil - - ^ (FileDirectory default directoryNames includes: 'updates') - ifTrue: [FileDirectory default directoryNamed: 'updates'] - ifFalse: [self inform: 'Error: cannot find "updates" folder'. - nil]! Item was removed: - ----- Method: SakeXInstaller>>file: (in category 'accessing') ----- - file: f - - afile := f! Item was removed: - ----- Method: SakeXInstaller>>fileInstall (in category 'file') ----- - fileInstall - - self install: self file from: (FileDirectory default readOnlyFileNamed: self file) - - ! Item was removed: - ----- Method: SakeXInstaller>>sakeInstall (in category 'actions') ----- - sakeInstall - - self withAnswersDo: [ (self packages collect: [ :packageName | sake named: packageName ]) asTask run ]. - ! Item was removed: - ----- Method: SakeXInstaller>>parseUpdateListContents: (in category 'updates') ----- - parseUpdateListContents: listContentString - "Parse the contents of an updates.list into {{releaseTag. {fileNames*}}*}, and return it." - - | sections releaseTag strm line fileNames | - sections := OrderedCollection new. - fileNames := OrderedCollection new: 1000. - releaseTag := nil. - strm := ReadStream on: listContentString. - [strm atEnd] whileFalse: - [line := strm upTo: Character cr. - line size > 0 ifTrue: - [line first = $# - ifTrue: [releaseTag ifNotNil: [sections addLast: {releaseTag. fileNames asArray}]. - releaseTag := line allButFirst. - fileNames resetTo: 1] - ifFalse: [line first = $* ifFalse: [fileNames addLast: line]]]]. - releaseTag ifNotNil: [sections addLast: {releaseTag. fileNames asArray}]. - ^ sections asArray - ! Item was removed: - ----- Method: SakeXInstaller class>>classPackages (in category 'accessing system') ----- - classPackages - - ^Smalltalk at: #Packages ifAbsent: [ self error: 'Sake Packages code not present' ]! Item was removed: - ----- Method: SakeXInstaller class>>sake: (in category 'instanciation') ----- - sake: aSakePackagesClass - - ^ self new sake: aSakePackagesClass! Item was removed: - ----- Method: SakeXInstaller>>changesetNamesFromUpdates:through: (in category 'updates') ----- - changesetNamesFromUpdates: startNumber through: stopNumber - "Answer the concatenation of summary strings for updates numbered in the given range" - "self new changesetNamesFromUpdates: 7059 through: 7061" - - ^ String streamContents: [:aStream | - ((ChangeSet changeSetsNamedSuchThat: - [:aName | aName first isDigit and: - [aName initialIntegerOrNil >= startNumber] and: - [aName initialIntegerOrNil <= stopNumber]]) asSortedCollection: - [:a :b | a name >loadUpdatesFromDiskToUpdateNumber:stopIfGap: (in category 'updates') ----- - loadUpdatesFromDiskToUpdateNumber: lastUpdateNumber stopIfGap: stopIfGapFlag - "To use this mechanism, be sure all updates you want to have considered - are in a folder named 'updates' which resides in the same directory as - your image. Having done that, simply evaluate: - - Installer new loadUpdatesFromDiskToUpdateNumber: 100020 stopIfGap: false - - and all numbered updates <= lastUpdateNumber not yet in the image will - be loaded in numerical order." - - "apparently does not use the updatelist too bad!! and to rewrite - sd 7 March 2008" - | previousHighest currentUpdateNumber done fileNames aMessage updateDirectory loaded | - updateDirectory := self updateDirectoryOrNil. - updateDirectory ifNil: [^ self]. - previousHighest := SystemVersion current highestUpdate. - currentUpdateNumber := previousHighest. - done := false. - loaded := 0. - [done] - whileFalse: [currentUpdateNumber := currentUpdateNumber + 1. - currentUpdateNumber > lastUpdateNumber - ifTrue: [done := true] - ifFalse: [fileNames := updateDirectory fileNamesMatching: currentUpdateNumber printString , '*'. - fileNames size > 1 - ifTrue: [^ self inform: 'ambiguity -- two files both start with ' , currentUpdateNumber printString , ' - (at this point it is probably best to remedy - the situation on disk, then try again.)']. - fileNames size == 0 - ifTrue: [Transcript cr; show: 'gap in updates from disk for update number '; print: currentUpdateNumber; show: ' found...'. - done := stopIfGapFlag] - ifFalse: [ChangeSet - newChangesFromStream: (updateDirectory readOnlyFileNamed: fileNames first) - named: fileNames first. - SystemVersion current registerUpdate: currentUpdateNumber. - loaded := loaded + 1]]]. - aMessage := loaded = 0 - ifTrue: ['No new updates found.'] - ifFalse: [loaded printString , ' update(s) loaded.']. - self inform: aMessage , ' - Highest numbered update is now ' , (currentUpdateNumber - 1) printString , '.'! Item was removed: - ----- Method: SakeXInstaller class>>setSakeToUse: (in category 'instanciation') ----- - setSakeToUse: aClass - - Sake := aClass! Item was removed: - ----- Method: SakeXInstaller class>>sake (in category 'instanciation') ----- - sake - - ^ self sake: (Sake ifNil: [ self classPackages current ])! Item was removed: - ----- Method: SakeXInstaller>>sake (in category 'websqueakmap') ----- - sake - - ^ sake ! Item was removed: - ----- Method: SakeXInstaller>>writeList:toStream: (in category 'updates') ----- - writeList: listContents toStream: strm - "Write a parsed updates.list out as text. - This is the inverse of parseUpdateListContents:" - - | fileNames releaseTag | - strm reset. - listContents do: - [:pair | - releaseTag := pair first. - fileNames := pair last. - strm nextPut: $#; nextPutAll: releaseTag; cr. - fileNames do: [:fileName | strm nextPutAll: fileName; cr]]. - strm close! Item was removed: - ----- Method: SakeXInstaller>>loadUpdatesFromDisk (in category 'updates') ----- - loadUpdatesFromDisk - - | updateDirectory updateNumbers | - updateDirectory := self updateDirectoryOrNil. - updateDirectory ifNil: [^ self]. - updateNumbers := updateDirectory fileNames - collect: [:fn | fn initialIntegerOrNil] - thenSelect: [:fn | fn notNil]. - - self loadUpdatesFromDiskToUpdateNumber: updateNumbers max - stopIfGap: false - - ! Item was removed: - ----- Method: SakeXInstaller>>fileView (in category 'file') ----- - fileView - - self view: self file from: (FileDirectory readOnlyFileNamed: self file). - - ! Item was removed: - ----- Method: SakeXInstaller>>sake: (in category 'websqueakmap') ----- - sake: aSakePackagesClass - - sake := aSakePackagesClass! Item was removed: - ----- Method: SakeXInstaller>>file (in category 'accessing') ----- - file - - ^ afile! Item was removed: - ----- Method: SakeXInstaller class>>installFile: (in category 'instanciation') ----- - installFile: fileName - - ^ (self file: fileName) install. - ! Item was removed: - ----- Method: SakeXInstaller>>fileBrowse (in category 'file') ----- - fileBrowse - - self browse: self file from: (FileDirectory readOnlyFileNamed: self file). - - ! Item was removed: - ----- Method: SakeXInstaller class>>file: (in category 'instanciation') ----- - file: fileName - - ^ self new file: fileName; yourself - !

1 0

Monticello Public: Monticello.impl-mtf.585.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Oct '08

08 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.585.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.585 Author: mtf Time: 8 October 2008, 1:20:05 am UUID: 499b540f-f2da-4571-aed4-4291d6348535 Ancestors: Monticello.impl-mtf.584 class methods were being compiled against the instance-side =============== Diff against Monticello.impl-mtf.584 =============== Item was changed: ----- Method: MCMethodDefinition>>compileMethod (in category 'compiling') ----- compileMethod + methodAndNode := self actualClass - methodAndNode := theClass compile: self source classified: self category notifying: requestor + trailer: self actualClass defaultMethodTrailer ifFail: [^nil]. - trailer: theClass defaultMethodTrailer ifFail: [^nil]. compiledSelector := methodAndNode selector. compiledMethod := methodAndNode method. !

1 0

← Newer
1
...
4
5
6
7
8
9
10
11
12
Older →

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages October 2008