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

     2 

     3 Object subclass:#PPCMethodStrategy

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitCompiler-Nodes'

     8 !

     9 

    10 PPCMethodStrategy class instanceVariableNames:'Instance'

    11 

    12 "

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

    14 "

    15 !

    16 

    17 PPCMethodStrategy comment:''

    18 !

    19 

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

    21 

    22 instance

    23 	^ Instance ifNil: [ 

    24 		Instance := self basicNew initialize.

    25 	]

    26 !

    27 

    28 new

    29 	^ self instance

    30 ! !

    31 

    32 !PPCMethodStrategy methodsFor:'as yet unclassified'!

    33 

    34 return: compiler

    35 	compiler add: '^'.

    36 !

    37 

    38 start: compiler id: id

    39 	self halt: 'deprecated?'.

    40 	^ compiler startMethod: id

    41 !

    42 

    43 stop: compiler

    44  ^ compiler stopMethod

    45 ! !

    46