author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Fri, 04 May 2012 23:59:14 +0200 | |
changeset 12 | ace2bacc5f6a |
parent 4 | 90de244a7fa2 |
child 25 | be0f50e43f2f |
permissions | -rw-r--r-- |
"{ 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,v 1.2 2012-01-13 11:22:50 cg Exp $' ! !