--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCBridge.st Sun Oct 26 01:03:31 2014 +0000
@@ -0,0 +1,42 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+PPParser subclass:#PPCBridge
+ instanceVariableNames:'selector'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'PetitCompiler-Core'
+!
+
+PPCBridge comment:''
+!
+
+!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
+! !
+