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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PEGFsaState subclass:#PEGFsaUncopiableState

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-FSA'

    10 !

    11 

    12 !PEGFsaUncopiableState methodsFor:'as yet unclassified'!

    13 

    14 addTransition: t

    15     self error: 'should not happen'

    16 !

    17 

    18 copy

    19     ^ self

    20 !

    21 

    22 final: value

    23     self error: 'should not happen'

    24 !

    25 

    26 priority: anObject

    27     self error: 'should not happen'

    28 ! !

    29 

    30 !PEGFsaUncopiableState methodsFor:'testing'!

    31 

    32 isStub

    33     ^ true

    34 ! !

    35