pharo: Provide a drop-in replacement for the ProcessVariable
This commit is contained in:
parent
5e4b75e143
commit
f900c8fc6e
6
Makefile
6
Makefile
|
@ -5,11 +5,13 @@ GST_CONVERT = gst-convert
|
||||||
CONVERT_RULES = -r'Osmo.LogManager->LogManager' \
|
CONVERT_RULES = -r'Osmo.LogManager->LogManager' \
|
||||||
-r'(Transcript nl)->(Transcript cr)' \
|
-r'(Transcript nl)->(Transcript cr)' \
|
||||||
-r'(thisContext parentContext)->(thisContext sender)' \
|
-r'(thisContext parentContext)->(thisContext sender)' \
|
||||||
-r'(``@object backtraceOn: ``@args1)->(``@object printOn: ``@args1)'
|
-r'(``@object backtraceOn: ``@args1)->(``@object printOn: ``@args1)' \
|
||||||
|
-r'ProcessVariable->GSTProcessVariable'
|
||||||
|
|
||||||
|
|
||||||
all:
|
all:
|
||||||
$(GST_PACKAGE) --test package.xml
|
$(GST_PACKAGE) --test package.xml
|
||||||
|
|
||||||
convert:
|
convert:
|
||||||
$(GST_CONVERT) $(CONVERT_RULES) -F squeak -f gst LogManager.st fileout.st
|
$(GST_CONVERT) $(CONVERT_RULES) -F squeak -f gst \
|
||||||
|
-o fileout.st compat_for_pharo.st LogManager.st
|
||||||
|
|
|
@ -0,0 +1,35 @@
|
||||||
|
Object subclass: GSTProcessVariableHolder [
|
||||||
|
| val |
|
||||||
|
<category: 'OsmoLogging-Pharo'>
|
||||||
|
|
||||||
|
value: aValue [
|
||||||
|
<category: 'set'>
|
||||||
|
val := val.
|
||||||
|
]
|
||||||
|
|
||||||
|
value [
|
||||||
|
<category: 'get'>
|
||||||
|
^ val
|
||||||
|
]
|
||||||
|
]
|
||||||
|
|
||||||
|
ProcessLocalVariable subclass: GSTProcessVariable [
|
||||||
|
| dict |
|
||||||
|
<category: 'OsmoLogging-Pharo'>
|
||||||
|
|
||||||
|
GSTProcessVariable class >> key: aKey [
|
||||||
|
<category: 'creation'>
|
||||||
|
^ self soleInstance key: aKey.
|
||||||
|
]
|
||||||
|
|
||||||
|
dict [
|
||||||
|
<category: 'creation'>
|
||||||
|
^ dict ifNil: [dict := Dictionary new].
|
||||||
|
]
|
||||||
|
|
||||||
|
key: aKey [
|
||||||
|
<category: 'key'>
|
||||||
|
^ self dict at: aKey ifAbsent:
|
||||||
|
[self dict at: aKey put: GSTProcessVariableHolder new].
|
||||||
|
]
|
||||||
|
]
|
Reference in New Issue