1 "{ Package: 'stx:goodies/petitparser/islands' }"

     2 

     3 PPParser subclass:#PPInputEnds

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitIslands-Parsers'

     8 !

     9 

    10 PPInputEnds comment:''

    11 !

    12 

    13 !PPInputEnds methodsFor:'as yet unclassified'!

    14 

    15 acceptsEpsilon

    16 	^ true

    17 !

    18 

    19 exampleOn: aStream 

    20 	aStream nextPutAll: '#End Of Input#'

    21 !

    22 

    23 isNullable 

    24 	^ true

    25 !

    26 

    27 parseOn: aPPContext

    28 	(aPPContext atEnd) ifFalse:

    29 	[

    30 		^ PPFailure message: 'end of input expected' context: aPPContext.

    31 	].

    32 	^ #inputEnds

    33 ! !

    34