Packages March 2009

packages@lists.squeakfoundation.org

1 participants
117 discussions

DeltaStreams: DeltaStreams-Logging-mtf.3.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 09 Mar '09

09 Mar '09

A new version of DeltaStreams-Logging was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Logging-mtf.3.mcz ==================== Summary ==================== Name: DeltaStreams-Logging-mtf.3 Author: mtf Time: 9 March 2009, 5:37:37 pm UUID: 57ea416e-65d7-43ae-8b59-8f32fb4495cb Ancestors: DeltaStreams-Logging-mtf.2 moved all the logging methods to this package, and added fromEvent: as an instance creation method to every applicable change class =============== Diff against DeltaStreams-Logging-mtf.2 =============== Item was added: + ----- Method: DSDelta>>reorganizeClass: (in category '*deltastreams-logging') ----- + reorganizeClass: aClass! Item was added: + ----- Method: DSDelta>>logSharedPoolsChangedEvent: (in category '*deltastreams-logging') ----- + logSharedPoolsChangedEvent: anEvent + "Shared pools changed." + + self addChange: (DSSharedPoolVarsChange fromEvent: anEvent)! Item was added: + ----- Method: DSDelta>>logClassTypeChangedEvent: (in category '*deltastreams-logging') ----- + logClassTypeChangedEvent: anEvent + "Type of class changed." + + self addChange: (DSClassTypeChange fromEvent: anEvent)! Item was added: + ----- Method: DSDelta>>modifyClass:event: (in category '*deltastreams-logging') ----- + modifyClass: class event: anEvent + "A class definition was modified. A lot of changes can be made this way: + - class type + - superclass + - instvars + - classvars + - shared pools" + + anEvent isTypeModified ifTrue: [ self logClassTypeChangedEvent: anEvent]. + anEvent isSuperclassModified ifTrue: [self logSuperclassChangedEvent: anEvent]. + anEvent areInstVarsModified ifTrue: [self logInstVarsChangedEvent: anEvent]. + anEvent areClassVarsModified ifTrue: [self logClassVarsChangedEvent: anEvent]. + anEvent areSharedPoolsModified ifTrue: [self logSharedPoolsChangedEvent: anEvent].! Item was added: + ----- Method: DSMethodChange class>>fromEvent: (in category '*deltastreams-logging') ----- + fromEvent: anEvent + ^ (super fromEvent: anEvent) + method: anEvent itemMethod; + protocol: anEvent itemProtocol; + yourself! Item was added: + ----- Method: DSSharedPoolVarsChange class>>fromEvent: (in category '*deltastreams-logging') ----- + fromEvent: anEvent + ^ (super fromEvent: anEvent) + oldVars: anEvent oldItem poolDictionaryNames; + yourself! Item was added: + ----- Method: DSBasicClassChange class>>fromEvent: (in category '*deltastreams-logging') ----- + fromEvent: anEvent + ^self fromClass: anEvent itemClass! Item was added: + ----- Method: DSDelta>>logClassCategoryChangedEvent: (in category '*deltastreams-logging') ----- + logClassCategoryChangedEvent: anEvent + "Class Category changed." + + self addChange: (DSClassCategoryChange fromEvent: anEvent)! Item was added: + ----- Method: DSDelta>>logClassVarsChangedEvent: (in category '*deltastreams-logging') ----- + logClassVarsChangedEvent: anEvent + "Class vars changed." + + self addChange: (DSClassVarsChange fromEvent: anEvent)! Item was added: + ----- Method: DSDelta>>logClassRemovedEvent: (in category '*deltastreams-logging') ----- + logClassRemovedEvent: anEvent + "A class was removed from the system" + + self addChange: (DSClassRemovedChange fromEvent: anEvent)! Item was added: + ----- Method: DSDelta>>logMethodRemovedEvent: (in category '*deltastreams-logging') ----- + logMethodRemovedEvent: anEvent + "A new method was created." + + self addChange: (DSMethodRemovedChange fromEvent: anEvent)! Item was added: + ----- Method: DSDelta>>logClassCommentedEvent: (in category '*deltastreams-logging') ----- + logClassCommentedEvent: anEvent + "A class comment has been changed." + + self addChange: (DSClassCommentChange fromEvent: anEvent)! Item was added: + ----- Method: DSDelta>>logClassAddedEvent: (in category '*deltastreams-logging') ----- + logClassAddedEvent: anEvent + "A new class was created." + + self addChange: (DSClassCreatedChange fromEvent: anEvent)! Item was added: + ----- Method: DSClassCategoryChange class>>fromEvent: (in category '*deltastreams-logging') ----- + fromEvent: anEvent + ^ (super fromEvent: anEvent) + oldCategory: anEvent oldCategory; + yourself! Item was added: + ----- Method: DSClassCommentChange class>>fromEvent: (in category '*deltastreams-logging') ----- + fromEvent: anEvent + ^ (super fromEvent: anEvent) + oldComment: anEvent oldComment; + newComment: anEvent newComment; + oldStamp: anEvent oldStamp; + newStamp: anEvent newStamp; + yourself! Item was added: + ----- Method: DSClassVarsChange class>>fromEvent: (in category '*deltastreams-logging') ----- + fromEvent: anEvent + ^ (super fromEvent: anEvent) + oldVars: anEvent oldClassVarNames; + yourself! Item was added: + ----- Method: DSDelta>>logMethodModifyEvent: (in category '*deltastreams-logging') ----- + logMethodModifyEvent: anEvent + anEvent isProtocolModified ifTrue: + [self logMethodProtocolEvent: anEvent from: anEvent oldProtocol to: anEvent newProtocol]. + self logMethodSourceEvent: anEvent from: anEvent oldItem to: anEvent item! Item was added: + ----- Method: DSDelta>>event: (in category '*deltastreams-logging') ----- + event: anEvent + "This is where events come in from the SystemChangeNotifier. + This code is similar to the old code in ChangeSet." + + | class | + anEvent itemKind = SystemChangeNotifier classKind ifTrue: [ + class := anEvent item. + class isBehavior ifFalse: [^ self]. "Ignore traits for now" + class wantsChangeSetLogging ifFalse: [^self]. + anEvent isAdded ifTrue: [self logClassAddedEvent: anEvent]. + anEvent isRemoved ifTrue: [self logClassRemovedEvent: anEvent]. + anEvent isRenamed ifTrue: [self logClassRenamedEvent: anEvent]. + anEvent isCommented ifTrue: [self logClassCommentedEvent: anEvent]. + anEvent isModified ifTrue: [class isMeta + ifTrue: [self modifyMetaclass: class event: anEvent] + ifFalse: [self modifyClass: class event: anEvent]]. + anEvent isReorganized ifTrue: [self reorganizeClass: anEvent item]. + anEvent isRecategorized ifTrue: [self logClassCategoryChangedEvent: anEvent]. + ]. + + anEvent itemKind = SystemChangeNotifier methodKind ifTrue: [ + class := anEvent itemClass. + class isBehavior ifFalse: [^ self]. "Ignore traits for now" + class wantsChangeSetLogging ifFalse: [^self]. + anEvent isAdded ifTrue: [self logMethodAddedEvent: anEvent]. + anEvent isRemoved ifTrue: [self logMethodRemovedEvent: anEvent]. + anEvent isRecategorized ifTrue: [self logMethodProtocolEvent: anEvent from: anEvent oldCategory to: anEvent itemProtocol]. + anEvent isModified ifTrue: [self logMethodModifyEvent: anEvent]. + ].! Item was added: + ----- Method: DSClassSuperclassChange class>>fromEvent: (in category '*deltastreams-logging') ----- + fromEvent: anEvent + ^ (super fromEvent: anEvent) + oldSuperclass: anEvent oldSuperclass; + yourself! Item was added: + ----- Method: DSDelta>>modifyMetaclass:event: (in category '*deltastreams-logging') ----- + modifyMetaclass: class event: anEvent + "A metaclass definition was modified. This basicly just means the class instance variables were changed" + + anEvent areInstVarsModified ifTrue: [self logClassInstVarsChangedEvent: anEvent]! Item was added: + ----- Method: DSClassNameChange class>>fromEvent: (in category '*deltastreams-logging') ----- + fromEvent: anEvent + ^ (super fromEvent: anEvent) + oldName: anEvent oldName; + yourself! Item was added: + ----- Method: DSDelta>>logMethodProtocolEvent:from:to: (in category '*deltastreams-logging') ----- + logMethodProtocolEvent: anEvent from: oldProtocol to: newProtocol + "A method is being categorized under a new protocol." + + | selector | + selector := anEvent itemSelector. + selector ifNil: [selector := anEvent itemMethod sourceSelector]. + selector ifNil: [selector := anEvent itemMethod selector]. + self addChange: (DSMethodProtocolChange + class: anEvent itemClass + selector: selector + from: oldProtocol + to: newProtocol)! Item was added: + ----- Method: DSInstVarsChange class>>fromEvent: (in category '*deltastreams-logging') ----- + fromEvent: anEvent + ^ (super fromEvent: anEvent) + oldVars: anEvent oldInstVarNames; + yourself! Item was added: + ----- Method: DSDelta>>logInstVarsChangedEvent: (in category '*deltastreams-logging') ----- + logInstVarsChangedEvent: anEvent + "Instvars changed." + + self addChange: (DSInstVarsChange fromEvent: anEvent)! Item was added: + ----- Method: DSDelta>>logMethodSourceEvent:from:to: (in category '*deltastreams-logging') ----- + logMethodSourceEvent: anEvent from: oldMethod to: newMethod + "A method has new source." + + self addChange: (DSMethodSourceChange + class: anEvent itemClass + selector: anEvent itemSelector + from: oldMethod + to: newMethod)! Item was added: + ----- Method: DSClassInstVarsChange class>>fromEvent: (in category '*deltastreams-logging') ----- + fromEvent: anEvent + ^ (super fromEvent: anEvent) + oldVars: anEvent oldInstVarNames; + yourself! Item was added: + ----- Method: DSDelta>>logSuperclassChangedEvent: (in category '*deltastreams-logging') ----- + logSuperclassChangedEvent: anEvent + "Superclass changed." + + self addChange: (DSClassSuperclassChange fromEvent: anEvent)! Item was added: + ----- Method: DSClassTypeChange class>>fromEvent: (in category '*deltastreams-logging') ----- + fromEvent: anEvent + ^ (super fromEvent: anEvent) + oldType: anEvent oldTypeOfClass; + yourself! Item was added: + ----- Method: DSDelta>>logClassInstVarsChangedEvent: (in category '*deltastreams-logging') ----- + logClassInstVarsChangedEvent: anEvent + "Instvars changed." + + self addChange: (DSClassInstVarsChange fromEvent: anEvent)! Item was added: + ----- Method: DSDelta>>logClassRenamedEvent: (in category '*deltastreams-logging') ----- + logClassRenamedEvent: anEvent + "A class is being renamed." + + self addChange: (DSClassNameChange fromEvent: anEvent)! Item was added: + ----- Method: DSBasicMethodChange class>>fromEvent: (in category '*deltastreams-logging') ----- + fromEvent: anEvent + ^ self class: anEvent itemClass selector: anEvent itemSelector! Item was added: + ----- Method: DSDelta>>logMethodAddedEvent: (in category '*deltastreams-logging') ----- + logMethodAddedEvent: anEvent + "A new method was created." + + self addChange: (DSMethodAddedChange fromEvent: anEvent)!

1 0

DeltaStreams: DeltaStreams-Tests-gk.4.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 09 Mar '09

09 Mar '09

A new version of DeltaStreams-Tests was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Tests-gk.4.mcz ==================== Summary ==================== Name: DeltaStreams-Tests-gk.4 Author: gk Time: 9 March 2009, 9:32:45 pm UUID: aaf3cc55-d795-4c67-bbc0-529f86479f55 Ancestors: DeltaStreams-Tests-mtf.3 Bug fixes. =============== Diff against DeltaStreams-Tests-mtf.3 =============== Item was changed: ----- Method: DSDelta>>classSuperclassChanges (in category '*deltastreams-tests') ----- classSuperclassChanges + ^self changes select: [:change | change isClassSuperclass]! - ^changes select: [:change | change isClassSuperclass]! Item was changed: ----- Method: DSDelta>>classCommentChanges (in category '*deltastreams-tests') ----- classCommentChanges + ^self changes select: [:change | change isClassComment]! - ^changes select: [:change | change isClassComment]! Item was changed: ----- Method: DSDelta>>classRemovedChanges (in category '*deltastreams-tests') ----- classRemovedChanges + ^self changes select: [:change | change isClassRemoved]! - ^changes select: [:change | change isClassRemoved]! Item was changed: ----- Method: DSDeltaLoggingTest>>testClassComment (in category 'class tests') ----- testClassComment | old new | old := class organization classComment. new := old, 'NEW'. class classComment: new. self assert: (delta classCommentChanges size = 1). self assert: (delta classCommentChanges first oldComment = old). self assert: (delta classCommentChanges first newComment = new)! Item was changed: ----- Method: DSDelta>>classNameChanges (in category '*deltastreams-tests') ----- classNameChanges + ^self changes select: [:change | change isClassName]! - ^changes select: [:change | change isClassName]! Item was changed: ----- Method: DSDelta>>classInstVarsChanges (in category '*deltastreams-tests') ----- classInstVarsChanges + ^self changes select: [:change | change isClassInstVars]! - ^changes select: [:change | change isClassInstVars]!

1 0

DeltaStreams: DeltaStreams-Model-gk.5.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 09 Mar '09

09 Mar '09

