"{ 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
! !