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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 Object subclass:#PPCScannerResultStrategy

     6 	instanceVariableNames:'codeGen'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Scanner'

    10 !

    11 

    12 !PPCScannerResultStrategy methodsFor:'accessing'!

    13 

    14 codeGen

    15     ^ codeGen

    16 !

    17 

    18 codeGen: anObject

    19     codeGen := anObject

    20 ! !

    21