WeakIdentityDictionary.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 30 Jun 2016 21:12:35 +0100
branchjv
changeset 20079 8d884971c2ed
parent 19226 470475a1734e
parent 20037 a00968eea064
child 20205 03e626304d06
permissions -rw-r--r--
Merge
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
20037
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
     1
"{ Encoding: utf8 }"
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
     2
6
62211a9bc04d Initial revision
claus
parents:
diff changeset
     3
"
62211a9bc04d Initial revision
claus
parents:
diff changeset
     4
 COPYRIGHT (c) 1992 by Claus Gittinger
358
claus
parents: 159
diff changeset
     5
	      All Rights Reserved
6
62211a9bc04d Initial revision
claus
parents:
diff changeset
     6
62211a9bc04d Initial revision
claus
parents:
diff changeset
     7
 This software is furnished under a license and may be used
62211a9bc04d Initial revision
claus
parents:
diff changeset
     8
 only in accordance with the terms of that license and with the
62211a9bc04d Initial revision
claus
parents:
diff changeset
     9
 inclusion of the above copyright notice.   This software may not
62211a9bc04d Initial revision
claus
parents:
diff changeset
    10
 be provided or otherwise made available to, or used by, any
62211a9bc04d Initial revision
claus
parents:
diff changeset
    11
 other person.  No title to or ownership of the software is
62211a9bc04d Initial revision
claus
parents:
diff changeset
    12
 hereby transferred.
62211a9bc04d Initial revision
claus
parents:
diff changeset
    13
"
6233
0a79cbd07543 *** empty log message ***
martin
parents: 4530
diff changeset
    14
"{ Package: 'stx:libbasic' }"
0a79cbd07543 *** empty log message ***
martin
parents: 4530
diff changeset
    15
18333
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
    16
"{ NameSpace: Smalltalk }"
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
    17
6
62211a9bc04d Initial revision
claus
parents:
diff changeset
    18
IdentityDictionary subclass:#WeakIdentityDictionary
1054
62ce964f1d2e commentary
Claus Gittinger <cg@exept.de>
parents: 635
diff changeset
    19
	instanceVariableNames:''
62ce964f1d2e commentary
Claus Gittinger <cg@exept.de>
parents: 635
diff changeset
    20
	classVariableNames:''
62ce964f1d2e commentary
Claus Gittinger <cg@exept.de>
parents: 635
diff changeset
    21
	poolDictionaries:''
4350
5aa2a3b9fd5b category change
Claus Gittinger <cg@exept.de>
parents: 2988
diff changeset
    22
	category:'Collections-Weak'
6
62211a9bc04d Initial revision
claus
parents:
diff changeset
    23
!
62211a9bc04d Initial revision
claus
parents:
diff changeset
    24
10
claus
parents: 6
diff changeset
    25
!WeakIdentityDictionary class methodsFor:'documentation'!
claus
parents: 6
diff changeset
    26
88
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    27
copyright
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    28
"
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    29
 COPYRIGHT (c) 1992 by Claus Gittinger
358
claus
parents: 159
diff changeset
    30
	      All Rights Reserved
88
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    31
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    32
 This software is furnished under a license and may be used
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    33
 only in accordance with the terms of that license and with the
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    34
 inclusion of the above copyright notice.   This software may not
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    35
 be provided or otherwise made available to, or used by, any
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    36
 other person.  No title to or ownership of the software is
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    37
 hereby transferred.
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    38
"
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    39
!
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    40
10
claus
parents: 6
diff changeset
    41
documentation
claus
parents: 6
diff changeset
    42
"
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
    43
    WeakIdentityDictionaries behave like IdentityDictionaries,
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
    44
    as long as the keys are still referenced by some
1263
92c1db6b0776 commentary
Claus Gittinger <cg@exept.de>
parents: 1256
diff changeset
    45
    other (non-weak) object.
92c1db6b0776 commentary
Claus Gittinger <cg@exept.de>
parents: 1256
diff changeset
    46
    However, once the last non-weak reference ceases to exist,
