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

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
! !

!PPCListNode methodsFor:'analysis'!

acceptsEpsilon
	self subclassResponsibility
!

acceptsEpsilonOpenSet: set
	self subclassResponsibility
!

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

!PPCListNode methodsFor:'copying'!

postCopy
	super postCopy.
	children := children copy
! !

!PPCListNode methodsFor:'optimizing'!

inline: changeStatus
	| inlinedNode |
	self children do: [ :child |
		inlinedNode := child asInlined.
		(inlinedNode ~= child) ifTrue: [ 
			changeStatus change.
			^ self replace: child with: inlinedNode.
		]
	]
!

optimize: params status: changeStatus
	| retval |
	retval := self.
	retval := retval rewrite: params status: changeStatus.
	retval := retval inline: params status: changeStatus.
	
	^ retval
! !

!PPCListNode class methodsFor:'documentation'!

version_HG

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