[Pkg] Sake : Sake-Bob-kph.17.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.17.mcz

==================== Summary ====================

Name: Sake-Bob-kph.17
Author: kph
Time: 6 March 2009, 1:03:23 am
UUID: 97b96bba-09ea-11de-9863-000a95edb42a
Ancestors: Sake-Bob-kph.16

+ watch squeakmap 
+ taskBuildNowAll

=============== Diff against Sake-Bob-kph.16 ===============

Item was added:
+ ----- Method: BobBuildImage>>isBuildNeededOverridden (in category 'as yet unclassified') -----
+ isBuildNeededOverridden
+ 
+ 	| |
+ 	
+ 	"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 added:
+ ----- Method: BobPeriodicWatchSqueakMap class>>initialize (in category 'as yet unclassified') -----
+ initialize
+ 	super initialize.
+ 	self scheduler addTask: ((self do: #doAllTasks every: 3 days) 
+ 									noRunHistory;
+ 									description: 'watching-squeakmap';
+ 									yourself)
+ 
+  !

Item was changed:
  ----- Method: BobPeriodicWatchRepositories class>>initialize (in category 'as yet unclassified') -----
  initialize
  	super initialize.
+ 	self scheduler addTask: ((self do: #doAllTasks every: 300 seconds) 
- 	self scheduler addTask: ((self do: #doAllTasks every: 180 seconds) 
  									noRunHistory;
  									description: 'watching-repos';
  									yourself)
  
   !

Item was added:
+ ----- Method: BobPeriodicWatchSqueakMap>>taskWatchPackages (in category 'as yet unclassified') -----
+ taskWatchPackages
+ 
+ 	| wc changes |
+ 	
+ 	^ SakeTask 
+ 		checkUrl: 'http://www.squeaksource.com/Packages/feed.rss' 
+ 		onChanged: [
+ 			
+ 			self log info: 'Packages-SqueakMapLibrary Updating'.
+ 
+ 			Installer squeaksource project: 'Packages'; install: 'Packages-SqueakMap'. 
+ 			
+ 			self squeakmap taskGenerateSqueakMapPackageTasks run.
+ 
+ 			wc := ((MCPackage named: 'Packages-SqueakMap') workingCopy).
+ 
+ 			changes := (wc changesRelativeToRepository: wc repository) operations collect: [ :ea | ea modification summary ].
+ 
+ 		 	wc taskSaveWithComment: ('auto regenerated:' , String cr, String cr, (changes joinUsing: String cr)).
+ 			
+ 			
+ 		].
+ 			
+  !

Item was added:
+ ScheduledLoggedTask subclass: #BobPeriodicWatchSqueakMap
+ 	instanceVariableNames: ''
+ 	classVariableNames: ''
+ 	poolDictionaries: ''
+ 	category: 'Sake-Bob'!

Item was changed:
  ----- Method: BobPeriodicWatchRepositories>>taskWatchPackages (in category 'as yet unclassified') -----
  taskWatchPackages
  
+ 	| wc changes |
+ 	
  	^ SakeTask 
  		checkUrl: 'http://www.squeaksource.com/Packages/feed.rss' 
  		onChanged: [
  			
  			self log info: 'Packages Library Updated'.
  
+ 			Installer squeaksource project: 'Packages'; install: 'Packages-Library'. 
+ 			
+ 			Packages taskGenerateAllUniverses run.
+ 
+ 			wc := ((MCPackage named: 'Packages-Library') workingCopy).
+ 
+ 			changes := (wc changesRelativeToRepository: wc repository) operations collect: [ :ea | ea modification summary ].
+ 
+ 		 	wc taskSaveWithComment: ('auto regenerated:' , String cr, String cr, (changes joinUsing: String cr)).
+ 			
+ 			
+ 		].
- 			Installer squeaksource project: 'Packages';
- 				install: 'Packages-Library'. ].
  			
+  !
- 		!

Item was added:
+ ----- Method: BobBuildParallelReleases class>>taskBuildNowAll (in category 'as yet unclassified') -----
+ taskBuildNowAll
+ 
+ 	^ ((self selectorsPrefixed: #build) collect: [ :sel | self taskBuildNow: sel ]) asTask
+ 	!

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 isBuildNeededOverridden.
-  					self log info build: task info name isNeeded: #true because: 'Direct order'.				 		 .
- 					task info reason: 'Direct order'.
  					
+  					self log info build: task info name isNeeded: isNeeded first because: isNeeded third.				 		 .
+ 					task info reason: isNeeded third.
+ 
+ 					isNeeded first.
+ 				].
- 					true ].
  		
  		task action: [ 
  				task stepAction.
  				task perform: task info action. 
  			]
  	]
  	
  
  !