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

     2 

     3 Object subclass:#PPCMockCompiler

     4 	instanceVariableNames:'lines'

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'PetitCompiler-Tests-Core'

     8 !

     9 

    10 PPCMockCompiler comment:''

    11 !

    12 

    13 !PPCMockCompiler methodsFor:'accessing'!

    14 

    15 lines

    16 	

    17 	^ lines

    18 !

    19 

    20 lines: anObject

    21 	

    22 	lines := anObject

    23 ! !

    24 

    25 !PPCMockCompiler methodsFor:'as yet unclassified'!

    26 

    27 add: string

    28 	lines add: string

    29 !

    30 

    31 addConstant: object as: id

    32 	"TODO"

    33 !

    34 

    35 initialize

    36 	super initialize.

    37 	lines := OrderedCollection new.

    38 ! !

    39