26 lines
596 B
Smalltalk
26 lines
596 B
Smalltalk
Extension { #name : 'PPDelegateParser' }
|
|
|
|
{ #category : '*petitcompiler' }
|
|
PPDelegateParser >> asCompilerNode [
|
|
self class == PPDelegateParser ifTrue: [
|
|
^ PPCForwardNode new
|
|
name: self name;
|
|
child: parser;
|
|
yourself
|
|
].
|
|
^ super asCompilerNode
|
|
|
|
"Modified: / 22-05-2015 / 21:53:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
|
|
]
|
|
|
|
{ #category : '*petitcompiler' }
|
|
PPDelegateParser >> firstCharSet [
|
|
^ parser firstCharSet
|
|
]
|
|
|
|
{ #category : '*PetitCompiler-Analysis' }
|
|
PPDelegateParser >> neverFails [
|
|
"TODO JK: I can do better here, should be implemented as the PPCNodes hierarchy"
|
|
^ false
|
|
]
|