I published a slice that rewrites "Smalltalk" to "Smalltalk globals"
for various messages
(http://code.google.com/p/pharo/issues/detail?id=2143). To adapt the
code in other packages just run the rewrite rules below:
Name: SLICE-RewriteSmalltalkToSmalltalkGlobals-lr.1
Author: lr
Time: 14 March 2010, 9:18:06 pm
UUID: 1742e7f2-7233-4be3-bc3d-c9332ed07ef7
Ancestors:
Dependencies: Collections-Support-lr.31, Collections-Text-lr.30,
Compiler-lr.196, CompilerTests-lr.32, Compression-lr.50,
DeprecatedPreferences-lr.17, Files-lr.ducasse.139, FreeType-lr.524,
Gofer-Core-lr.118, Gofer-Tests-lr.117, Graphics-lr.214,
GraphicsTests-lr.32, Kernel-lr.617, KernelTests-lr.216,
Monticello-lr.439, MonticelloGUI-lr.51, Morphic-lr.547,
Multilingual-lr.155, Network-Protocols-lr.42, Network-URI-lr.17,
Network-Url-lr.28, PackageInfo-lr.51, Polymorph-Tools-Diff-lr.26,
Polymorph-Widgets-lr.214, ST80-lr.126, SUnit-lr.91, SUnitGUI-lr.57,
ScriptLoader11-lr.297, Settings-Polymorph-lr.3, System-lr.11,
System-Changes-lr.52, System-Download-lr.45, System-FilePackage-lr.36,
System-Localization-lr.43, System-Object Storage-lr.87,
System-Settings-lr.181, System-Support-lr.259, Tests-lr.131,
ToolBuilder-Morphic-lr.65, Tools-lr.362, Traits-lr.359
RBParseTreeRewriter new
replace: 'Smalltalk associationAt: `...@arg1' with: 'Smalltalk globals
associationAt: `...@arg1';
replace: 'Smalltalk associationAt: `...@arg1 ifAbsent: `...@arg2' with:
'Smalltalk globals associationAt:
`...@arg1 ifAbsent: `...@arg2';
replace: 'Smalltalk associationDeclareAt: `...@arg1' with: 'Smalltalk
globals associationDeclareAt:
`...@arg1';
replace: 'Smalltalk associationOrUndeclaredAt: `...@arg1' with:
'Smalltalk globals
associationOrUndeclaredAt: `...@arg1';
replace: 'Smalltalk classNamed: `...@arg1' with: 'Smalltalk globals
classNamed: `...@arg1';
replace: 'Smalltalk at: `...@arg1' with: 'Smalltalk globals at:
`...@arg1';
replace: 'Smalltalk at: `...@arg1 ifPresent: `...@arg2' with: 'Smalltalk
globals at: `...@arg1 ifPresent:
`...@arg2';
replace: 'Smalltalk at: `...@arg1 ifAbsent: `...@arg2' with: 'Smalltalk
globals at: `...@arg1 ifAbsent:
`...@arg2';
replace: 'Smalltalk includesKey: `...@arg1' with: 'Smalltalk globals
includesKey: `...@arg1';
replace: 'Smalltalk keyAtIdentityValue: `...@arg1' with: 'Smalltalk
globals keyAtIdentityValue: `...@arg1';
replace: 'Smalltalk flushClassNameCache' with: 'Smalltalk globals
flushClassNameCache';
yourself
--
Lukas Renggli
http://www.lukas-renggli.ch
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
