28 lines
607 B
Smalltalk
28 lines
607 B
Smalltalk
"
|
|
A parser that succeeds only at the end of the input stream.
|
|
"
|
|
Class {
|
|
#name : 'PPEndOfInputParser',
|
|
#superclass : 'PPDelegateParser',
|
|
#category : 'PetitParser-Parsers'
|
|
}
|
|
|
|
{ #category : 'operators' }
|
|
PPEndOfInputParser >> end [
|
|
^ self
|
|
]
|
|
|
|
{ #category : 'parsing' }
|
|
PPEndOfInputParser >> parseOn: aPPContext [
|
|
| memento result |
|
|
memento := aPPContext remember.
|
|
result := parser parseOn: aPPContext.
|
|
(result isPetitFailure or: [ aPPContext stream atEnd ])
|
|
ifTrue: [ ^ result ].
|
|
result := PPFailure
|
|
message: 'end of input expected'
|
|
context: aPPContext.
|
|
aPPContext restore: memento.
|
|
^ result
|
|
]
|