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

"{ NameSpace: Smalltalk }"

Object subclass:#PPCArguments
	instanceVariableNames:'arguments'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Core'
!

!PPCArguments class methodsFor:'as yet unclassified'!

default
	^ self new
!

new
	^ self basicNew 
		initialize;
		yourself
! !

!PPCArguments methodsFor:'accessing'!

debug
	^ self at: #debug ifAbsent: true
!

debug: value
	self set: #debug to: value.
!

generate
	^ self at: #generate ifAbsent: true
!

guards
	^ self at: #guards ifAbsent: true
!

guards: value
	self set: #guards to: value.
!

inline
	^ self at: #inline ifAbsent: true
!

inline: value
	self set: #inline to: value.
!

merge
	^ self at: #merge ifAbsent: true
!

merge: value
	self set: #merge to: value.
!

name
	^ self at: #name ifAbsent: #PPGeneratedParser 
!

name: value
	self set: #name to: value.
!

profile
	^ self at: #profile ifAbsent: false
!

profile: value
	self set: #profile to: value.
!

specialize
	^ self at: #specialize ifAbsent: true
!

specialize: value
	self set: #specialize to: value.
!

tokenize
	^ self at: #tokenize ifAbsent: true
!

tokenize: value
	self set: #tokenize to: value.
! !

!PPCArguments methodsFor:'initialization'!

initialize
	super initialize.
	arguments := IdentityDictionary new
! !

!PPCArguments methodsFor:'private'!

at: symbol ifAbsent: defaultValue
	^ arguments at: symbol ifAbsent: [ ^ defaultValue  ]
!

set: symbol to: defaultValue
	^ arguments at: symbol put: defaultValue 
! !