[Pkg] Monticello Public: PackageInfo-Base-kph.67.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Tue Feb 17 12:41:42 UTC 2009
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 ]) = $-!
More information about the Packages
mailing list