1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
201
202
203
|
"======================================================================
|
| ProcessEnvironment Method Definitions
|
|
======================================================================"
"======================================================================
|
| Copyright 2008 Free Software Foundation, Inc.
| Written by Paolo Bonzini.
|
| This file is part of the GNU Smalltalk class library.
|
| The GNU Smalltalk class library is free software; you can redistribute it
| and/or modify it under the terms of the GNU Lesser General Public License
| as published by the Free Software Foundation; either version 2.1, or (at
| your option) any later version.
|
| The GNU Smalltalk class library is distributed in the hope that it will be
| useful, but WITHOUT ANY WARRANTY; without even the implied warranty of
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser
| General Public License for more details.
|
| You should have received a copy of the GNU Lesser General Public License
| along with the GNU Smalltalk class library; see the file COPYING.LIB.
| If not, write to the Free Software Foundation, 59 Temple Place - Suite
| 330, Boston, MA 02110-1301, USA.
|
======================================================================"
Namespace current: Kernel [
LookupKey subclass: ProcessVariable [
<category: 'Language-Processes'>
<comment: 'I represent a proxy for a thread-local variable defined
for a process. Requesting the value will return the thread-local
setting for the current process.'>
environment [
<category: 'accessing'>
^ProcessEnvironment uniqueInstance
]
value [
<category: 'accessing'>
^Processor activeProcess environment at: self key ifAbsent: [ nil ]
]
value: anObject [
<category: 'accessing'>
Processor activeProcess environment at: self key put: anObject
]
]
]
Object subclass: ProcessEnvironment [
<category: 'Language-Processes'>
<comment: 'I represent a proxy for thread-local variables defined for
Smalltalk processes. Associations requested to me retrieve the thread-local
value for the current process. For now, I don''t provide the full protocol of
a Dictionary; in particular the iteration protocol is absent.'>
ProcessEnvironment class [
| uniqueInstance |
uniqueInstance [
"Return the singleton instance of ProcessEnvironment."
<category: 'singleton'>
uniqueInstance isNil ifTrue: [ uniqueInstance := self basicNew ].
^uniqueInstance
]
new [
<category: 'disabled'>
self shouldNotImplement
]
]
add: newObject [
"Add the newObject association to the receiver"
<category: 'accessing'>
^Processor activeProcess environment add: newObject
]
at: key put: value [
"Store value as associated to the given key"
<category: 'accessing'>
^Processor activeProcess environment at: key put: value
]
at: key [
"Answer the value associated to the given key. Return nil if the key
is not found"
<category: 'accessing'>
^Processor activeProcess environment at: key ifAbsent: [nil]
]
at: key ifAbsent: aBlock [
"Answer the value associated to the given key, or the result of evaluating
aBlock if the key is not found"
<category: 'accessing'>
^Processor activeProcess environment at: key ifAbsent: aBlock
]
at: key ifAbsentPut: aBlock [
"Answer the value associated to the given key, setting it to
the result of evaluating aBlock if the key is not found."
<category: 'accessing'>
^Processor activeProcess environment at: key ifAbsentPut: aBlock
]
at: key ifPresent: aBlock [
"Answer the value associated to the given key, or the result of evaluating
aBlock if the key is not found"
<category: 'accessing'>
^Processor activeProcess environment at: key ifPresent: aBlock
]
associationAt: key ifAbsent: aBlock [
"Answer the value associated to the given key, or the result of evaluating
aBlock if the key is not found"
<category: 'accessing'>
^Kernel.ProcessVariable key: key
]
associationAt: key [
"Answer the value associated to the given key, or the result of evaluating
aBlock if the key is not found"
<category: 'accessing'>
^Kernel.ProcessVariable key: key
]
keys [
"Answer a kind of Set containing the keys of the receiver"
<category: 'accessing'>
^Processor activeProcess environment keys
]
includesKey: key [
"Answer whether the receiver contains the given key"
<category: 'dictionary testing'>
^Processor activeProcess environment includesKey: key
]
removeAllKeys: keys [
"Remove all the keys in keys, without raising any errors"
<category: 'dictionary removing'>
keys do: [:key | self removeKey: key ifAbsent: []]
]
removeAllKeys: keys ifAbsent: aBlock [
"Remove all the keys in keys, passing the missing keys as parameters
to aBlock as they're encountered"
<category: 'dictionary removing'>
keys do: [:key | self removeKey: key ifAbsent: [aBlock value: key]]
]
remove: anAssociation [
"Remove anAssociation's key from the dictionary"
<category: 'dictionary removing'>
^Processor activeProcess environment removeKey: anAssociation key
ifAbsent: []
]
remove: anAssociation ifAbsent: aBlock [
"Remove anAssociation's key from the dictionary"
<category: 'dictionary removing'>
^Processor activeProcess environment removeKey: anAssociation key
ifAbsent: aBlock
]
removeKey: aSymbol [
"Remove the aSymbol key from the dictionary"
<category: 'dictionary removing'>
^Processor activeProcess environment removeKey: aSymbol ifAbsent: []
]
removeKey: aSymbol ifAbsent: aBlock [
"Remove the aSymbol key from the dictionary"
<category: 'dictionary removing'>
^Processor activeProcess environment removeKey: aSymbol ifAbsent: aBlock
]
]
|
