30 lines
685 B
Smalltalk
30 lines
685 B
Smalltalk
|
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
|
||
|
|
]
|