"{ 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 error: 'deprecated?'.
    ^ 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.
!

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

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

parserSuperclass
    ^ self at: #parserSuperclass ifAbsent: PPTokenizingCompiledParser
!

parserSuperclass: value
    self set: #parserSuperclass 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.
!

scannerName
    ^ self at: #scannerName ifAbsent: #PPGeneratedScanner
!

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

scannerSuperclass
    ^ self at: #scannerSuperclass ifAbsent: PPCDistinctScanner
!

scannerSuperclass: value
    self set: #scannerSuperclass 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 
! !