"

 COPYRIGHT (c) 1992 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

IdentityDictionary subclass:#WeakIdentityDictionary

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'Collections-Unordered'

!

!WeakIdentityDictionary class methodsFor:'documentation'!

copyright

"

 COPYRIGHT (c) 1992 by Claus Gittinger

	      All Rights Reserved

 This software is furnished under a license and may be used

 only in accordance with the terms of that license and with the

 inclusion of the above copyright notice.   This software may not

 be provided or otherwise made available to, or used by, any

 other person.  No title to or ownership of the software is

 hereby transferred.

"

!

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).

    This class was added to support keeping track of dependents without

    keeping the values alive - values simply become nil when no one else

    references it. The original dependency mechanism used a regular Dictionary,

    which usually leads to a lot of garbage being kept due to a forgotten

    release. Using a WeakDictionary may be incompatible to ST-80 but is much

    more comfortable, since no manual release of dependents is needed.

    If you use this, be very careful since the collections size changes

    'magically' - for example, testing for being nonEmpty and then

    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

    [See also:]

        WeakArray WeakValueDictionary WeakIdentitySet

"

! !

!WeakIdentityDictionary methodsFor:'adding & removing'!

at:key

    [

        val := super at:key.

    ] valueNowOrOnUnwindDo:[

    ].

    ^ val

    "Modified: 6.5.1996 / 12:22:26 / stefan"

!

at:key ifAbsent:exceptionBlock

    [

        val := super at:key ifAbsent:exceptionBlock.

    ] valueNowOrOnUnwindDo:[

    ].

    ^ val

    "Modified: 6.5.1996 / 12:22:26 / stefan"

!

at:key put:anObject

    "add the argument anObject under key, aKey to the receiver.

     Return anObject (sigh).

     Redefined to block interrupts, to avoid trouble when dependencies

     are added within interrupting high prio processes."

    [

    ] valueNowOrOnUnwindDo:[

    ].

    "Modified: 6.5.1996 / 12:22:26 / stefan"

!

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 := super removeKey:aKey ifAbsent:aBlock

    ] valueNowOrOnUnwindDo:[

    ].

    ^ ret

    "Modified: 6.5.1996 / 12:44:51 / stefan"

! !

!WeakIdentityDictionary methodsFor:'element disposal'!

update:something with:aParameter from:changedObject

    |wasBlocked|

    something == #ElementExpired ifTrue:[

        "

         have to block here - dispose may be done at a low priority

        "

        wasBlocked := OperatingSystem blockInterrupts.

        keyArray 

            forAllDeadIndicesDo:[:idx | 

                                ]

            replacingCorpsesWith:DeletedEntry.

        wasBlocked ifFalse:[OperatingSystem unblockInterrupts].

    ]

    "Created: 7.1.1997 / 16:59:30 / stefan"

! !

!WeakIdentityDictionary methodsFor:'private'!

grow:newSize

    "grow the receiver.

     Redefined to block interrupts, to avoid trouble when dependencies

     are added within interrupting high prio processes."

    [

        super grow:newSize

    ] valueNowOrOnUnwindDo:[

    ].

    "Created: 28.1.1997 / 23:41:39 / cg"

!

keyContainerOfSize:n

    "return a container for keys of size n.

     use WeakArrays here, but dont make me a depenent of it."

    |w|

    w := WeakArray new:n.

    w addDependent:self.

    ^ w

    "Modified: 7.1.1997 / 17:01:15 / stefan"

    "Modified: 29.1.1997 / 14:18:49 / cg"

!

rehash

    "grow the receiver.

     Redefined to block interrupts, to avoid trouble when dependencies

     are added within interrupting high prio processes."

"/ 'rehash' printCR.

    [

        super rehash

    ] valueNowOrOnUnwindDo:[

    ].

    "Created: 29.1.1997 / 11:39:42 / cg"

    "Modified: 29.1.1997 / 14:18:52 / cg"

!

setTally:count

    "grow the receiver.

     Redefined to block interrupts, to avoid trouble when dependencies

     are added within interrupting high prio processes."

    [

        super setTally:count

    ] valueNowOrOnUnwindDo:[

    ].

    "Created: 29.1.1997 / 11:40:12 / cg"

! !

!WeakIdentityDictionary class methodsFor:'documentation'!

version

! !