equal
deleted
inserted
replaced
9 category:'PetitCompiler-Nodes' |
9 category:'PetitCompiler-Nodes' |
10 ! |
10 ! |
11 |
11 |
12 !PPCAbstractLiteralNode methodsFor:'accessing'! |
12 !PPCAbstractLiteralNode methodsFor:'accessing'! |
13 |
13 |
14 acceptsEpsilon |
|
15 ^ literal size = 0 |
|
16 ! |
|
17 |
|
18 firstCharSet |
|
19 | letter | |
|
20 letter := literal first. |
|
21 ^ PPCharSetPredicate on: [:e | e = letter ] |
|
22 ! |
|
23 |
|
24 literal |
14 literal |
25 |
15 |
26 ^ literal |
16 ^ literal |
27 ! |
17 ! |
28 |
18 |
31 literal := anObject |
21 literal := anObject |
32 ! |
22 ! |
33 |
23 |
34 prefix |
24 prefix |
35 ^ #lit |
25 ^ #lit |
|
26 ! ! |
|
27 |
|
28 !PPCAbstractLiteralNode methodsFor:'analysis'! |
|
29 |
|
30 acceptsEpsilon |
|
31 ^ literal size = 0 |
|
32 ! |
|
33 |
|
34 firstCharSet |
|
35 | letter | |
|
36 letter := literal first. |
|
37 ^ PPCharSetPredicate on: [:e | e = letter ] |
36 ! ! |
38 ! ! |
37 |
39 |
38 !PPCAbstractLiteralNode methodsFor:'comparison'! |
40 !PPCAbstractLiteralNode methodsFor:'comparison'! |
39 |
41 |
40 = anotherNode |
42 = anotherNode |