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

Object subclass:#PPCMethod

	instanceVariableNames:'buffer variables indentation id profile canInline'

	classVariableNames:''

	poolDictionaries:''

	category:'PetitCompiler-Core'

!

new

    "return an initialized instance"

    ^ self basicNew initialize.

! !

!PPCMethod methodsFor:'as yet unclassified'!

add: string

	self nl.

	indentation timesRepeat: [ buffer nextPutAll: '  ' ].

	self addOnLine: string.

!

addOnLine: string

	buffer nextPutAll: string.

!

addVariable: name

	variables add: name.

!

allowInline

	canInline := true

!

body

	^ buffer contents

!

bridge

	^ PPCBridge on: self methodName.

!

call

	^ 'self ', self methodName, '.'.

!

code

	^ self methodName, String cr,  

		self variables, String cr,

		self profilingBegin, String cr,

		self body, String cr

"		self profilingEnd"

!

dedent

	indentation := indentation - 1

!

id: value

	id := value

!

indent 

	indentation := indentation + 1

!

isMethod

	^ true

!

methodName

	^ id

!

nl

	^ buffer nextPut: Character cr

!

profile

	^ profile

!

profile: aBoolean

	profile := aBoolean 

!

profilingBegin

	self profile ifTrue: [ 

 		^ '  context methodInvoked: #', id, '.'	

	].

	^ ''

!

profilingEnd

	self profile ifTrue: [ 

 		^ '  context methodFinished: #', id, '.'	

	].

	^ ''

!

variables

	^ '  | ', (variables inject: '' into: [ :s :e | s, ' ', e]), ' |'

! !

!PPCMethod methodsFor:'initialization'!

initialize

	buffer := WriteStream on: ''.

	indentation := 1.

	variables := OrderedCollection new.

	canInline := false

! !

!PPCMethod class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !