[Pkg] Monticello Public: PackageInfo-Base-kph.66.mcz

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Wed Feb 11 16:36:27 UTC 2009


A new version of PackageInfo-Base was added to project Monticello Public:
http://www.squeaksource.com/mc/PackageInfo-Base-kph.66.mcz

==================== Summary ====================

Name: PackageInfo-Base-kph.66
Author: kph
Time: 11 February 2009, 4:36:25 pm
UUID: 6e450473-a4a7-4f22-84b0-d7642b3b7a0a
Ancestors: PackageInfo-Base-mtf.65

authos auditing

=============== Diff against PackageInfo-Base-mtf.65 ===============

Item was added:
+ ----- Method: PackageInfo>>allMethodsForAuthor: (in category 'testing') -----
+ allMethodsForAuthor: anAuthorInitials
+ 
+ 	"Browse uncommented methods whose initials (in the time-stamp, as logged to disk) match the given initials.  Present them in chronological order.  CAUTION: It will take several minutes for this to complete."
+ 	"Time millisecondsToRun: [SystemNavigation default browseUncommentedMethodsWithInitials: 'jm']"
+ 
+ 	| initials timeStamp methodReferences cm classes targetInitials |
+ 	methodReferences _ OrderedCollection new.
+ 	classes
+ 		do: [:aClass | aClass selectors do: [:sel |
+ 			cm _ aClass compiledMethodAt: sel.
+ 			timeStamp _ Utilities timeStampForMethod: cm.
+ 			timeStamp isEmpty ifFalse:
+ 				[initials _ timeStamp substrings first.
+ 				initials first isDigit ifFalse:
+ 					[(initials = targetInitials)
+ 						ifTrue:
+ 							[methodReferences add: (MethodReference new
+ 								setStandardClass: aClass 
+ 								methodSymbol: sel)]]]]].
+ 
+ 	ToolSet
+ 		browseMessageSet: methodReferences 
+ 		name: 'Uncommented methods with initials ', targetInitials
+ 		autoSelect: nil		 !

Item was added:
+ ----- Method: PackageInfo>>browseMethodsForAuthorInitials: (in category 'modifying') -----
+ browseMethodsForAuthorInitials: authorInitials
+ 
+ 	| mr |
+ 	ToolSet
+ 		browseMessageSet: (mr := self methodsForAuthorInitials: authorInitials)
+ 		name: (self packageName, ' methods with initials ', authorInitials, '(', mr size asString ,')')
+ 		autoSelect: nil
+ 	!

Item was added:
+ ----- Method: PackageInfo>>authors (in category 'listing') -----
+ authors
+ 	"
+ 	(PackageInfo named: 'Monticello.impl') authors
+ 	"
+ 
+ 	| timeStamp aClass authors |
+ 	
+ 	authors := Set new.
+ 	
+ 	self classesDo: [:c | aClass := c ] methodsDo: [ :m | 
+ 	
+ 			timeStamp := m timeStamp.
+ 			timeStamp isEmpty ifFalse:
+ 				[ authors add: timeStamp substrings first ].
+ 	].
+ 	
+ 
+ 	^ authors!

Item was added:
+ ----- Method: PackageInfo>>methodsForAuthorInitials: (in category 'modifying') -----
+ methodsForAuthorInitials: authorInitials
+ 
+ 	"
+ 	(PackageInfo named: 'Monticello.impl') methodsForAuthorInitials: 'test'.  
+ 	"
+ 
+ 	| initials timeStamp methodReferences aClass |
+ 	
+ 	methodReferences _ OrderedCollection new.
+ 	
+ 	self classesDo: [:c | aClass := c ] methodsDo: [ :m | 
+ 	
+ 	
+ 
+ 			timeStamp := m timeStamp.
+ 			timeStamp isEmpty ifFalse:
+ 				[initials := timeStamp substrings first.
+ 				(initials = authorInitials)
+ 						ifTrue:
+ 							[ methodReferences add: m]]].
+ 	
+ 
+ 	^ methodReferences	!

Item was removed:
- ----- Method: PackageInfo>>category:matches: (in category 'testing') -----
- category: categoryName matches: prefix
- 	| prefixSize catSize |
- 	categoryName ifNil: [ ^false ].
- 	catSize := categoryName size.
- 	prefixSize := prefix size.
- 	catSize < prefixSize ifTrue: [ ^false ].
- 	(categoryName findString: prefix startingAt: 1 caseSensitive: false) = 1
- 		ifFalse: [ ^false ].
- 	^(categoryName at: prefix size + 1 ifAbsent: [ ^true ]) = $-!



More information about the Packages mailing list