--- a/PPLiteralObjectParser.st Sat May 05 00:00:04 2012 +0200
+++ b/PPLiteralObjectParser.st Sat May 05 00:00:17 2012 +0200
@@ -7,15 +7,12 @@
category:'PetitParser-Parsers'
!
-PPLiteralObjectParser comment:'A parser that accepts a single literal object, such as a character. This is the same as the predicate parser ''PPPredicateParser expect: literal'' but slightly more efficient.'
-!
-
!PPLiteralObjectParser methodsFor:'operators'!
caseInsensitive
"Answer a parser that can parse the receiver case-insensitive."
-
+
literal asUppercase = literal asLowercase ifTrue: [ ^ self ].
^ PPPredicateObjectParser on: [ :value | literal sameAs: value ] message: message
! !
@@ -30,6 +27,14 @@
!PPLiteralObjectParser class methodsFor:'documentation'!
+version
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralObjectParser.st,v 1.3 2012-05-04 22:00:17 vrany Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralObjectParser.st,v 1.3 2012-05-04 22:00:17 vrany Exp $'
+!
+
version_SVN
- ^ '$Id: PPLiteralObjectParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
+ ^ '§Id: PPLiteralObjectParser.st 2 2010-12-17 18:44:23Z vranyj1 §'
! !