[Pkg] Sake : Sake-Core-damiencassou.95.mcz

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

Damien Cassou uploaded a new version of Sake-Core to project Sake :
http://www.squeaksource.com/Sake/Sake-Core-damiencassou.95.mcz

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

Name: Sake-Core-damiencassou.95
Author: damiencassou
Time: 21 January 2009, 11:40:40 am
UUID: 88f81801-8d30-4cf9-a737-1028d04ddffd
Ancestors: Sake-Core-kph.94

- Categorizes methods
- Removes SakeTask>stautus (which was probably a typo and has no senders)

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

Item was changed:
+ ----- Method: SakeTask class>>create: (in category 'instance creation') -----
- ----- Method: SakeTask class>>create: (in category 'as yet unclassified') -----
  create: aRioable 
  		
  	^ (self file: aRioable) define: [ :task |
  		task if: [ task target exists not ].
  		task action: [ task target touch ].		
  	]
  
  """"""
  "The equivalent of rake's FileCreationTask
  	
  A file task that when used as a dependency will be needed if and only if the file has not been created. 
  Once created, it is not re-triggered if any of its dependencies are newer, 
  Nor does it trigger any rebuilds of tasks that depend on it whenever it is updated.
  	
  Default action is to create the file empty."		!

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

Item was changed:
+ ----- Method: SakeTask class>>noop (in category 'instance creation') -----
- ----- Method: SakeTask class>>noop (in category 'as yet unclassified') -----
  noop
  
  	^ SakeTask define: [:task | ]
  
  "	
  self noop context
  "!

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

Item was changed:
+ ----- Method: SakeTask class>>define: (in category 'instance creation') -----
- ----- Method: SakeTask class>>define: (in category 'as yet unclassified') -----
  define: aBlock
  
  	^ self new 
  		in: aBlock; 
  		defined;
  		yourself 
  	
   !

Item was changed:
+ ----- Method: SakeTask class>>waypoint: (in category 'instance creation') -----
- ----- Method: SakeTask class>>waypoint: (in category 'as yet unclassified') -----
  waypoint: aTask
  	
  	"protected from being repeated by a waypoint"
  
  	^ self define: [ :task |
  					
  		task if: [ ((self status at: #waypoints ifAbsentPut: [ Set new ]) includes: aTask hashParts) not ].
  
  		task action: {
  
  			aTask.
  			
  			[ (self status at: #waypoints) add:  aTask hashParts  ].			 
  		}.
  		 
  	].
  !

Item was changed:
+ ----- Method: SakeTask class>>fileList: (in category 'instance creation') -----
- ----- Method: SakeTask class>>fileList: (in category 'as yet unclassified') -----
  fileList: aString
  
  	^ self define: [ :task |
  		task target: aString.
  		task action: [ task target ]	
  	].!

Item was changed:
+ ----- Method: SakeTask class>>string: (in category 'instance creation') -----
- ----- Method: SakeTask class>>string: (in category 'as yet unclassified') -----
  string: aString
  
  	(aString includes: $*) ifTrue: [ ^ self fileList: aString ].
  	
  	^ aString last = $/ 
  		ifTrue: [ self dir: aString ]
  		ifFalse: [ self file: aString ]
  		
   !

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

Item was changed:
+ ----- Method: SakeTask class>>ensureClass:hasSubclass: (in category 'instance creation') -----
- ----- Method: SakeTask class>>ensureClass:hasSubclass: (in category 'as yet unclassified') -----
  ensureClass: aClassName hasSubclass: bClassName
  
  	^ SakeTask define: [ :task |
  
  		task dependsOn: { [ (self class: aClassName) exists ]  }.
  
  		task if: [ (self class: bClassName) exists not ].
  
  		task action: [ 
  			Smalltalk 
  				at: aClassName asSymbol 
  				ifAbsent: [ task stop: 'Class named ', aClassName , ' does not exist.' ]  		
  		]
  	]!

Item was changed:
+ ----- Method: SakeTask class>>class: (in category 'instance creation') -----
- ----- Method: SakeTask class>>class: (in category 'as yet unclassified') -----
  class: aClassOrName
  
  	^  SakeClassTask class: aClassOrName
   !

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

Item was changed:
+ ----- Method: SakeTask class>>category:classes: (in category 'instance creation') -----
- ----- Method: SakeTask class>>category:classes: (in category 'as yet unclassified') -----
  category: c classes: cs
  
  	^  SakeClassTask category: c classes: cs
  !

Item was changed:
+ ----- Method: SakeTask class>>docAt: (in category 'doc methods support') -----
- ----- Method: SakeTask class>>docAt: (in category 'as yet unclassified') -----
  docAt: selector
  
  	^	(self sourceCodeAt: selector ifAbsent: [ ^ nil ]) 
  			readStream upToAll: ('""""""', String cr) ; upToEnd!

Item was removed:
- ----- Method: SakeTask class>>stautus (in category 'as yet unclassified') -----
- stautus
- 
- 	^	status ifNil:[ status := Dictionary new ]!