equal
deleted
inserted
replaced
19 newChild := self visitWithRecognizingComponentVisitor: child. |
19 newChild := self visitWithRecognizingComponentVisitor: child. |
20 node replace: child with: newChild. |
20 node replace: child with: newChild. |
21 ^ node |
21 ^ node |
22 ! |
22 ! |
23 |
23 |
|
24 visitTokenConsumeNode: node |
|
25 "Let the scanner handle this stuff" |
|
26 ^ node |
|
27 ! |
|
28 |
24 visitTokenNode: node |
29 visitTokenNode: node |
25 | child newChild | |
30 | child newChild | |
26 |
31 |
27 self change. |
32 self change. |
28 child := node child. |
33 child := node child. |
29 newChild := self visitWithRecognizingComponentVisitor: child. |
34 newChild := self visitWithRecognizingComponentVisitor: child. |
30 node replace: child with: newChild. |
35 node replace: child with: newChild. |
|
36 |
|
37 ^ node |
|
38 ! |
|
39 |
|
40 visitTokenWhitespaceNode: node |
|
41 | child newChild | |
|
42 self change. |
|
43 child := node child. |
|
44 newChild := self visitWithRecognizingComponentVisitor: child. |
|
45 node replace: child with: newChild. |
|
46 |
|
47 ^ node |
|
48 ! |
|
49 |
|
50 visitTokenizingParserNode: node |
|
51 | newWhitespace | |
|
52 self change. |
|
53 newWhitespace := self visitWithRecognizingComponentVisitor: node whitespace. |
|
54 node replace: node whitespace with: newWhitespace. |
|
55 |
|
56 "Do not visit tokens, they will be handled by the scanner:" |
|
57 "self visit: node tokens." |
|
58 |
|
59 self visitChild: node parser of: node. |
31 |
60 |
32 ^ node |
61 ^ node |
33 ! |
62 ! |
34 |
63 |
35 visitTrimmingTokenNode: node |
64 visitTrimmingTokenNode: node |