equal
deleted
inserted
replaced
72 name: node name; |
72 name: node name; |
73 predicate: node child predicate; |
73 predicate: node child predicate; |
74 yourself |
74 yourself |
75 ]. |
75 ]. |
76 |
76 |
|
77 (node child isKindOf: PPCCharacterNode) ifTrue: [ |
|
78 self change. |
|
79 ^ PPCNotCharacterNode new |
|
80 name: node name; |
|
81 character: node child character; |
|
82 yourself |
|
83 ]. |
|
84 |
77 ^ node |
85 ^ node |
78 |
86 |
79 "Modified: / 23-04-2015 / 12:02:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
87 "Modified: / 23-04-2015 / 12:02:15 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
80 ! |
88 ! |
81 |
89 |
169 child: node child; |
177 child: node child; |
170 yourself |
178 yourself |
171 ]. |
179 ]. |
172 |
180 |
173 ^ node |
181 ^ node |
|
182 ! |
|
183 |
|
184 visitTrimmingTokenNode: node |
|
185 |
|
186 self visitChildren: node. |
|
187 |
|
188 (node child isKindOf: PPCCharacterNode) ifTrue: [ |
|
189 self change. |
|
190 ^ PPCTrimmingCharacterTokenNode new |
|
191 name: node name; |
|
192 whitespace: node whitespace; |
|
193 tokenClass: node tokenClass; |
|
194 child: node child; |
|
195 yourself |
|
196 ]. |
|
197 |
|
198 ^ node |
174 ! ! |
199 ! ! |
175 |
200 |