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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPCCodeGen subclass:#PPCUniversalCodeGen

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Compiler-Codegen'

    10 !

    11 

    12 !PPCUniversalCodeGen methodsFor:'code generation'!

    13 

    14 remember: parser to: variableName 

    15     parser isContextFree ifTrue: [ 

    16         self 	codeAssign: 'context lwRemember.' 

    17                 to: variableName.

    18     ] ifFalse: [ 

    19         self  codeAssign: 'context remember.'

    20                 to: variableName.

    21     ]

    22 !

    23 

    24 restore: parser from: mementoName

    25     parser isContextFree ifTrue: [ 

    26         self code: 'context lwRestore: ', mementoName, '.'.

    27     ] ifFalse: [ 

    28         self code: 'context restore: ', mementoName, '.'.

    29     ]

    30 ! !

    31