92c1db6b0776 commentary
Claus Gittinger <cg@exept.de>
parents: 1256
diff changeset
    47
    the object will be automatically removed from the Weakcollection
92c1db6b0776 commentary
Claus Gittinger <cg@exept.de>
parents: 1256
diff changeset
    48
    (with some delay: it will be removed after the next garbage collect).
92c1db6b0776 commentary
Claus Gittinger <cg@exept.de>
parents: 1256
diff changeset
    49
92c1db6b0776 commentary
Claus Gittinger <cg@exept.de>
parents: 1256
diff changeset
    50
    This class was added to support keeping track of dependents without
88
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    51
    keeping the values alive - values simply become nil when no one else
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    52
    references it. The original dependency mechanism used a regular Dictionary,
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    53
    which usually leads to a lot of garbage being kept due to a forgotten
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    54
    release. Using a WeakDictionary may be incompatible to ST-80 but is much
81dacba7a63a *** empty log message ***
claus
parents: 63
diff changeset
    55
    more comfortable, since no manual release of dependents is needed.
1263
92c1db6b0776 commentary
Claus Gittinger <cg@exept.de>
parents: 1256
diff changeset
    56
2306
3851fc553893 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2303
diff changeset
    57
    [Warning:]
3851fc553893 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2303
diff changeset
    58
      If you use this, be very careful since the collections size changes
3851fc553893 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2303
diff changeset
    59
      'magically' - for example, testing for being nonEmpty and then
3851fc553893 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2303
diff changeset
    60
      removing the first element may fail, since the element may vanish inbetween.
3851fc553893 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 2303
diff changeset
    61
      In general, never trust the value as returned by the size/isEmpty messages.
2260
Claus Gittinger <cg@exept.de>
parents: 2091
diff changeset
    62
Claus Gittinger <cg@exept.de>
parents: 2091
diff changeset
    63
1290
15ba3221b89b documentation
Claus Gittinger <cg@exept.de>
parents: 1263
diff changeset
    64
    [author:]
2910
1a3e44b10f9b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
    65
	Claus Gittinger
1290
15ba3221b89b documentation
Claus Gittinger <cg@exept.de>
parents: 1263
diff changeset
    66
1263
92c1db6b0776 commentary
Claus Gittinger <cg@exept.de>
parents: 1256
diff changeset
    67
    [See also:]
2910
1a3e44b10f9b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
    68
	WeakArray WeakValueDictionary WeakIdentitySet
10
claus
parents: 6
diff changeset
    69
"
claus
parents: 6
diff changeset
    70
! !
claus
parents: 6
diff changeset
    71
359
claus
parents: 358
diff changeset
    72
!WeakIdentityDictionary methodsFor:'adding & removing'!
claus
parents: 358
diff changeset
    73
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
    74
at:key ifAbsent:exceptionBlock
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
    75
    "redefined to block interrupts
2738
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
    76
     (avoid change of the dictionary while accessing)"
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
    77
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
    78
    |val|
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
    79
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
    80
    (OperatingSystem blockInterrupts) ifTrue:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
    81
	"/ already blocked
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
    82
	^ super at:key ifAbsent:exceptionBlock.
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
    83
    ].
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
    84
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
    85
    [
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
    86
	val := super at:key ifAbsent:exceptionBlock.
6421
58dca33cf0fc #valueNowOrOnUnwindDo: -> #ensure:
Claus Gittinger <cg@exept.de>
parents: 6309
diff changeset
    87
    ] ensure:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
    88
	OperatingSystem unblockInterrupts.
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
    89
    ].
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
    90
    ^ val
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
    91
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
    92
    "Modified: 6.5.1996 / 12:22:26 / stefan"
2738
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
    93
    "Modified: 1.7.1997 / 10:45:47 / cg"
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
    94
!
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
    95
19193
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
    96
