author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Thu, 08 Oct 2015 09:41:03 +0100 | |
changeset 548 | 5536a6da50e4 |
parent 454 | a9cd5ea7cc36 |
permissions | -rw-r--r-- |
"{ Package: 'stx:goodies/petitparser/islands' }" "{ NameSpace: Smalltalk }" PPParser subclass:#PPInputEnds instanceVariableNames:'' classVariableNames:'' poolDictionaries:'' category:'PetitIslands-Parsers' ! !PPInputEnds methodsFor:'as yet unclassified'! acceptsEpsilon ^ true ! exampleOn: aStream aStream nextPutAll: '#End Of Input#' ! isNullable ^ true ! parseOn: aPPContext (aPPContext atEnd) ifFalse: [ ^ PPFailure message: 'end of input expected' context: aPPContext. ]. ^ #inputEnds ! !