parsers/java/PJBlockNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Wed, 03 Jun 2015 08:48:59 +0100
changeset 482 9a7e7a05233f
parent 435 3bc08fb90133
child 642 77d5fddb6462
permissions -rw-r--r--
Updated .mcz exporting code to include a commit message digest ...instead of just exported revision commit message.

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