1 "{ Package: 'stx:goodies/petitparser/compiler' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 Object subclass:#PPCCompilerTokenRememberStrategy

     6 	instanceVariableNames:'compiler'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Compiler-Codegen-Straregies'

    10 !

    11 

    12 !PPCCompilerTokenRememberStrategy class methodsFor:'instance creation'!

    13 

    14 on: aPPCCompiler

    15     ^ self new

    16         compiler: aPPCCompiler;

    17         yourself

    18 ! !

    19 

    20 !PPCCompilerTokenRememberStrategy methodsFor:'accessing'!

    21 

    22 compiler: aPPCCompiler

    23     compiler := aPPCCompiler 

    24 ! !

    25 

    26 !PPCCompilerTokenRememberStrategy methodsFor:'as yet unclassified'!

    27 

    28 smartRemember: parser to: variableName 

    29     self error: 'deprecated?'.

    30     parser isContextFree ifTrue: [ 

    31         compiler 	codeAssign: 'context lwRemember.' 

    32                     to: variableName.

    33     ] ifFalse: [ 

    34         compiler codeAssign: 'context remember.'

    35                     to: variableName.

    36     ]

    37 !

    38 

    39 smartRestore: parser from: mementoName

    40     parser isContextFree ifTrue: [ 

    41         compiler add: 'context lwRestore: ', mementoName, '.'.

    42     ] ifFalse: [ 

    43         compiler add: 'context restore: ', mementoName, '.'.

    44     ].

    45 ! !

    46