"{ Package: 'jv:tea/compiler' }"!

!RBBlockNode methodsFor:'accessing'!

returnTypeSpec

    "Return the TTypeSpecNode describing the return type of the

     block"

    ^ self propertyAt: #returnTypeSpec ifAbsent: nil

    "Created: / 21-08-2015 / 22:47:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!RBBlockNode methodsFor:'accessing'!

returnTypeSpec: aTTypeSpecNode

    "Set the TTypeSpecNode describing the return type of the block"

    ^ self propertyAt: #returnTypeSpec put: aTTypeSpecNode

    "Created: / 21-08-2015 / 22:48:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!RBMethodNode methodsFor:'accessing'!

returnTypeSpec

    "Return the TTypeSpecNode describing the return type of the

     method"

    ^ self propertyAt: #returnTypeSpec ifAbsent: nil

    "Created: / 21-08-2015 / 22:47:23 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!RBMethodNode methodsFor:'accessing'!

returnTypeSpec: aTTypeSpecNode

    "Set the TTypeSpecNode describing the return type of the method"

    ^ self propertyAt: #returnTypeSpec put: aTTypeSpecNode

    "Created: / 21-08-2015 / 22:48:55 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!RBVariableNode methodsFor:'accessing'!

typeSpec

    "Return the TTypeSpecNode associated with this variable node

     (if this node is for variable declaration) or nil (otherwise)"

    ^ self propertyAt: #typeSpec ifAbsent: nil

    "Created: / 21-08-2015 / 21:16:40 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!RBVariableNode methodsFor:'accessing'!

typeSpec: aTTypeSpecNode

    "Associate a TTypeSpecNode this variable node"

    ^ self propertyAt: #typeSpec put: aTTypeSpecNode

    "Created: / 21-08-2015 / 21:17:22 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!jv_tea_compiler class methodsFor:'documentation'!

extensionsVersion_HG

    ^ '$Changeset: <not expanded> $'

! !