compiler/PPCListNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 23 Nov 2015 11:14:30 +0100
changeset 551 00ebb1b85f53
parent 452 9f4558b3be66
permissions -rw-r--r--
Fixed CI scripts on Windows For an unknown reason, unzip on Windows reports status code 50 (presumably "the disk is (or was) full during extraction.") even if there's plenty of space. To workaround this, simply ignore status code 50 on Windows. Sigh.

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

"{ NameSpace: Smalltalk }"

PPCNode subclass:#PPCListNode
	instanceVariableNames:'children'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitCompiler-Nodes'
!


!PPCListNode class methodsFor:'as yet unclassified'!

withAll: aCollection
    ^ self basicNew children: aCollection
! !

!PPCListNode methodsFor:'accessing'!

children
    ^ children
!

children: anObject
    
    children := anObject
!

firstChild
    ^ self children first
!

secondChild
    ^ self children second
! !

!PPCListNode methodsFor:'analysis'!

acceptsEpsilon
    self subclassResponsibility
!

acceptsEpsilonOpenSet: set
    self subclassResponsibility
! !

!PPCListNode methodsFor:'copying'!

postCopy
    super postCopy.
    children := children copy
! !

!PPCListNode methodsFor:'transformation'!

replace: node with: anotherNode
    children keysAndValuesDo: [ :index :child |
        child == node ifTrue: [ children at: index put: anotherNode ] 
    ]
! !

!PPCListNode class methodsFor:'documentation'!

version_HG

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