gst-thunder/Rsh.st at master · mathk/gst-thunder · GitHub

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
Instruction subclass: Rsh [

    Rsh class >> rsh: anObject with: anObject2 to: aSymbol [

	^ self new
		rsh: anObject with: anObject2 to: aSymbol;
		yourself
    ]

    | i j dest |

    rsh: anObject with: anObject2 to: aSymbol [

	i := anObject.
	j := anObject2.
	dest := aSymbol
    ]

    source [

        ^ i
    ]

    param [

        ^ j
    ]

    destination [

        ^ dest
    ]

    accept: aVisitor [

	aVisitor visitRsh: self
    ]

    printOn: aStream [

        aStream
            nextPutAll: 'rsh '.
        i printOn: aStream.
        aStream
            nextPutAll: ' with '.
        j printOn: aStream.
        aStream
            nextPutAll: ' to '.
        dest printOn: aStream
    ]
]