[Pkg] Monticello Public: PackageInfo-Base-kph.58.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.58.mcz

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

Name: PackageInfo-Base-kph.58
Author: kph
Time: 7 December 2008, 1:32:39 am
UUID: 68ba7ce2-d76f-48bd-b9e1-499652b37b04
Ancestors: PackageInfo-Base-kph.57

+ #externalFiles
+ #externalFilesMatches

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

Item was added:
+ ----- Method: PackageInfo>>externalFilesMatches (in category 'naming') -----
+ externalFilesMatches
+ 
+ 	^ self systemCategoryPrefix in: [ :prefix | 
+ 	 	{ prefix. (prefix , '.*'). (prefix , '-*'). } ]!

Item was added:
+ ----- Method: FileDirectory>>entriesAsFDs (in category '*packageinfo-base') -----
+ entriesAsFDs
+ 
+ 	^ self entriesRecursive: false on: OrderedCollection new
+  !

Item was added:
+ ----- Method: FileDirectory>>allEntriesAsFDs (in category '*packageinfo-base') -----
+ allEntriesAsFDs
+ 
+ 	^ self entriesRecursive: true on: OrderedCollection new
+  !

Item was added:
+ ----- 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) ]
+ 	].
+  
+ 	^ aCollection!

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