A new version of Sake-Bob was added to project Sake : http://www.squeaksource.com/Sake/Sake-Bob-kph.9.mcz
==================== Summary ====================
Name: Sake-Bob-kph.9 Author: kph Time: 28 January 2009, 6:48:22 pm UUID: dff5774d-0d4e-4a05-afe1-d5d6d2468fb0 Ancestors: Sake-Bob-kph.8
=============== Diff against Sake-Bob-kph.8 ===============
Item was changed: ----- Method: BobBuild class>>taskBuildAll (in category 'as yet unclassified') ----- taskBuildAll
"we need to tell this task to sort its dependencies appropriately before it is run" "there is a sorting algorithm in collection: , but this might not be exactly what we want." + ^ (self allSubclasses collect: [ self build ]) asTask; defined !
Item was changed: ----- Method: BobBuild class>>taskObtainImage: (in category 'as yet unclassified') ----- + taskObtainImage: zipFile + + " + (self taskObtainImage: 'ftp://ftp.squeak.org/3.10/Squeak3.10.2-7179-basic.zip' asFile) run + " + | localZipFile | - taskObtainImage: aUrl
+ localZipFile := (self configImagesDir / zipFile fileName) zip. + + ^ self define: [ :task | + task dependsOn: { self taskObtainImageZipFile: zipFile }. + + task action: [ + localZipFile readArchive extractAllTo: task wipDir mkpath asFileDirectory. + ] + ] - ^ self perform: ('taskObtainImage' , (aUrl upTo: $:) asLowercase capitalized, ':') asSelector. - !
Item was added: + ----- Method: BobBuildImage class>>build (in category 'as yet unclassified') ----- + build + + ^ self define: [ :task | + + "obtain latest meta-data from instance side" + + task latest: #build. + task info timeStart: TimeStamp now. + + task action: { + + self taskObtainImage: task info image asFile. + + + + } + ]!
Item was changed: ----- Method: BobPeriodicallyWatchRepositories>>taskWatchTasks (in category 'as yet unclassified') ----- taskWatchTasks
^ SakeTask checkUrl: 'http://www.squeaksource.com/Tasks/feed.rss' + onChanged: [ " Installer sake install: 'Tasks'. + BobBuild build run." ]. - onChanged: [ Installer sake install: 'Tasks'. - BobBuild taskMain run. ]. !
Item was added: + ----- Method: BobBuild>>latest: (in category 'as yet unclassified') ----- + latest: prefix + + " + BobBuildReleaseAfterSqueak310 new latest: #build. + " + + | selector | + selector := (self class selectors select: [ :ea | ea beginsWith: prefix ]) asSortedCollection last. + + self info build: selector asString. + self perform: selector. + + + + !
Item was changed: ----- Method: BobBuild class>>configWipDir (in category 'as yet unclassified') ----- configWipDir
+ ^ 'wip' asDirectory! - ^ 'wip'!
Item was added: + BobBuild subclass: #BobBuildImage + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Sake-Bob'!
Item was changed: ----- Method: BobBuild class>>configMe (in category 'as yet unclassified') ----- configMe + + "my host name - my identity" + - ^ NetNameResolver localHostName!
Item was added: + ----- Method: BobBuild class>>taskObtainImageZipFile: (in category 'as yet unclassified') ----- + taskObtainImageZipFile: zipFile + + " + (self taskObtainImageZipFile: 'ftp://ftp.squeak.org/3.10/Squeak3.10.2-7179-basic.zip' asFile) run + " + + ^ self define: [ :task | + + task if: [ (self configImagesDir / zipFile fileName) exists not ]. + + task action: [ + self configImagesDir mkpath add: zipFile. + ] + ] + !
Item was added: + ----- Method: BobBuild class>>configImagesDir (in category 'as yet unclassified') ----- + configImagesDir + + ^ 'images' asDirectory!
Item was added: + ----- Method: BobBuild class>>obtainImageFtp: (in category 'as yet unclassified') ----- + obtainImageFtp: aUrl + + !
Item was changed: ----- Method: BobBuild>>wipDir (in category 'as yet unclassified') ----- + wipDir + + self class configWipDir / self info moniker! - wipDir!
Item was removed: - ----- Method: BobBuild class>>preferencePresortTasks (in category 'as yet unclassified') ----- - preferencePresortTasks - - ^ true!
Item was removed: - ----- Method: BobBuild class>>taskObtainImageBzr: (in category 'as yet unclassified') ----- - taskObtainImageBzr: aUrl - - self define: [ :task | - - ].!
Item was removed: - ----- Method: BobBuild class>>taskMain (in category 'as yet unclassified') ----- - taskMain - - self define: [ :task | - - task dependsOn: (self allSubclasses collect: [ self build ]). - - "we need to tell this task to sort its dependencies appropriately before it is run" - ].!
Item was removed: - ----- Method: BobBuild class>>latest: (in category 'as yet unclassified') ----- - latest: prefix - - " - BobBuildReleaseAfterSqueak310 latest: #build. - " - - ^ (self selectors select: [ :ea | ea beginsWith: prefix ]) asSortedCollection last!