[Pkg] Sake : Sake-Core-kph.100.mcz

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

A new version of Sake-Core was added to project Sake :
http://www.squeaksource.com/Sake/Sake-Core-kph.100.mcz

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

Name: Sake-Core-kph.100
Author: kph
Time: 17 February 2009, 10:43:06 pm
UUID: 85b2f0c5-5bd7-4761-b40d-7d2082b310c3
Ancestors: Sake-Core-kph.99

minor tinkering

=============== Diff against Sake-Core-kph.99 ===============

Item was changed:
  ----- Method: SakeTask>>if: (in category 'as yet unclassified') -----
  if: block
  
+ 	block isBlock ifTrue: [ block fixTemps ].
  	ifBlock := block.
+ !
- 	block isBlock ifTrue: [ block fixTemps ].!

Item was changed:
  ----- Method: SakeTask>>log: (in category 'as yet unclassified') -----
  log: aString
   
  	(self respondsTo: #log) ifFalse: [ ^ self ].
  	
+ 	self log sake << aString printString << ' ' << self class name << '>>' <<< self context method selector!
- 	self log sake << aString printString << ' ' <<< self context method selector!

Item was changed:
  ----- Method: SakeMeta>>printOn: (in category 'printing') -----
  printOn: aStream
  
  	"writes metadata in a user readable format"
  
  	self withIndexDo: [ :value :key | 
  			aStream
  				nextPutAll: key;
  				nextPutAll: ': ';
+ 				store: value ;
- 				nextPutAll: value asString;
  				cr]
  !

Item was changed:
  ----- Method: SakeTask>>privateRun: (in category 'as yet unclassified') -----
  privateRun: setOfTasks
  
+  	"this is the way that Rake orders tasks"
+ 	
  	"we ensure that we obtain the task to run from the overall set of tasks"
  	| priorTasks |
  	
  	self hasRun ifTrue: [ ^ result ].
- 	
- 	hasRun := true.
- 	
- 	priorTasks := self dependsOn collect: [ :prior | setOfTasks like: (self taskFrom: prior) ].
  		
+ 	priorTasks := self dependsOn collect: [ :prior | setOfTasks like: (self taskFrom: prior) ].
+ 	
+ 	priorTasks collect: [ :each | 
+ 		each ifNotNil: [ each runLevel: runLevel. 
+ 		each privateRun: setOfTasks ]].
+ 	
+ 	(self isNeeded: priorTasks) 
+ 		ifTrue: [ 
+ 			self trace. 
+ 			self doAction: priorTasks.
+ 			hasRun := true.
+ 			 
+ 			^ result.
+ 		].
- 	(self isNeeded: priorTasks) ifTrue:[ self trace. (self doAction: priorTasks). ^ result  ].
  	
  	^ false
  !

Item was changed:
  ----- Method: SakeMeta>>storeOn: (in category 'printing') -----
  storeOn: aStream
  
  	"writes metadata in a user readable format"
  
  	| noneYet |
  	aStream nextPutAll: '('.
  	aStream nextPutAll: self class name.
  	aStream nextPutAll: ' new'; cr.
  	noneYet := true.
  	self withIndexDo: [ :value :key | 
  			noneYet
  				ifTrue: [noneYet := false]
  				ifFalse: [aStream nextPut: $;; cr].
  			aStream nextPutAll: ' at: '.
  			aStream store: key.
  			aStream nextPutAll: ' put: '.
+ 			aStream store: value.
- 			aStream store: value asString.
  			].
  	noneYet ifFalse: [aStream nextPut: $;; cr; nextPutAll: 'yourself'].
  	aStream nextPut: $)!

Item was changed:
  ----- Method: SakeTask>>runInteractively (in category 'running') -----
  runInteractively
  
  	runLevel ifNil: [ runLevel := #runInteractively ].
  
+ 	^ self privateRun: (self withAllPriorTasks)!
- 	^ self privateRunRakeOrdering: (self withAllPriorTasks)!

Item was removed:
- ----- Method: SakeTask>>privateRunRakeOrdering: (in category 'as yet unclassified') -----
- privateRunRakeOrdering: setOfTasks
- 
-  	"this is the way that Rake orders tasks, doesnt seem right to me"
- 	
- 	"we ensure that we obtain the task to run from the overall set of tasks"
- 	| priorTasks |
- 	
- 	self hasRun ifTrue: [ ^ result ].
- 		
- 	priorTasks := self dependsOn collect: [ :prior | setOfTasks like: (self taskFrom: prior) ].
- 	
- 	priorTasks collect: [ :each | 
- 		each ifNotNil: [ each runLevel: runLevel. 
- 		each privateRunRakeOrdering: setOfTasks ]].
- 	
- 	(self isNeeded: priorTasks) 
- 		ifTrue: [ 
- 			self trace. 
- 			self doAction: priorTasks.
- 			hasRun := true.
- 			 
- 			^ result.
- 		].
- 	
- 	^ false
- !