PetitCommonMark/software/petitislands/PPDelegateParser.extension.st

30 lines
685 B
Smalltalk
Raw Normal View History

Extension { #name : 'PPDelegateParser' }
{ #category : '*petitislands' }
PPDelegateParser >> acceptsEpsilon [
^ parser acceptsEpsilonOpenSet: (IdentitySet with: self).
]
{ #category : '*petitislands' }
PPDelegateParser >> acceptsEpsilonOpenSet: set [
(set includes: parser) ifFalse: [
set add: parser.
^ parser acceptsEpsilonOpenSet: set
].
^ false
]
{ #category : '*petitislands' }
PPDelegateParser >> isIslandBorder [
^ parser isIslandBorderOpenSet: (IdentitySet with: self).
]
{ #category : '*petitislands' }
PPDelegateParser >> isIslandBorderOpenSet: set [
(set includes: parser) ifFalse: [
set add: parser.
^ parser isIslandBorderOpenSet: set
].
^ false
]