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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PPCCompiler subclass:#PPCTokenizingCompiler

     6 	instanceVariableNames:'rememberStrategy errorStrategy'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Compiler'

    10 !

    11 

    12 !PPCTokenizingCompiler methodsFor:'code generation'!

    13 

    14 codeClearError

    15     errorStrategy codeClearError

    16 !

    17 

    18 codeError

    19     errorStrategy codeError

    20 !

    21 

    22 codeError: message

    23     errorStrategy codeError: message.

    24 !

    25 

    26 smartRemember: parser to: variableName 

    27     rememberStrategy smartRemember: parser to: variableName

    28 !

    29 

    30 smartRestore: parser from: mementoName

    31     rememberStrategy smartRestore: parser from: mementoName

    32 ! !

    33 

    34 !PPCTokenizingCompiler methodsFor:'hooks'!

    35 

    36 compiledParserSuperclass

    37     ^ compiledParserSuperclass ifNil: [ PPTokenizingCompiledParser ]

    38 !

    39 

    40 errorStrategy

    41     ^ errorStrategy ifNil: [ PPCCompilerTokenizingErrorStrategy on: self  ]

    42 !

    43 

    44 errorStrategy: whatever

    45     errorStrategy := whatever 

    46 !

    47 

    48 rememberStrategy

    49     ^ rememberStrategy ifNil: [ PPCCompilerTokenizingRememberStrategy on: self  ]

    50 !

    51 

    52 rememberStrategy: whatever

    53     rememberStrategy := whatever 

    54 ! !

    55 

    56 !PPCTokenizingCompiler methodsFor:'initialization'!

    57 

    58 initialize

    59     super initialize.

    60     rememberStrategy := PPCCompilerTokenizingRememberStrategy on: self

    61 ! !

    62