Initial commit of PetitJava
Name: PetitJava-JanKurs.160
Author: JanKurs
Time: 19-12-2014, 01:00:18.354 PM
UUID: 1cb1b46d-8c68-4751-9720-f0dd742f3e16
"{ 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
! !