equal
deleted
inserted
replaced
13 |
13 |
14 name: value |
14 name: value |
15 super name: value. |
15 super name: value. |
16 |
16 |
17 self child name isNil ifTrue: [ |
17 self child name isNil ifTrue: [ |
18 self child name: self child prefix, '_', value. |
18 self child name: value. |
19 ] |
19 ] |
|
20 ! |
|
21 |
|
22 nextFsa |
|
23 ^ self propertyAt: #nextFsa |
|
24 ! |
|
25 |
|
26 nextFsa: aPEGFsa |
|
27 self propertyAt: #nextFsa put: aPEGFsa |
|
28 ! ! |
|
29 |
|
30 !PPCTokenConsumeNode methodsFor:'as yet unclassified'! |
|
31 |
|
32 markForInline |
|
33 self error: 'current infrastructure does not allow for this!!'. |
|
34 ^ super markForInline |
|
35 ! ! |
|
36 |
|
37 !PPCTokenConsumeNode methodsFor:'ids'! |
|
38 |
|
39 defaultName |
|
40 ^ #token |
20 ! |
41 ! |
21 |
42 |
22 prefix |
43 prefix |
23 ^ #consume |
44 ^ #consume |
24 ! ! |
45 ! ! |