"{ Package: 'squeak:petitparser' }"
PPLiteralParser subclass:#PPLiteralObjectParser
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
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
! !
!PPLiteralObjectParser methodsFor:'parsing'!
parseOn: aStream
^ (aStream atEnd not and: [ literal = aStream uncheckedPeek ])
ifFalse: [ PPFailure message: message at: aStream position ]
ifTrue: [ aStream next ]
! !
!PPLiteralObjectParser class methodsFor:'documentation'!
version_SVN
^ '$Id: PPLiteralObjectParser.st,v 1.1 2011-08-18 18:56:17 cg Exp $'
! !