compiler/PPCCompilerTokenizingErrorStrategy.st
changeset 524 f6f68d32de73
parent 515 b5316ef15274
child 525 751532c8f3db
child 539 610131174c0f
--- 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 
-! !
-