[Pkg] Packages: Packages-Core-kph.53.mcz
squeaksource-noreply at iam.unibe.ch
squeaksource-noreply at iam.unibe.ch
Mon Aug 18 00:34:23 UTC 2008
A new version of Packages-Core was added to project Packages:
http://www.squeaksource.com/Packages/Packages-Core-kph.53.mcz
==================== Summary ====================
Name: Packages-Core-kph.53
Author: kph
Time: 18 August 2008, 1:34:21 am
UUID: 9911b0fa-c575-4745-b39e-c585216fc8d6
Ancestors: Packages-Core-kph.52
define default actions
refactored load/unload switch code
=============== Diff against Packages-Core-kph.52 ===============
Item was changed:
----- Method: Packages class>>taskGenerateUniversePackageTasks (in category 'tasks - universes') -----
taskGenerateUniversePackageTasks
| source selector |
^ SakeTask define: [ :task |
task dependsOn: {
[ self isUniverse ].
self taskUpdateUniverse.
self taskRemoveOldPackages.
}.
task action: [
(self theUUniverse packageNames collect: [ :each | self theUUniverse newestPackageNamed: each ]) do: [ :each |
source := (WriteStream on: String new).
source << (selector := self asSelector: each name).
source cr; cr.
source << ' self name: ' << each name printString << '.' ; cr.
source << ' self version: ''' << each version << '''.' ; cr.
+ source << ' self worksIn: #( ' << self name << ' )'; cr ; cr.
- source << ' info worksIn: #( ' << self class name << ' )'; cr ; cr.
source << ' info category: ''' << each category printString << '''.' ; cr.
source << ' info description: ' ; cr.
source << each description withSqueakLineEndings printString << '.' ; cr.
source << ' info maintainer: ''' << each maintainer << '''.' ; cr.
source << ' info homepage: ''' << (each homepage ifNil: ['']) asString << '''.' ; cr.
source << ' info squeakMapID: ''' << (each squeakMapID ifNil: ['']) asString << '''.' ; cr.
source << ' info url: ''' << each url printString << '''.' ; cr.
source << ' self provides: ' << each provides asArray printString << '.' ; cr ; cr.
source << ' self dependsOn: ' << each depends asSortedCollection asArray printString << '.' ; cr ; cr.
(self sourceCodeAt: selector ifAbsent: nil) ~= source contents ifTrue: [
self compile: source contents classified: each category printString notifying: nil
]
].
theUUniverse := nil.
].
]!
More information about the Packages
mailing list