parsers/java/PJBlockNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 24 Jul 2015 19:42:09 +0100
changeset 504 0fb1f0799fc1
parent 435 3bc08fb90133
child 642 77d5fddb6462
permissions -rw-r--r--
Portability fix: override #new for class that implements #initialize #initialize is not sent by default.

"{ Package: 'stx:goodies/petitparser/parsers/java' }"

"{ NameSpace: Smalltalk }"

PJASTNode subclass:#PJBlockNode
	instanceVariableNames:'statements'
	classVariableNames:''
	poolDictionaries:''
	category:'PetitJava-AST'
!

PJBlockNode comment:'A node representing a block of java code.

A block begins with: { ends with: } and has statement in between.'
!

!PJBlockNode methodsFor:'accessing'!

acceptVisitor: aVisitor

	^ aVisitor visitStatementBlockNode: self
!

addStatement: aStatement
	statements add: aStatement
!

statements
	^ statements
!

statements: aCollection
	statements := OrderedCollection withAll: aCollection
! !

!PJBlockNode methodsFor:'initialize-release'!

initialize
	statements := OrderedCollection new
! !