equal
deleted
inserted
replaced
12 |
12 |
13 on: aParser block: aBlock |
13 on: aParser block: aBlock |
14 ^ (self on: aParser) setBlock: aBlock |
14 ^ (self on: aParser) setBlock: aBlock |
15 ! ! |
15 ! ! |
16 |
16 |
17 !PPActionParser methodsFor:'*petitanalyzer-matching'! |
|
18 |
|
19 match: aParser inContext: aDictionary seen: anIdentitySet |
|
20 ^ (super match: aParser inContext: aDictionary seen: anIdentitySet) and: [ self block = aParser block ] |
|
21 ! ! |
|
22 |
17 |
23 !PPActionParser methodsFor:'accessing'! |
18 !PPActionParser methodsFor:'accessing'! |
24 |
19 |
25 block |
20 block |
26 "Answer the action block of the receiver." |
21 "Answer the action block of the receiver." |
34 block := aBlock |
29 block := aBlock |
35 ! ! |
30 ! ! |
36 |
31 |
37 !PPActionParser methodsFor:'parsing'! |
32 !PPActionParser methodsFor:'parsing'! |
38 |
33 |
39 parseOn: aStream |
34 parseOn: aPPContext |
40 | element | |
35 | element | |
41 ^ (element := parser parseOn: aStream) isPetitFailure |
36 ^ (element := parser parseOn: aPPContext) isPetitFailure |
42 ifFalse: [ block value: element ] |
37 ifFalse: [ block value: element ] |
43 ifTrue: [ element ] |
38 ifTrue: [ element ] |
44 ! ! |
39 ! ! |
45 |
40 |
46 !PPActionParser class methodsFor:'documentation'! |
41 !PPActionParser class methodsFor:'documentation'! |