Eliot Miranda uploaded a new version of Cog to project VM Maker: http://source.squeak.org/VMMaker/Cog-eem.182.mcz
==================== Summary ====================
Name: Cog-eem.182 Author: eem Time: 8 August 2014, 7:25:32.999 pm UUID: 8e259714-4153-4986-b326-6da2a6154de7 Ancestors: Cog-eem.181
Do a half-assed job of filing out the prototypes (i.e. doesn't yet do #=).
=============== Diff against Cog-eem.181 ===============
Item was added: + ----- Method: SpurBootstrap>>fileOutPrototypesFor: (in category 'public access') ----- + fileOutPrototypesFor: imageTypeOrArrayOfTypes + "SpurBootstrap new fileOutPrototypesFor: 'squeak'" + | internalStream | + imageTypes := imageTypeOrArrayOfTypes isString + ifTrue: [{imageTypeOrArrayOfTypes}] + ifFalse: [imageTypeOrArrayOfTypes asArray]. + internalStream := WriteStream on: (String new: 1000). + internalStream header; timeStamp. + self prototypeClassNameMetaSelectorMethodDo: + [:className :isMeta :selector :method| | class category preamble source | + class := Smalltalk classNamed: className. + isMeta ifTrue: [class := class class]. + category := (class organization categoryOfElement: selector) ifNil: + [self class categoryForClass: className meta: isMeta selector: selector]. + preamble := class name, ' methodsFor: ' , category asString printString, ' stamp: ''', method timeStamp, ''''. + internalStream nextPut: $!!; nextChunkPut: preamble; cr. + source := method getSourceFromFile asString. + source := source copyFrom: (source indexOfSubCollection: 'PROTOTYPE') + 9 to: source size. + internalStream nextChunkPut: source; space; nextPut: $!!; cr; cr]. + internalStream trailer. + + FileStream + writeSourceCodeFrom: internalStream + baseName: 'SpurBootstrapPrototypes' + isSt: true + useHtml: false!
vm-dev@lists.squeakfoundation.org