PetitCommonMark/software/petitislands/PPWater.class.st

86 lines
1.9 KiB
Smalltalk
Raw Normal View History

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
]