at:key ifAbsentPut:replacementBlock
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
    97
    "redefined to block interrupts
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
    98
     (avoid change of the dictionary while accessing)"
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
    99
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   100
    |val|
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   101
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   102
    (OperatingSystem blockInterrupts) ifTrue:[
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   103
        "/ already blocked
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   104
        ^ super at:key ifAbsentPut:replacementBlock.
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   105
    ].
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   106
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   107
    [
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   108
        val := super at:key ifAbsentPut:replacementBlock.
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   109
    ] ensure:[
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   110
        OperatingSystem unblockInterrupts.
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   111
    ].
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   112
    ^ val
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   113
!
27e9b8923aa7 #FEATURE
Claus Gittinger <cg@exept.de>
parents: 18620
diff changeset
   114
1256
249fd57abee5 commentary
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
   115
at:key put:anObject
249fd57abee5 commentary
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
   116
    "add the argument anObject under key, aKey to the receiver.
249fd57abee5 commentary
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
   117
     Return anObject (sigh).
1343
b0ee705c63e0 Correct return value when removing elements.
Stefan Vogel <sv@exept.de>
parents: 1290
diff changeset
   118
     Redefined to block interrupts, to avoid trouble when dependencies
1256
249fd57abee5 commentary
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
   119
     are added within interrupting high prio processes."
249fd57abee5 commentary
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
   120
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   121
    |val|
359
claus
parents: 358
diff changeset
   122
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   123
    (OperatingSystem blockInterrupts) ifTrue:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   124
	"/ already blocked
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   125
	^ super at:key put:anObject.
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   126
    ].
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   127
1790
4187e9fc7357 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
   128
    [
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   129
	val := super at:key put:anObject.
6421
58dca33cf0fc #valueNowOrOnUnwindDo: -> #ensure:
Claus Gittinger <cg@exept.de>
parents: 6309
diff changeset
   130
    ] ensure:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   131
	OperatingSystem unblockInterrupts.
1790
4187e9fc7357 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 1780
diff changeset
   132
    ].
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   133
    ^ val
1223
09d16bc18493 at:put: returns its arg
Claus Gittinger <cg@exept.de>
parents: 1054
diff changeset
   134
1343
b0ee705c63e0 Correct return value when removing elements.
Stefan Vogel <sv@exept.de>
parents: 1290
diff changeset
   135
    "Modified: 6.5.1996 / 12:22:26 / stefan"
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   136
    "Modified: 29.1.1997 / 15:08:45 / cg"
359
claus
parents: 358
diff changeset
   137
!
claus
parents: 358
diff changeset
   138
claus
parents: 358
diff changeset
   139
removeKey:aKey ifAbsent:aBlock
1256
249fd57abee5 commentary
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
   140
    "remove the association under aKey from the collection,
2910
1a3e44b10f9b *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2741
diff changeset
   141
     return the value previously stored there.
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   142
     If it was not in the collection return the result
1256
249fd57abee5 commentary
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
   143
     from evaluating aBlock.
249fd57abee5 commentary
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
   144
249fd57abee5 commentary
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
   145
    Redefined to avoid synchronization problems, in case
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   146
    of interrupts (otherwise, there could be some other operation
1256
249fd57abee5 commentary
Claus Gittinger <cg@exept.de>
parents: 1223
diff changeset
   147
    on the receiver done by another process, which garbles my contents)."
1054
62ce964f1d2e commentary
Claus Gittinger <cg@exept.de>
parents: 635
diff changeset
   148
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   149
    |ret|
359
claus
parents: 358
diff changeset
   150
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   151
    (OperatingSystem blockInterrupts) ifTrue:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   152
	"/ already blocked
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   153
	^ super removeKey:aKey ifAbsent:aBlock.
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   154
    ].
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   155
359
claus
parents: 358
diff changeset
   156
    [
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   157
	ret := super removeKey:aKey ifAbsent:aBlock
6421
58dca33cf0fc #valueNowOrOnUnwindDo: -> #ensure:
Claus Gittinger <cg@exept.de>
parents: 6309
diff changeset
   158
    ] ensure:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   159
	OperatingSystem unblockInterrupts
