equal
deleted
inserted
replaced
13 caseInsensitive |
13 caseInsensitive |
14 "Answer a parser that can parse the receiver case-insensitive." |
14 "Answer a parser that can parse the receiver case-insensitive." |
15 |
15 |
16 literal asUppercase = literal asLowercase ifTrue: [ ^ self ]. |
16 literal asUppercase = literal asLowercase ifTrue: [ ^ self ]. |
17 ^ PPPredicateObjectParser on: [ :value | literal sameAs: value ] message: message |
17 ^ PPPredicateObjectParser on: [ :value | literal sameAs: value ] message: message |
|
18 ! |
|
19 |
|
20 negate |
|
21 ^ (PPPredicateObjectParser expect: literal message: message) negate |
18 ! ! |
22 ! ! |
19 |
23 |
20 !PPLiteralObjectParser methodsFor:'parsing'! |
24 !PPLiteralObjectParser methodsFor:'parsing'! |
21 |
25 |
22 parseOn: aStream |
26 parseOn: aStream |
26 ! ! |
30 ! ! |
27 |
31 |
28 !PPLiteralObjectParser class methodsFor:'documentation'! |
32 !PPLiteralObjectParser class methodsFor:'documentation'! |
29 |
33 |
30 version |
34 version |
31 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralObjectParser.st,v 1.3 2012-05-04 22:00:17 vrany Exp $' |
35 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralObjectParser.st,v 1.4 2014-03-04 14:33:00 cg Exp $' |
32 ! |
36 ! |
33 |
37 |
34 version_CVS |
38 version_CVS |
35 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralObjectParser.st,v 1.3 2012-05-04 22:00:17 vrany Exp $' |
39 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralObjectParser.st,v 1.4 2014-03-04 14:33:00 cg Exp $' |
36 ! |
40 ! |
37 |
41 |
38 version_SVN |
42 version_SVN |
39 ^ '§Id: PPLiteralObjectParser.st 2 2010-12-17 18:44:23Z vranyj1 §' |
43 ^ '$Id: PPLiteralObjectParser.st,v 1.4 2014-03-04 14:33:00 cg Exp $' |
40 ! ! |
44 ! ! |
|
45 |