equal
deleted
inserted
replaced
10 |
10 |
11 !PPFailingParser class methodsFor:'instance creation'! |
11 !PPFailingParser class methodsFor:'instance creation'! |
12 |
12 |
13 message: aString |
13 message: aString |
14 ^ self new setMessage: aString |
14 ^ self new setMessage: aString |
|
15 ! ! |
|
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 ] |
15 ! ! |
21 ! ! |
16 |
22 |
17 !PPFailingParser methodsFor:'accessing'! |
23 !PPFailingParser methodsFor:'accessing'! |
18 |
24 |
19 message |
25 message |
42 ! ! |
48 ! ! |
43 |
49 |
44 !PPFailingParser class methodsFor:'documentation'! |
50 !PPFailingParser class methodsFor:'documentation'! |
45 |
51 |
46 version |
52 version |
47 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFailingParser.st,v 1.3 2012-05-04 22:06:00 vrany Exp $' |
53 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFailingParser.st,v 1.4 2014-03-04 14:32:28 cg Exp $' |
48 ! |
54 ! |
49 |
55 |
50 version_CVS |
56 version_CVS |
51 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFailingParser.st,v 1.3 2012-05-04 22:06:00 vrany Exp $' |
57 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFailingParser.st,v 1.4 2014-03-04 14:32:28 cg Exp $' |
52 ! |
58 ! |
53 |
59 |
54 version_SVN |
60 version_SVN |
55 ^ '§Id: PPFailingParser.st 2 2010-12-17 18:44:23Z vranyj1 §' |
61 ^ '$Id: PPFailingParser.st,v 1.4 2014-03-04 14:32:28 cg Exp $' |
56 ! ! |
62 ! ! |
|
63 |