PPOptionalParser.st
changeset 377 6112a403a52d
parent 172 c446d835cbba
equal deleted inserted replaced
376:a2656b27cace 377:6112a403a52d
     6 	poolDictionaries:''
     6 	poolDictionaries:''
     7 	category:'PetitParser-Parsers'
     7 	category:'PetitParser-Parsers'
     8 !
     8 !
     9 
     9 
    10 
    10 
    11 !PPOptionalParser methodsFor:'*petitanalyzer-testing'!
       
    12 
       
    13 isNullable
       
    14 	^ true
       
    15 ! !
       
    16 
    11 
    17 !PPOptionalParser methodsFor:'parsing'!
    12 !PPOptionalParser methodsFor:'parsing'!
    18 
    13 
    19 parseOn: aStream
    14 parseOn: aPPContext
    20 	| element |
    15 	| element |
    21 	element := parser parseOn: aStream.
    16 	element := parser parseOn: aPPContext.
    22 	^ element isPetitFailure ifFalse: [ element ]
    17 	^ element isPetitFailure ifFalse: [ element ]
    23 ! !
    18 ! !
    24 
    19 
    25 !PPOptionalParser class methodsFor:'documentation'!
    20 !PPOptionalParser class methodsFor:'documentation'!
    26 
    21