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

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Sun Nov 23 17:59:16 UTC 2008


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

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

Name: Sake-Core-kph.67
Author: kph
Time: 23 November 2008, 5:59:14 pm
UUID: afa45f22-7345-4f6d-943b-d9688b87553b
Ancestors: Sake-Core-kph.66

fix

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

Item was changed:
  ----- Method: SakeTask class>>dir: (in category 'as yet unclassified') -----
+ dir: aDirectoryAble 
- dir: aRioable 
  		
  	^ self define: [ :task |
+ 		task target: aDirectoryAble asDirectory.
- 		task target: aRioable asRio.
  		task if: [ task target exists not ].
  		task action: [ task target mkpath ].		
  	]
  !

Item was changed:
  ----- 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 ].
  	
  	hasRun := true.
  	
  	priorTasks := self dependsOn collect: [ :prior | setOfTasks like: (self taskFrom: prior) ].
  	
  	priorTasks collect: [ :each | 
+ 		each ifNotNil: [ each runLevel: runLevel. 
+ 		each privateRunRakeOrdering: setOfTasks ]].
- 		each runLevel: runLevel. 
- 		each privateRunRakeOrdering: setOfTasks ].
  	
  	(self isNeeded: priorTasks) 
  		ifTrue: [ 
  			self trace. 
  			self doAction: priorTasks.
  			 
  			^ result.
  		].
  	
  	^ false
  !

Item was changed:
  ----- Method: SakeTask class>>file: (in category 'as yet unclassified') -----
+ file: aFileAble
- file: aRioable
  
  	^ self define: [ :task |
+ 		task target: aFileAble asFile.
- 		task target: aRioable asRio.
  		task if: [ :prerequisites | task target exists not or: [ prerequisites anySatisfy: [ :each | each target mTime > self target mTime ]] ].
  		task action: [ task target ]	
  	].!



More information about the Packages mailing list