added Interval asParser
e.g. ( to:) asParser parse:'a'
"{ Package: 'stx:goodies/petitparser' }"
PPDelegateParser subclass:#PPOptionalParser
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'PetitParser-Parsers'
!
!PPOptionalParser methodsFor:'parsing'!
parseOn: aStream
| element |
element := parser parseOn: aStream.
^ element isPetitFailure ifFalse: [ ^ element ]
! !
!PPOptionalParser class methodsFor:'documentation'!
version_SVN
^ '§Id: PPOptionalParser.st 4 2010-12-18 17:02:23Z kursjan §'
! !