equal
deleted
inserted
replaced
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Nodes' |
9 category:'PetitCompiler-Nodes' |
10 ! |
10 ! |
11 |
11 |
12 !PPCTokenConsumeNode methodsFor:'as yet unclassified'! |
12 !PPCTokenConsumeNode methodsFor:'accessing'! |
13 |
13 |
14 accept: visitor |
14 name: value |
15 ^ visitor visitTokenConsumeNode: self |
15 super name: value. |
|
16 |
|
17 self child name isNil ifTrue: [ |
|
18 self child name: self child prefix, '_', value. |
|
19 ] |
16 ! |
20 ! |
17 |
21 |
18 prefix |
22 prefix |
19 ^ #consume |
23 ^ #consume |
20 ! ! |
24 ! ! |
21 |
25 |
|
26 !PPCTokenConsumeNode methodsFor:'visiting'! |
|
27 |
|
28 accept: visitor |
|
29 ^ visitor visitTokenConsumeNode: self |
|
30 ! ! |
|
31 |