compiler/tests/extras/PPCLRPEvent.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Sat, 19 Mar 2016 00:12:47 +0100
changeset 556 51c6afba5c91
parent 534 a949c4fe44df
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 }"

PPCLRPContainedElement subclass:#PPCLRPEvent
	instanceVariableNames:'name trigger triggerBlock'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Extras-Tests-LRP'
!


!PPCLRPEvent class methodsFor:'instance creation'!

named: aString trigger: aBlock
    |retval|
    retval := self new.
    retval name: aString.
    retval trigger: aBlock.
    ^ retval
! !

!PPCLRPEvent methodsFor:'accessing'!

name
    ^ name
!

name: anObject
    name := anObject
!

trigger
    ^ trigger
!

trigger: anObject
    trigger := anObject
! !

!PPCLRPEvent methodsFor:'printing'!

printOn: aStream
    aStream nextPutAll: 'PPCLRPEvent '.
    aStream nextPutAll: self name.
    aStream nextPutAll: ' : '.
    aStream nextPutAll: self trigger asString.
    
! !

!PPCLRPEvent methodsFor:'visiting'!

acceptVisitor: aPPCLRPNodeVisitor
    aPPCLRPNodeVisitor visitEventNode: self
! !

!PPCLRPEvent class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !