[Pkg] DeltaStreams: DeltaStreams-Logging-mtf.3.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Mon Mar 9 21:38:22 UTC 2009
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)!
More information about the Packages
mailing list