"{ Package: 'stx:goodies/petitparser/compiler' }"
"{ NameSpace: Smalltalk }"
Object subclass:#PPCMethodStrategy
instanceVariableNames:''
classVariableNames:''
poolDictionaries:''
category:'PetitCompiler-Nodes'
!
PPCMethodStrategy class instanceVariableNames:'Instance'
"
No other class instance variables are inherited by this class.
"
!
!PPCMethodStrategy class methodsFor:'as yet unclassified'!
instance
^ Instance ifNil: [
Instance := self basicNew initialize.
]
!
new
^ self instance
! !
!PPCMethodStrategy methodsFor:'as yet unclassified'!
return: compiler
compiler add: '^'.
!
start: compiler id: id
self halt: 'deprecated?'.
^ compiler startMethod: id
!
stop: compiler
^ compiler stopMethod
! !