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

"{ NameSpace: Smalltalk }"

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

!PPCCompilerTokenizingErrorStrategy class methodsFor:'as yet unclassified'!

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

!PPCCompilerTokenizingErrorStrategy methodsFor:'as yet unclassified'!

codeClearError
    compiler add: 'error := false.'.
!

codeError
    compiler add: 'self error: ''error message not specified'' at: context position.'.
!

codeError: message
    compiler add: 'self error: ''', message, ''' at: context position.'.
!

compiler: aPPCCompiler
    compiler := aPPCCompiler 
! !