--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/compiler/PPCPluggableConfiguration.st Thu Apr 30 23:43:14 2015 +0200
@@ -0,0 +1,29 @@
+"{ Package: 'stx:goodies/petitparser/compiler' }"
+
+"{ NameSpace: Smalltalk }"
+
+PPCConfiguration subclass:#PPCPluggableConfiguration
+ instanceVariableNames:'block'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'PetitCompiler-Core'
+!
+
+!PPCPluggableConfiguration class methodsFor:'as yet unclassified'!
+
+on: aBlock
+ ^ self new
+ block: aBlock;
+ yourself
+! !
+
+!PPCPluggableConfiguration methodsFor:'as yet unclassified'!
+
+block: aBlock
+ block := aBlock
+!
+
+invokePhases
+ ^ block value: self
+! !
+