hg/stx-goodies-petitparser: parsers/java/PJWhileStatementNode.st@3bc08fb90133 (annotated)

435 3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/parsers/java' }"
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Smalltalk }"
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	PJStatementNode subclass:#PJWhileStatementNode
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'expression statement'
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'PetitJava-AST'
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	PJWhileStatementNode comment:'Node representing a while loop'
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	!PJWhileStatementNode methodsFor:'accessing'!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	expression
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18	^ expression
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	expression: anObject
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	expression := anObject
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23	!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25	statement
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	^ statement
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	statement: anObject
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30	statement := anObject
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	! !
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	!PJWhileStatementNode methodsFor:'visiting'!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	acceptVisitor: aVisitor
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	^ aVisitor visitWhileStatementNode: self
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38	! !
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Tue, 21 Apr 2015 14:57:16 +0100
changeset 435	3bc08fb90133
permissions	-rw-r--r--