"{ 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'!

cacheFirstFollow

    ^ self at: #cacheFirstFollow ifAbsent: true

!

cacheFirstFollow: value

    self set: #cacheFirstFollow to: value.

!

codeGenerator

    ^ self at: #codeGenerator ifAbsent: PPCCodeGenerator

!

codeGenerator: value

    self set: #codeGenerator to: value.

!

debug

    ^ self at: #debug ifAbsent: true

!

debug: value

    self set: #debug to: value.

!

detectTokens

    ^ self at: #detectTokens ifAbsent: true

!

detectTokens: value

    self set: #detectTokens to: value.

!

generate

    ^ self at: #generate ifAbsent: true

!

generate: value

    ^ self set: #generate to: value

!

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.

!

recognizingComponents

    ^ self at: #recognizingComponents ifAbsent: true

!

recognizingComponents: value

    self set: #recognizingComponents 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 

! !