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

     2 

     3 PPParser subclass:#PPEndOfLineParser

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitParser-Parsers'

     8 !

     9 

    10 !PPEndOfLineParser methodsFor:'parsing'!

    11 

    12 parseOn: aPPContext

    13 	(aPPContext isEndOfLine) ifTrue: [ 

    14 		^ #endOfLine

    15 	].

    16 	^ PPFailure message: 'End of line expected' context: aPPContext at: aPPContext position

    17 ! !

    18