compiler/tests/extras/PPCLRPSpawn.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 25 Aug 2015 01:30:32 +0100
changeset 530 e36906742693
parent 511 527038bc8edf
permissions -rw-r--r--
PPCConfiguration refactoring: [2/10]: introduced PPCCompilationContext Moved parser class/scanner class instvars from PPCConfiguration subclasses to the context. Made PPCConfiguration to keep an instance of context. This is a preparation for having only one PPCConfiguration-like class.

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

"{ NameSpace: Smalltalk }"

PPCLRPNode subclass:#PPCLRPSpawn
	instanceVariableNames:'machine state'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Extras-Tests-LRP'
!

!PPCLRPSpawn class methodsFor:'instance creation'!

machine: machineName state: stateName
    |retval|
    retval := self new.
    retval machine: machineName.
    retval state: stateName.
    ^retval
! !

!PPCLRPSpawn methodsFor:'accessing'!

machine
    ^ machine
!

machine: anObject
    machine := anObject
!

state
    ^ state
!

state: anObject
    state := anObject
! !

!PPCLRPSpawn methodsFor:'printing'!

printOn: aStream
    aStream nextPutAll: 'PPCLRPSpawn '.
    aStream nextPutAll: machine asString.
    aStream nextPutAll: ' : '.
    aStream nextPutAll: state asString.
! !