hg/stx-libbasic: comparison Registry.st

equal deleted inserted replaced

-:be947d4e7fb2
+:514c749165c3
 other person.  No title to or ownership of the software is
 hereby transferred.
 "
 Object subclass:#Registry
-instanceVariableNames:'registeredObjects phantoms cleanState'
+instanceVariableNames:'registeredObjects phantomArray cleanState'
 classVariableNames:''
 poolDictionaries:''
 category:'System-Support'
 !
 Registry comment:'
 COPYRIGHT (c) 1993 by Claus Gittinger
 All Rights Reserved
-$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.9 1994-08-22 12:12:55 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.10 1994-10-10 00:27:59 claus Exp $
 '!
 !Registry class methodsFor:'documentation'!
 copyright
 "
 !
 version
 "
-$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.9 1994-08-22 12:12:55 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Registry.st,v 1.10 1994-10-10 00:27:59 claus Exp $
 "
 !
 documentation
 "
 Registries provide an easy interface to using WeakArrays.
 A class, which wants to be informed of instance-death, can put a created object
-into a registry. The registry will create a copy of the object, and
+into a registry. The registry will create a (shallow-)copy of the object, and
-watch out for death of the registered object. When it dies, the copy will
+watch out for death of the original object. When it dies, the copy will
-be sent the message >>disposed.
+be sent the #disposed-message.
 The trick with the shallow copy is especially nice, you can think of it as
 being the original object which died.
 All objects, which keep external resources (such as fileDescriptors, fonts,
 colormap-entries etc.) should be registered, so that the underlying resource
 can be freed when the object goes away.
 Of course, you too can use it to do whatever you need to do in case of the
 death of an object.
+Registries use #shallowCopyForFinalization to aquire the copy of the original,
+this can be redefined in registered classes for faster copying
+(typically, not all internal state but only some device handles are needed for
+finalization).
+See axample uses in Form, Color, ExternalStream and Font
 "
 ! !
 !Registry methodsFor:'dispose handling'!
 informDispose
 "an instance has been destroyed - look which one it was"
-|phantom|
+|phantom
+sz "{ Class: SmallInteger }"|
 cleanState ifTrue:[
-1 to:phantoms size do:[:index |
+	sz := phantomArray size.
+1 to:sz do:[:index |
 (registeredObjects at:index) isNil ifTrue:[
-phantom := phantoms at:index.
+phantom := phantomArray at:index.
 phantom notNil ifTrue:[
-phantoms at:index put:nil.
+phantomArray at:index put:nil.
 phantom disposed
 ]
 ]
 ]
 ]
 contentsDo:aBlock
 "evaluate aBlock for each registered object"
 registeredObjects notNil ifTrue:[
-registeredObjects do:[:o |
+registeredObjects nonNilElementsDo:[:o |
-o notNil ifTrue:[
+aBlock value:o
-aBlock value:o
-]
 ]
 ]
 ! !
 !Registry methodsFor:'accessing'!
 |index|
 index := registeredObjects identityIndexOf:anObject ifAbsent:[0].
 index ~~ 0 ifTrue:[
-phantoms at:index put:anObject shallowCopy.
+phantomArray at:index put:anObject shallowCopyForFinalization.
 ]
 !
 register:anObject
 "register anObject, so that a copy of it gets the disposed message
 when anObject dies (some time in the future)"
 |phantom newColl newPhantoms
-count "{ Class: SmallInteger }"
+size  "{ Class: SmallInteger }"
-p index|
+index "{ Class: SmallInteger }"
+p|
-phantom := anObject shallowCopy.
+phantom := anObject shallowCopyForFinalization.
 registeredObjects isNil ifTrue:[
 registeredObjects := WeakArray new:10.
 registeredObjects watcher:self.
 registeredObjects at:1 put:anObject.
-phantoms := Array new:10.
+phantomArray := Array new:10.
-phantoms at:1 put:phantom.
+phantomArray at:1 put:phantom.
 cleanState := true.
 ObjectMemory addDependent:self.
 ^ self
 ].
 index := registeredObjects identityIndexOf:anObject ifAbsent:[0].
 index ~~ 0 ifTrue:[
 "already registered"
-phantoms at:index put:phantom.
+phantomArray at:index put:phantom.
 self error:'object is already registered'.
 ^ self
 ].
 "search for a free slot, on the fly look for leftovers"
-count := phantoms size.
+index := registeredObjects identityIndexOf:nil startingAt:1.
-1 to:count do:[:i |
+index ~~ 0 ifTrue:[
-(registeredObjects at:i) isNil ifTrue:[
+	"is there a leftover ?"
-"is there a leftover ?"
+	p := phantomArray at:index.
-p := phantoms at:i.
+p notNil ifTrue:[
-p notNil ifTrue:[
+	    "tell the phantom"
-		"tell the phantom"
+phantomArray at:index put:nil.
-phantoms at:i put:nil.
+p disposed.
-p disposed.
+p := nil.
-p := nil.
+].
-].
+registeredObjects at:index put:anObject.
-registeredObjects at:i put:anObject.
+phantomArray at:index put:phantom.
-phantoms at:i put:phantom.
+^ self
-^ self
-]
 ].
 "no free slot, add at the end"
-newColl := WeakArray new:(count * 2).
+size := registeredObjects size.
-newColl replaceFrom:1 to:count with:registeredObjects.
+index := size + 1.
+newColl := WeakArray new:(size * 2).
+newColl replaceFrom:1 to:size with:registeredObjects.
 registeredObjects := newColl.
 registeredObjects watcher:self.
-registeredObjects at:(count + 1) put:anObject.
+registeredObjects at:index put:anObject.
-newPhantoms := Array new:(count * 2).
+newPhantoms := Array new:(size * 2).
-newPhantoms replaceFrom:1 to:count with:phantoms.
+newPhantoms replaceFrom:1 to:size with:phantomArray.
-phantoms := newPhantoms.
+phantomArray := newPhantoms.
-phantoms at:(count + 1) put:phantom.
+phantomArray at:index put:phantom.
 !
 unregister:anObject
 "remove registration of anObject, without telling the phantom;
 should be sent, if we are no more interrested in destruction of
 |index|
 index := registeredObjects identityIndexOf:anObject ifAbsent:[0].
 index ~~ 0 ifTrue:[
-phantoms at:index put:nil.
+phantomArray at:index put:nil.
 registeredObjects at:index put:nil
 ]
 ! !
 !Registry methodsFor:'restart handling'!
 update:aParameter
 aParameter == #earlyRestart ifTrue:[
-phantoms notNil ifTrue:[
+phantomArray notNil ifTrue:[
-phantoms atAllPut:nil
+phantomArray atAllPut:nil
 ]
 ].
 aParameter == #returnFromSnapshot ifTrue:[
 cleanState := true
 ]

changeset 159	514c749165c3
parent 117	270ddeff4a48
child 217	a0400fdbc933