Squeak-dev December 2011

squeak-dev@lists.squeakfoundation.org

52 participants
175 discussions

The Inbox: Monticello-topa.491.mcz
by commits＠source.squeak.org 02 Dec '11

02 Dec '11

A new version of Monticello was added to project The Inbox: http://source.squeak.org/inbox/Monticello-topa.491.mcz ==================== Summary ==================== Name: Monticello-topa.491 Author: topa Time: 2 December 2011, 4:49:02.572 pm UUID: 1649779a-32a8-41c7-b9d8-d26b27f6f047 Ancestors: Monticello-topa.490, Monticello-cmm.489 Monticello extension =============== Diff against Monticello-topa.490 =============== Item was added: + SystemOrganization addCategory: #'Monticello-Base'! + SystemOrganization addCategory: #'Monticello-Chunk Format'! + SystemOrganization addCategory: #'Monticello-Loading'! + SystemOrganization addCategory: #'Monticello-Merging'! + SystemOrganization addCategory: #'Monticello-Modeling'! + SystemOrganization addCategory: #'Monticello-Patching'! + SystemOrganization addCategory: #'Monticello-Repositories'! + SystemOrganization addCategory: #'Monticello-Storing'! + SystemOrganization addCategory: #'Monticello-UI'! + SystemOrganization addCategory: #'Monticello-Versioning'! + SystemOrganization addCategory: #'Monticello-Mocks'! Item was removed: - SystemOrganization addCategory: #Monticello! - SystemOrganization addCategory: #'Monticello-Base'! - SystemOrganization addCategory: #'Monticello-Chunk Format'! - SystemOrganization addCategory: #'Monticello-Loading'! - SystemOrganization addCategory: #'Monticello-Merging'! - SystemOrganization addCategory: #'Monticello-Modeling'! - SystemOrganization addCategory: #'Monticello-Patching'! - SystemOrganization addCategory: #'Monticello-Repositories'! - SystemOrganization addCategory: #'Monticello-Storing'! - SystemOrganization addCategory: #'Monticello-UI'! - SystemOrganization addCategory: #'Monticello-Versioning'! - SystemOrganization addCategory: #'Monticello-Mocks'! - SystemOrganization addCategory: #'Monticello-Utilities'! Item was removed: - ----- Method: MCMczWriter>>serializeInFuel: (in category 'serializing') ----- - serializeInFuel: aSnapshot - - (self class environment classNamed: #FLSerializer) ifNotNil: [:serializerClass | - ^ serializerClass serializeToByteArray: aSnapshot]!

1 0

The Inbox: Monticello-topa.490.mcz
by commits＠source.squeak.org 02 Dec '11

02 Dec '11

