compiler/PPCCompilerTokenizingErrorStrategy.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 30 Jul 2015 08:37:37 +0100
changeset 510 869853decf31
parent 464 f6d77fee9811
child 515 b5316ef15274
permissions -rw-r--r--
Tests refactoring - use generated test cases to make sure all posibilities are tested. Do not generate resource for all combinations, use PPCSetUpBeforeTearDownAfterResource instead that delegates parser compilation to the testcase itself (it calls it's #setUpBefore method).

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