86 lines
1.9 KiB
Smalltalk
86 lines
1.9 KiB
Smalltalk
Class {
|
|
#name : 'PPWater',
|
|
#superclass : 'PPDelegateParser',
|
|
#instVars : [
|
|
'waterToken'
|
|
],
|
|
#category : 'PetitIslands-Parsers'
|
|
}
|
|
|
|
{ #category : 'as yet unclassified' }
|
|
PPWater class >> on: parser [
|
|
^ self on: parser waterToken: #any asParser
|
|
]
|
|
|
|
{ #category : 'as yet unclassified' }
|
|
PPWater class >> on: parser waterToken: waterToken [
|
|
^ (super on: parser)
|
|
waterToken: waterToken;
|
|
yourself
|
|
]
|
|
|
|
{ #category : 'as yet unclassified' }
|
|
PPWater >> children [
|
|
^ Array with: waterToken with: parser
|
|
]
|
|
|
|
{ #category : 'as yet unclassified' }
|
|
PPWater >> initialize [
|
|
super initialize.
|
|
waterToken := nil asParser.
|
|
|
|
]
|
|
|
|
{ #category : 'testing' }
|
|
PPWater >> isWater [
|
|
^ true
|
|
]
|
|
|
|
{ #category : 'as yet unclassified' }
|
|
PPWater >> nextSets: aNextSetDictionary into: aSet [
|
|
self assert: aSet isEmpty.
|
|
^ false
|
|
]
|
|
|
|
{ #category : 'as yet unclassified' }
|
|
PPWater >> parseOn: aPPContext [
|
|
| waterPosition result position |
|
|
|
|
position := aPPContext position.
|
|
(aPPContext waterPosition == aPPContext position) ifFalse: [
|
|
waterPosition := aPPContext waterPosition.
|
|
aPPContext waterPosition: aPPContext position.
|
|
|
|
result := parser parseOn: aPPContext.
|
|
[result isPetitFailure] whileTrue: [
|
|
aPPContext atEnd ifTrue: [
|
|
aPPContext waterPosition: waterPosition.
|
|
^ PPFailure message: 'anchor did not found' at: aPPContext position ].
|
|
aPPContext waterToken.
|
|
waterToken parseOn: aPPContext.
|
|
aPPContext waterPosition: aPPContext position.
|
|
result := parser parseOn: aPPContext.
|
|
].
|
|
|
|
aPPContext waterPosition: waterPosition.
|
|
].
|
|
|
|
^ aPPContext stream collection copyFrom: position + 1 to: aPPContext position
|
|
]
|
|
|
|
{ #category : 'as yet unclassified' }
|
|
PPWater >> replace: child with: anotherChild [
|
|
child == waterToken ifTrue: [
|
|
waterToken := anotherChild
|
|
].
|
|
|
|
child == parser ifTrue: [
|
|
parser := anotherChild
|
|
]
|
|
]
|
|
|
|
{ #category : 'as yet unclassified' }
|
|
PPWater >> waterToken: aPPParser [
|
|
^ waterToken := aPPParser
|
|
]
|