1343
b0ee705c63e0 Correct return value when removing elements.
Stefan Vogel <sv@exept.de>
parents: 1290
diff changeset
   160
    ].
b0ee705c63e0 Correct return value when removing elements.
Stefan Vogel <sv@exept.de>
parents: 1290
diff changeset
   161
    ^ ret
1054
62ce964f1d2e commentary
Claus Gittinger <cg@exept.de>
parents: 635
diff changeset
   162
1343
b0ee705c63e0 Correct return value when removing elements.
Stefan Vogel <sv@exept.de>
parents: 1290
diff changeset
   163
    "Modified: 6.5.1996 / 12:44:51 / stefan"
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   164
    "Modified: 29.1.1997 / 15:09:11 / cg"
2738
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   165
!
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   166
16513
Stefan Vogel <sv@exept.de>
parents: 16244
diff changeset
   167
safeRemoveKey:key
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   168
    "redefined to block interrupts
2738
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   169
     (avoid change of the dictionary while accessing)"
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   170
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   171
    |val|
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   172
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   173
    (OperatingSystem blockInterrupts) ifTrue:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   174
	"/ already blocked
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   175
	^ super safeRemoveKey:key.
2738
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   176
    ].
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   177
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   178
    [
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   179
	val := super safeRemoveKey:key.
6421
58dca33cf0fc #valueNowOrOnUnwindDo: -> #ensure:
Claus Gittinger <cg@exept.de>
parents: 6309
diff changeset
   180
    ] ensure:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   181
	OperatingSystem unblockInterrupts.
2738
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   182
    ].
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   183
    ^ val
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   184
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   185
    "Modified: 6.5.1996 / 12:22:26 / stefan"
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   186
    "Modified: 1.7.1997 / 10:45:52 / cg"
2546e06df154 more interrupt blocking (paranoia)
Claus Gittinger <cg@exept.de>
parents: 2329
diff changeset
   187
    "Created: 1.7.1997 / 10:46:34 / cg"
359
claus
parents: 358
diff changeset
   188
! !
claus
parents: 358
diff changeset
   189
10
claus
parents: 6
diff changeset
   190
!WeakIdentityDictionary methodsFor:'element disposal'!
claus
parents: 6
diff changeset
   191
6309
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   192
clearDeadSlots
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   193
    |wasBlocked|
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   194
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   195
    "
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   196
     have to block here - dispose may be done at a low priority
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   197
     from the background finalizer. If new items are added by a
6309
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   198
     higher prio process, the dictionary might get corrupted otherwise
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   199
    "
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   200
    wasBlocked := OperatingSystem blockInterrupts.
6469
b9f198f122a6 Ensure #unblockInterrupts
Stefan Vogel <sv@exept.de>
parents: 6421
diff changeset
   201
    [
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   202
	keyArray
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   203
	    forAllDeadIndicesDo:[:idx |
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   204
				    valueArray basicAt:idx put:nil.
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   205
				    tally := tally - 1.
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   206
				]
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   207
	    replacingCorpsesWith:DeletedEntry.
6469
b9f198f122a6 Ensure #unblockInterrupts
Stefan Vogel <sv@exept.de>
parents: 6421
diff changeset
   208
    ] ensure:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   209
	wasBlocked ifFalse:[OperatingSystem unblockInterrupts].
6469
b9f198f122a6 Ensure #unblockInterrupts
Stefan Vogel <sv@exept.de>
parents: 6421
diff changeset
   210
    ].
6309
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   211
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   212
    "Modified: / 13.12.2001 / 14:18:17 / martin"
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   213
!
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   214
2091
c11bb3e29a1b Use dependent mechamism of WeakArray instead of #watcher.
Stefan Vogel <sv@exept.de>
parents: 2027
diff changeset
   215
update:something with:aParameter from:changedObject
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   216
    "an element (either key or value) died - clear out slots for
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   217
     disposed keys."
