equal
deleted
inserted
replaced
31 ! ! |
31 ! ! |
32 |
32 |
33 !PPCUniversalResultStrategy methodsFor:'as yet unclassified'! |
33 !PPCUniversalResultStrategy methodsFor:'as yet unclassified'! |
34 |
34 |
35 recordFailure: retval |
35 recordFailure: retval |
|
36 self error: 'deprecated?'. |
36 codeGen codeRecordFailure: (self indexForRetval: retval) |
37 codeGen codeRecordFailure: (self indexForRetval: retval) |
37 ! |
38 ! |
38 |
39 |
39 recordFailure: retval offset: offset |
40 recordFailure: retval offset: offset |
40 codeGen codeRecordFailure: (self indexForRetval: retval) |
41 codeGen codeRecordFailure: (self indexForRetval: retval) |
41 ! |
42 ! |
42 |
43 |
43 recordMatch: retval |
44 recordMatch: retval |
|
45 self error: 'deprecated?'. |
44 codeGen codeComment: 'symbol: ', retval storeString. |
46 codeGen codeComment: 'symbol: ', retval storeString. |
45 codeGen codeRecordMatch: (self indexForRetval: retval) |
47 codeGen codeRecordMatch: (self indexForRetval: retval) |
46 ! |
48 ! |
47 |
49 |
48 recordMatch: retval offset: offset |
50 recordMatch: retval offset: offset |
53 reset |
55 reset |
54 " ^ codeGen code: 'self reset:', tokens storeString, '.'" |
56 " ^ codeGen code: 'self reset:', tokens storeString, '.'" |
55 ^ codeGen code: 'self reset.' |
57 ^ codeGen code: 'self reset.' |
56 ! |
58 ! |
57 |
59 |
|
60 returnMatch: retval offset: offset |
|
61 codeGen codeComment: 'symbol: ', retval storeString. |
|
62 codeGen codeReturn: [ codeGen codeRecordMatch: (self indexForRetval: retval) offset: offset ] |
|
63 ! |
|
64 |
58 returnResult: state |
65 returnResult: state |
59 self assert: (state isKindOf: PEGFsaState). |
66 self assert: (state isKindOf: PEGFsaState). |
60 codeGen codeReturn. |
67 codeGen codeReturn. |
61 ! ! |
68 ! ! |
62 |
69 |