hg/stx-libbasic: comparison WeakIdentityDictionary.st

equal deleted inserted replaced

-:fbfd2d411738
+:a74d669db937
 "
 !
 documentation
 "
 WeakIdentityDictionaries behave like IdentityDictionaries,
 as long as the keys are still referenced by some
 other (non-weak) object.
 However, once the last non-weak reference ceases to exist,
 the object will be automatically removed from the Weakcollection
 (with some delay: it will be removed after the next garbage collect).
 ! !
 !WeakIdentityDictionary methodsFor:'adding & removing'!
 at:key ifAbsent:exceptionBlock
 "redefined to block interrupts
 (avoid change of the dictionary while accessing)"
 |val|
 (OperatingSystem blockInterrupts) ifTrue:[
-"/ already blocked
+	"/ already blocked
-^ super at:key ifAbsent:exceptionBlock.
+	^ super at:key ifAbsent:exceptionBlock.
 ].
 [
-val := super at:key ifAbsent:exceptionBlock.
+	val := super at:key ifAbsent:exceptionBlock.
 ] ensure:[
-OperatingSystem unblockInterrupts.
+	OperatingSystem unblockInterrupts.
 ].
 ^ val
 "Modified: 6.5.1996 / 12:22:26 / stefan"
 "Modified: 1.7.1997 / 10:45:47 / cg"
 are added within interrupting high prio processes."
 |val|
 (OperatingSystem blockInterrupts) ifTrue:[
-"/ already blocked
+	"/ already blocked
-^ super at:key put:anObject.
+	^ super at:key put:anObject.
 ].
 [
-val := super at:key put:anObject.
+	val := super at:key put:anObject.
 ] ensure:[
-OperatingSystem unblockInterrupts.
+	OperatingSystem unblockInterrupts.
 ].
 ^ val
 "Modified: 6.5.1996 / 12:22:26 / stefan"
 "Modified: 29.1.1997 / 15:08:45 / cg"
 !
 removeKey:aKey ifAbsent:aBlock
 "remove the association under aKey from the collection,
 return the value previously stored there.
 If it was not in the collection return the result
 from evaluating aBlock.
 Redefined to avoid synchronization problems, in case
 of interrupts (otherwise, there could be some other operation
 on the receiver done by another process, which garbles my contents)."
 |ret|
 (OperatingSystem blockInterrupts) ifTrue:[
-"/ already blocked
+	"/ already blocked
-^ super removeKey:aKey ifAbsent:aBlock.
+	^ super removeKey:aKey ifAbsent:aBlock.
 ].
 [
-ret := super removeKey:aKey ifAbsent:aBlock
+	ret := super removeKey:aKey ifAbsent:aBlock
 ] ensure:[
-OperatingSystem unblockInterrupts
+	OperatingSystem unblockInterrupts
 ].
 ^ ret
 "Modified: 6.5.1996 / 12:44:51 / stefan"
 "Modified: 29.1.1997 / 15:09:11 / cg"
 !
 safeRemoveKey:key
 "redefined to block interrupts
 (avoid change of the dictionary while accessing)"
 |val|
 (OperatingSystem blockInterrupts) ifTrue:[
-"/ already blocked
+	"/ already blocked
-^ super safeRemoveKey:key.
+	^ super safeRemoveKey:key.
 ].
 [
-val := super safeRemoveKey:key.
+	val := super safeRemoveKey:key.
 ] ensure:[
-OperatingSystem unblockInterrupts.
+	OperatingSystem unblockInterrupts.
 ].
 ^ val
 "Modified: 6.5.1996 / 12:22:26 / stefan"
 "Modified: 1.7.1997 / 10:45:52 / cg"
 clearDeadSlots
 |wasBlocked|
 "
 have to block here - dispose may be done at a low priority
 from the background finalizer. If new items are added by a
 higher prio process, the dictionary might get corrupted otherwise
 "
 wasBlocked := OperatingSystem blockInterrupts.
 [
-keyArray
+	keyArray
-forAllDeadIndicesDo:[:idx |
+	    forAllDeadIndicesDo:[:idx |
-valueArray basicAt:idx put:nil.
+				    valueArray basicAt:idx put:nil.
-tally := tally - 1.
+				    tally := tally - 1.
-]
+				]
-replacingCorpsesWith:DeletedEntry.
+	    replacingCorpsesWith:DeletedEntry.
 ] ensure:[
-wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
+	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 ].
 "Modified: / 13.12.2001 / 14:18:17 / martin"
 !
 update:something with:aParameter from:changedObject
 "an element (either key or value) died - clear out slots for
 disposed keys."
 something == #ElementExpired ifTrue:[
