Portability fixes
* do not use Object>>asString. Not all Smalltalks implement it.
* do not use Object>>name. Not all Smalltalks implement it.
* do not use Dictionary keysAndValuesRemove:. Not all Smalltalks implement it.
* do not use Class>>methods The semantics is different among Smalltalks.
Use `Class methodDictionary values` instead.
* do not modify dictionary in #at:ifAbsentPut: block!
"{ 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
! !