compiler/PPCTokenConsumeNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 18 Jun 2015 21:20:15 +0100
changeset 496 0433a9d7fbcd
parent 452 9f4558b3be66
child 515 b5316ef15274
permissions -rw-r--r--
Reverted fc3dbe5654c5: sending #copy should be OK (copy set's parent properly)

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

"{ NameSpace: Smalltalk }"

PPCDelegateNode subclass:#PPCTokenConsumeNode
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Nodes'
!

!PPCTokenConsumeNode methodsFor:'accessing'!

name: value
    super name: value.
    
    self child name isNil ifTrue: [ 
        self child name: self child prefix, '_', value.
    ]
!

prefix
    ^ #consume
! !

!PPCTokenConsumeNode methodsFor:'visiting'!

accept: visitor
    ^ visitor visitTokenConsumeNode: self
! !