compiler/PPCTokenizingCompiler.st
changeset 524 f6f68d32de73
parent 515 b5316ef15274
child 525 751532c8f3db
child 539 610131174c0f
--- a/compiler/PPCTokenizingCompiler.st	Mon Aug 17 12:13:16 2015 +0100
+++ /dev/null	Thu Jan 01 00:00:00 1970 +0000
@@ -1,62 +0,0 @@
-"{ Package: 'stx:goodies/petitparser/compiler' }"
-
-"{ NameSpace: Smalltalk }"
-
-PPCCompiler subclass:#PPCTokenizingCompiler
-	instanceVariableNames:'rememberStrategy errorStrategy'
-	classVariableNames:''
-	poolDictionaries:''
-	category:'PetitCompiler-Compiler'
-!
-
-!PPCTokenizingCompiler methodsFor:'code generation'!
-
-codeClearError
-    errorStrategy codeClearError
-!
-
-codeError
-    errorStrategy codeError
-!
-
-codeError: message
-    errorStrategy codeError: message.
-!
-
-smartRemember: parser to: variableName 
-    rememberStrategy smartRemember: parser to: variableName
-!
-
-smartRestore: parser from: mementoName
-    rememberStrategy smartRestore: parser from: mementoName
-! !
-
-!PPCTokenizingCompiler methodsFor:'hooks'!
-
-compiledParserSuperclass
-    ^ compiledParserSuperclass ifNil: [ PPTokenizingCompiledParser ]
-!
-
-errorStrategy
-    ^ errorStrategy ifNil: [ PPCCompilerTokenizingErrorStrategy on: self  ]
-!
-
-errorStrategy: whatever
-    errorStrategy := whatever 
-!
-
-rememberStrategy
-    ^ rememberStrategy ifNil: [ PPCCompilerTokenizingRememberStrategy on: self  ]
-!
-
-rememberStrategy: whatever
-    rememberStrategy := whatever 
-! !
-
-!PPCTokenizingCompiler methodsFor:'initialization'!
-
-initialize
-    super initialize.
-    rememberStrategy := PPCCompilerTokenizingRememberStrategy on: self
-! !
-