17 lines
318 B
Smalltalk
17 lines
318 B
Smalltalk
|
Extension { #name : 'PPEpsilonParser' }
|
||
|
|
|
||
|
|
{ #category : '*petitislands' }
|
||
|
|
PPEpsilonParser >> acceptsEpsilon [
|
||
|
|
^ true
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : '*petitislands' }
|
||
|
|
PPEpsilonParser >> isIslandBorder [
|
||
|
|
^ false
|
||
|
|
]
|
||
|
|
|
||
|
|
{ #category : '*petitislands' }
|
||
|
|
PPEpsilonParser >> nonEmpty [
|
||
|
|
^ PPFailingParser message: 'epsilon is always empty'
|
||
|
|
]
|