equal
deleted
inserted
replaced
10 !PPCActionNode methodsFor:'as yet unclassified'! |
10 !PPCActionNode methodsFor:'as yet unclassified'! |
11 |
11 |
12 asFast |
12 asFast |
13 ^ PPCTokenActionNode new |
13 ^ PPCTokenActionNode new |
14 child: child; |
14 child: child; |
|
15 properties: properties; |
15 name: self name; |
16 name: self name; |
16 yourself |
17 yourself |
17 ! |
18 ! |
18 |
19 |
19 compileWith: compiler effect: effect id: id |
20 compileWith: compiler effect: effect id: id |
28 compiler add: '^ failure'. |
29 compiler add: '^ failure'. |
29 ^ compiler stopMethod. |
30 ^ compiler stopMethod. |
30 ! |
31 ! |
31 |
32 |
32 rewrite: changeStatus |
33 rewrite: changeStatus |
33 "TODO JK: Find another way how to recognize the trimming token!!" |
34 (self hasProperty: #trimmingToken) ifTrue: [ |
34 (name = 'trimmingToken') ifTrue: [ |
|
35 changeStatus change. |
35 changeStatus change. |
36 ^ PPCTrimmingTokenNode new |
36 ^ PPCTrimmingTokenNode new |
37 "name: name" |
37 name: name; |
38 "JK: I am sorry" |
38 child: child children second child; "Oups, what a chain" |
39 child: child children second child; |
|
40 tokenClass: child children second tokenClass; |
39 tokenClass: child children second tokenClass; |
41 whitespace: child children first; |
40 whitespace: child children first; |
42 yourself |
41 yourself |
43 ]. |
42 ]. |
44 |
43 |