equal
deleted
inserted
replaced
1 "{ Package: 'squeak:petitparser' }" |
1 "{ Package: 'stx:goodies/petitparser' }" |
2 |
2 |
3 PPLiteralParser subclass:#PPLiteralSequenceParser |
3 PPLiteralParser subclass:#PPLiteralSequenceParser |
4 instanceVariableNames:'size' |
4 instanceVariableNames:'size' |
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
28 |
28 |
29 !PPLiteralSequenceParser methodsFor:'operators'! |
29 !PPLiteralSequenceParser methodsFor:'operators'! |
30 |
30 |
31 caseInsensitive |
31 caseInsensitive |
32 "Answer a parser that can parse the receiver case-insensitive." |
32 "Answer a parser that can parse the receiver case-insensitive." |
33 |
33 |
34 literal asUppercase = literal asLowercase ifTrue: [ ^ self ]. |
34 literal asUppercase = literal asLowercase ifTrue: [ ^ self ]. |
35 ^ PPPredicateSequenceParser on: [ :value | literal sameAs: value ] message: message size: size |
35 ^ PPPredicateSequenceParser on: [ :value | literal sameAs: value ] message: message size: size |
36 ! ! |
36 ! ! |
37 |
37 |
38 !PPLiteralSequenceParser methodsFor:'parsing'! |
38 !PPLiteralSequenceParser methodsFor:'parsing'! |
47 ! ! |
47 ! ! |
48 |
48 |
49 !PPLiteralSequenceParser class methodsFor:'documentation'! |
49 !PPLiteralSequenceParser class methodsFor:'documentation'! |
50 |
50 |
51 version_SVN |
51 version_SVN |
52 ^ '$Id: PPLiteralSequenceParser.st,v 1.1 2011-08-18 18:56:17 cg Exp $' |
52 ^ '$Id: PPLiteralSequenceParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $' |
53 ! ! |
53 ! ! |