equal
deleted
inserted
replaced
12 |
12 |
13 message: aString |
13 message: aString |
14 ^ self new setMessage: aString |
14 ^ self new setMessage: aString |
15 ! ! |
15 ! ! |
16 |
16 |
17 !PPFailingParser methodsFor:'*petitanalyzer-matching'! |
|
18 |
|
19 match: aParser inContext: aDictionary seen: anIdentitySet |
|
20 ^ (super match: aParser inContext: aDictionary seen: anIdentitySet) and: [ self message = aParser message ] |
|
21 ! ! |
|
22 |
17 |
23 !PPFailingParser methodsFor:'accessing'! |
18 !PPFailingParser methodsFor:'accessing'! |
24 |
19 |
25 message |
20 message |
26 "Answer the error message of the receiving parser." |
21 "Answer the error message of the receiving parser." |
32 |
27 |
33 setMessage: aString |
28 setMessage: aString |
34 message := aString |
29 message := aString |
35 ! ! |
30 ! ! |
36 |
31 |
37 !PPFailingParser methodsFor:'parsing'! |
32 !PPFailingParser methodsFor:'pp-context'! |
38 |
33 |
39 parseOn: aStream |
34 parseOn: aPPContext |
40 ^ PPFailure message: message at: aStream position |
35 ^ PPFailure message: message context: aPPContext |
41 ! ! |
36 ! ! |
42 |
37 |
43 !PPFailingParser methodsFor:'printing'! |
38 !PPFailingParser methodsFor:'printing'! |
44 |
39 |
45 printNameOn: aStream |
40 printNameOn: aStream |