--- a/PPLiteralSequenceParser.st Fri May 04 23:58:01 2012 +0200
+++ b/PPLiteralSequenceParser.st Fri May 04 23:58:27 2012 +0200
@@ -7,9 +7,6 @@
category:'PetitParser-Parsers'
!
-PPLiteralSequenceParser comment:'A parser accepts a sequence of literal objects, such as a String. This is an optimization to avoid having to compose longer sequences from PPSequenceParser.'
-!
-
!PPLiteralSequenceParser methodsFor:'accessing'!
@@ -30,7 +27,7 @@
caseInsensitive
"Answer a parser that can parse the receiver case-insensitive."
-
+
literal asUppercase = literal asLowercase ifTrue: [ ^ self ].
^ PPPredicateSequenceParser on: [ :value | literal sameAs: value ] message: message size: size
! !
@@ -48,6 +45,14 @@
!PPLiteralSequenceParser class methodsFor:'documentation'!
+version
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralSequenceParser.st,v 1.3 2012-05-04 21:58:27 vrany Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralSequenceParser.st,v 1.3 2012-05-04 21:58:27 vrany Exp $'
+!
+
version_SVN
- ^ '$Id: PPLiteralSequenceParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
+ ^ '§Id: PPLiteralSequenceParser.st 2 2010-12-17 18:44:23Z vranyj1 §'
! !