[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