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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 Object subclass:#PEGFsaInterpretRecord

     6 	instanceVariableNames:'maxPriority position'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-FSA'

    10 !

    11 

    12 !PEGFsaInterpretRecord methodsFor:'accessing'!

    13 

    14 maxPriority

    15     ^ maxPriority

    16 !

    17 

    18 maxPriority: anObject

    19     maxPriority := anObject

    20 !

    21 

    22 position

    23     ^ position

    24 !

    25 

    26 position: anObject

    27     position := anObject

    28 ! !

    29 

    30 !PEGFsaInterpretRecord methodsFor:'initialize'!

    31 

    32 initialize

    33     super initialize.

    34     maxPriority := SmallInteger minVal.

    35 ! !

    36