Packages July 2009

packages@lists.squeakfoundation.org

1 participants
80 discussions

Rio: Rio-Core-kph.27.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 13 Jul '09

13 Jul '09

A new version of Rio-Core was added to project Rio: http://www.squeaksource.com/Rio/Rio-Core-kph.27.mcz ==================== Summary ==================== Name: Rio-Core-kph.27 Author: kph Time: 13 July 2009, 12:41:51 am UUID: 2331db6a-5050-4758-8738-0e6fbf25dfc7 Ancestors: Please use File-Kernel, File-Base, and FileTests ==================== Snapshot ====================

1 0

Rio: Rio-Kernel-kph.37.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 13 Jul '09

13 Jul '09

A new version of Rio-Kernel was added to project Rio: http://www.squeaksource.com/Rio/Rio-Kernel-kph.37.mcz ==================== Summary ==================== Name: Rio-Kernel-kph.37 Author: kph Time: 13 July 2009, 12:41:27 am UUID: 6b89005d-f074-41d7-b695-78cebe8addce Ancestors: Please use File-Kernel, File-Base, and FileTests ==================== Snapshot ====================

1 0

Sake : Sake-Bob-kph.21.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 11 Jul '09

11 Jul '09

A new version of Sake-Bob was added to project Sake : http://www.squeaksource.com/Sake/Sake-Bob-kph.21.mcz ==================== Summary ==================== Name: Sake-Bob-kph.21 Author: kph Time: 11 July 2009, 6:48:04 pm UUID: a534ade9-b5ba-460c-a130-6134d711f192 Ancestors: Sake-Bob-kph.20 Updated Scheduled tasks for latest Scheduler which supports Sake-SchedulerSeaside =============== Diff against Sake-Bob-kph.20 =============== Item was changed: ----- Method: BobBuildImage class>>taskBuild: (in category 'as yet unclassified') ----- taskBuild: metaSelector | reason | ^ self define: [ :task | "obtain latest meta-data from instance side" (task infoFor: metaSelector) ifNil: [ ^ self noop ]. "we set our start time to the time of the build request, the actual action may take a while longer to actually happen, however this helps to give builds instancated together a similar start time" task info timeInitiated: DateAndTime now. task if: [ task timeStart. + reason := task isBuildWanted. + reason := reason ifNil: [ + task stepNeeded. + task isBuildNeeded. + ]. + "1. continue 2. symbol 3. msg" - reason := task isBuildNeeded. "1. continue 2. symbol 3. msg" self log info build: task info name isNeeded: reason first because: reason third. . task info reason: reason third. reason first ]. task action: [ task stepAction. task actionBuild. ] ] ! Item was changed: ----- Method: BobConfig class>>configBaseDir (in category 'as yet unclassified') ----- configBaseDir + ^ Directory new parent! - ^ '/bob' asDirectory! Item was changed: ----- Method: BobBuild>>infoFilePublishAlongside: (in category 'as yet unclassified') ----- infoFilePublishAlongside: aDir "info file for alongside the published archive, (tidy it up first)" | i | (aDir parent / self stampedName + '.info') delete writer: [ :str | i := self info copy. i keys do: [ :k | (k beginsWith: 'step') ifTrue: [ i removeKey: k ] ]. + i keys do: [ :k | (k beginsWith: 'tmp') ifTrue: [ i removeKey: k ] ]. i storeOn: str ] ! Item was added: + ----- Method: BobPeriodicWatchSqueakMap class>>services (in category 'as yet unclassified') ----- + services + + ^ { ((self do: #doAllTasks every: 1 days) + noRunHistory; + name: 'watching-squeakmap'; + description: 'Updates Packages-SqueakMap daily'; + yourself) } + + ! Item was added: + ----- Method: BobPeriodicWatchRepositories class>>services (in category 'as yet unclassified') ----- + services + + ^ { ((self do: #doAllTasks every: 300 seconds) + noRunHistory; + name: 'watching-repos'; + description: 'Reads Bob and Packages when the rss feed indicates that an update has occurred' + yourself) } + + ! Item was changed: ----- Method: BobPeriodicWatchRepositories>>disaWatchBob (in category 'as yet unclassified') ----- disaWatchBob ^ SakeTask checkUrl: 'http://www.squeaksource.com/Bob/feed.rss' onChanged: [ + self log info: 'Bob Repository Has Changed'. - self log info: 'Bob Repository Updated'. Installer squeaksource project: 'Bob'; + + install: 'Bob-Releases'; + install: 'Tasks-Squeak310'; - install: 'Tasks-Common'; install: 'Tasks-Squeak311'; + yourself. - install: 'Tasks-Squeak310'; - install: 'Bob-Releases'. ]. ! Item was added: + ----- Method: BobPeriodicWatchUniverses class>>services (in category 'as yet unclassified') ----- + services + ^ { ((self do: #doAllTasks every: 15 minutes) + noRunHistory; + name: 'watching-universes'; + description: 'Updates Packages-Library from Universes every 15 minutes'; + yourself) } + + ! Item was added: + ----- Method: BobBuildImage>>isBuildWanted (in category 'as yet unclassified') ----- + isBuildWanted + | | + + "if the output directory doesnt exist then - dont build" + self outputDir asDirectory exists ifFalse: [ ^ { false. #notWanted. 'Output directory not present: ', self outputDir.}. ]. + + "if we have the don't flag - dont build" + #dont = info when ifTrue: [ ^ #(false #dont 'dont flag set') ]. + false = info when ifTrue: [ ^ #(false #dont 'dont flag false') ]. + + ^ nil! Item was changed: ----- Method: BobBuildImage>>isBuildNeededForBuildNow (in category 'as yet unclassified') ----- isBuildNeededForBuildNow + - | | - - "if the output directory doesnt exist then - dont build" - self outputDir asDirectory exists ifFalse: [ 'no - ', self outputDir, ' not found' ]. - "if we have the don't flag - dont build" - info when = #dont ifTrue: [ ^ #(false #dont 'dont flag set') ]. - info when = false ifTrue: [ ^ #(false #dont 'dont flag false') ]. - - self stepNeeded. - - latest := self infoFileReadLatest. zipFile := self resolveFile: info image asFile ifNone: [:msg | ^ { false. #notFound. msg.} ]. ^ { true. #itsAnOrder. ('building ', self info name). } ! Item was changed: ----- Method: BobBuildImage>>isBuildNeeded (in category 'as yet unclassified') ----- isBuildNeeded - - | wait dependentFile | - - "if the output directory doesnt exist then - dont build" - self outputDir asDirectory exists ifFalse: [ ^ { false. #notWanted. 'Output directory not present: ', self outputDir.}. ]. - "if we have the don't flag - dont build" - #dont = info when ifTrue: [ ^ #(false #dont 'dont flag set') ]. - false = info when ifTrue: [ ^ #(false #dont 'dont flag false') ]. - - self stepNeeded. - - "if an explicit build time has been set and not yet reached - dont build" + | dependentFile wait | + ((info when isKindOf: DateAndTime) and: [ info when > self timeStart ]) - ((info when isKindOf: DateAndTime) and: [ info when > info timeStart ]) ifTrue: [ ^ { false. #notYet. ('time is not yet ', info when asString). } ]. latest := self infoFileReadLatest. "if 'when' is set to a file obtain creation time, if not use info image" info when isFileOrDirectory ifTrue: [ dependentFile := self resolveFile: info when ifNone: [:msg | ^ { false. #notFound. msg.}]. self info dependentCreationTime: dependentFile creationTime. zipFile := self resolveFile: info image ifNone: [:msg | ^ { false. msg.} ]. ] ifFalse: [ dependentFile := zipFile := self resolveFile: info image asFile ifNone: [:msg | ^ { false. #notFound. msg.} ]. self info dependentCreationTime: (info imageCreationTime ifNil: [ zipFile creationTime ]). ]. "has our starting image changed? if so" (latest dependentCreationTime ~= self info dependentCreationTime) ifTrue: [ self dependentFileChanged: dependentFile. ^ { true. #dependentChanged. (dependentFile asString , ' has changed').} ] ifFalse: [ ((true = info when) or: [ info when isFileOrDirectory ]) ifTrue: [ ^ { false. #waitingForChange. ('waiting for ', dependentFile asString , ' to change').} ]]. "we have a new build id, so we build" latest build ~= info build ifTrue: [ ^ { true. #newBuildNumber. ('new build number ',info build).} ]. (info when isKindOf: Duration) ifTrue: [ wait := latest startTime + info when - TimeStamp now wait > 0 ifTrue: [ ^ { false. #waiting. (wait seconds asString, ' seconds to go').} ]. ]. "an explicit build time has been given, and this is present existing latest" ((info when isKindOf: DateAndTime) and: [ info when <= latest timeStart ]) ifTrue: [ ^ { false. #done. ((latest package ifNil: [ latest name ]) , ' already built'). } ]. ^ { true. #itsTime. ('building ', self info name). }. ! Item was added: + ----- Method: BobPeriodicBuilds class>>services (in category 'as yet unclassified') ----- + services + ^ { + + (self do: #doAllTasks every: 600 seconds) + noRunHistory; + name: 'builder'; + description: 'The main Bob task for periodically building everything'; + yourself. + } + ! Item was changed: ----- Method: BobPeriodicWatchRepositories>>taskWatchPackages (in category 'as yet unclassified') ----- taskWatchPackages | | ^ SakeTask checkUrl: 'http://www.squeaksource.com/Packages/feed.rss' onChanged: [ + self log info: 'Packages Library Has Changed'. - self log info: 'Packages Library Updated'. Installer squeaksource project: 'Packages'; install: 'Packages-Library'. ]. ! Item was changed: ----- Method: BobBuildImage class>>taskBuildNow: (in category 'as yet unclassified') ----- taskBuildNow: metaSelector | isNeeded | ^ self define: [ :task | "obtain latest meta-data from instance side" (task infoFor: metaSelector) ifNil: [ ^ self noop ]. task if: [ task timeStart. + isNeeded := task isBuildWanted. + isNeeded := isNeeded ifNil: [ + task stepNeeded. + task isBuildNeededForBuildNow. + ]. - isNeeded := task isBuildNeededForBuildNow. - self log info build: task info name isNeeded: isNeeded first because: isNeeded third. . task info reason: isNeeded third. isNeeded first. ]. task action: [ task stepAction. task actionBuild. ] ] ! Item was removed: - ----- Method: BobPeriodicWatchSqueakMap class>>initialize (in category 'as yet unclassified') ----- - initialize - super initialize. - self scheduler addTask: ((self do: #doAllTasks every: 1 days) - noRunHistory; - description: 'watching-squeakmap'; - yourself) - - ! Item was removed: - ----- Method: BobPeriodicWatchRepositories class>>initialize (in category 'as yet unclassified') ----- - initialize - super initialize. - self scheduler addTask: ((self do: #doAllTasks every: 300 seconds) - noRunHistory; - description: 'watching-repos'; - yourself) - - ! Item was removed: - ----- Method: BobPeriodicWatchUniverses class>>initialize (in category 'as yet unclassified') ----- - initialize - super initialize. - self scheduler addTask: ((self do: #doAllTasks every: 15 minutes) - noRunHistory; - description: 'watching-squeakmap'; - yourself) - - ! Item was removed: - ----- Method: BobPeriodicBuilds class>>start (in category 'as yet unclassified') ----- - start - super initialize. - self scheduler addTask: ((self do: #doAllTasks every: 600 seconds) - noRunHistory; - description: 'builder'; - yourself) - - !