A new version of DeltaStreams-Model was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Model-gk.5.mcz ==================== Summary ==================== Name: DeltaStreams-Model-gk.5 Author: gk Time: 9 March 2009, 9:22:20 pm UUID: 848edde4-01e9-4a02-94ea-e08d2f76c729 Ancestors: DeltaStreams-Model-mtf.4 - Lots of "self changes" to accommodate new ivar compositeChange in DSDelta. - Moved code from DSDelta to DSChangeSequence, closer to the changes collection they operate on. =============== Diff against DeltaStreams-Model-mtf.4 =============== Item was changed: ----- Method: DSDelta>>isEmpty (in category 'testing') ----- isEmpty + ^self changes isEmpty! - ^changes isEmpty! Item was added: + ----- Method: DSChangeSequence>>removeShadows (in category 'applying') ----- + removeShadows + "Remove all changes that are shadowed (redundant). + We go in reverse and remove all changes before + each change that it shadows. The logic is all based + on #canShadow and #isShadowing:. To make it + at least somewhat efficient we nil out the changes + and then remove them in one big swoop at the end." + + | candidate change | + changes size to: 2 by: -1 do: [:index | + change := changes at: index. + (change notNil and: [change canShadow]) ifTrue: [ + index - 1 to: 1 by: -1 do: [:i | + candidate := changes at: i. + (candidate notNil and: [change isShadowing: candidate]) + ifTrue: [changes at: i put: nil]]]]. + changes := changes select: [:each | each notNil]! Item was added: + ----- Method: DSChangeSequence>>moveClassNameChanges (in category 'applying') ----- + moveClassNameChanges + "Move all class name changes to the beginning as if they were made first." + + | nameChanges map | + nameChanges := OrderedCollection new. + map := Dictionary new. + changes reverseDo: [:change | + change isClassName + ifTrue: [ + "Is there already a mapping in place?" + (map includesKey: change newName) + ifTrue: [ + "Then we remap it using the even older name as key from now on" + map at: change oldName put: (map at: change newName). + map removeKey: change newName] + ifFalse: [ + "Then we just add a mapping." + map at: change oldName put: change newName]. + nameChanges add: change ] + ifFalse: [ + change remapClassNames: map]]. + changes removeAll: nameChanges. + changes := nameChanges, changes! Item was changed: ----- Method: DSDelta>>changesMaybeRevertable (in category 'testing') ----- changesMaybeRevertable "Are all changes per definition revertable or marked by the developer as being revertable?" + ^self changes allSatisfy: [:change | change isMaybeRevertable]! - ^changes allSatisfy: [:change | change isMaybeRevertable]! Item was added: + ----- Method: DSChangeSequence>>clearChanges (in category 'applying') ----- + clearChanges + "Remove all changes and return them." + + | oldChanges | + oldChanges := changes. + changes := nil. + ^oldChanges! Item was changed: ----- Method: DSDelta>>uuid: (in category 'initialize-release') ----- uuid: aUUID super initialize. uuid := aUUID. changeCounter := 0. - changes := OrderedCollection new. notRevertable := false ! Item was changed: ----- Method: DSDelta>>classGroupsDo: (in category 'applying') ----- classGroupsDo: aBlock "Execute a block for all groups of changes per class." | groups coll | groups := Dictionary new. + self changes do: [:each | - changes do: [:each | coll := groups at: each className ifAbsentPut: [SortedCollection new]. coll add: each]. groups values do: [:group | aBlock value: group]! Item was changed: ----- Method: DSDelta>>fixChangeNumbers (in category 'utilities') ----- fixChangeNumbers "Fix the change numbers to conform to the invariant that the number + of the change is the same as it's index in the change collection." - of the change is the same as it's index in the change array." + | chgs | + chgs := self changes. + chgs withIndexDo: [:change :index | change number: index]. + changeCounter := chgs size! - changes withIndexDo: [:change :index | change number: index]. - changeCounter := changes size! Item was changed: ----- Method: DSDelta>>normalize (in category 'applying') ----- normalize "Modify changes so that they are compacted into the minimal form still producing the equivalent end result. In other words - remove redundancy." + compositeChange ifNotNil: [ + compositeChange moveClassNameChanges; removeShadows; mergeChanges]! - self moveClassNameChanges; removeShadows; mergeChanges! Item was removed: - ----- Method: DSDelta>>moveClassNameChanges (in category 'applying') ----- - moveClassNameChanges - "Move all class name changes to the beginning as if they were made first." - - | nameChanges map | - nameChanges := OrderedCollection new. - map := Dictionary new. - changes reverseDo: [:change | - change isClassName - ifTrue: [ - "Is there already a mapping in place?" - (map includesKey: change newName) - ifTrue: [ - "Then we remap it using the even older name as key from now on" - map at: change oldName put: (map at: change newName). - map removeKey: change newName] - ifFalse: [ - "Then we just add a mapping." - map at: change oldName put: change newName]. - nameChanges add: change ] - ifFalse: [ - change remapClassNames: map]]. - changes removeAll: nameChanges. - changes := nameChanges, changes! Item was removed: - ----- Method: DSDelta>>removeShadows (in category 'applying') ----- - removeShadows - "Remove all changes that are shadowed (redundant). - We go in reverse and remove all changes before - each change that it shadows. The logic is all based - on #canShadow and #isShadowing:. To make it - at least somewhat efficient we nil out the changes - and then remove them in one big swoop at the end." - - | candidate change | - changes size to: 2 by: -1 do: [:index | - change := changes at: index. - (change notNil and: [change canShadow]) ifTrue: [ - index - 1 to: 1 by: -1 do: [:i | - candidate := changes at: i. - (candidate notNil and: [change isShadowing: candidate]) - ifTrue: [changes at: i put: nil]]]]. - changes := changes select: [:each | each notNil]! Item was removed: - ----- Method: DSDelta>>clearChanges (in category 'applying') ----- - clearChanges - "Remove all changes and return them." - - | oldChanges | - oldChanges := changes. - changes := OrderedCollection new. - ^oldChanges!

1 0

DeltaStreams: DeltaStreams-Tests-mtf.3.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 09 Mar '09

09 Mar '09

A new version of DeltaStreams-Tests was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Tests-mtf.3.mcz ==================== Summary ==================== Name: DeltaStreams-Tests-mtf.3 Author: mtf Time: 9 March 2009, 2:04:24 pm UUID: b5ed6d43-493d-4ecb-8441-456074a69d1b Ancestors: DeltaStreams-Tests-mtf.2 moved some old query methods to the tests package, where their only user is =============== Diff against DeltaStreams-Tests-mtf.2 =============== Item was added: + ----- Method: DSDelta>>classSuperclassChanges (in category '*deltastreams-tests') ----- + classSuperclassChanges + ^changes select: [:change | change isClassSuperclass]! Item was added: + ----- Method: DSDelta>>classCommentChanges (in category '*deltastreams-tests') ----- + classCommentChanges + ^changes select: [:change | change isClassComment]! Item was added: + ----- Method: DSDelta>>classGroupNamed: (in category '*deltastreams-tests') ----- + classGroupNamed: aClassName + "Answers all the changes to the class with this name" + + ^ self classGroupFor: (DSBasicClassChange className: aClassName)! Item was added: + ----- Method: DSDelta>>classRemovedChanges (in category '*deltastreams-tests') ----- + classRemovedChanges + ^changes select: [:change | change isClassRemoved]! Item was added: + ----- Method: DSDelta>>classNameChanges (in category '*deltastreams-tests') ----- + classNameChanges + ^changes select: [:change | change isClassName]! Item was added: + ----- Method: DSDelta>>classInstVarsChanges (in category '*deltastreams-tests') ----- + classInstVarsChanges + ^changes select: [:change | change isClassInstVars]! Item was added: + ----- Method: DSDelta>>classGroupFor: (in category '*deltastreams-tests') ----- + classGroupFor: protoChange + "Answers all the changes to the same class as protoChange. Returns the list in reverse order from the delta" + + protoChange isClassChange ifFalse: [^ Array new]. + ^ (self withClassName: protoChange className reverseSelect: [:change :className | + change inClassGroupFor: protoChange withClassName: className])!

1 0

DeltaStreams: DeltaStreams-Model-mtf.4.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 09 Mar '09

09 Mar '09

A new version of DeltaStreams-Model was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Model-mtf.4.mcz ==================== Summary ==================== Name: DeltaStreams-Model-mtf.4 Author: mtf Time: 9 March 2009, 2:03:44 pm UUID: d97707e7-9ada-4a66-9aa9-48189421109d Ancestors: DeltaStreams-Model-mtf.3 moved some old query methods to the tests package, where their only user is =============== Diff against DeltaStreams-Model-mtf.3 =============== Item was removed: - ----- Method: DSDelta>>methodGroupFor: (in category 'queries') ----- - methodGroupFor: protoChange - "Answers all the changes to the same method in the same class, or to the same class if the change is not a method change" - - protoChange isClassChange ifFalse: [^ Array new]. - ^ (self withClassName: protoChange className reverseSelect: [:change :className | - change inMethodGroupFor: protoChange withClassName: className]) reverse! Item was removed: - ----- Method: DSDelta>>classCommentChanges (in category 'queries') ----- - classCommentChanges - ^changes select: [:change | change isClassComment]! Item was removed: - ----- Method: DSDelta>>classGroupNamed: (in category 'queries') ----- - classGroupNamed: aClassName - "Answers all the changes to the class with this name" - - ^ self classGroupFor: (DSBasicClassChange className: aClassName)! Item was removed: - ----- Method: DSDelta>>classRemovedChanges (in category 'queries') ----- - classRemovedChanges - ^changes select: [:change | change isClassRemoved]! Item was removed: - ----- Method: DSDelta>>classInstVarsChanges (in category 'queries') ----- - classInstVarsChanges - ^changes select: [:change | change isClassInstVars]! Item was removed: - ----- Method: DSDelta>>classGroupFor: (in category 'queries') ----- - classGroupFor: protoChange - "Answers all the changes to the same class as protoChange. Returns the list in reverse order from the delta" - - protoChange isClassChange ifFalse: [^ Array new]. - ^ (self withClassName: protoChange className reverseSelect: [:change :className | - change inClassGroupFor: protoChange withClassName: className])! Item was removed: - ----- Method: DSDelta>>classSuperclassChanges (in category 'queries') ----- - classSuperclassChanges - ^changes select: [:change | change isClassSuperclass]! Item was removed: - ----- Method: DSDelta>>hasDoIts (in category 'testing') ----- - hasDoIts - - ^self doIts notEmpty! Item was removed: - ----- Method: DSDelta>>doIts (in category 'queries') ----- - doIts - - ^changes select: [:change | change isDoIt]! Item was removed: - ----- Method: DSDelta>>methodGroups (in category 'queries') ----- - methodGroups - ^ DSChangeCategorizer forClassesAndMethods withAll: self! Item was removed: - ----- Method: DSDelta>>classNameChanges (in category 'queries') ----- - classNameChanges - ^changes select: [:change | change isClassName]!

1 0

DeltaStreams: DeltaStreams-Model-mtf.3.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 09 Mar '09

09 Mar '09

A new version of DeltaStreams-Model was added to project DeltaStreams: http://www.squeaksource.com/DeltaStreams/DeltaStreams-Model-mtf.3.mcz ==================== Summary ==================== Name: DeltaStreams-Model-mtf.3 Author: mtf Time: 9 March 2009, 1:59:36 pm UUID: 8ff6850a-aacf-409f-8447-ca7df55f9382 Ancestors: DeltaStreams-Model-mtf.2 fixed some issues with DSRevertTest =============== Diff against DeltaStreams-Model-mtf.2 =============== Item was changed: ----- Method: DSVisitor>>applyDelta: (in category 'composite changes') ----- applyDelta: aDelta "Treat like a composite change by default." + ^ self applyCompositeChange: aDelta compositeChange! - ^ self applyCompositeChange: aDelta! Item was added: + ----- Method: DSDelta>>asAntiChange (in category 'applying') ----- + asAntiChange + "Return a new Delta that, when applied, reverts each change of this Delta + in reverse order. Each change should have enough information to create + an anti change from itself." + + | anti | + self isRevertable ifFalse: [DSDeltaNotRevertableException signal]. + anti := DSDelta name: 'undo ' translated, self name. + properties ifNotNil: [properties associationsDo: [:assoc | anti propertyAt: assoc key put: assoc value]]. + self changes reverseDo: [:each | anti addChange: each asAntiChange]. + ^anti! Item was removed: - ----- Method: DSDelta>>asAntiDelta (in category 'applying') ----- - asAntiDelta - "Return a new Delta that, when applied, reverts each change of this Delta - in reverse order. Each change should have enough information to create - an anti change from itself." - - | anti | - self isRevertable ifFalse: [DSDeltaNotRevertableException signal]. - anti := DSDelta name: 'undo ' translated, self name. - properties ifNotNil: [properties associationsDo: [:assoc | anti propertyAt: assoc key put: assoc value]]. - self changes reverseDo: [:each | anti addChange: each asAntiChange]. - ^anti!

1 0

Sake : Sake-Core-kph.106.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Mar '09

08 Mar '09

A new version of Sake-Core was added to project Sake : http://www.squeaksource.com/Sake/Sake-Core-kph.106.mcz ==================== Summary ==================== Name: Sake-Core-kph.106 Author: kph Time: 8 March 2009, 10:54:52 pm UUID: 23a88dc2-0c34-11de-987b-000a95edb42a Ancestors: Sake-Core-kph.105 - removed packages tasks, added them as normal code to MC + SakeBlock new handling of blocked tasks! =============== Diff against Sake-Core-kph.105 =============== Item was changed: ----- Method: SakeTask>>sort (in category 'as yet unclassified') ----- sort + "if your top level is simply a collection of tasks we presort them" - "if your top level is a collection of tasks we presort them" actionBlock ifNotNil: [ self error: 'no need to presort' ]. + self dependsOn: self allPriorTasksInOrder. - actionBlock := self allPriorTasksInOrder. - - priors := nil. + ^ self + + ! - ^ self! Item was added: + ----- Method: SakeBlock class>>signalTask: (in category 'as yet unclassified') ----- + signalTask: aTask + + ^ self new + tag: aTask; + signal! Item was added: + ----- Method: SakeBlock>>task (in category 'as yet unclassified') ----- + task + + ^ tag! Item was changed: ----- Method: SakeTask>>privateRun: (in category 'as yet unclassified') ----- privateRun: setOfTasks + | priorTasks blocked wasBlocked | + "this is the way that Rake orders tasks" "we ensure that we obtain the task to run from the overall set of tasks" - | priorTasks | self hasRun ifTrue: [ ^ result ]. + priorTasks := self dependsOn collect: [ :prior | setOfTasks like: (self taskFrom: prior) ] thenSelect: [ :ea | ea notNil ]. + + "anyting it runs that is blocked is added to the block set, anything that suceeds is removed form the blocked set. + at the end, we shall have a list of blocked tasks that can be retried, if that list is the same as the list that was blocked + before stop and complain" - priorTasks := self dependsOn collect: [ :prior | setOfTasks like: (self taskFrom: prior) ]. + blocked := Set new. + + [ + wasBlocked := blocked copy. + + priorTasks do: [ :each | + each runLevel: runLevel. + [ + each privateRun: setOfTasks. + blocked remove: each ifAbsent: [ ]. + ] on: SakeBlock do: [ :ex | blocked add: ex task ]. + ]. + + (blocked notEmpty and: [ blocked = wasBlocked ]) ifTrue: [ SakeBlock signalTask: self ]. + + ] doWhileFalse: [ blocked isEmpty ]. + - priorTasks collect: [ :each | - each ifNotNil: [ each runLevel: runLevel. - each privateRun: setOfTasks ]]. (self isNeeded: priorTasks) ifTrue: [ self trace. self doAction: priorTasks. hasRun := true. ^ result. ]. ^ false + ! - ! Item was added: + Warning subclass: #SakeBlock + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Sake-Core'! + + !SakeBlock commentStamp: 'kph 3/6/2009 12:58' prior: 0! + Raise this if for some reason you find that the task you are doing is blocked. This might occur in a multi builder build system where two building threads decide to build the same item. + + (implementation idea - not implemented yet) + + When a Block is detected, Sake, looks for any following dependent task that is not dependant upon the blocked task. + + Alternatively, Sake could simply randomise the task order and re-sort them, tryng again.! Item was removed: - ----- Method: MCWorkingCopy>>taskSaveWithComment: (in category '*sake-core') ----- - taskSaveWithComment: message - - ^ (self taskAdoptHistoryFrom: self repository saveWithComment: message) defined - ! Item was removed: - ----- Method: MCWorkingCopy>>taskAdoptHistoryFrom:saveWithComment: (in category '*sake-core') ----- - taskAdoptHistoryFrom: repo saveWithComment: message - - "The repo is the one we are maintaining. If there are no changes then adopt the one in the repo as the master" - - | closest | - ^ SakeTask define: [ :task | - - task if: [ self needsSaving ]. - - task action: [ self repositoryGroup addRepository: repo. - self setMyRepositoryFromLastAdded. - closest := self repository closestAncestorVersionFor: ancestry ifNone:[nil]. - closest ifNotNil: [ ancestry := MCWorkingAncestry new addAncestor: closest info ]. - - (self changesRelativeToRepository: self repository) isEmpty - ifTrue: [ - self modified: false. - ] - ifFalse: [ - message ifNotNil: [ - self repository storeVersion: (self newVersionWithName: self uniqueVersionName message: message)] - ] - ] - ] - !

1 0

Sake : Sake-Bob-kph.18.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Mar '09

08 Mar '09

A new version of Sake-Bob was added to project Sake : http://www.squeaksource.com/Sake/Sake-Bob-kph.18.mcz ==================== Summary ==================== Name: Sake-Bob-kph.18 Author: kph Time: 8 March 2009, 10:53:13 pm UUID: e8e79476-0c33-11de-987b-000a95edb42a Ancestors: Sake-Bob-kph.17 + added accessors for metadata that the framework knows about - helps for documentation + vm is now mac21beta1U =============== Diff against Sake-Bob-kph.17 =============== Item was added: + ----- Method: BobBuild>>makeLocal: (in category 'zip file') ----- + makeLocal: aZipFile + + "if the zip file is remote, check it wasnt one we generated in our output tree" + + | localZipFile | + + localZipFile := nil. + + aZipFile executive isRemote ifTrue: [ + + (self outputDir parent all filesMatching: aZipFile fileName) firstOrNil + ifNotNilDo: [ :found | + self log info found: found. + ^ localZipFile + ] + ] + ifFalse: [ aZipFile exists ifTrue: [ ^ aZipFile ]]. + + (localZipFile := self class configImagesDir / aZipFile fileName) exists ifTrue: [ ^ localZipFile ]. + + "default is not to overwrite if the file exists" + localZipFile := (self class configImagesDir add: (localZipFile ifNil: [ aZipFile ])). + + ^ localZipFile + + ! Item was changed: ----- Method: BobPeriodicWatchSqueakMap class>>initialize (in category 'as yet unclassified') ----- initialize super initialize. + self scheduler addTask: ((self do: #doAllTasks every: 1 days) - self scheduler addTask: ((self do: #doAllTasks every: 3 days) noRunHistory; description: 'watching-squeakmap'; yourself) ! Item was changed: ----- Method: BobBuildImage class>>taskBuild: (in category 'as yet unclassified') ----- taskBuild: metaSelector + | reason | - | isNeeded | ^ self define: [ :task | "obtain latest meta-data from instance side" (task infoFor: metaSelector) ifNil: [ ^ self noop ]. + + "we set our start time to the time of the build request, the actual action may take a while longer to actually happen, however this helps to give builds instancated together a similar start time" + + task info timeInitiated: DateAndTime now. + - task if: [ task timeStart. + reason := task isBuildNeeded. "1. continue 2. symbol 3. msg" + self log info build: task info name isNeeded: reason first because: reason third. . + task info reason: reason third. + + reason first ]. - isNeeded := task isBuildNeeded. - self log info build: task info name isNeeded: isNeeded first because: isNeeded third. . - task info reason: isNeeded third. - - "if we are building because an upstream image has changed we grab the same build time - this helps us to see which images were built together" - - task info timeStart: task latest timeStart. - - isNeeded first ]. task action: [ task stepAction. + task actionBuild. - task perform: task info action. ] ] ! Item was added: + ----- Method: BobBuildImage>>upload: (in category 'as yet unclassified') ----- + upload: destDir + + info upload: destDir! Item was added: + ----- Method: BobBuildImage>>theScriptBasic (in category 'script') ----- + theScriptBasic + + script reset. + + self + scriptTranscriptLogToFileStart; + scriptSetVersion; + scriptAddInfoScript; + scriptTranscriptLogToFileStop; + scriptSaveImageAndQuit: true! Item was added: + ----- Method: BobBuildImage>>publishLinkLatest (in category 'as yet unclassified') ----- + publishLinkLatest + + self exec: 'cd ', self linksDir ,'; rm latest; ln -s ', self stamp , ' latest' + ! Item was changed: ----- Method: BobBuild>>stamp (in category 'as yet unclassified') ----- stamp + ^ (info timeInitiated ifNil: [ self timeStart ]) printYYMMDDHHSS: '-'! - ^ self timeStart printYYMMDDHHSS: '-'! Item was added: + ----- Method: BobPeriodicWatchUniverses class>>initialize (in category 'as yet unclassified') ----- + initialize + super initialize. + self scheduler addTask: ((self do: #doAllTasks every: 15 minutes) + noRunHistory; + description: 'watching-squeakmap'; + yourself) + + ! Item was added: + ----- Method: BobBuildImage>>imageCreationTime: (in category 'as yet unclassified') ----- + imageCreationTime: aTimeStamp + + info imageCreationTime: aTimeStamp! Item was added: + ----- Method: BobBuild>>scriptSelector: (in category 'as yet unclassified') ----- + scriptSelector: aSelector + + info scriptSelector: aSelector! Item was added: + ----- Method: BobBuildImage>>comment: (in category 'as yet unclassified') ----- + comment: aComment + + info comment: aComment! Item was added: + ----- Method: BobBuildImage>>download: (in category 'as yet unclassified') ----- + download: aComment + + info download: aComment! Item was added: + ----- Method: BobPeriodicWatchSqueakMap>>taskWatchSqueakMap (in category 'as yet unclassified') ----- + taskWatchSqueakMap + + | wc changes | + ^ [ + + Packages squeakmap taskGenerateSqueakMapPackageTasks run. + + wc := ((MCPackage named: 'Packages-SqueakMap') workingCopy). + + changes := (wc changesRelativeToRepository: wc repository) operations collect: [ :ea | ea summary ]. + + changes notEmpty ifTrue: [ + wc saveWithComment: ('auto regenerated:' , String cr, String cr, (changes joinUsing: String cr)). + ] + ] + + ! Item was changed: ----- Method: BobBuildImage>>scriptSetVersion (in category 'as yet unclassified') ----- scriptSetVersion + self scriptSetVersion: '' + ! - | s | - s := String new writeStream. - - s << '"self halt."' ; cr. - s << 'SystemVersion newVersion: ' << self name printString << '.' ; cr. - s << 'SystemVersion current date: ''' << self timeStart asTimeStamp printString << ''' asTimeStamp.'; cr. - s << 'Smalltalk at: #Scripter ifPresent: [ :scr | scr transcript windowLabel: ''' << - self stampedName <<''' ].' ; cr. - - self nextScriptPut: s contents! Item was changed: BobConfig subclass: #BobBuildImage instanceVariableNames: 'startImage' classVariableNames: '' poolDictionaries: '' category: 'Sake-Bob'! + !BobBuildImage commentStamp: 'kph 3/8/2009 11:16' prior: 0! + BobConfig is a class with only configuration data. This allows a bob installation to be customized to a local environment, and that configuation can be save by a class fileOut. + + If you specify #imageCreationTime for an image that you do not expect to change then this saves looking up the host site every time.! - !BobBuildImage commentStamp: 'kph 2/17/2009 01:24' prior: 0! - BobConfig is a class with only configuration data. This allows a bob installation to be customized to a local environment, and that configuation can be save by a class fileOut.! Item was added: + ----- Method: BobBuildImage>>linkRelease: (in category 'as yet unclassified') ----- + linkRelease: aFlag + + info linkRelease: aFlag + ! Item was added: + ----- Method: BobBuildImage>>scriptUpgradeMonticello (in category 'as yet unclassified') ----- + scriptUpgradeMonticello + + self nextScriptPut: 'Installer upgrade install: ''UpgradeMonticello''.' + ! Item was added: + ----- Method: BobBuildImage>>linkInProgress (in category 'accessing') ----- + linkInProgress + + ^ self linksDir / 'BUILD-IN-PROGRESS' ! Item was changed: ----- Method: BobConfig>>defaultUpload (in category 'as yet unclassified') ----- defaultUpload " info upload: 'ssh://updates@squeakfoundation.org/var/www/files/3.11/' , info name." + info upload: 'link:///bob/release/' , info name. - info upload: 'link:///bob/3.11/' , info name. "http not yet supported" + info download: 'ftp://squeak@bob.warwick.st/bob/release/' , info name. - info download: 'ftp://squeak@bob.warwick.st/bob/3.11/' , info name. ! Item was changed: ----- Method: BobBuild class>>configStepAction (in category 'as yet unclassified') ----- configStepAction ^ false ! Item was changed: ----- Method: BobBuildImage>>publishManifest (in category 'as yet unclassified') ----- publishManifest self publishDir mkpath addAll: (self imageDir filesMatching: (self stampedName, '.*')). self publishDir + addTree: (self imageDir all filesMatching: #('*.txt' '*.text' '*.pr' '*.pass' '*.fail' '.pdf' '*.js' '*.css' '*.html' )) - addAll: (self imageDir all filesMatching: #('*.txt' '*.text' '*.pr' '*.pass' '*.fail' )) ! Item was added: + ----- Method: BobBuildImage>>publishLinkRelease (in category 'as yet unclassified') ----- + publishLinkRelease + + self info linkRelease = true ifTrue: [ + + self exec: 'cd ', self linksDir ,'; rm release; ln -s ', self stamp , ' release' + ]! Item was added: + ScheduledLoggedTask subclass: #BobPeriodicWatchUniverses + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Sake-Bob'! Item was added: + ----- Method: BobBuildImage>>image: (in category 'as yet unclassified') ----- + image: anImageFile + + info image: anImageFile! Item was added: + ----- Method: BobBuildImage>>scriptSetVersion: (in category 'as yet unclassified') ----- + scriptSetVersion: suffix + + | s | + s := String new writeStream. + + s << '"self halt."' ; cr. + s << 'SystemVersion newVersion: ' << self name printString << ',' << suffix printString << '.' ; cr. + s << 'SystemVersion current date: ''' << self timeStart asTimeStamp printString << ''' asTimeStamp.'; cr. + s << 'Smalltalk at: #Scripter ifPresent: [ :scr | scr transcript windowLabel: ''' << + self stampedName << suffix <<''' ].' ; cr. + + self nextScriptPut: s contents! Item was changed: ----- Method: BobConfig class>>configVm (in category 'as yet unclassified') ----- configVm "the mac vm doesnt like to be opened via a symbolic link" + ^ '/bob/vm/Squeak\ 3.8.21beta1U.app/Contents/MacOS/Squeak\ VM\ Opt' - ^ '/bob/vm/Squeak\ 3.8.20beta1U.app/Contents/MacOS/Squeak\ VM\ Opt' ! Item was changed: ----- Method: BobBuildImage>>scriptCleanUp (in category 'as yet unclassified') ----- scriptCleanUp + self nextScriptPut: '"self halt." + Smalltalk at: #Scripter ifPresent: [ :s | s nonTranscriptWindows do: #windowForceClose ]. + SmalltalkImage current cleanUpAllExcept: #(ChangeSet). + '! - self nextScriptPut: '"self halt." SmalltalkImage current cleanUpAllExcept: #(ChangeSet).'! Item was added: + ----- Method: BobBuildImage>>scriptSaveAllPackagesInDir: (in category 'as yet unclassified') ----- + scriptSaveAllPackagesInDir: dirRepoPath + + | s | + s := String new writeStream. + + s << '| comment |' ; cr. + + s << '"self halt."' ; cr. + + s << 'comment := String streamContents: [:s | ' ; cr. + s << ' Installer mantis fixesApplied asStringOn: s delimiter: String cr ].'; cr. + + s << 'MCWorkingCopy saveAllAdoptingHistoryIn:'; cr. + s << ' (MCDirectoryRepository new directory: (FileDirectory on: ' << + dirRepoPath asString printString << ')) withComment: comment contents printString.' ; cr. + + self nextScriptPut: s contents + ! Item was changed: ----- Method: BobBuildImage>>actionBuild (in category 'as yet unclassified') ----- actionBuild self log notice BUILDING: info name. + self expand: (self makeLocal: zipFile) to: (self workingDir mkpath clean). - self stepAction. - self expand: zipFile to: (self workingDir mkpath clean). self startImage: (self workingDir all fileMatching: '*.image'). - self linkPackageCache. - - self theScript scriptFileWrite. - - self launchVm: self class configVm image: self startImage with: self scriptFile. - - self isSuccessfulBuild ifFalse: [ ^ self ]. - - info timeComplete: DateAndTime now. - info timeDuration: ((info timeComplete - info timeStart) roundTo: 1 second). - - self publish. - - self package. - - self tidy. - self publishLinks. - - self log notice BUILDING: info name COMPLETE: true. - - (self class taskUpload: info build) run. + self blockDuring: [ + + self linkPackageCache. + + (self perform: info scriptSelector) scriptFileWrite. + + self launchVm: self class configVm image: self startImage with: self scriptFile. + + self isSuccessfulBuild ifFalse: [ ^ self ]. + + info timeComplete: DateAndTime now. + info timeDuration: ((info timeComplete - info timeStart) roundTo: 1 second). + + self publish. + + self package. + + self tidy. + self publishLinks. + + self log notice BUILDING: info name COMPLETE: true. + + ]. + + (self class taskUpload: info build) run. + ! Item was changed: ----- Method: BobBuildImage>>scriptSaveImageAndQuit: (in category 'as yet unclassified') ----- + scriptSaveImageAndQuit: quit - scriptSaveImageAndQuit: requestQuit | s | s := String new writeStream. s << ' | image resuming |' ; cr. s << '"self halt."' ; cr. + quit ifTrue: [ s << 'WorldState addDeferredUIMessage: [ (Delay forSeconds: 1) wait. '; cr ]. - s << 'WorldState addDeferredUIMessage: [ (Delay forSeconds: 1) wait. '; cr. s << 'image := SmalltalkImage current.'; cr. + s << 'resuming := image saveAs: ' << self stamp printString << ', ''_'', SystemVersion current version,''.image''.'; cr. - s << 'resuming := image saveAs: '''<< self stampedName << '.image''.'; cr. + quit ifTrue: [ - requestQuit ifTrue: [ s << 'resuming ifFalse: [ image snapshot: false andQuit: true ].' ; cr ]. + quit ifTrue: [s << '].' ]. - s << '].'. self nextScriptPut: s contents! Item was added: + ----- Method: BobBuildImage>>isBuildNeededForBuildNow (in category 'as yet unclassified') ----- + isBuildNeededForBuildNow + | | + + "if the output directory doesnt exist then - dont build" + self outputDir asDirectory exists ifFalse: [ 'no - ', self outputDir, ' not found' ]. + + "if we have the don't flag - dont build" + info when = #dont ifTrue: [ ^ #(false #dont 'dont flag set') ]. + info when = false ifTrue: [ ^ #(false #dont 'dont flag false') ]. + + self stepNeeded. + + + latest := self infoFileReadLatest. + + zipFile := self resolveFile: info image asFile ifNone: [:msg | ^ { false. #notFound. msg.} ]. + + ^ { true. #itsAnOrder. ('building ', self info name). } + + + ! Item was changed: ----- Method: BobBuildImage>>theScript (in category 'as yet unclassified') ----- theScript script reset. self scriptTranscriptLogToFileStart; + scriptSetVersion: '=wip'; + scriptSaveImageAndQuit: false; - scriptSetVersion; scriptAddInfoScript; scriptCleanUp; + scriptSetVersion; scriptTranscriptLogToFileStop; scriptSaveImageAndQuit: true.! Item was added: + ----- Method: BobPeriodicWatchUniverses>>taskGeneratePackagesFromUniverses (in category 'as yet unclassified') ----- + taskGeneratePackagesFromUniverses + + | wc changes | + ^ [ + + Packages taskGenerateAllUniverses run. + + wc := ((MCPackage named: 'Packages-Library') workingCopy). + + changes := (wc changesRelativeToRepository: wc repository) operations collect: [ :ea | ea summary ]. + + changes notEmpty ifTrue: [ + wc saveWithComment: ('auto regenerated:' , String cr, String cr, (changes joinUsing: String cr)). + ] + ]! Item was changed: ----- Method: BobPeriodicBuilds class>>initialize (in category 'as yet unclassified') ----- initialize super initialize. + self scheduler addTask: ((self do: #doAllTasks every: 600 seconds) - self scheduler addTask: ((self do: #doAllTasks every: 300 seconds) noRunHistory; description: 'builder'; yourself) ! Item was changed: ----- Method: BobBuildImage>>isBuildNeeded (in category 'as yet unclassified') ----- isBuildNeeded | wait dependentFile | "if the output directory doesnt exist then - dont build" + self outputDir asDirectory exists ifFalse: [ ^ { false. #notWanted. 'Output directory not present: ', self outputDir.}. ]. - self outputDir asDirectory exists ifFalse: [ 'no - ', self outputDir, ' not found' ]. "if we have the don't flag - dont build" + #dont = info when ifTrue: [ ^ #(false #dont 'dont flag set') ]. + false = info when ifTrue: [ ^ #(false #dont 'dont flag false') ]. - info when = #dont ifTrue: [ ^ #(false #dont 'dont flag set') ]. - info when = false ifTrue: [ ^ #(false #dont 'dont flag false') ]. self stepNeeded. "if an explicit build time has been set and not yet reached - dont build" ((info when isKindOf: DateAndTime) and: [ info when > info timeStart ]) ifTrue: [ ^ { false. #notYet. ('time is not yet ', info when asString). } ]. latest := self infoFileReadLatest. "if 'when' is set to a file obtain creation time, if not use info image" info when isFileOrDirectory ifTrue: [ dependentFile := self resolveFile: info when ifNone: [:msg | ^ { false. #notFound. msg.}]. self info dependentCreationTime: dependentFile creationTime. zipFile := self resolveFile: info image ifNone: [:msg | ^ { false. msg.} ]. ] ifFalse: [ dependentFile := zipFile := self resolveFile: info image asFile ifNone: [:msg | ^ { false. #notFound. msg.} ]. + + self info dependentCreationTime: (info imageCreationTime ifNil: [ zipFile creationTime ]). - self info dependentCreationTime: zipFile creationTime. ]. "has our starting image changed? if so" (latest dependentCreationTime notNil and: [ latest dependentCreationTime ~= self info dependentCreationTime ]) + ifTrue: [ + self dependentFileChanged: dependentFile. + ^ { true. #dependentChanged. (dependentFile asString , ' has changed').} + ] + ifFalse: [ true = info when ifTrue: [ ^ { false. ('waiting for ', dependentFile asString , ' to change').} ]]. - ifTrue: [ ^ { true. #dependentChanged. (dependentFile asString , ' has changed').} ] - ifFalse: [ info when = true ifTrue: [ ^ { false. ('waiting for ', dependentFile asString , ' to change').} ]]. "we have a new build id, so we build" latest build ~= info build ifTrue: [ ^ { true. #newBuildNumber. ('new build number ',info build).} ]. (info when isKindOf: Duration) ifTrue: [ wait := latest startTime + info when - TimeStamp now wait > 0 ifTrue: [ ^ { false. #waiting. (wait seconds asString, ' seconds to go').} ]. ]. "an explicit build time has been given, and this is present existing latest" ((info when isKindOf: DateAndTime) and: [ info when <= latest timeStart ]) ifTrue: [ ^ { false. #done. ((latest package ifNil: [ latest name ]) , ' already built'). } ]. ^ { true. #itsTime. ('building ', self info name). } ! Item was added: + ----- Method: BobBuildImage>>blockDuring: (in category 'accessing') ----- + blockDuring: aBlock + + [ self linkInProgress exists ] whileTrue: [ SakeBlock signalTask: self ]. + + [ self linkInProgress symbolicLinkTo: self imageDir. + + aBlock value. + + ] ensure: [ self exec: 'rm ', self linkInProgress ]! Item was added: + ----- Method: BobBuildImage>>description: (in category 'as yet unclassified') ----- + description: aComment + + info description: aComment! Item was changed: ----- Method: BobPeriodicWatchRepositories>>taskWatchPackages (in category 'as yet unclassified') ----- taskWatchPackages + | | - | wc changes | ^ SakeTask checkUrl: 'http://www.squeaksource.com/Packages/feed.rss' onChanged: [ self log info: 'Packages Library Updated'. Installer squeaksource project: 'Packages'; install: 'Packages-Library'. - Packages taskGenerateAllUniverses run. - - wc := ((MCPackage named: 'Packages-Library') workingCopy). - - changes := (wc changesRelativeToRepository: wc repository) operations collect: [ :ea | ea modification summary ]. - - wc taskSaveWithComment: ('auto regenerated:' , String cr, String cr, (changes joinUsing: String cr)). - - ]. ! Item was changed: ----- Method: BobBuild class>>taskUpload: (in category 'as yet unclassified') ----- taskUpload: metaSelector "the task of uploading is defined as a top level task, because it is more generic than image building, and may be applied to any result." | newInfo lock ul dl yes | ^ self define: [ :task | (task infoFor: metaSelector) ifNil: [ ^ self noop ]. task dependsOn: #(). newInfo := task info. "obtain and use the latest meta-data from the most recent build activity" task info: task infoFileReadLatest. "some fields in the metadata we prefer new values over the older" + task upload: newInfo upload. + task download: newInfo download. + task linkRelease: newInfo linkRelease. + task comment: newInfo comment. + task uploadLatest: newInfo uploadLatest. - task info upload: newInfo upload. - task info download: newInfo download. - task info linkRelease: newInfo linkRelease. - task info comment: newInfo comment. - task info uploadLatest: newInfo uploadLatest. task if: [ lock := ul := dl := nil. yes := task name notNil and: [ (ul := task isUploadRequested) and: [ dl := task isUploadedFileAvailableForDownload. dl ifTrue: [ task uploadDirLock delete ]. dl not and: [ (lock := task uploadDirLock exists) not ] ] ]. task name ifNotNil:[ self log info name: task name uploadRequested: ul done: dl inProgress: lock. ]. "if we decide that we shall upload, we lock the upload dir to inform others" yes ifTrue: [ task uploadDirLock touch ]. yes. ]. task action: [ self log info UPLOADING: task publishDir. self configStepUpload ifTrue: [ self halt ]. task infoFilePublishAlongside: task publishDir. + task publishLinkRelease. - task linkRelease. task info oneClick = true ifTrue: [ BobOneClickPackageGenerator taskMakeOneClickfor: self build: task info build ]. task perform: ('uploadUsing', (task info upload upTo: $:) capitalized) asSymbol. task isUploadedFileAvailableForDownload ifTrue: [ task uploadDirLock delete ]. ] ] ! Item was added: + Object subclass: #PRDelayedPersistency + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Sake-Bob'! Item was changed: ----- Method: BobBuild>>infoFor: (in category 'as yet unclassified') ----- infoFor: selector selector ifNil: [ ^ nil ]. self info name: self class label. self info build: selector. self info label: self class label. self when: self class configWhen. + self linkRelease: self class configLinkRelease. + self description ifNotEmpty: [ self description: self description ]. + info scriptSelector: #theScript. - self info linkRelease: self class configLinkRelease. - self description ifNotEmpty: [ self info description: self description ]. - info action: #actionBuild. - self perform: selector. ^ info! Item was added: + ----- Method: BobBuild>>overwrite: (in category 'as yet unclassified') ----- + overwrite: flag + + info overwrite: flag + ! Item was changed: ----- Method: BobBuildImage>>publishLinks (in category 'as yet unclassified') ----- publishLinks + self publishLinkLatest. + self publishLinkRelease. - self linkLatest. - self linkRelease. ! Item was added: + ----- Method: BobBuildImage>>dependentFileChanged: (in category 'as yet unclassified') ----- + dependentFileChanged: aFile + + | dependentInfo | + dependentInfo := (Compiler evaluate: (aFile copy ext: 'info') contents) ifNil: [ ^ self ]. + + info timeInitiated: dependentInfo timeInitiated. + + info description: info comment, String cr, String cr , 'Description from: ', dependentInfo name, String cr, String cr, dependentInfo description. + info comment: info comment, String cr, String cr , 'Comment from: ', dependentInfo name, String cr, String cr, dependentInfo comment.! Item was changed: ----- Method: BobBuildImage class>>taskBuildNow: (in category 'as yet unclassified') ----- taskBuildNow: metaSelector | isNeeded | ^ self define: [ :task | "obtain latest meta-data from instance side" (task infoFor: metaSelector) ifNil: [ ^ self noop ]. task if: [ task timeStart. + isNeeded := task isBuildNeededForBuildNow. - isNeeded := task isBuildNeededOverridden. self log info build: task info name isNeeded: isNeeded first because: isNeeded third. . task info reason: isNeeded third. isNeeded first. ]. task action: [ task stepAction. + task actionBuild. - task perform: task info action. ] ] ! Item was changed: ScheduledLoggedTask subclass: #BobPeriodicBuilds instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Sake-Bob'! + + !BobPeriodicBuilds commentStamp: 'kph 3/8/2009 12:46' prior: 0! + [ BobBuild taskBuildAll run ] fork! Item was added: + ----- Method: BobBuildImage>>uploadLatest: (in category 'as yet unclassified') ----- + uploadLatest: aBool + + info uploadLatest: aBool! Item was changed: ----- Method: BobBuild class>>configStepNeeded (in category 'as yet unclassified') ----- configStepNeeded ^ false! Item was changed: ----- Method: BobBuild>>expand:to: (in category 'zip file') ----- + expand: localZipFile to: destDir - expand: aZipFile to: destDir - - "if the zip file is remote, check it wasnt one we generated in our output tree" - - | localZipFile | - - localZipFile := nil. - - aZipFile executive isRemote ifTrue: [ - - (self outputDir parent all filesMatching: aZipFile fileName) firstOrNil - ifNotNilDo: [ :found | - self log info found: found. - localZipFile := found. - ] - ]. - - "default is not to overwrite if the file exists" - localZipFile := (self class configImagesDir add: (localZipFile ifNil: [ aZipFile ])). self log info bob expanding: localZipFile to: destDir. + self exec: 'unzip "', localZipFile, '" -d ', destDir full mkpath. - self exec: 'unzip ', localZipFile, ' -d ', destDir full mkpath. ^ localZipFile ! Item was removed: - ----- Method: BobBuildImage>>isBuildNeededOverridden (in category 'as yet unclassified') ----- - isBuildNeededOverridden - - | | - - "if the output directory doesnt exist then - dont build" - self outputDir asDirectory exists ifFalse: [ 'no - ', self outputDir, ' not found' ]. - - "if we have the don't flag - dont build" - info when = #dont ifTrue: [ ^ #(false #dont 'dont flag set') ]. - info when = false ifTrue: [ ^ #(false #dont 'dont flag false') ]. - - self stepNeeded. - - - latest := self infoFileReadLatest. - - zipFile := self resolveFile: info image asFile ifNone: [:msg | ^ { false. #notFound. msg.} ]. - - ^ { true. #itsAnOrder. ('building ', self info name). } - - - ! Item was removed: - ----- Method: BobBuildImage>>linkLatest (in category 'as yet unclassified') ----- - linkLatest - - self exec: 'cd ', self linksDir ,'; rm latest; ln -s ', self stamp , ' latest' - ! Item was removed: - ----- Method: BobPeriodicWatchSqueakMap>>taskWatchPackages (in category 'as yet unclassified') ----- - taskWatchPackages - - | wc changes | - - ^ SakeTask - checkUrl: 'http://www.squeaksource.com/Packages/feed.rss' - onChanged: [ - - self log info: 'Packages-SqueakMapLibrary Updating'. - - Installer squeaksource project: 'Packages'; install: 'Packages-SqueakMap'. - - self squeakmap taskGenerateSqueakMapPackageTasks run. - - wc := ((MCPackage named: 'Packages-SqueakMap') workingCopy). - - changes := (wc changesRelativeToRepository: wc repository) operations collect: [ :ea | ea modification summary ]. - - wc taskSaveWithComment: ('auto regenerated:' , String cr, String cr, (changes joinUsing: String cr)). - - - ]. - - ! Item was removed: - ----- Method: BobBuildImage>>linkRelease (in category 'as yet unclassified') ----- - linkRelease - - self info linkRelease = true ifTrue: [ - - self exec: 'cd ', self linksDir ,'; rm release; ln -s ', self stamp , ' release' - ]!

1 0

Rio: File-Base-kph.23.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Mar '09

08 Mar '09

A new version of File-Base was added to project Rio: http://www.squeaksource.com/Rio/File-Base-kph.23.mcz ==================== Summary ==================== Name: File-Base-kph.23 Author: kph Time: 8 March 2009, 10:51:18 pm UUID: a4707eb6-0c33-11de-987b-000a95edb42a Ancestors: File-Base-kph.22 + #pathHasNoWildCards + optimization to #resolveMatchOne will avoid hitting an ftp site if there is no actual matching to be done hmm.... might not be the expected behaviour. One might assume that the result of resolveMatchOne actually exists. =============== Diff against File-Base-kph.22 =============== Item was changed: ----- Method: File>>resolveMatchOne (in category 'enumeration') ----- resolveMatchOne | list | + + "if we do not contain wild cards, simply return self" + self pathHasNoWildCards ifTrue: [ ^ self ]. + list :=self parent filesMatching: self fileName. list size = 1 ifFalse: [ ^ nil ]. ^ list first ! Item was added: + ----- Method: File>>pathHasNoWildCards (in category 'enumeration') ----- + pathHasNoWildCards + ^ ((value includes: $*) not and: [ (value includes: $#) not ]) !

1 0

Rio: File-Kernel-kph.20.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 08 Mar '09

08 Mar '09

A new version of File-Kernel was added to project Rio: http://www.squeaksource.com/Rio/File-Kernel-kph.20.mcz ==================== Summary ==================== Name: File-Kernel-kph.20 Author: kph Time: 8 March 2009, 10:49:06 pm UUID: 556a9448-0c33-11de-987b-000a95edb42a Ancestors: File-Kernel-kph.19 + #thisChanges companion to #thisImage =============== Diff against File-Kernel-kph.19 =============== Item was added: + ----- Method: FileKernel class>>thisChanges (in category 'as yet unclassified') ----- + thisChanges + + ^ self thisImage ext: 'changes'!

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 March 2009