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

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

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

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

Name: PackageInfo-Base-kph.67
Author: kph
Time: 17 February 2009, 12:41:38 pm
UUID: 07134fc9-67c2-490f-a574-6b9488061f29
Ancestors: PackageInfo-Base-kph.66

+ propertyDefaultAt:
+ fix to external files

=============== Diff against PackageInfo-Base-kph.66 ===============

Item was added:
+ ----- Method: PackageInfo>>propertyDefaultAt: (in category 'preamble/postscript') -----
+ propertyDefaultAt: key
+ 
+ 	 | defaultSelector value |
+ 		 
+ 	defaultSelector := (key, 'Default') asSymbol.
+ 	
+ 	value :=  (self respondsTo: defaultSelector) ifTrue: [ self perform: defaultSelector ] ifFalse: [ ^ nil ].
+ 	
+ 	
+ 		 !

Item was changed:
+ ----- Method: PackageOrganizer class>>cleanUp (in category 'clean up') -----
- ----- Method: PackageOrganizer class>>cleanUp (in category 'as yet unclassified') -----
  cleanUp
  
  	self default packages copy keysAndValuesDo: [ :k :v | v class isObsolete ifTrue: [ self default packages removeKey: k ] ].
  
  	self default packageInfos do: [ :pi | 
  
  		| resp |
  		
  		resp := PackageInfo classResponsibleForName: pi packageName.
  	
  		(((resp = PackageInfo) not and: [ pi class ~= resp ]) or: [ pi class isObsolete ])
  		ifTrue: [ 
  			PackageOrganizer default unregisterPackageNamed: pi packageName.
  		].	
  	].!

Item was changed:
  ----- Method: FileDirectory>>entriesRecursive:on: (in category '*packageinfo-base') -----
  entriesRecursive: isRecursive on: aCollection
  	
  	| aFD |
  		
  	self entries do: [ :dirEntry | 
  	
  		aFD := self fullNameFor: dirEntry name.
  
  		dirEntry isDirectory 
+ 			ifTrue: [ isRecursive ifTrue: [ (FileDirectory on: aFD) entriesRecursive: isRecursive on: aCollection ] ]
+ 			ifFalse: [ aCollection add: (FileDirectory on: aFD) ]
- 			ifTrue: [ isRecursive ifTrue: [ (FileDirectory on: aFD) entriesRecursive: isRecursive on: aCollection ] ].
- 	     aCollection add: (FileDirectory on: aFD)
  	].
   
  	^ aCollection!

Item was changed:
  ----- Method: PackageInfo>>externalFiles (in category 'naming') -----
  externalFiles
  	
+ 	| matches entries |
- 	| matches entries excludes |
  	
  	matches := self externalFilesMatches.
- 	excludes := self externalFilesExclude.
  	
  	entries := (FileDirectory default entriesAsFDs) select: [ :aFD | matches anySatisfy: [ :match | match match: aFD localName ] ].
- 	entries := entries reject: [ :aFD | excludes anySatisfy: [ :match | match match: aFD localName ] ].
- 
- 	entries addAll: (entries gather: [ :aFD | aFD allEntriesAsFDs ]).
  
+ 	entries addAll: (entries gather: [ :aFD | aFD allEntriesAsFDs ]).
- 	entries := entries reject: [ :aFD | (aFD localName beginsWith: '.') or: [ aFD directoryEntry isDirectory ] ].
  
  	^ entries !

Item was added:
+ ----- 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 ]) = $-!