1 0

Sake : Sake-Scheduler-kph.12.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 11 Jul '09

11 Jul '09

A new version of Sake-Scheduler was added to project Sake : http://www.squeaksource.com/Sake/Sake-Scheduler-kph.12.mcz ==================== Summary ==================== Name: Sake-Scheduler-kph.12 Author: kph Time: 11 July 2009, 6:47:21 pm UUID: 12ace6d9-a574-4387-8029-1a273db35c6f Ancestors: Sake-Scheduler-kph.11 updated for Sake-SchedulerSeaside =============== Diff against Sake-Scheduler-kph.11 =============== Item was added: + ----- Method: Scheduler class>>allServices (in category 'as yet unclassified') ----- + allServices + + ^ ScheduledTask allSubclasses! Item was changed: Object subclass: #Scheduler instanceVariableNames: 'running tasks accessProtect' classVariableNames: 'Default' poolDictionaries: '' category: 'Sake-Scheduler'! + !Scheduler commentStamp: 'kph 7/11/2009 18:43' prior: 0! + This scheduler is based upon "Scheduler" by the following authors - !Scheduler commentStamp: 'kph 8/18/2008 04:10' prior: 0! - This scheduler is based upon Scheduler by the following authors Creator: John Pierce Admin: Ben Schroeder, John Pierce Developer: Bill Burchfield + Adapted by: Keith Hodges. + + We add the concept of periodic services from gjallar. + + The services which are defined in #services are started on image startUp. + Tasks which are started manually #start/stop are perpetuated across image restarts. + + notes: + Uses Logging + Does not depend upon Sake. - adapted by: Keith Hodges for Bob. + There is a basic Seaside UI in Sake-SchedulerSeaside + ! - we add the concept of periodic services.! Item was changed: ----- Method: Scheduler>>printOn: (in category 'printing') ----- printOn: aStream aStream + nextPutAll: 'Service scheduler is ', (running ifTrue: ['running'] ifFalse: ['stopped']); - nextPutAll: 'Task scheduler is ', (running ifTrue: ['running'] ifFalse: ['stopped']); nextPutAll: ' with '; nextPutAll: self taskCount asWords; nextPutAll:' task'. self taskCount = 1 ifFalse: [aStream nextPut: $s] ! Item was added: + ----- Method: ScheduledTask>>workerProcess (in category 'accessing') ----- + workerProcess + "Answer the value of workerProcess" + + ^ workerProcess! Item was changed: ----- Method: Scheduler class>>stopServices (in category 'as yet unclassified') ----- stopServices + self allServices do: [ :ea | ea stop ]. - ScheduledTask allSubclassesDo: [ :ea | ea unload ]. ! Item was changed: ----- Method: ScheduledTask class>>initialize (in category 'as yet unclassified') ----- initialize + ! - self unload. - - "in subclasses place services schedule here - - e.g. - - - self scheduler addTask: (self do: [ ... ] every: '1:00pm'). - self scheduler addTask: (self do: #defaultAction every: '1:00pm'). - method #defaultAction needs to be defined. - " - - ! Item was added: + ----- Method: ScheduledTask>>workerProcess: (in category 'accessing') ----- + workerProcess: anObject + "Set the value of workerProcess" + + workerProcess := anObject! Item was added: + ----- Method: Scheduler>>isRunning (in category 'initialization') ----- + isRunning + + ^ running! Item was added: + ----- Method: ScheduledTask>>printLastRunTime (in category 'printing') ----- + printLastRunTime + + ^ (runHistory isEmptyOrNil + ifTrue: [runHistory ifNil: [ '<not logged>' ] ifNotNil: [ '<never run>' ] ] + ifFalse: [runHistory last asString]).! Item was added: + ----- Method: ScheduledTask>>= (in category 'private') ----- + = other + + ^ self species = other species and: [ self name = other name ] and: [ self description = other description ] ! Item was changed: ----- Method: Scheduler class>>refresh (in category 'as yet unclassified') ----- refresh + | oldTasks | + oldTasks := self default tasks. + + self default tasksDo: [ :ea | ea delete ]. + self default addTasks: oldTasks.! - self stopServices. - self startServices.! Item was changed: Object subclass: #ScheduledTask + instanceVariableNames: 'name description scheduler task runHistory workerProcess schedule nextRunTime' - instanceVariableNames: 'description scheduler task runHistory workerProcess schedule nextRunTime' classVariableNames: '' poolDictionaries: '' category: 'Sake-Scheduler'! + !ScheduledTask commentStamp: 'kph 7/10/2009 03:47' prior: 0! + If your task is to be run automatically on load or startUp, override #initialize (class side) to call #start + + Publish your tasks for #start via #services + + #stop/#unload are synonomous. + + Additional tasks can be added directly. + + self scheduler addTask: (self do: [ ... ] every: '1:00pm'). + self scheduler addTask: (self do: #defaultAction every: '1:00pm'). + method #defaultAction needs to be defined.! - !ScheduledTask commentStamp: 'kph 3/28/2009 17:04' prior: 0! - If your task is to be run automatically on load or startUp, override #initialize (class side). - Otherwise name the method #start. - #stop/#unload are synomonous. - ! Item was changed: ----- Method: ScheduledTask>>printOn: (in category 'printing') ----- printOn: aStream aStream nextPutAll: (self class name); cr. self description ifNotNil: [aStream nextPutAll: self description; cr]. self isRunning ifTrue: [aStream nextPutAll: 'CURRENTLY RUNNING !!!!']. self isSuspended ifTrue: [aStream nextPutAll: ' (suspended)']. aStream cr; nextPutAll: 'Next Run Time : ', self nextRunTime asString; cr; + nextPutAll: 'Last Run Time : ', self printLastRunTime! - nextPutAll: 'Last Run Time : ', (runHistory isEmptyOrNil - ifTrue: [runHistory ifNil: [ '<not logged>' ] ifNotNil: [ '<never run>' ] ] - ifFalse: [runHistory last asString]).! Item was added: + ----- Method: ScheduledTask>>name: (in category 'accessing') ----- + name: anObject + "Set the value of name" + + name := anObject! Item was added: + ----- Method: Scheduler>>tasks (in category 'accessing') ----- + tasks + + | copiedTasks | + accessProtect critical: [copiedTasks := tasks copy]. + + ^ copiedTasks ! Item was added: + ----- Method: Scheduler>>addTasks: (in category 'scheduling') ----- + addTasks: aList + accessProtect critical: [ + aList do: [ :aScheduledTask | tasks add: (aScheduledTask scheduler: self; yourself)] + ]! Item was changed: ----- Method: ScheduledTask>>description (in category 'accessing') ----- description + ^ description ifNil: [ self name ]! - ^ description! Item was added: + ----- Method: ScheduledTask>>runHistory: (in category 'accessing') ----- + runHistory: anObject + "Set the value of runHistory" + + runHistory := anObject! Item was added: + ----- Method: ScheduledTask>>name (in category 'accessing') ----- + name + + ^ name ifNil: [ self class name ]! Item was changed: ----- Method: Scheduler>>addTask: (in category 'scheduling') ----- addTask: aScheduledTask + ^ self addTasks: (Array with: aScheduledTask)! - ^ accessProtect critical: [tasks add: (aScheduledTask scheduler: self; yourself)]! Item was changed: ----- Method: Scheduler class>>startServices (in category 'as yet unclassified') ----- startServices self default start. + self allServices do: [ :ea | ea start ]. - ScheduledTask allSubclasses do: [ :ea | ea initialize ]. ! Item was added: + ----- Method: ScheduledTask>>isScheduled (in category 'executing') ----- + isScheduled + ^ scheduler notNil! Item was added: + ----- Method: ScheduledTask>>hash (in category 'private') ----- + hash + + ^ self species hash bitXor: self description hash! Item was added: + ----- Method: ScheduledTask class>>start (in category 'as yet unclassified') ----- + start + self stop. + self scheduler addTasks: self services! Item was changed: ----- Method: Scheduler>>tasksDo: (in category 'accessing') ----- tasksDo: aOneArgBlock + self tasks do: aOneArgBlock! - | copiedTasks | - accessProtect critical: [copiedTasks := tasks copy]. - - copiedTasks do: aOneArgBlock!