6
62211a9bc04d Initial revision
claus
parents:
diff changeset
   218
2091
c11bb3e29a1b Use dependent mechamism of WeakArray instead of #watcher.
Stefan Vogel <sv@exept.de>
parents: 2027
diff changeset
   219
    something == #ElementExpired ifTrue:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   220
	self clearDeadSlots.
2091
c11bb3e29a1b Use dependent mechamism of WeakArray instead of #watcher.
Stefan Vogel <sv@exept.de>
parents: 2027
diff changeset
   221
    ]
c11bb3e29a1b Use dependent mechamism of WeakArray instead of #watcher.
Stefan Vogel <sv@exept.de>
parents: 2027
diff changeset
   222
6309
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   223
    "Created: / 7.1.1997 / 16:59:30 / stefan"
9832d6941a4a extracted clearDeadSlots
martin
parents: 6233
diff changeset
   224
    "Modified: / 13.12.2001 / 14:17:58 / martin"
6
62211a9bc04d Initial revision
claus
parents:
diff changeset
   225
! !
609
12be97f6d5a7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   226
12be97f6d5a7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   227
!WeakIdentityDictionary methodsFor:'private'!
12be97f6d5a7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   228
2315
a9ff2fda8bae mhmh - be very careful when searching for some item.
Claus Gittinger <cg@exept.de>
parents: 2306
diff changeset
   229
findKeyOrNil:key
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   230
    "Look for the key in the receiver.
2988
c6550b3e9b3c Fix spelling.
Stefan Vogel <sv@exept.de>
parents: 2910
diff changeset
   231
     If it is found, return the index,
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   232
     otherwise the index of the first unused slot.
2329
937fc97d5544 must always nil empty slots in #findKeyOrNil:
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
   233
     Grow the receiver, if key was not found, and no unused slots were present.
937fc97d5544 must always nil empty slots in #findKeyOrNil:
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
   234
937fc97d5544 must always nil empty slots in #findKeyOrNil:
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
   235
     Warning: an empty slot MUST be filled by the sender - it is only to be sent
20037
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   236
              by at:put: / add: - like methods."
2315
a9ff2fda8bae mhmh - be very careful when searching for some item.
Claus Gittinger <cg@exept.de>
parents: 2306
diff changeset
   237
a9ff2fda8bae mhmh - be very careful when searching for some item.
Claus Gittinger <cg@exept.de>
parents: 2306
diff changeset
   238
    |index  "{ Class:SmallInteger }"
a9ff2fda8bae mhmh - be very careful when searching for some item.
Claus Gittinger <cg@exept.de>
parents: 2306
diff changeset
   239
     length "{ Class:SmallInteger }"
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   240
     startIndex probe
2329
937fc97d5544 must always nil empty slots in #findKeyOrNil:
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
   241
     delIndex "{ Class:SmallInteger }"|
2315
a9ff2fda8bae mhmh - be very careful when searching for some item.
Claus Gittinger <cg@exept.de>
parents: 2306
diff changeset
   242
2329
937fc97d5544 must always nil empty slots in #findKeyOrNil:
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
   243
    (OperatingSystem blockInterrupts) ifFalse:[
20037
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   244
        "/
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   245
        "/ may never be entered with interrupts enabled
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   246
        "/
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   247
        OperatingSystem unblockInterrupts.
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   248
        self error:'unblocked call of findKeyOrNil'.
2315
a9ff2fda8bae mhmh - be very careful when searching for some item.
Claus Gittinger <cg@exept.de>
parents: 2306
diff changeset
   249
    ].
a9ff2fda8bae mhmh - be very careful when searching for some item.
Claus Gittinger <cg@exept.de>
parents: 2306
diff changeset
   250
2329
937fc97d5544 must always nil empty slots in #findKeyOrNil:
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
   251
    delIndex := 0.
2315
a9ff2fda8bae mhmh - be very careful when searching for some item.
Claus Gittinger <cg@exept.de>
parents: 2306
diff changeset
   252
2329
937fc97d5544 must always nil empty slots in #findKeyOrNil:
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
   253
    length := keyArray basicSize.
6953
6b3a197638f0 invoke hash/idHash only in one place (initialIndexFor..)
Claus Gittinger <cg@exept.de>
parents: 6469
diff changeset
   254
    startIndex := index := self initialIndexForKey:key.
2329
937fc97d5544 must always nil empty slots in #findKeyOrNil:
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
   255
16244
584d9f48f6c1 [true] whileTrue: -> #loop
Stefan Vogel <sv@exept.de>
parents: 13747
diff changeset
   256
    [
20037
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   257
        probe := keyArray basicAt:index.
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   258
        key == probe ifTrue:[^ index].
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   259
        probe isNil ifTrue:[
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   260
            delIndex == 0 ifTrue:[^ index].
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   261
            keyArray basicAt:delIndex put:nil.
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   262
            ^ delIndex
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   263
        ].
2329
937fc97d5544 must always nil empty slots in #findKeyOrNil:
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
   264
20037
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   265
        probe class == SmallInteger ifTrue:[
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   266
            probe := DeletedEntry.
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   267
            keyArray basicAt:index put:probe.
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   268
            valueArray basicAt:index put:nil.
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   269
            tally := tally - 1.
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   270
        ].
2315
a9ff2fda8bae mhmh - be very careful when searching for some item.
Claus Gittinger <cg@exept.de>
parents: 2306
diff changeset
   271
20037
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   272
        (delIndex == 0 and:[probe == DeletedEntry]) ifTrue:[
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   273
            delIndex := index
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   274
        ].
2329
937fc97d5544 must always nil empty slots in #findKeyOrNil:
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
   275
20037
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   276
        index == length ifTrue:[
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   277
            index := 1
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   278
        ] ifFalse:[
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   279
            index := index + 1
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   280
        ].
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   281
        index == startIndex ifTrue:[
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   282
            delIndex ~~ 0 ifTrue:[
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   283
                keyArray basicAt:delIndex put:nil.
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   284
                ^ delIndex
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   285
            ].
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   286
            self grow.
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   287
            length := keyArray basicSize.
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   288
            startIndex := index := self initialIndexForKey:key.
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   289
        ].
16244
584d9f48f6c1 [true] whileTrue: -> #loop
Stefan Vogel <sv@exept.de>
parents: 13747
diff changeset
   290
    ] loop.
2315
a9ff2fda8bae mhmh - be very careful when searching for some item.
Claus Gittinger <cg@exept.de>
parents: 2306
diff changeset
   291
2329
937fc97d5544 must always nil empty slots in #findKeyOrNil:
Claus Gittinger <cg@exept.de>
parents: 2315
diff changeset
   292
    "Modified: 30.1.1997 / 15:04:34 / cg"
2988
c6550b3e9b3c Fix spelling.
Stefan Vogel <sv@exept.de>
parents: 2910
diff changeset
   293
    "Modified: 1.10.1997 / 11:25:32 / stefan"
2315
a9ff2fda8bae mhmh - be very careful when searching for some item.
Claus Gittinger <cg@exept.de>
parents: 2306
diff changeset
   294
!
a9ff2fda8bae mhmh - be very careful when searching for some item.
Claus Gittinger <cg@exept.de>
parents: 2306
diff changeset
   295
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   296
grow:newSize
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   297
    "grow the receiver.
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   298
     Redefined to block interrupts, to avoid trouble when dependencies
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   299
     are added within interrupting high prio processes."
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   300
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   301
"/ 'grow:' printCR.
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   302
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   303
    (OperatingSystem blockInterrupts) ifTrue:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   304
	"/ already blocked
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   305
	^ super grow:newSize.
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   306
    ].
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   307
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   308
    [
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   309
	super grow:newSize
6421
58dca33cf0fc #valueNowOrOnUnwindDo: -> #ensure:
Claus Gittinger <cg@exept.de>
parents: 6309
diff changeset
   310
    ] ensure:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   311
	OperatingSystem unblockInterrupts
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   312
    ].
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   313
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   314
    "Created: 28.1.1997 / 23:41:39 / cg"
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   315
    "Modified: 29.1.1997 / 15:10:12 / cg"
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   316
!
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   317
18333
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   318
initializeForCapacity:minSize
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   319
    "reset the receiver's contents.
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   320
     Redefined to block interrupts, to avoid trouble when dependencies
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   321
     are added within interrupting high prio processes."
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   322
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   323
"/ 'setTally:' printCR.
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   324
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   325
    (OperatingSystem blockInterrupts) ifTrue:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   326
	"/ already blocked
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   327
	super initializeForCapacity:minSize.
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   328
	^ self.
