--- a/ConstantNode.st Thu Aug 31 12:01:00 2000 +0200
+++ b/ConstantNode.st Thu Aug 31 12:03:58 2000 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libcomp' }"
+
PrimaryNode subclass:#ConstantNode
instanceVariableNames:''
classVariableNames:'TrueNode FalseNode NilNode Const0Node Const1Node Float0Node'
@@ -269,7 +271,7 @@
^ aValue
! !
-!ConstantNode methodsFor:'printing'!
+!ConstantNode methodsFor:'printing & storing'!
displayString
"return a printed representation of the receiver for displaying"
@@ -324,5 +326,5 @@
!ConstantNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.28 2000-02-12 15:33:21 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.29 2000-08-31 10:02:35 cg Exp $'
! !
--- a/MessageNode.st Thu Aug 31 12:01:00 2000 +0200
+++ b/MessageNode.st Thu Aug 31 12:03:58 2000 +0200
@@ -2914,7 +2914,7 @@
^ r
! !
-!MessageNode methodsFor:'printing'!
+!MessageNode methodsFor:'printing & storing'!
printOn:aStream indent:i
|needParen selectorParts index index2 arg|
@@ -3043,5 +3043,5 @@
!MessageNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.115 2000-07-20 17:57:00 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/MessageNode.st,v 1.116 2000-08-31 10:02:54 cg Exp $'
! !
--- a/ObjectFileHandle.st Thu Aug 31 12:01:00 2000 +0200
+++ b/ObjectFileHandle.st Thu Aug 31 12:03:58 2000 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libcomp' }"
+
Object subclass:#ObjectFileHandle
instanceVariableNames:'sysHandle1 sysHandle2 pathName moduleID handleType weakMethodRef
weakClassRefs weakFunctionRefs'
@@ -231,7 +233,7 @@
"Modified: 25.4.1996 / 09:43:53 / cg"
! !
-!ObjectFileHandle methodsFor:'printing'!
+!ObjectFileHandle methodsFor:'printing & storing'!
printOn:aStream
"append a printed representation of the receiver to aStream"
@@ -412,5 +414,5 @@
!ObjectFileHandle class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.27 2000-02-25 15:02:33 ps Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ObjectFileHandle.st,v 1.28 2000-08-31 10:03:05 cg Exp $'
! !
--- a/ParseNode.st Thu Aug 31 12:01:00 2000 +0200
+++ b/ParseNode.st Thu Aug 31 12:03:58 2000 +0200
@@ -145,7 +145,7 @@
^ self evaluate
! !
-!ParseNode methodsFor:'printing'!
+!ParseNode methodsFor:'printing & storing'!
printOn:aStream
"append a user printed representation of the receiver to aStream.
@@ -273,5 +273,5 @@
!ParseNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.30 2000-07-20 16:20:05 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ParseNode.st,v 1.31 2000-08-31 10:03:09 cg Exp $'
! !
--- a/PrimaryNode.st Thu Aug 31 12:01:00 2000 +0200
+++ b/PrimaryNode.st Thu Aug 31 12:03:58 2000 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libcomp' }"
+
ParseNode subclass:#PrimaryNode
instanceVariableNames:'value'
classVariableNames:''
@@ -74,7 +76,7 @@
^ self subclassResponsibility
! !
-!PrimaryNode methodsFor:'printing'!
+!PrimaryNode methodsFor:'printing & storing'!
displayString
"return a string for display in inspectors etc."
@@ -99,5 +101,5 @@
!PrimaryNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.19 2000-02-12 15:32:47 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.20 2000-08-31 10:03:12 cg Exp $'
! !
--- a/ReturnNode.st Thu Aug 31 12:01:00 2000 +0200
+++ b/ReturnNode.st Thu Aug 31 12:03:58 2000 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libcomp' }"
+
StatementNode subclass:#ReturnNode
instanceVariableNames:'myHome blockHome'
classVariableNames:''
@@ -127,7 +129,7 @@
^ val
! !
-!ReturnNode methodsFor:'printing'!
+!ReturnNode methodsFor:'printing & storing'!
printOn:aStream indent:i
aStream nextPutAll:'^ '.
@@ -147,5 +149,5 @@
!ReturnNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.24 2000-02-12 15:32:34 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ReturnNode.st,v 1.25 2000-08-31 10:03:15 cg Exp $'
! !
--- a/SelfNode.st Thu Aug 31 12:01:00 2000 +0200
+++ b/SelfNode.st Thu Aug 31 12:03:58 2000 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libcomp' }"
+
PrimaryNode subclass:#SelfNode
instanceVariableNames:''
classVariableNames:''
@@ -103,7 +105,7 @@
self error:'store into self - cannot happen'
! !
-!SelfNode methodsFor:'printing'!
+!SelfNode methodsFor:'printing & storing'!
displayString
"return a string for display in inspectors etc."
@@ -130,5 +132,5 @@
!SelfNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/SelfNode.st,v 1.17 2000-02-12 15:32:27 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/SelfNode.st,v 1.18 2000-08-31 10:03:22 cg Exp $'
! !
--- a/StatementNode.st Thu Aug 31 12:01:00 2000 +0200
+++ b/StatementNode.st Thu Aug 31 12:03:58 2000 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libcomp' }"
+
ParseNode subclass:#StatementNode
instanceVariableNames:'expression nextStatement lineNr'
classVariableNames:''
@@ -153,7 +155,7 @@
^ expression evaluate
! !
-!StatementNode methodsFor:'printing'!
+!StatementNode methodsFor:'printing & storing'!
printAllOn:aStream
self printAllOn:aStream indent:4
@@ -218,5 +220,5 @@
!StatementNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.23 2000-02-12 15:32:20 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/StatementNode.st,v 1.24 2000-08-31 10:03:37 cg Exp $'
! !
--- a/SuperNode.st Thu Aug 31 12:01:00 2000 +0200
+++ b/SuperNode.st Thu Aug 31 12:03:58 2000 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libcomp' }"
+
SelfNode subclass:#SuperNode
instanceVariableNames:'class isHere'
classVariableNames:''
@@ -66,7 +68,7 @@
isHere := h
! !
-!SuperNode methodsFor:'printing'!
+!SuperNode methodsFor:'printing & storing'!
displayString
"return a string for display in inspectors etc."
@@ -103,5 +105,5 @@
!SuperNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/SuperNode.st,v 1.12 1998-07-16 18:54:55 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/SuperNode.st,v 1.13 2000-08-31 10:03:41 cg Exp $'
! !
--- a/UnaryNode.st Thu Aug 31 12:01:00 2000 +0200
+++ b/UnaryNode.st Thu Aug 31 12:03:58 2000 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+"{ Package: 'stx:libcomp' }"
+
MessageNode subclass:#UnaryNode
instanceVariableNames:''
classVariableNames:''
@@ -265,7 +267,7 @@
^ (receiver evaluate) perform:selector
! !
-!UnaryNode methodsFor:'printing'!
+!UnaryNode methodsFor:'printing & storing'!
printOn:aStream indent:i
"prettyprint the expression represented by the receiver"
@@ -303,5 +305,5 @@
!UnaryNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.32 2000-02-12 15:32:12 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/UnaryNode.st,v 1.33 2000-08-31 10:03:51 cg Exp $'
! !
--- a/VariableNode.st Thu Aug 31 12:01:00 2000 +0200
+++ b/VariableNode.st Thu Aug 31 12:03:58 2000 +0200
@@ -720,7 +720,7 @@
"Modified: / 16.5.1998 / 18:35:03 / cg"
! !
-!VariableNode methodsFor:'printing'!
+!VariableNode methodsFor:'printing & storing'!
displayString
"return a string for display in inspectors etc."
@@ -842,5 +842,5 @@
!VariableNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.47 2000-08-27 14:50:01 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.48 2000-08-31 10:03:58 cg Exp $'
! !