diff -r b5316ef15274 -r f6f68d32de73 compiler/PPCCompilerTokenizingErrorStrategy.st --- a/compiler/PPCCompilerTokenizingErrorStrategy.st Mon Aug 17 12:13:16 2015 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,37 +0,0 @@ -"{ Package: 'stx:goodies/petitparser/compiler' }" - -"{ NameSpace: Smalltalk }" - -Object subclass:#PPCCompilerTokenizingErrorStrategy - instanceVariableNames:'compiler' - classVariableNames:'' - poolDictionaries:'' - category:'PetitCompiler-Compiler-Codegen-Straregies' -! - -!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 -! ! -