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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 Object subclass:#PPCMethodStrategy

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Nodes'

    10 !

    11 

    12 PPCMethodStrategy class instanceVariableNames:'Instance'

    13 

    14 "

    15  No other class instance variables are inherited by this class.

    16 "

    17 !

    18 

    19 !PPCMethodStrategy class methodsFor:'as yet unclassified'!

    20 

    21 instance

    22 	^ Instance ifNil: [ 

    23 		Instance := self basicNew initialize.

    24 	]

    25 !

    26 

    27 new

    28 	^ self instance

    29 ! !

    30 

    31 !PPCMethodStrategy methodsFor:'as yet unclassified'!

    32 

    33 return: compiler

    34 	compiler add: '^'.

    35 !

    36 

    37 start: compiler id: id

    38 	self halt: 'deprecated?'.

    39 	^ compiler startMethod: id

    40 !

    41 

    42 stop: compiler

    43  ^ compiler stopMethod

    44 ! !

    45