A new version of Monticello was added to project The Inbox: http://source.squeak.org/inbox/Monticello-topa.490.mcz ==================== Summary ==================== Name: Monticello-topa.490 Author: topa Time: 2 December 2011, 10:49:46.616 am UUID: 460bc9a0-d113-4619-b46f-539ec5a25521 Ancestors: Monticello-cmm.489 Support for pluggable loaders and serializers for MCZ/MCD files. This can be handy when extending The Monticello fromat without breaking too much. =============== Diff against Monticello-cmm.489 =============== Item was added: + ----- Method: MCMcdReader class>>initialize (in category 'as yet unclassified') ----- + initialize + "MCMcdReader initialize" + "use super to populate loaders" + super initialize! Item was added: + ----- Method: MCMcdReader class>>loaderDiff (in category 'as yet unclassified') ----- + loaderDiff + + ^ 9999 -> [:reader | reader loadDiff]! Item was added: + ----- Method: MCMcdReader class>>loaderDiffBinary (in category 'as yet unclassified') ----- + loaderDiffBinary + + ^ 100 -> [:reader | reader loaderDiffBinary]! Item was added: + ----- Method: MCMcdReader>>loadDiff (in category 'as yet unclassified') ----- + loadDiff + | old new | + + definitions := OrderedCollection new. + (self zip membersMatching: 'old/*') + do: [:m | self extractDefinitionsFrom: m]. + old := definitions asArray. + definitions := OrderedCollection new. + (self zip membersMatching: 'new/*') + do: [:m | self extractDefinitionsFrom: m]. + new := definitions asArray. + + ^ patch := self buildPatchFrom: old to: new.! Item was added: + ----- Method: MCMcdReader>>loadDiffBinary (in category 'as yet unclassified') ----- + loadDiffBinary + + (self zip memberNamed: 'patch.bin') ifNotNil: + [:m | [^ patch := (DataStream on: m contentStream) next ] + on: Error do: [:fallThrough | ^ nil ]].! Item was changed: ----- Method: MCMcdReader>>loadPatch (in category 'as yet unclassified') ----- loadPatch + + ^ self loadByLoaderBlock! - | old new | - (self zip memberNamed: 'patch.bin') ifNotNil: - [:m | [^ patch := (DataStream on: m contentStream) next ] - on: Error do: [:fallThrough ]]. - definitions := OrderedCollection new. - (self zip membersMatching: 'old/*') - do: [:m | self extractDefinitionsFrom: m]. - old := definitions asArray. - definitions := OrderedCollection new. - (self zip membersMatching: 'new/*') - do: [:m | self extractDefinitionsFrom: m]. - new := definitions asArray. - ^ patch := self buildPatchFrom: old to: new. - ! Item was added: + ----- Method: MCMcdWriter class>>initialize (in category 'as yet unclassified') ----- + initialize + "MCMcdWriter initialize" + "use super to populate serializers" + super initialize! Item was added: + ----- Method: MCMcdWriter class>>serializerBinary (in category 'as yet unclassified') ----- + serializerBinary + + ^ [:writer :patch | writer writePatchAsBinary: patch]! Item was added: + ----- Method: MCMcdWriter class>>serializerDefinition (in category 'as yet unclassified') ----- + serializerDefinition + + ^ [:writer :patch | writer writePatchAsDefinition: patch]! Item was changed: ----- Method: MCMcdWriter>>writePatch: (in category 'as yet unclassified') ----- writePatch: aPatch + self writeWithAllSerializers: aPatch! - | old new | - old := OrderedCollection new. - new := OrderedCollection new. - aPatch operations do: - [:ea | - ea isRemoval ifTrue: [old add: ea definition]. - ea isAddition ifTrue: [new add: ea definition]. - ea isModification ifTrue: [old add: ea baseDefinition. new add: ea definition]]. - self writeOldDefinitions: old. - self writeNewDefinitions: new. - self addString: (self serializeInBinary: aPatch) at: 'patch.bin'.! Item was added: + ----- Method: MCMcdWriter>>writePatchAsBinary: (in category 'as yet unclassified') ----- + writePatchAsBinary: aPatch + self addString: (self serializeInBinary: aPatch) at: 'patch.bin'.! Item was added: + ----- Method: MCMcdWriter>>writePatchAsDefinition: (in category 'as yet unclassified') ----- + writePatchAsDefinition: aPatch + + | old new | + old := OrderedCollection new. + new := OrderedCollection new. + aPatch operations do: + [:ea | + ea isRemoval ifTrue: [old add: ea definition]. + ea isAddition ifTrue: [new add: ea definition]. + ea isModification ifTrue: [old add: ea baseDefinition. new add: ea definition]]. + self writeOldDefinitions: old. + self writeNewDefinitions: new! Item was changed: MCVersionReader subclass: #MCMczReader instanceVariableNames: 'zip infoCache' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Storing'! + MCMczReader class + instanceVariableNames: 'loaders'! + MCMczReader class + instanceVariableNames: 'loaders'! Item was added: + ----- Method: MCMczReader class>>allLoaderSelectors (in category 'as yet unclassified') ----- + allLoaderSelectors + + ^ self class selectors select: [ :each | + each ~= 'loaders' + and: [(each beginsWith: 'loader') + and: [each numArgs = 0]]]! Item was added: + ----- Method: MCMczReader class>>initialize (in category 'as yet unclassified') ----- + initialize + "MCMczReader initialize" + + self populateLoaders.! Item was added: + ----- Method: MCMczReader class>>loaderBinary (in category 'as yet unclassified') ----- + loaderBinary + + ^ 100 -> [:reader | reader loadBinary]. + ! Item was added: + ----- Method: MCMczReader class>>loaderSnapshot (in category 'as yet unclassified') ----- + loaderSnapshot + + ^ 9999 -> [:reader | reader loadSnapshot]! Item was added: + ----- Method: MCMczReader class>>loaders (in category 'as yet unclassified') ----- + loaders + + ^ loaders! Item was added: + ----- Method: MCMczReader class>>populateLoaders (in category 'as yet unclassified') ----- + populateLoaders + " loaders will hold a Collection of associations of + priority -> [:OneArg | LoaderBlock] + and the arg will be the reader." + + loaders := self allLoaderSelectors + inject: (SortedCollection sortBlock: [:loader1 :loader2 | loader1 key <= loader2 key]) + into: [:collection :selector | + collection add: (self perform: selector); yourself].! Item was added: + ----- Method: MCMczReader>>definitions: (in category 'as yet unclassified') ----- + definitions: anObject + + definitions := anObject.! Item was added: + ----- Method: MCMczReader>>loadBinary (in category 'as yet unclassified') ----- + loadBinary + + (self zip memberNamed: 'snapshot.bin') ifNotNil: [:m | + [^ definitions := (DataStream on: m contentStream) next definitions] + on: Error do: [:fallThrough | ^ nil]]! Item was added: + ----- Method: MCMczReader>>loadByLoaderBlock (in category 'as yet unclassified') ----- + loadByLoaderBlock + + | loaderSorted defs| + loaderSorted := self class loaders collect: [:loader | loader value]. + loaderSorted detect: [:loaderBlock | (defs := loaderBlock value: self) notNil]. + ^ defs + ! Item was changed: ----- Method: MCMczReader>>loadDefinitions (in category 'as yet unclassified') ----- loadDefinitions + + ^ self loadByLoaderBlock - definitions := OrderedCollection new. - (self zip memberNamed: 'snapshot.bin') ifNotNil: - [:m | [^ definitions := (DataStream on: m contentStream) next definitions] - on: Error do: [:fallThrough ]]. - "otherwise" - (self zip membersMatching: 'snapshot/*') - do: [:m | self extractDefinitionsFrom: m]. ! Item was added: + ----- Method: MCMczReader>>loadSnapshot (in category 'as yet unclassified') ----- + loadSnapshot + + definitions :=OrderedCollection new. + (self zip membersMatching: 'snapshot/*') + do: [:m | self extractDefinitionsFrom: m]. + ^ definitions + ! Item was changed: MCWriter subclass: #MCMczWriter instanceVariableNames: 'zip infoWriter' classVariableNames: '' poolDictionaries: '' category: 'Monticello-Storing'! + MCMczWriter class + instanceVariableNames: 'serializers'! + MCMczWriter class + instanceVariableNames: 'serializers'! Item was added: + ----- Method: MCMczWriter class>>allSerializerSelectors (in category 'as yet unclassified') ----- + allSerializerSelectors + + ^ self class selectors select: [ :each | + each ~= 'serializers' + and: [(each beginsWith: 'serializer') + and: [each numArgs = 0]]]! Item was added: + ----- Method: MCMczWriter class>>initialize (in category 'as yet unclassified') ----- + initialize + "MCMczWriter initialize" + + self populateSerializers.! Item was added: + ----- Method: MCMczWriter class>>populateSerializers (in category 'as yet unclassified') ----- + populateSerializers + " serializers will hold a Collection of + [:OneArg :TwoArg | WriterBlock] + and + the first argument will be the writer + and + the second argument will be the snapshot." + + serializers := self allSerializerSelectors collect: [:selector | self perform: selector].! Item was added: + ----- Method: MCMczWriter class>>serializerBinary (in category 'as yet unclassified') ----- + serializerBinary + + ^ [:writer :snapshot | writer writeSnapshotAsBinary: snapshot]! Item was added: + ----- Method: MCMczWriter class>>serializerDefinition (in category 'as yet unclassified') ----- + serializerDefinition + + ^ [:writer :snapshot | writer writeSnapshotAsDefinition: snapshot]! Item was added: + ----- Method: MCMczWriter class>>serializers (in category 'as yet unclassified') ----- + serializers + + ^ serializers! Item was added: + ----- Method: MCMczWriter>>serializeInFuel: (in category 'serializing') ----- + serializeInFuel: aSnapshot + + (self class environment classNamed: #FLSerializer) ifNotNil: [:serializerClass | + ^ serializerClass serializeToByteArray: aSnapshot]! Item was changed: ----- Method: MCMczWriter>>writeSnapshot: (in category 'visiting') ----- writeSnapshot: aSnapshot + self writeWithAllSerializers: aSnapshot.! - self addString: (self serializeDefinitions: aSnapshot definitions) at: 'snapshot/source.', self snapshotWriterClass extension. - self addString: (self serializeInBinary: aSnapshot) at: 'snapshot.bin'! Item was added: + ----- Method: MCMczWriter>>writeSnapshotAsBinary: (in category 'visiting') ----- + writeSnapshotAsBinary: aSnapshot + self addString: (self serializeInBinary: aSnapshot) at: 'snapshot.bin'! Item was added: + ----- Method: MCMczWriter>>writeSnapshotAsDefinition: (in category 'visiting') ----- + writeSnapshotAsDefinition: aSnapshot + self addString: (self serializeDefinitions: aSnapshot definitions) at: 'snapshot/source.', self snapshotWriterClass extension.! Item was added: + ----- Method: MCMczWriter>>writeWithAllSerializers: (in category 'visiting') ----- + writeWithAllSerializers: snapshot + + self class serializers do: [:serializerBlock | + serializerBlock value: self value: snapshot]. + !

