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

"{ NameSpace: Smalltalk }"

Object subclass:#PPCCompilerTokenErrorStrategy
	instanceVariableNames:'compiler'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Compiler'
!

!PPCCompilerTokenErrorStrategy class methodsFor:'as yet unclassified'!

on: aPPCCompiler
    ^ self new
        compiler: aPPCCompiler;
        yourself
! !

!PPCCompilerTokenErrorStrategy methodsFor:'as yet unclassified'!

codeClearError
    compiler add: 'self clearError.'
!

codeError
    compiler add: 'error := true.'
!

codeError: message
    compiler add: 'error := true.'
!

compiler: aPPCCompiler
    compiler := aPPCCompiler 
! !