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

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Sun Oct 26 19:40:24 UTC 2008


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

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

Name: Sake-Core-kph.64
Author: kph
Time: 26 October 2008, 7:40:22 pm
UUID: 02a589ed-b980-4c03-8c9d-31e5cc1ce4dc
Ancestors: Sake-Core-kph.63

+ SakeMeta storeOn:

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

Item was changed:
  Dictionary subclass: #SakeMeta
  	instanceVariableNames: ''
  	classVariableNames: ''
  	poolDictionaries: ''
  	category: 'Sake-Core'!
+ 
+ !SakeMeta commentStamp: 'kph 10/26/2008 17:50' prior: 0!
+ | s |
+ s := ReadWriteStream on: String new.
+ (self new a: 1; b: 2; yourself) storeOn: s.
+ s reset fileIn!

Item was added:
+ ----- Method: SakeMeta>>storeOn: (in category 'as yet unclassified') -----
+ storeOn: aStream
+ 
+ 	"writes metadata in a user readable format - oh for an ordered dictionary"
+ 
+ 	| noneYet |
+ 	aStream nextPutAll: '('.
+ 	aStream nextPutAll: self class name.
+ 	aStream nextPutAll: ' new'; cr.
+ 	noneYet := true.
+ 	self associationsDo: 
+ 			[:each | 
+ 			noneYet
+ 				ifTrue: [noneYet := false]
+ 				ifFalse: [aStream nextPut: $;; cr].
+ 			aStream nextPutAll: ' at: '.
+ 			aStream store: each key.
+ 			aStream nextPutAll: ' put: '.
+ 			aStream store: each value.
+ 			].
+ 	noneYet ifFalse: [aStream nextPut: $;; cr; nextPutAll: 'yourself'].
+ 	aStream nextPut: $)!



More information about the Packages mailing list