diff -r 09afcf28ed60 -r 751532c8f3db compiler/PPCTokenizingCompiler.st --- a/compiler/PPCTokenizingCompiler.st Tue Aug 18 22:46:10 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 -! ! -