A new version of Packages-Core was added to project Packages: http://www.squeaksource.com/Packages/Packages-Core-kph.34.mcz
==================== Summary ====================
Name: Packages-Core-kph.34 Author: kph Time: 16 May 2008, 1:27:12 am UUID: d47f5c1b-0f34-4074-8b83-1670ac76cfef Ancestors: Packages-Core-kph.33
finalized simplest api
=============== Diff against Packages-Core-kph.33 ===============
Item was changed: ----- Method: Packages class>>unload: (in category 'public') ----- unload: aNameOrList
+ aNameOrList isString ifTrue: [ ^ (self providedAt: aNameOrList) unload run]. - aNameOrList isString ifTrue: [ ^ (self providedAt: aNameOrList) unload ]. + ^ (aNameOrList collect: [ :ea | (self providedAt: aNameOrList) unload ]) asTask run - ^ (aNameOrList collect: [ :ea | (self providedAt: aNameOrList) unload ]) asTask !
Item was changed: ----- Method: Packages class>>load: (in category 'public') ----- load: aNameOrList
+ ^ (self named: aNameOrList) run! - ^ self named: aNameOrList!
Item was added: + ----- Method: Packages class>>beta (in category 'public') ----- + beta + + ^ Smalltalk classNamed: (('Packages' , SystemVersion current majorMinorVersion asLegalSelector capitalized), 'beta') asSymbol!
Item was changed: SakeTask subclass: #Packages instanceVariableNames: 'unloadBlock unloadPriors provides name version' classVariableNames: 'Provided' poolDictionaries: '' category: 'Packages-Core'! Packages class instanceVariableNames: 'lastUpdate theUUniverse'!
+ !Packages commentStamp: 'kph 5/16/2008 01:26' prior: 0! - !Packages commentStamp: 'kph 4/23/2008 22:56' prior: 0! To generate all of the methods based upon universes definitions: Packages taskGenerateAllUniverses run. or Packages taskGenerateAll run.
Sake/Packages usage:
Public API ============ "load package definition for your current version of Squeak" + Packages current load: 'Seaside'. + Packages beta named: 'Seaside'. + + or + + (Packages current named: 'Seaside') run. " or runQuietly, runStepping, runLogging" + (Packages beta named: 'Seaside') run. - (Packages current load: 'Seaside') run. " or runQuietly, runStepping, runLogging" - (Packages currentBeta load: 'Seaside') run.
multiples:
+ Packages current load: #('Seaside' 'Magma' 'Logging') - (Packages current load: #('Seaside' 'Magma' 'Logging') ) run.
Run-variants =========
#runStepping , - presents a confirm/debug dialog before each action. #run - default. #runQuietly - auto-confirms any SakeConfirm dialogs. #runLogging - Writes any SakeStop warnings to self log.
Unloading ======== Unloading comes in two variants.
Each package task loaded by Sake/Packages is remembered in the 'provided' list If you perform:
+ Packages unload: 'Seaside' . + + Packages unloadStepping: 'Seaside' . - (Packages unload: 'Seaside') runStepping.
Then the 'historical' unload scripts are used, as defined when the original load tasks were run.
If instead you perform:
(Packages current named: 'Seaside') unload runStepping.
Then the most recently defined unload script will be run.
Note: If packages such as "Magma server" and "Magma client" provides "Magma", then
+ (ackages unload: 'Magma'. - (Packages unload: 'Magma') run.
Will unload whichever of the two are loaded. === Misc notes...
Universes are using 'instance side' task definition, so the task extensions mechanism does not work in this context.
!
Item was added: + ----- Method: Packages class>>unloadStepping: (in category 'public') ----- + unloadStepping: aNameOrList + + aNameOrList isString ifTrue: [ ^ (self providedAt: aNameOrList) unload runStepping]. + + ^ (aNameOrList collect: [ :ea | (self providedAt: aNameOrList) unload ]) asTask runStepping + !
Item was removed: - ----- Method: Packages class>>currentBeta (in category 'public') ----- - currentBeta - - ^ Smalltalk classNamed: (('Packages' , SystemVersion current majorMinorVersion asLegalSelector capitalized), 'beta') asSymbol!
packages@lists.squeakfoundation.org