--- a/AssignmentNode.st Sat Nov 18 17:59:14 1995 +0100
+++ b/AssignmentNode.st Thu Nov 23 03:15:59 1995 +0100
@@ -11,10 +11,10 @@
"
ParseNode subclass:#AssignmentNode
- instanceVariableNames:'variable expression'
- classVariableNames:''
- poolDictionaries:''
- category:'System-Compiler-Support'
+ instanceVariableNames:'variable expression'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'System-Compiler-Support'
!
!AssignmentNode class methodsFor:'documentation'!
@@ -33,14 +33,14 @@
"
!
-version
- ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.13 1995-11-11 15:29:49 cg Exp $'
-!
-
documentation
"
node for parse-trees, representing assignments
"
+!
+
+version
+ ^ '$Header: /cvs/stx/stx/libcomp/AssignmentNode.st,v 1.14 1995-11-23 02:12:04 cg Exp $'
! !
!AssignmentNode class methodsFor:'instance creation'!
@@ -49,32 +49,15 @@
^ (self basicNew) variable:v expression:e
! !
-!AssignmentNode methodsFor:'evaluating'!
-
-evaluate
- |value|
- value := expression evaluate.
- variable store:value.
- ^ value
-! !
+!AssignmentNode methodsFor:'accessing'!
-!AssignmentNode methodsFor:'queries'!
-
-isAssignment
- "return true, if this is a node for an assignment"
-
- ^ true
-! !
-
-!AssignmentNode methodsFor:'accessing'!
+expression
+ ^ expression
+!
variable:v expression:e
variable := v.
expression := e
-!
-
-expression
- ^ expression
! !
!AssignmentNode methodsFor:'code generation'!
@@ -126,6 +109,15 @@
variable codeStoreOn:aStream inBlock:b valueNeeded:true for:aCompiler
! !
+!AssignmentNode methodsFor:'evaluating'!
+
+evaluate
+ |value|
+ value := expression evaluate.
+ variable store:value.
+ ^ value
+! !
+
!AssignmentNode methodsFor:'printing'!
printOn:aStream indent:i
@@ -133,3 +125,12 @@
aStream nextPutAll:' := '.
expression printOn:aStream
! !
+
+!AssignmentNode methodsFor:'queries'!
+
+isAssignment
+ "return true, if this is a node for an assignment"
+
+ ^ true
+! !
+