compiler/tests/extras/PPCLRPSpawn.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sat, 19 Mar 2016 00:12:47 +0100
changeset 556 51c6afba5c91
parent 511 527038bc8edf
permissions -rw-r--r--
CI: Use VM provided by Pharo team on both Linux and Windows. Hand-crafter Pharo VM is no longer needed as the Linux slave in SWING build farm has been upgraded so it has compatible GLIBC. This makes CI scripts simpler and more usable for other people.

"{ 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.
! !