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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PJStatementNode subclass:#PJWhileStatementNode

     6 	instanceVariableNames:'expression statement'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitJava-AST'

    10 !

    11 

    12 PJWhileStatementNode comment:'Node representing a while loop'

    13 !

    14 

    15 !PJWhileStatementNode methodsFor:'accessing'!

    16 

    17 expression

    18 	^ expression

    19 !

    20 

    21 expression: anObject

    22 	expression := anObject

    23 !

    24 

    25 statement

    26 	^ statement

    27 !

    28 

    29 statement: anObject

    30 	statement := anObject

    31 ! !

    32 

    33 !PJWhileStatementNode methodsFor:'visiting'!

    34 

    35 acceptVisitor: aVisitor

    36 

    37 	^ aVisitor visitWhileStatementNode: self

    38 ! !

    39