equal
deleted
inserted
replaced
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'PetitCompiler-Nodes' |
9 category:'PetitCompiler-Nodes' |
10 ! |
10 ! |
11 |
11 |
12 !PPCTokenizingParserNode methodsFor:'accessing'! |
12 !PPCTokenizingParserNode methodsFor:'accessing'! |
|
13 |
|
14 defaultName |
|
15 ^ #tokenizingParser |
|
16 ! |
13 |
17 |
14 initialize |
18 initialize |
15 super initialize. |
19 super initialize. |
16 children := Array new: 3 |
20 children := Array new: 3 |
17 ! |
21 ! |
22 |
26 |
23 parser: node |
27 parser: node |
24 children at: 1 put: node |
28 children at: 1 put: node |
25 ! |
29 ! |
26 |
30 |
27 prefix |
|
28 ^ #tokenizingParser |
|
29 ! |
|
30 |
|
31 tokenizer |
31 tokenizer |
32 ^ children at: 2 |
32 ^ children at: 2 |
33 ! |
33 ! |
34 |
34 |
35 tokenizer: node |
35 tokenizer: node |
36 ^ children at: 2 put: node |
36 ^ children at: 2 put: node |
37 ! |
37 ! |
38 |
38 |
39 whitespace |
39 tokens |
40 ^ children at: 3 |
40 ^ children at: 3 |
41 ! |
41 ! |
42 |
42 |
|
43 tokens: anObject |
|
44 children at: 3 put: anObject |
|
45 ! |
|
46 |
|
47 whitespace |
|
48 ^ children at: 2 |
|
49 ! |
|
50 |
43 whitespace: node |
51 whitespace: node |
44 children at: 3 put: node |
52 children at: 2 put: node |
45 ! ! |
53 ! ! |
46 |
54 |
47 !PPCTokenizingParserNode methodsFor:'visiting'! |
55 !PPCTokenizingParserNode methodsFor:'visiting'! |
48 |
56 |
49 accept: visitor |
57 accept: visitor |