Janko Mivšek wrote:
> Paolo Bonzini wrote:
>>
>>> By the way, what is a Sport portability library
status on GST currently?
>>
>> It's there. 
>
> Super! Then in theory you should just file-in Swazoo to
GST!
> Swazoo code is supposed to be dialect neutral, and its
SUnit tests have
> a good
> coverage of most functionality. When those tests pass,
Swazoo port is
> almost finished.
>
> So, will someone try this exercise? 
Usually, what I do is extract the snapshot.st file from mcz
and run a
script I call gst-squeak, like this:
gst-squeak snapshot.st swazoo.st
Here is gst-squeak:
#! /bin/sh
gst-convert -f squeak
-r'MessageSend->DirectedMessage'
-r'(`` object ifNil: ``arg ifNotNil: [ | `t2 | `.s2 ]
)->
(``object ifNil: ``arg ifNotNil: [ :foo || `t2 |
`.s2
])'
-r'(``object ifNotNil: [ | `t2 | `.s2 ]
ifNil: ``arg )->
(``object ifNotNil: [ :foo || `t2 | `.s2 ]
ifNil: ``arg)'
-r'(``object ifNotNil: [ | `t2 | `.s2 ]
)->
(``object ifNotNil: [ :foo || `t2 | `.s2 ])'
-r'(``object ifNil: ``arg1 ifNotNilDo: ``arg2 )->
(``object ifNil: ``arg1 ifNotNil: ``arg2)'
-r'(``object ifNotNilDo: ``arg2 ifNil: ``arg1
)->
(``object ifNotNil: ``arg2 ifNil: ``arg1)'
-r'(``object ifNotNilDo: ``arg2 )->
(``object ifNotNil: ``arg2)'
-r'(``object doIfNotNil: ``arg2 )->
(``object ifNotNil: ``arg2)'
"$"
If anyone finds more rewrites to be necessary, please report
them here.
Paolo
_______________________________________________
help-smalltalk mailing list
help-smalltalkgnu.org
http://lists.gnu.org/mailman/listinfo/help-smalltalk
|
