Packages October 2008

packages@lists.squeakfoundation.org

3 participants
120 discussions

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

22 Oct '08

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.588.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.588 Author: mtf Time: 21 October 2008, 10:15:58 pm UUID: d60d5938-6175-4764-a97d-f7c5788dd0c0 Ancestors: Monticello.impl-mtf.587 Added Traits support to System Editor class building =============== Diff against Monticello.impl-mtf.587 =============== Item was changed: ----- Method: MCClassDefinition>>edLoad: (in category 'system editor') ----- edLoad: editor | theClass | theClass := (editor at: superclassName) subclass: name instanceVariableNames: (self stringForVariablesOfType: #isInstanceVariable) classVariableNames: (self stringForVariablesOfType: #isClassVariable) poolDictionaries: (self stringForVariablesOfType: #isPoolImport) category: category. + + self hasTraitComposition ifTrue: [theClass traitComposition: + (Compiler evaluate: self traitCompositionString for: editor doItHost logged: false)]. + - theClass typeOfClass: type. theClass class instanceVariableNames: (self stringForVariablesOfType: #isClassInstanceVariable). theClass classComment: comment stamp: commentStamp. ^ false "we dont need an edPostload"!

1 0

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

22 Oct '08

A new version of TraitEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/TraitEditor-mtf.11.mcz ==================== Summary ==================== Name: TraitEditor-mtf.11 Author: mtf Time: 16 October 2008, 12:00 am UUID: 48a39c3e-a61e-4ac4-ab6a-e64bc6ed9916 Ancestors: TraitEditor-mtf.10 fixed up decorators so that TraitCompositionEditorss are getting called =============== Diff against TraitEditor-mtf.10 =============== Item was changed: ----- Method: PureBehaviorEditor>>traitComposition: (in category '*TraitEditor') ----- traitComposition: aTraitCompositionOrCollection + self decorateWith: TraitCompositionDecorator. self propertyAt: #traitComposition put: aTraitCompositionOrCollection! Item was changed: ----- Method: TraitCompositionDecorator>>traitCompositionDo: (in category 'accessing') ----- traitCompositionDo: aBlock + "If the editor's trait composition has changed, evaluate aBlock with the new traitCompositionEditor" + ^ editor propertyAt: #traitComposition ifPresentDo: aBlock! - editor traitComposition ifNotNilDo: aBlock! Item was changed: ----- Method: TraitCompositionDecorator>>edBuild (in category 'building') ----- edBuild + ^ self traitCompositionDo: [:comp | comp edBuild]! - ^ self traitCompositionDo: [:comp | comp build]! Item was changed: + ----- Method: TraitCompositionDecorator>>edPrepareMigration: (in category 'building') ----- + edPrepareMigration: txn + ^ self traitCompositionDo: [:comp | comp edPrepareMigration: txn]! - ----- Method: TraitCompositionDecorator>>edPrepareMigration: (in category 'as yet unclassified') ----- - edPrepareMigration: aMigrationTransaction - ^ self! Item was changed: ----- Method: PureBehaviorEditor>>traitComposition (in category '*TraitEditor') ----- traitComposition "Answers an editor on my traitComposition, creating it if necessary" ^ self propertyAt: #traitComposition + ifAbsentPut: [self decorateWith: TraitCompositionDecorator. + TraitCompositionEditor + on: (self subject ifNotNil: [self subject traitComposition]) + for: self]! - ifAbsentPut: [TraitCompositionEditor - on: (self subject ifNotNil: [self subject traitComposition]) - for: self]! Item was changed: ----- Method: TraitEditor>>setSubject:system: (in category 'initialization') ----- setSubject: aClass system: aSystemEditor subject := aClass. system := aSystemEditor. subject ifNil: [name := #Annonymous. + methods := MethodDictionaryEditor for: self]! - methods := MethodDictionaryEditor for: self]. - decorators := ClassDecorator decoratorsFor: self.! Item was changed: + ----- Method: TraitCompositionDecorator>>edRequiresRecompile (in category 'building') ----- - ----- Method: TraitCompositionDecorator>>edRequiresRecompile (in category 'as yet unclassified') ----- edRequiresRecompile ^ false! Item was removed: - ----- Method: TraitCompositionDecorator>>buildFor: (in category 'as yet unclassified') ----- - buildFor: aClassEditor - ^ self!

1 0

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

22 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.138.mcz ==================== Summary ==================== Name: SystemEditor-mtf.138 Author: mtf Time: 16 October 2008, 12:00 am UUID: 7bf134e4-9963-4f57-87e7-52e1f0397d37 Ancestors: SystemEditor-mtf.137 Moved some building methods up in the class heiarchy Added some property access methods. changed decorators to be an on-demand thing =============== Diff against SystemEditor-mtf.137 =============== Item was added: + ----- Method: ClassDescriptionEditor>>edIsBehavior (in category 'testing') ----- + edIsBehavior + "Answers true if I am an editor for a Behavior" + ^ true! Item was changed: ----- Method: AbstractEditor>>edPrepareMigration: (in category 'building') ----- edPrepareMigration: txn "Adds migrators to the given MigrationTransaction, as necessary to support converting my subject to my product" + self subclassResponsibility! - ^ self! Item was changed: ----- Method: ClassEditor>>setSubject:system: (in category 'initialize-release') ----- setSubject: aClass system: aSystemEditor subject := aClass. system := aSystemEditor. subject ifNil: [superEditor := aSystemEditor at: #Object. name := #Annonymous. type := #normal. instVarNames := Array new. classVarNames := Array new. sharedPools := Array new. methods := MethodDictionaryEditor for: self. + self class edInitializeForNewClass]! - self class edInitializeForNewClass]. - decorators := ClassDecorator decoratorsFor: self.! Item was changed: ----- Method: ClassEditor>>edPrepareMigration: (in category 'building') ----- edPrepareMigration: txn self subject ifNil: [^ self]. self edRequiresBuild ifTrue: [self edPrepareInstanceMigration: txn] + ifFalse: [super edPrepareMigration: txn]! - ifFalse: [methods edPrepareMigration: txn for: self. - organization edPrepareMigration: txn. - self decoratorsDo: [:ea | ea edPrepareMigration: txn]]! Item was changed: ----- Method: MetaclassEditor>>product (in category 'building') ----- product + ^ product ifNil: [product := editor product class]! - ^ editor product class! Item was added: + ----- Method: AbstractEditor>>edRequiresBuild (in category 'building') ----- + edRequiresBuild + "Answer true if this editor needs building; false otherwise" + ^ true! Item was added: + ----- Method: PureBehaviorEditor>>decorateWith: (in category 'accessing decorators') ----- + decorateWith: aClass + decorators ifNil: [decorators := IdentityDictionary new]. + ^ decorators at: aClass ifAbsentPut: [aClass for: self]! Item was changed: ----- Method: ClassEditor>>edRequiresBuild (in category 'building') ----- edRequiresBuild self edRequiresRecompile ifTrue: [^ true]. self edSuperclassHasChanged ifTrue: [^ true]. self edNameHasChanged ifTrue: [^ true]. + self class edRequiresBuild ifTrue: [^ true]. - (self edRequiresBuildFor: self class) ifTrue: [^ true]. self decoratorsDo: [:ea | ea edRequiresBuild ifTrue: [^ true]]. ^ false! Item was changed: ----- Method: SystemEditor>>edSubclassesOrEditorsOf: (in category 'building') ----- edSubclassesOrEditorsOf: anEditor "Answer all subclasses of the given ClassEditor, as either an editor (if it has changed), or as a class (if it has not changed). Does not add any items to my additions list" | subclasses subeditors | subclasses := anEditor subject ifNil: [Set new] ifNotNilDo: [ :class | class subclasses asSet]. subeditors := additions select: [ :ea | subclasses remove: ea subject ifAbsent: []. + ea edIsBehavior and: [ea superclassOrEditor == anEditor]]. - ea superclassOrEditor == anEditor]. removals do: [ :removedKey | subclasses remove: (subject at: removedKey) ifAbsent: []]. ^ subclasses asArray, subeditors asArray! Item was added: + ----- Method: ClassDescriptionEditor>>edIsValid (in category '*SystemEditor-Tests') ----- + edIsValid + [self validate] + on: InvalidSystemChange + do: [:ex | ^ false]. + ^ true! Item was added: + ----- Method: PureBehaviorEditor>>propertyAt:ifPresentDo: (in category 'accessing properties') ----- + propertyAt: key ifPresentDo: aBlock + + | value | + value := self propertyAt: key ifAbsent: [^ nil]. + ^ aBlock value: value! Item was added: + ----- Method: ClassDescriptionEditor>>edRequiresRecompile (in category 'building') ----- + edRequiresRecompile + instVarNames ifNotNil: [^ true]. + self decoratorsDo: [:ea | ea edRequiresRecompile ifTrue: [^ true]]. + ^ self edSuperclassRequiresRecompile! Item was added: + ----- Method: PureBehaviorEditor>>edPrepareMigration: (in category 'building') ----- + edPrepareMigration: txn + self subject ifNil: [^ self]. + methods edPrepareMigration: txn for: self. + organization edPrepareMigration: txn. + self decoratorsDo: [:ea | ea edPrepareMigration: txn]! Item was changed: + ----- Method: PureBehaviorEditor>>decoratorsDo: (in category 'accessing decorators') ----- - ----- Method: PureBehaviorEditor>>decoratorsDo: (in category 'accessing') ----- decoratorsDo: aBlock decorators ifNotNil: [decorators do: aBlock]! Item was added: + ----- Method: PureBehaviorEditor>>product (in category 'building') ----- + product + ^ product ifNil: [product := self edRequiresBuild ifTrue: [self edBuild] ifFalse: [subject]]! Item was added: + ----- Method: PureBehaviorEditor>>edRequiresBuild (in category 'building') ----- + edRequiresBuild + "Answer true if this editor needs building; false otherwise" + ^ self subject isNil! Item was changed: ----- Method: ClassEditor>>edRequiresRecompile (in category 'building') ----- edRequiresRecompile - instVarNames ifNotNil: [^ true]. classVarNames ifNotNil: [^ true]. sharedPools ifNotNil: [^ true]. + ^ super edRequiresRecompile! - self decoratorsDo: [:ea | ea edRequiresRecompile ifTrue: [^ true]]. - ^ self edSuperclassRequiresRecompile! Item was added: + ----- Method: PureBehaviorEditor>>propertyAt:ifPresent: (in category 'accessing properties') ----- + propertyAt: key ifPresent: aBlock + + self propertyAt: key ifAbsent: [^ nil]. + ^ aBlock value! Item was changed: ----- Method: ClassEditor>>edBuild (in category 'building') ----- edBuild | meta | meta := self class edBuild. product := subject ifNil: [meta new] ifNotNil: [meta adoptInstance: subject from: subject class]. product superclass: self edSuperclass; setFormat: self format; setName: self name; setInstVarNames: self instVarNames; classPoolFrom: self; instVarNamed: #sharedPools put: self sharedPools; organization: self organization edBuild. "Create a temporary MethodDictionary to catch code written by SyntaxError dialogs. MethodDictionaryEditor will overwrite this. See MethodEditor>>compileFor:" product methodDictionary: MethodDictionary new. + self decoratorsDo: [:ea | ea edBuild]. - self decoratorsDo: [:ea | ea buildFor: self]. "Class methods should be compiled before instance methods, since #compilerClass may be among the class methods. Class methods should be compiled after installing class and pool variables" product class methodDictionary: (self class methods buildFor: self class). product methodDictionary: (self methods buildFor: self). ^product! Item was added: + ----- Method: ClassDescriptionEditor>>methodDictionary (in category '*SystemEditor-Tests') ----- + 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>>edIsBehavior (in category 'testing') ----- + edIsBehavior + "Answers true if I am an editor for a Behavior" + ^ false! Item was removed: - ----- Method: ClassEditor>>edIsValid (in category '*SystemEditor-Tests') ----- - edIsValid - [self validate] - on: InvalidSystemChange - do: [:ex | ^ false]. - ^ true! Item was removed: - ----- Method: ClassEditor>>edRequiresBuildFor: (in category 'building') ----- - edRequiresBuildFor: anObject - ^ anObject - ifNil: [false] - ifNotNil: [anObject edRequiresBuild]! Item was removed: - ----- Method: ClassEditor>>product (in category 'building') ----- - product - ^ product ifNil: [product := self edRequiresBuild ifTrue: [self edBuild] ifFalse: [subject]]! Item was removed: - ----- Method: ClassDescriptionEditor>>isMethodsChanged (in category 'testing') ----- - isMethodsChanged - methods ifNil: [^ false]. - ^ methods isChanged! Item was removed: - ----- Method: UndefinedObject>>edPrepareMigration: (in category '*systemeditor-building') ----- - edPrepareMigration: aMigrationTransaction! Item was removed: - ----- 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 removed: - ----- Method: UndefinedObject>>edPrepareMigration:for: (in category '*systemeditor-building') ----- - edPrepareMigration: aMigrationTransaction for: anEditor! Item was removed: - ----- Method: MetaclassEditor>>edRequiresRecompile (in category 'building') ----- - edRequiresRecompile - ^ instVarNames ~~ nil!

1 0

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

16 Oct '08

A new version of TraitEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/TraitEditor-mtf.10.mcz ==================== Summary ==================== Name: TraitEditor-mtf.10 Author: mtf Time: 15 October 2008, 6:36:28 pm UUID: d35f9358-9c86-49b8-a3b7-31549dc1bde5 Ancestors: TraitEditor-mtf.9 filled in more of TraitEditor. Trait committing now works through the validate and expand stages =============== Diff against TraitEditor-mtf.9 =============== Item was added: + ----- Method: PureBehaviorEditor>>edUsesTrait: (in category '*TraitEditor') ----- + edUsesTrait: aTraitEditor + self hasTraitComposition ifFalse: [^ false]. + self traitCompositionOrEditor traits do: [:ea | + ea == aTraitEditor ifTrue: [^ true]. + ea == aTraitEditor subject ifTrue: [^ true]]. + ^ false! Item was added: + ----- Method: SystemEditor>>edUsersOrEditorsOf:do: (in category '*TraitEditor') ----- + edUsersOrEditorsOf: aTraitEditor do: aBlock + "Evaluate aBlock for each user of aTraitEditor, as either an editor (if it has changed), or as a class/trait (if it has not changed). Does not add any items to my additions list" + + | users | + users := aTraitEditor subject + ifNil: [IdentitySet new] + ifNotNilDo: [:trait | trait users]. + additions do: [:classEditor | {classEditor. classEditor class} do: [:ea | + users remove: ea subject ifAbsent: []. + (ea traitCompositionIncludes: aTraitEditor) ifTrue: [aBlock value: ea]]]. + removals do: [ :removedKey | users remove: (subject at: removedKey) ifAbsent: []]. + users do: aBlock! Item was added: + ----- Method: TraitDescriptionEditor>>users (in category 'reflecting') ----- + users + ^ self environment edUsersOf: self! Item was added: + ----- Method: PureBehaviorEditor>>traitCompositionOrEditor (in category '*TraitEditor') ----- + traitCompositionOrEditor + "Answers my traitComposition as either a TraitComposition (if it has not changed) or as an editor (if it has changed, or subject is nil)" + + ^ self propertyAt: #traitComposition ifAbsent: [self subject + ifNil: [self traitComposition] + ifNotNil: [self subject traitComposition]]! Item was added: + ----- Method: TraitDescriptionEditor>>edExpandEditors (in category 'building') ----- + edExpandEditors + ^ self users collect: [:ea | ea theNonMetaClass]! Item was added: + ----- Method: SystemEditor>>edUsersOf:do: (in category '*TraitEditor') ----- + edUsersOf: aTraitEditor do: aBlock + "Answers all users of aTraitEditor, as editors" + + self edUsersOrEditorsOf: aTraitEditor do: [:ea | aBlock value: (self edEditorFor: ea)]! Item was changed: ----- Method: PureBehaviorEditor>>hasTraitComposition (in category '*TraitEditor') ----- hasTraitComposition + (self hasProperty: #traitComposition) ifTrue: [^ true]. + self subject ifNil: [^ false]. + ^ self subject hasTraitComposition! - ^ self traitComposition notNil! Item was changed: ----- Method: PureBehaviorEditor>>traitComposition (in category '*TraitEditor') ----- traitComposition + "Answers an editor on my traitComposition, creating it if necessary" + + ^ self propertyAt: #traitComposition + ifAbsentPut: [TraitCompositionEditor + on: (self subject ifNotNil: [self subject traitComposition]) + for: self]! - ^ self propertyAt: #traitComposition ifAbsent: [nil]! Item was added: + ----- Method: SystemEditor>>edUsersOrEditorsOf: (in category '*TraitEditor') ----- + edUsersOrEditorsOf: aTraitEditor + "Answer all users of aTraitEditor, as either an editor (if it has changed), or as a class/trait (if it has not changed). Does not add any items to my additions list" + + | collection | + collection := OrderedCollection new. + self edUsersOrEditorsOf: aTraitEditor do: [:ea | collection add: ea]. + ^ collection! Item was added: + ----- Method: TraitDescriptionEditor>>validate (in category 'validating') ----- + validate + "Nothing to validate. Do nothing"! Item was added: + ----- Method: PureBehaviorEditor>>traitCompositionIncludes: (in category '*TraitEditor') ----- + traitCompositionIncludes: aTraitEditor + ^ self == aTraitEditor or: [self edUsesTrait: aTraitEditor]! Item was added: + ----- Method: SystemEditor>>edUsersOf: (in category '*TraitEditor') ----- + edUsersOf: aTraitEditor + "Answers all subclasses of aTraitEditor, as editors" + + ^ (self edUsersOrEditorsOf: aTraitEditor) collect: [:ea | self edEditorFor: ea]!

1 0

Tasks: Tasks-Common-kph.17.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 16 Oct '08

16 Oct '08

A new version of Tasks-Common was added to project Tasks: http://www.squeaksource.com/Tasks/Tasks-Common-kph.17.mcz ==================== Summary ==================== Name: Tasks-Common-kph.17 Author: kph Time: 16 October 2008, 12:07:15 am UUID: 97d76256-753d-48aa-a2dd-97a4274962e7 Ancestors: Tasks-Common-kph.16 fixed call to Installer fixesApplied is now Installer mantis fixesApplied =============== Diff against Tasks-Common-kph.16 =============== Item was changed: ----- Method: TasksRelease class>>taskDocumentOtherFixes (in category 'as yet unclassified') ----- taskDocumentOtherFixes "if some fixes have been loaded by LPF or by other fixes they may have escaped documentation, this uses the Installers list" ^ self define: [ :task | + task dependsOn: (((Installer mantis fixesApplied) difference: (self selectors collect: [ :sel | (sel copyFrom: 2 to: 5) asNumber])) collect: #asString) - task dependsOn: (((Installer fixesApplied) difference: (self selectors collect: [ :sel | (sel copyFrom: 2 to: 5) asNumber])) collect: #asString) ].!

1 0

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

16 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.243.mcz ==================== Summary ==================== Name: Installer-Core-kph.243 Author: kph Time: 16 October 2008, 12:06:33 am UUID: a21deba4-df6c-4294-80c1-02d8cfa10db8 Ancestors: Installer-Core-mtf.242 moved fixesApplied to instance side so that calls to Installer fixesApplied are now Installer mantis fixesApplied =============== Diff against Installer-Core-mtf.242 =============== Item was changed: ----- Method: InstallerMantis>>ensureFix: (in category 'public interface') ----- ensureFix: aBugNo | fixesAppliedNumbers | self setBug: aBugNo. + fixesAppliedNumbers := self fixesApplied collect: [ :fixDesc | fixDesc asInteger ]. - fixesAppliedNumbers := self class fixesApplied collect: [ :fixDesc | fixDesc asInteger ]. (fixesAppliedNumbers includes: bug) ifFalse: [ self fixBug: aBugNo ]! Item was changed: ----- 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 fixesApplied. - fixed := self class fixesApplied. (fixed isEmpty or: [ fixed last ~= aBugNo]) ifTrue: [ fixed add: aBugNo ]. ^ date! Item was added: + ----- Method: InstallerMantis>>fixesApplied (in category 'public interface') ----- + fixesApplied + + ^ Fixes ifNil: [ Fixes := OrderedCollection new ].!

1 0

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

15 Oct '08

A new version of SystemEditor was added to project SystemEditor: http://www.squeaksource.com/SystemEditor/SystemEditor-mtf.137.mcz ==================== Summary ==================== Name: SystemEditor-mtf.137 Author: mtf Time: 15 October 2008, 2:01:32 pm UUID: 433ffdfa-b1fe-415c-a080-02a06f07d1e9 Ancestors: SystemEditor-mtf.136 fixed a bug in MetaclassEditor>>subject. Added a few methods from Behavior to MetaclassEditor to enable debugging =============== Diff against SystemEditor-mtf.136 =============== Item was added: + ----- Method: MetaclassEditor>>basicRemoveSelector: (in category 'debugging') ----- + basicRemoveSelector: selector + "For running do-its against my ClassEditor" + + ^ superclass basicRemoveSelector: selector! Item was added: + ----- Method: MetaclassEditor>>selectorAtMethod:setClass: (in category 'debugging') ----- + selectorAtMethod: method setClass: classResultBlock + "For getting the class of a method prior to 3.9" + + ^ superclass selectorAtMethod: method setClass: classResultBlock! Item was added: + ----- Method: MetaclassEditor>>sharedPools (in category 'debugging') ----- + sharedPools + + ^ superclass sharedPools! Item was changed: ----- Method: MetaclassEditor>>subject (in category 'accessing') ----- subject + subject ifNotNil: [^ subject]. + editor subject ifNil: [^ nil]. + ^ subject := editor subject class! - ^ subject ifNil: [subject := editor subject class]! Item was added: + ----- Method: MetaclassEditor>>addSelectorSilently:withMethod: (in category 'debugging') ----- + addSelectorSilently: selector withMethod: compiledMethod + "For running do-its against my ClassEditor" + + ^ superclass addSelectorSilently: selector withMethod: compiledMethod! Item was added: + ----- Method: MetaclassEditor>>canUnderstand: (in category 'debugging') ----- + canUnderstand: selector + + ^ superclass canUnderstand: selector!

1 0

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

15 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.242.mcz ==================== Summary ==================== Name: Installer-Core-mtf.242 Author: mtf Time: 15 October 2008, 10:15:49 am UUID: 2c7fec64-69fa-4426-bf08-1c1266c57178 Ancestors: Installer-Core-mtf.241 moved packageAndVersionFrom: up to Installer. It is shared by SM and Universes =============== Diff against Installer-Core-mtf.241 =============== Item was added: + ----- Method: Installer>>packageAndVersionFrom: (in category 'squeakmap') ----- + packageAndVersionFrom: pkg + + | p | + p := ReadStream on: pkg . + ^Array with: (p upTo: $() with: (p upTo: $)).! Item was removed: - ----- Method: InstallerSqueakMap>>packageAndVersionFrom: (in category 'squeakmap') ----- - packageAndVersionFrom: pkg - - | p | - p := ReadStream on: pkg . - ^Array with: (p upTo: $() with: (p upTo: $)).!

1 0

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

15 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.241.mcz ==================== Summary ==================== Name: Installer-Core-mtf.241 Author: mtf Time: 15 October 2008, 9:08:51 am UUID: 1fa68e17-05d2-488e-b1cf-a20505b4ebba Ancestors: Installer-Core-mtf.240 Log the search for a web package so that a user knows what they got a speed warning for =============== Diff against Installer-Core-mtf.240 =============== Item was changed: ----- Method: InstallerWeb>>thing (in category 'web install') ----- thing + + self logCR: 'searching for web package ''', self package, ''''. - url := self urlToDownload. url ifNil: [ self logCR: 'page ', self package, ' not found on path' ] ifNotNil: [ self logCR: 'found ', url, ' ...'. ]. ^ pageDataStream!

1 0

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

15 Oct '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-mtf.240.mcz ==================== Summary ==================== Name: Installer-Core-mtf.240 Author: mtf Time: 15 October 2008, 8:44:03 am UUID: b2ff1420-70ae-401b-a276-9a01ac70751f Ancestors: Installer-Core-mtf.239 reformatted the retry loop code Made the delay only happen for speed warnings, not always =============== Diff against Installer-Core-mtf.239 =============== Item was changed: ----- 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. delay := delay + 5. + self logCR: 'PBWiki speed warning. Retrying in ', delay printString, ' seconds'. + (Delay forSeconds: delay) wait] + ifFalse: [ self hasPage ifTrue: [ pageDataStream reset. ^ potentialUrl ] ]. + retry ]]. - 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 ] ]. - self logCR: 'PBWiki warning. Retrying in ', (delay + 5) printString, ' seconds'. - (Delay forSeconds: (delay := delay + 5)) wait. - retry ]]. ^nil ! 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 := delay + 5. + self logCR: 'PBWiki speed warning. Retrying in ', delay printString, ' seconds'. + (Delay forSeconds: delay) wait ]. - self wasPbwikiSpeedWarning ifTrue: [ - self logCR: 'PBWiki warning. Retrying in ', (delay + 5) printString, ' seconds'. - retry := true. (Delay forSeconds: (delay := delay + 5)) wait ]. retry ]. pageDataStream ifNil: [ self error: 'unable to contact host' ]. ^ pageDataStream !

1 0

← Newer
1
2
3
4
5
6
7
8
...
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