14 lines
369 B
Smalltalk
14 lines
369 B
Smalltalk
|
Extension { #name : 'PPChoiceParser' }
|
||
|
|
|
||
|
|
{ #category : '*petitislands' }
|
||
|
|
PPChoiceParser >> acceptsEpsilonOpenSet: set [
|
||
|
|
set add: self.
|
||
|
|
^ self children anySatisfy: [:e | e acceptsEpsilonOpenSet: set ].
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : '*petitislands' }
|
||
|
|
PPChoiceParser >> isIslandBorderOpenSet: set [
|
||
|
|
set add: self.
|
||
|
|
^ self children allSatisfy: [:e | e isIslandBorderOpenSet: set ].
|
||
|
|
]
|