hg/stx-libbasic: comparison WeakIdentityDictionary.st

equal deleted inserted replaced

-:b4df6be2ed52
+:1a3e44b10f9b
 removing the first element may fail, since the element may vanish inbetween.
 In general, never trust the value as returned by the size/isEmpty messages.
 [author:]
-Claus Gittinger
+	Claus Gittinger
 [See also:]
-WeakArray WeakValueDictionary WeakIdentitySet
+	WeakArray WeakValueDictionary WeakIdentitySet
 "
 ! !
 !WeakIdentityDictionary methodsFor:'adding & removing'!
 (avoid change of the dictionary while accessing)"
 |val|
 (OperatingSystem blockInterrupts) ifTrue:[
-"/ already blocked
+	"/ already blocked
-^ super at:key.
+	^ super at:key.
 ].
 [
-val := super at:key.
+	val := super at:key.
 ] valueNowOrOnUnwindDo:[
-OperatingSystem unblockInterrupts.
+	OperatingSystem unblockInterrupts.
 ].
 ^ val
 "Modified: 6.5.1996 / 12:22:26 / stefan"
 "Modified: 1.7.1997 / 10:45:42 / cg"
 (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.
 ] valueNowOrOnUnwindDo:[
-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.
 ] valueNowOrOnUnwindDo:[
-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..
+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
 ] valueNowOrOnUnwindDo:[
-OperatingSystem unblockInterrupts
+	OperatingSystem unblockInterrupts
 ].
 ^ ret
 "Modified: 6.5.1996 / 12:44:51 / stefan"
 "Modified: 29.1.1997 / 15:09:11 / cg"
 (avoid change of the dictionary while accessing)"
 |val|
 (OperatingSystem blockInterrupts) ifTrue:[
-"/ already blocked
+	"/ already blocked
-^ super saveRemoveKey:key.
+	^ super saveRemoveKey:key.
 ].
 [
-val := super saveRemoveKey:key.
+	val := super saveRemoveKey:key.
 ] valueNowOrOnUnwindDo:[
-OperatingSystem unblockInterrupts.
+	OperatingSystem unblockInterrupts.
 ].
 ^ val
 "Modified: 6.5.1996 / 12:22:26 / stefan"
 "Modified: 1.7.1997 / 10:45:52 / cg"
 disposed keys."
 |wasBlocked|
 something == #ElementExpired ifTrue:[
-"
+	"
-have to block here - dispose may be done at a low priority
+	 have to block here - dispose may be done at a low priority
-from the background finalizer. If new items are added by a
+	 from the background finalizer. If new items are added by a
-higher prio process, the dictionary might get corrupted otherwise
+	 higher prio process, the dictionary might get corrupted otherwise
-"
+	"
-wasBlocked := OperatingSystem blockInterrupts.
+	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.
-wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
+	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
 ]
 "Created: 7.1.1997 / 16:59:30 / stefan"
 ! !
 If it is found, return 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:'oops - unblocked call of findKeyOrNil'.
+	self error:'oops - unblocked call of findKeyOrNil'.
-^ nil "/ leads to another error, if proceeded
+	^ nil "/ leads to another error, if proceeded
 ].
 delIndex := 0.
 length := keyArray basicSize.
 index := key identityHash.
 index < 16r1FFFFFFF ifTrue:[
-index := index * 2
+	index := index * 2
 ].
 index := index \\ length + 1.
 startIndex := index.
 [true] whileTrue:[
-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 == 0 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
-].
+	].
 ]
 "Modified: 30.1.1997 / 15:04:34 / cg"
 !
 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
 ] valueNowOrOnUnwindDo:[
-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."
 "/ 'rehash' printCR.
 (OperatingSystem blockInterrupts) ifTrue:[
-"/ already blocked
+	"/ already blocked
-^ super rehash.
+	^ super rehash.
 ].
 [
-super rehash
+	super rehash
 ] valueNowOrOnUnwindDo:[
-OperatingSystem unblockInterrupts
+	OperatingSystem unblockInterrupts
 ].
 "Created: 29.1.1997 / 11:39:42 / cg"
 "Modified: 29.1.1997 / 14:18:52 / cg"
 !
 are added within interrupting high prio processes."
 "/ 'setTally:' printCR.
 (OperatingSystem blockInterrupts) ifTrue:[
-"/ already blocked
+	"/ already blocked
-^ super setTally:count.
+	^ super setTally:count.
 ].
 [
-super setTally:count
+	super setTally:count
 ] valueNowOrOnUnwindDo:[
-OperatingSystem unblockInterrupts
+	OperatingSystem unblockInterrupts
 ].
 "Created: 29.1.1997 / 11:40:12 / cg"
 "Modified: 29.1.1997 / 15:11:11 / cg"
 ! !
 (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.
 ] valueNowOrOnUnwindDo:[
-OperatingSystem unblockInterrupts.
+	OperatingSystem unblockInterrupts.
 ].
 ^ val
 "Modified: 6.5.1996 / 12:22:26 / stefan"
 "Modified: 1.7.1997 / 10:45:52 / cg"
 (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.
 ] valueNowOrOnUnwindDo:[
-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.31 1997-07-01 17:21:21 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/WeakIdentityDictionary.st,v 1.32 1997-09-09 17:31:56 cg Exp $'
 ! !

changeset 2910	1a3e44b10f9b
parent 2741	7af858fd7296
child 2988	c6550b3e9b3c