[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