1 0

Installer: Installer-Core-kph.319.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 11 Jul '09

11 Jul '09

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.319.mcz ==================== Summary ==================== Name: Installer-Core-kph.319 Author: kph Time: 11 July 2009, 4:28:22 pm UUID: 99f78d8a-5d7a-4d39-8557-3554cb81c028 Ancestors: Installer-Core-kph.314 Installer bug: reads the date and status =============== Diff against Installer-Core-kph.314 =============== Item was changed: ----- Method: InstallerMantis>>ensureFix:date: (in category 'public interface') ----- ensureFix: aBugNo date: aDate self setBug: aBugNo. + self date: aDate. - self date: aDate.. self ensureFix.! Item was changed: ----- Method: InstallerMantis>>bug: (in category 'public interface') ----- bug: aBugNo + | page | self setBug: aBugNo. + + page := self maPage. + date := ((self maRead: page field: 'Date Updated') value replaceAll: $ with: $T) asDateAndTime. + status := (self maRead: page field: 'Status') value. + " + Installer mantis bug: 7235 + "! - ^ self report!

1 0

Packages: Sake-Packages-kph.40.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 11 Jul '09

11 Jul '09

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.40.mcz ==================== Summary ==================== Name: Sake-Packages-kph.40 Author: kph Time: 11 July 2009, 4:27:35 pm UUID: 76b07b05-f819-4433-85d9-12e726b83734 Ancestors: Sake-Packages-kph.39 taskEnsureFix is a SakeTask not a Package =============== Diff against Sake-Packages-kph.39 =============== Item was added: + ----- Method: Packages class>>taskFix: (in category 'private') ----- + taskFix: aFixString + + ^ self define: [ :task | + task version: (Installer mantis bug: aFixString) date. + + task action: [ + Installer mantis fix: aFixString. + ]. + ] + + + ! Item was changed: ----- Method: Packages class>>taskEnsureFix: (in category 'private') ----- taskEnsureFix: aFixString + ^ SakeTask define: [ :task | + - ^ self define: [ :task | - task action: [ Installer mantis ensureFix: aFixString. ]. ] !

1 0

Packages: Packages-Library-kph.94.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 11 Jul '09

11 Jul '09

A new version of Packages-Library was added to project Packages: http://www.squeaksource.com/Packages/Packages-Library-kph.94.mcz ==================== Summary ==================== Name: Packages-Library-kph.94 Author: kph Time: 11 July 2009, 4:00:54 pm UUID: 8c43a279-9939-4017-bef4-e3d60074bb97 Ancestors: Packages-Library-kph.93 fixing OBEnhancements to load fix in =============== Diff against Packages-Library-kph.93 =============== Item was changed: ----- Method: PackagesSqueak310>>OBEnhancements (in category 'as yet unclassified') ----- OBEnhancements + + ^ PackagesDev new OBEnhancements + addDependency: '7325 Traits compatability with classes withAllClassesDo'; + defined - super OBEnhancements. - self addDependency: '7325 Traits compatability with classes withAllClassesDo'. !

1 0

Packages: Sake-Packages-kph.39.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 11 Jul '09

11 Jul '09

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.39.mcz ==================== Summary ==================== Name: Sake-Packages-kph.39 Author: kph Time: 11 July 2009, 3:58:51 pm UUID: 7a54cf59-5a87-41f1-bff5-a8f40889a608 Ancestors: Sake-Packages-kph.38 fixing find path =============== Diff against Sake-Packages-kph.38 =============== Item was changed: ----- Method: Packages class>>findNamed: (in category 'private') ----- findNamed: packageName | sel | sel := self asSelector: packageName. + - - (self canPerform: sel) ifTrue: [ ^ self basicNamed: packageName ]. - ^ (self findPath detect: [ :ea | ea canPerform: sel ] ifNone: [ ^nil ]) basicNamed: packageName!

1 0

Sake : Sake-Core-kph.110.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 11 Jul '09

11 Jul '09

A new version of Sake-Core was added to project Sake : http://www.squeaksource.com/Sake/Sake-Core-kph.110.mcz ==================== Summary ==================== Name: Sake-Core-kph.110 Author: kph Time: 11 July 2009, 3:37:19 pm UUID: dfd8168b-df49-44db-956d-66d7c0ccf4c4 Ancestors: Sake-Core-kph.109 Run prior tasks at my run level =============== Diff against Sake-Core-kph.109 =============== Item was changed: ----- Method: SakeTask>>privateRun (in category 'as yet unclassified') ----- privateRun | priorTasks blocked wasBlocked | "this is the way that Rake orders tasks" "we ensure that we obtain the task to run from the overall set of tasks" self hasRun ifTrue: [ ^ result ]. priorTasks := self tasksFromList: self dependsOn. "anyting it runs that is blocked is added to the block set, anything that suceeds is removed form the blocked set. at the end, we shall have a list of blocked tasks that can be retried, if that list is the same as the list that was blocked before stop and complain" blocked := Set new. [ wasBlocked := blocked copy. priorTasks do: [ :each | - each runLevel: runLevel. [ + each useSetOfTasks: setOfTasks during: [ each run: runLevel ]. - each useSetOfTasks: setOfTasks during: [ each privateRun]. blocked remove: each ifAbsent: [ ]. ] on: SakeBlock do: [ :ex | blocked add: ex task ]. ]. (blocked notEmpty and: [ blocked = wasBlocked ]) ifTrue: [ SakeBlock signalTask: self ]. ] doWhileFalse: [ blocked isEmpty ]. (self isNeeded: priorTasks) ifTrue: [ self trace. self doAction: priorTasks. self hasRunSet. ^ result. ]. ^ false ! Item was added: + ----- Method: SakeTask>>run: (in category 'running') ----- + run: aRunLevel + + ^ self perform: aRunLevel!

1 0

Packages: Packages-Library-kph.93.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 11 Jul '09

11 Jul '09

A new version of Packages-Library was added to project Packages: http://www.squeaksource.com/Packages/Packages-Library-kph.93.mcz ==================== Summary ==================== Name: Packages-Library-kph.93 Author: kph Time: 11 July 2009, 1:08:30 pm UUID: 664b12b0-3811-411b-9029-d40160a5fa63 Ancestors: Packages-Library-kph.92 added OBEnhancements needs 7325 for Squeak3.10 =============== Diff against Packages-Library-kph.92 =============== Item was changed: ----- Method: PackagesDev>>Algernon (in category 'Web Development') ----- Algernon + super Algernon. - super Algernon. self answer: '*ould*' with: true. ! Item was added: + ----- Method: PackagesSqueak310>>OBEnhancements (in category 'as yet unclassified') ----- + OBEnhancements + + super OBEnhancements. + self addDependency: '7325 Traits compatability with classes withAllClassesDo'. + + !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages July 2009