Updated to PetitCompiler-JanKurs.100, PetitCompiler-Tests-JanKurs.44 and PetitCompiler-Benchmarks-JanKurs.4 Name: PetitCompiler-JanKurs.100 Author: JanKurs Time: 30-04-2015, 10:48:52.165 AM UUID: 80196870-5921-46d9-ac20-a43bf5c2f3c2 Name: PetitCompiler-Tests-JanKurs.44 Author: JanKurs Time: 30-04-2015, 10:49:22.489 AM UUID: 348c02e8-18ce-48f6-885d-fcff4516a298 Name: PetitCompiler-Benchmarks-JanKurs.4 Author: JanKurs Time: 30-04-2015, 10:58:44.890 AM UUID: 18cadb42-f9ef-45fb-82e9-8469ade56c8b

     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