"{ Package: 'stx:goodies/petitparser/compiler' }"
"{ NameSpace: Smalltalk }"
PPParser subclass:#PPCBridge
instanceVariableNames:'selector'
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Core'
!
!PPCBridge class methodsFor:'as yet unclassified'!
on: aSymbol
^ self new
selector: aSymbol;
yourself
! !
!PPCBridge methodsFor:'as yet unclassified'!
call
^ 'self callParser: ', self id, '.'.
!
selector: aSymbol
selector := aSymbol
! !
!PPCBridge methodsFor:'parsing'!
parseOn: aPPContext
| retval |
retval := (aPPContext compiledParser) perform: selector.
(aPPContext compiledParser isError) ifTrue: [
aPPContext compiledParser clearError.
^ PPFailure message: 'error' context: aPPContext
].
^ retval
! !