Thanks. I'm merging. I like my dreams when they come true. Stef On Mar 14, 2010, at 9:40 PM, Lukas Renggli wrote:
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 Pharo-project@lists.gforge.inria.fr http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project