1 0

#ensure: What would you expect?
by Chris Cunnington 02 Dec '11

02 Dec '11

My thinking process: - a passes a block to b - b passes the block to c - it is sent #value and returns 1 - which is thrown away - the return value becomes 3 - that becomes the return value of the first block in #b: - a check is made to ensure 2 - what kind of test is ensure running? - [3] ensure: [2] - i'll say #ensure: is testing their is an object there - so the answer is 3 (spoilers) The actual answer: turns out the answer is aFoo, so I guess all numbers were a ruse and it returned self. Why, I couldn't say. I guess #ensure: has a property I don't understand. Chris

2 1

finalizing processes?
by Yoshiki Ohshima 01 Dec '11

01 Dec '11

Hello, I have trouble terminating some processes I make. More specifically, I'm trying to terminate some processes when the their associated "owner" object is garbage collected. The problem seems that these processes hold back pointers to my owner object via outerContext of the closures so the owner object does not get garbage collected when nobody else is pointing to it. Attached is my test case. After filing in this to a trunk image, evaluate: k := KEventStream new. KEventStream beTimer: k with: 100. in a workspace. You'll see a little counter going on the left edge of screen. What I want to do is to stop the counter by evaluating: k := nil. Smalltalk garbageCollect. but the processes hold onto the closure, which in turn holds onto the context for executing #beTimer:with:, and that context holds onto 'k', or 'anObject'. I thought that closure could just be detached from the outer context but it is not the case here. Why? Thank you! -- Yoshiki

2 2

New Cog VMs available at...
by Eliot Miranda 01 Dec '11

01 Dec '11

VM.r2518/ <http://www.mirandabanda.org/files/Cog/VM/VM.r2518/>. CogVM binaries as per VMMaker.oscog-eem.139/r2518. Add access to VM arguments to Mac. Make Windows, Mac and Unix consistent: Smalltalk getSystemAttribute: -1 => executable name -2 .. -n => VM arguments *including* image (if explicitly supplied). Replace win32 command line parsing with unixesque code using CommandLineToArgvW. linux launch script: Cope with old linuxes use of /lib/tls hack for an optional thread-local-storage version of libc/libpthread. The launch scripts add /lib/tls:/usr/lib/tls: to LD_LIBRARY_PATH instead of /lib:/usr/lib: if the VM is linked to /lib/tls/libc. -- best, Eliot

2 3

Jump to page: