equal
deleted
inserted
replaced
8 be provided or otherwise made available to, or used by, any |
8 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
9 other person. No title to or ownership of the software is |
10 hereby transferred. |
10 hereby transferred. |
11 " |
11 " |
12 "{ Package: 'stx:libbasic2' }" |
12 "{ Package: 'stx:libbasic2' }" |
|
13 |
|
14 "{ NameSpace: Smalltalk }" |
13 |
15 |
14 Dictionary subclass:#CacheDictionary |
16 Dictionary subclass:#CacheDictionary |
15 instanceVariableNames:'' |
17 instanceVariableNames:'' |
16 classVariableNames:'' |
18 classVariableNames:'' |
17 poolDictionaries:'' |
19 poolDictionaries:'' |
62 " |
64 " |
63 ! ! |
65 ! ! |
64 |
66 |
65 !CacheDictionary methodsFor:'private'! |
67 !CacheDictionary methodsFor:'private'! |
66 |
68 |
67 emptyCheck |
|
68 "redefined - never shrink" |
|
69 |
|
70 ^ self |
|
71 |
|
72 "Modified: 30.1.1997 / 15:17:12 / cg" |
|
73 ! |
|
74 |
|
75 findKeyOrNil:key |
69 findKeyOrNil:key |
76 "Look for the key in the receiver. If it is found, return |
70 "Look for the key in the receiver. If it is found, return |
77 the index of the association containing the key, otherwise |
71 the index of the association containing the key, otherwise |
78 return the index of the first unused slot. If no empty slot |
72 return the index of the first unused slot. If no empty slot |
79 is available, make one empty (but never grow)." |
73 is available, make one empty (but never grow)." |
120 |
114 |
121 "Modified: / 01-03-1997 / 00:59:55 / cg" |
115 "Modified: / 01-03-1997 / 00:59:55 / cg" |
122 "Modified (format): / 26-12-2011 / 10:42:08 / cg" |
116 "Modified (format): / 26-12-2011 / 10:42:08 / cg" |
123 ! |
117 ! |
124 |
118 |
125 fullCheck |
119 possiblyGrow |
126 "redefined - never grow" |
120 "redefined - never grow" |
127 |
121 |
128 ^ self |
122 ^ self |
129 |
123 |
130 "Modified: 30.1.1997 / 15:17:18 / cg" |
124 "Modified: 30.1.1997 / 15:17:18 / cg" |
|
125 ! |
|
126 |
|
127 possiblyShrink |
|
128 "redefined - never shrink" |
|
129 |
|
130 ^ self |
|
131 |
|
132 "Modified: 30.1.1997 / 15:17:12 / cg" |
131 ! ! |
133 ! ! |
132 |
134 |
133 !CacheDictionary class methodsFor:'documentation'! |
135 !CacheDictionary class methodsFor:'documentation'! |
134 |
136 |
135 version |
137 version |
136 ^ '$Header: /cvs/stx/stx/libbasic2/CacheDictionary.st,v 1.22 2014-03-07 22:06:40 stefan Exp $' |
138 ^ '$Header: /cvs/stx/stx/libbasic2/CacheDictionary.st,v 1.23 2014-12-30 12:35:25 cg Exp $' |
137 ! ! |
139 ! ! |
138 |
140 |