1 "{ Package: 'squeak:petitparser' }"

     2 

     3 PPDelegateParser subclass:#PPOptionalParser

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitParser-Parsers'

     8 !

     9 

    10 

    11 !PPOptionalParser methodsFor:'parsing'!

    12 

    13 parseOn: aStream

    14 	| element |

    15 	element := parser parseOn: aStream.

    16 	^ element isPetitFailure ifFalse: [ ^ element ]

    17 ! !

    18 

    19 !PPOptionalParser class methodsFor:'documentation'!

    20 

    21 version_SVN

    22     ^ '$Id: PPOptionalParser.st,v 1.1 2011-08-18 18:56:17 cg Exp $'

    23 ! !