-self clearDeadSlots.
+	self clearDeadSlots.
 ]
 "Created: / 7.1.1997 / 16:59:30 / stefan"
 "Modified: / 13.12.2001 / 14:17:58 / martin"
 ! !
 !WeakIdentityDictionary methodsFor:'private'!
 findKeyOrNil:key
 "Look for the key in the receiver.
 If it is found, return the index,
 otherwise the index of the first unused slot.
 Grow the receiver, if key was not found, and no unused slots were present.
 Warning: an empty slot MUST be filled by the sender - it is only to be sent
-by at:put: / add: - like methods."
+	      by at:put: / add: - like methods."
 |index  "{ Class:SmallInteger }"
 length "{ Class:SmallInteger }"
 startIndex probe
 delIndex "{ Class:SmallInteger }"|
 (OperatingSystem blockInterrupts) ifFalse:[
-"/
+	"/
-"/ may never be entered with interrupts enabled
+	"/ may never be entered with interrupts enabled
-"/
+	"/
-OperatingSystem unblockInterrupts.
+	OperatingSystem unblockInterrupts.
-self error:'unblocked call of findKeyOrNil'.
+	self error:'unblocked call of findKeyOrNil'.
 ].
 delIndex := 0.
 length := keyArray basicSize.
 startIndex := index := self initialIndexForKey:key.
 [
-probe := keyArray basicAt:index.
+	probe := keyArray basicAt:index.
-key == probe ifTrue:[^ index].
+	key == probe ifTrue:[^ index].
-probe isNil ifTrue:[
+	probe isNil ifTrue:[
-delIndex == 0 ifTrue:[^ index].
+	    delIndex == 0 ifTrue:[^ index].
-keyArray basicAt:delIndex put:nil.
+	    keyArray basicAt:delIndex put:nil.
-^ delIndex
+	    ^ delIndex
-].
+	].
-probe == 0 ifTrue:[
+	probe class == SmallInteger ifTrue:[
-probe := DeletedEntry.
+	    probe := DeletedEntry.
-keyArray basicAt:index put:probe.
+	    keyArray basicAt:index put:probe.
-valueArray basicAt:index put:nil.
+	    valueArray basicAt:index put:nil.
-tally := tally - 1.
+	    tally := tally - 1.
-].
+	].
-delIndex == 0 ifTrue:[
+	delIndex == 0 ifTrue:[
-probe == DeletedEntry ifTrue:[
+	    probe == DeletedEntry ifTrue:[
-delIndex := index
+		delIndex := index
-]
+	    ]
-].
+	].
-index == length ifTrue:[
+	index == length ifTrue:[
-index := 1
+	    index := 1
-] ifFalse:[
+	] ifFalse:[
-index := index + 1
+	    index := index + 1
-].
+	].
-index == startIndex ifTrue:[
+	index == startIndex ifTrue:[
-delIndex ~~ 0 ifTrue:[
+	    delIndex ~~ 0 ifTrue:[
-keyArray basicAt:delIndex put:nil.
+		keyArray basicAt:delIndex put:nil.
-^ delIndex
+		^ delIndex
-].
+	    ].
-^ self grow findKeyOrNil:key
+	    ^ self grow findKeyOrNil:key
-].
+	].
 ] loop.
 "Modified: 30.1.1997 / 15:04:34 / cg"
 "Modified: 1.10.1997 / 11:25:32 / stefan"
 !
 are added within interrupting high prio processes."
 "/ 'grow:' printCR.
 (OperatingSystem blockInterrupts) ifTrue:[
-"/ already blocked
+	"/ already blocked
-^ super grow:newSize.
+	^ super grow:newSize.
 ].
 [
-super grow:newSize
+	super grow:newSize
 ] ensure:[
-OperatingSystem unblockInterrupts
+	OperatingSystem unblockInterrupts
 ].
 "Created: 28.1.1997 / 23:41:39 / cg"
 "Modified: 29.1.1997 / 15:10:12 / cg"
 !
 are added within interrupting high prio processes."
 "/ 'setTally:' printCR.
 (OperatingSystem blockInterrupts) ifTrue:[
-"/ already blocked
+	"/ already blocked
-super initializeForCapacity:minSize.
+	super initializeForCapacity:minSize.
-^ self.
+	^ self.
 ].
 [
-super initializeForCapacity:minSize
+	super initializeForCapacity:minSize
 ] ensure:[
-OperatingSystem unblockInterrupts
+	OperatingSystem unblockInterrupts
 ].
 "Created: 29.1.1997 / 11:40:12 / cg"
 "Modified: 29.1.1997 / 15:11:11 / cg"
 !
 are added within interrupting high prio processes."
 "/ 'rehash' printCR.
 (OperatingSystem blockInterrupts) ifTrue:[
-"/ already blocked
+	"/ already blocked
-super rehash.
+	super rehash.
-^ self.
+	^ self.
 ].
 [
-super rehash
+	super rehash
 ] ensure:[
-OperatingSystem unblockInterrupts
+	OperatingSystem unblockInterrupts
 ].
 "Created: 29.1.1997 / 11:39:42 / cg"
 "Modified: 29.1.1997 / 14:18:52 / cg"
 ! !
 !WeakIdentityDictionary methodsFor:'testing'!
 includes:anObject
 "redefined to block interrupts
 (avoid change of the dictionary while accessing)"
 |val|
 (OperatingSystem blockInterrupts) ifTrue:[
-"/ already blocked
+	"/ already blocked
-^ super includes:anObject.
+	^ super includes:anObject.
 ].
 [
-val := super includes:anObject.
+	val := super includes:anObject.
 ] ensure:[
-OperatingSystem unblockInterrupts.
+	OperatingSystem unblockInterrupts.
 ].
 ^ val
 "Modified: 6.5.1996 / 12:22:26 / stefan"
 "Modified: 1.7.1997 / 10:45:52 / cg"
 "Created: 1.7.1997 / 10:47:13 / cg"
 !
 includesKey:key
 "redefined to block interrupts
 (avoid change of the dictionary while accessing)"
 |val|
 (OperatingSystem blockInterrupts) ifTrue:[
-"/ already blocked
+	"/ already blocked
-^ super includesKey:key.
+	^ super includesKey:key.
 ].
 [
-val := super includesKey:key.
+	val := super includesKey:key.
 ] ensure:[
-OperatingSystem unblockInterrupts.
+	OperatingSystem unblockInterrupts.
 ].
 ^ val
 "Modified: 6.5.1996 / 12:22:26 / stefan"
 "Created: 1.7.1997 / 10:45:14 / cg"
 ! !
 !WeakIdentityDictionary class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/WeakIdentityDictionary.st,v 1.46 2015-05-09 11:58:44 cg Exp $'
+^ '$Header$'
 ! !

branch	jv
changeset 18630	a74d669db937
parent 18335	165360a15be3
parent 18620	b4e9f25d6ce6
child 19226	470475a1734e