[Pkg] Sake : Sake-Bob-kph.9.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

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!