diff -r 09afcf28ed60 -r 751532c8f3db compiler/PPCCompilerTokenRememberStrategy.st --- a/compiler/PPCCompilerTokenRememberStrategy.st Tue Aug 18 22:46:10 2015 +0100 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,46 +0,0 @@ -"{ Package: 'stx:goodies/petitparser/compiler' }" - -"{ NameSpace: Smalltalk }" - -Object subclass:#PPCCompilerTokenRememberStrategy - instanceVariableNames:'compiler' - classVariableNames:'' - poolDictionaries:'' - category:'PetitCompiler-Compiler-Codegen-Straregies' -! - -!PPCCompilerTokenRememberStrategy class methodsFor:'instance creation'! - -on: aPPCCompiler - ^ self new - compiler: aPPCCompiler; - yourself -! ! - -!PPCCompilerTokenRememberStrategy methodsFor:'accessing'! - -compiler: aPPCCompiler - compiler := aPPCCompiler -! ! - -!PPCCompilerTokenRememberStrategy methodsFor:'as yet unclassified'! - -smartRemember: parser to: variableName - self error: 'deprecated?'. - parser isContextFree ifTrue: [ - compiler codeAssign: 'context lwRemember.' - to: variableName. - ] ifFalse: [ - compiler codeAssign: 'context remember.' - to: variableName. - ] -! - -smartRestore: parser from: mementoName - parser isContextFree ifTrue: [ - compiler add: 'context lwRestore: ', mementoName, '.'. - ] ifFalse: [ - compiler add: 'context restore: ', mementoName, '.'. - ]. -! ! -