"{ Package: 'stx:goodies/petitparser' }"
PPDelegateParser subclass:#PPAndParser
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'PetitParser-Parsers'
!
PPAndParser comment:'The and-predicate, a parser that succeeds whenever its delegate does, but consumes the input stream [Parr 1994, 1995].'
!
!PPAndParser methodsFor:'operations'!
and
^ self
! !
!PPAndParser methodsFor:'parsing'!
parseOn: aStream
| element position |
position := aStream position.
element := parser parseOn: aStream.
aStream position: position.
^ element
! !
!PPAndParser class methodsFor:'documentation'!
version_SVN
^ '$Id: PPAndParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
! !