Updated smalltalk parser to PetitSmalltalk-JanKurs.75
Name: PetitSmalltalk-JanKurs.75
Author: JanKurs
Time: 13-10-2014, 05:00:14 AM
UUID: 6254f8f7-aa47-4ddd-a373-167bccb0d4e5
"{ Package: 'stx:goodies/petitparser/islands' }"
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
! !