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

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Fri Dec 12 00:06:55 UTC 2008


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

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

Name: Sake-Core-kph.78
Author: kph
Time: 12 December 2008, 12:06:53 am
UUID: 968a5ea4-ffcc-4ba0-ade1-398744a11499
Ancestors: Sake-Core-kph.77

If you do

{ sometask. someother } asTask run.

SakeTask collection: now sorts all of the tasks based upon dependencies.


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

Item was added:
+ ----- Method: SakeTask>>sort (in category 'as yet unclassified') -----
+ sort
+ 
+ 	"if your top level is a collection of tasks we presort them"
+ 		
+ 	actionBlock ifNotNil: [ self error: 'no need to presort' ].
+ 
+ 	actionBlock := self withAllPriorTasksInOrder.
+ 
+ 	priors := nil.
+ 	
+ 	^ self!

Item was changed:
  ----- Method: SakeTask class>>dependingOn: (in category 'as yet unclassified') -----
  dependingOn: aList
  
+ 	^ self define: [ :task | task dependsOn: aList ].!
- 	^ (self define: [ :task | task dependsOn: aList ]) defined!

Item was changed:
  ----- Method: SakeTask class>>collection: (in category 'as yet unclassified') -----
  collection: collectionOfTasks
  
+ 	collectionOfTasks size = 1 ifTrue: [ ^ self action: collectionOfTasks ].
+ 	
+ 	^ (self dependingOn: collectionOfTasks) sort		
+ !
- 	^ self define: [ :task |
- 
- 		task dependsOn: collectionOfTasks.		
- 		 
- 	]!

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

Item was removed:
- ----- Method: SakeTask class>>taskDependingOn: (in category 'as yet unclassified') -----
- taskDependingOn: aList
- 
- 	^ self define: [ :task | task dependsOn: aList ].!

Item was removed:
- ----- Method: SakeTask class>>preferencePresortTasks (in category 'as yet unclassified') -----
- preferencePresortTasks
- 
- ^ false!



More information about the Packages mailing list