1 "{ Package: 'stx:goodies/petitparser/compiler' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPCConfiguration subclass:#PPCPluggableConfiguration

     6 	instanceVariableNames:'block'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Core'

    10 !

    11 

    12 !PPCPluggableConfiguration class methodsFor:'as yet unclassified'!

    13 

    14 on: aBlock

    15 	^ self new

    16 		block: aBlock;

    17 		yourself

    18 ! !

    19 

    20 !PPCPluggableConfiguration methodsFor:'as yet unclassified'!

    21 

    22 block: aBlock

    23 	block := aBlock

    24 !

    25 

    26 invokePhases

    27 	^ block value: self

    28 ! !

    29