Portability: fixes for Smalltalk/X
* Do not use detect:ifFound: - not present in Smalltalk/X
* Removed leftover debugging code (Halt if:, ...)
* Do not use `aClass methods`, use `aClass methodDictionary values`
* Do not use #allPairsDo; - not present in Smalltalk/X
* Do not use #crShow: - not present in Smalltalk/X
* On Smalltalk?X use Filename - there's no FileReference in Smalltalk/X
* Do not use CharacterSet, use String
"{ 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
! !