18333
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   329
    ].
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   330
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   331
    [
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   332
	super initializeForCapacity:minSize
18333
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   333
    ] ensure:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   334
	OperatingSystem unblockInterrupts
18333
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   335
    ].
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   336
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   337
    "Created: 29.1.1997 / 11:40:12 / cg"
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   338
    "Modified: 29.1.1997 / 15:11:11 / cg"
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   339
!
854cf4f00536 class: WeakIdentityDictionary
Claus Gittinger <cg@exept.de>
parents: 16513
diff changeset
   340
609
12be97f6d5a7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   341
keyContainerOfSize:n
12be97f6d5a7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   342
    "return a container for keys of size n.
20037
a00968eea064 #TUNING by stefan
Stefan Vogel <sv@exept.de>
parents: 19193
diff changeset
   343
     use WeakArrays here."
609
12be97f6d5a7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   344
12be97f6d5a7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   345
    |w|
12be97f6d5a7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   346
12be97f6d5a7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   347
    w := WeakArray new:n.
2091
c11bb3e29a1b Use dependent mechamism of WeakArray instead of #watcher.
Stefan Vogel <sv@exept.de>
parents: 2027
diff changeset
   348
    w addDependent:self.
609
12be97f6d5a7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   349
    ^ w
2091
c11bb3e29a1b Use dependent mechamism of WeakArray instead of #watcher.
Stefan Vogel <sv@exept.de>
parents: 2027
diff changeset
   350
c11bb3e29a1b Use dependent mechamism of WeakArray instead of #watcher.
Stefan Vogel <sv@exept.de>
parents: 2027
diff changeset
   351
    "Modified: 7.1.1997 / 17:01:15 / stefan"
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   352
    "Modified: 29.1.1997 / 14:18:49 / cg"
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   353
!
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   354
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   355
rehash
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   356
    "grow the receiver.
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   357
     Redefined to block interrupts, to avoid trouble when dependencies
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   358
     are added within interrupting high prio processes."
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   359
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   360
"/ 'rehash' printCR.
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   361
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   362
    (OperatingSystem blockInterrupts) ifTrue:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   363
	"/ already blocked
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   364
	super rehash.
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   365
	^ self.
2303
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   366
    ].
f19df2d4c238 avoid creation of a blocks if possible - if not, cheap ones are now created
Claus Gittinger <cg@exept.de>
parents: 2298
diff changeset
   367
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   368
    [
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   369
	super rehash
6421
58dca33cf0fc #valueNowOrOnUnwindDo: -> #ensure:
Claus Gittinger <cg@exept.de>
parents: 6309
diff changeset
   370
    ] ensure:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   371
	OperatingSystem unblockInterrupts
2298
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   372
    ].
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   373
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   374
    "Created: 29.1.1997 / 11:39:42 / cg"
e75dabb791dc *** empty log message ***
Claus Gittinger <cg@exept.de>
parents: 2260
diff changeset
   375
    "Modified: 29.1.1997 / 14:18:52 / cg"
609
12be97f6d5a7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   376
! !
12be97f6d5a7 checkin from browser
Claus Gittinger <cg@exept.de>
parents: 530
diff changeset
   377
