[Pkg] DeltaStreams: DeltaStreams-Logging-mtf.3.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

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)!