2741
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   378
!WeakIdentityDictionary methodsFor:'testing'!
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   379
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   380
includes:anObject
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   381
    "redefined to block interrupts
2741
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   382
     (avoid change of the dictionary while accessing)"
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   383
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   384
    |val|
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   385
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   386
    (OperatingSystem blockInterrupts) ifTrue:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   387
	"/ already blocked
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   388
	^ super includes:anObject.
2741
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   389
    ].
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   390
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   391
    [
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   392
	val := super includes:anObject.
6421
58dca33cf0fc #valueNowOrOnUnwindDo: -> #ensure:
Claus Gittinger <cg@exept.de>
parents: 6309
diff changeset
   393
    ] ensure:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   394
	OperatingSystem unblockInterrupts.
2741
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   395
    ].
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   396
    ^ val
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   397
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   398
    "Modified: 6.5.1996 / 12:22:26 / stefan"
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   399
    "Modified: 1.7.1997 / 10:45:52 / cg"
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   400
    "Created: 1.7.1997 / 10:47:13 / cg"
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   401
!
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   402
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   403
includesKey:key
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   404
    "redefined to block interrupts
2741
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   405
     (avoid change of the dictionary while accessing)"
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   406
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   407
    |val|
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   408
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   409
    (OperatingSystem blockInterrupts) ifTrue:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   410
	"/ already blocked
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   411
	^ super includesKey:key.
2741
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   412
    ].
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   413
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   414
    [
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   415
	val := super includesKey:key.
6421
58dca33cf0fc #valueNowOrOnUnwindDo: -> #ensure:
Claus Gittinger <cg@exept.de>
parents: 6309
diff changeset
   416
    ] ensure:[
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   417
	OperatingSystem unblockInterrupts.
2741
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   418
    ].
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   419
    ^ val
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   420
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   421
    "Modified: 6.5.1996 / 12:22:26 / stefan"
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   422
    "Created: 1.7.1997 / 10:45:14 / cg"
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   423
    "Modified: 1.7.1997 / 10:45:52 / cg"
9243
a4ea5c29fe53 +isWeakCollection
Claus Gittinger <cg@exept.de>
parents: 8493
diff changeset
   424
!
a4ea5c29fe53 +isWeakCollection
Claus Gittinger <cg@exept.de>
parents: 8493
diff changeset
   425
a4ea5c29fe53 +isWeakCollection
Claus Gittinger <cg@exept.de>
parents: 8493
diff changeset
   426
isWeakCollection
a4ea5c29fe53 +isWeakCollection
Claus Gittinger <cg@exept.de>
parents: 8493
diff changeset
   427
    "return true, if the receiver has weak references to its elements."
a4ea5c29fe53 +isWeakCollection
Claus Gittinger <cg@exept.de>
parents: 8493
diff changeset
   428
a4ea5c29fe53 +isWeakCollection
Claus Gittinger <cg@exept.de>
parents: 8493
diff changeset
   429
    ^ true
2741
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   430
! !
7af858fd7296 category changes
Claus Gittinger <cg@exept.de>
parents: 2738
diff changeset
   431
635
86cbe76f5a20 version at the end
Claus Gittinger <cg@exept.de>
parents: 609
diff changeset
   432
!WeakIdentityDictionary class methodsFor:'documentation'!
86cbe76f5a20 version at the end
Claus Gittinger <cg@exept.de>
parents: 609
diff changeset
   433
86cbe76f5a20 version at the end
Claus Gittinger <cg@exept.de>
parents: 609
diff changeset
   434
version
18620
b4e9f25d6ce6 preparations for lined index list in WeakArray
Claus Gittinger <cg@exept.de>
parents: 18333
diff changeset
   435
    ^ '$Header$'
635
86cbe76f5a20 version at the end
Claus Gittinger <cg@exept.de>
parents: 609
diff changeset
   436
! !
16244
584d9f48f6c1 [true] whileTrue: -> #loop
Stefan Vogel <sv@exept.de>
parents: 13747
diff changeset
   437