--- a/ConstNode.st Sat Sep 20 22:54:35 1997 +0200
+++ b/ConstNode.st Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:49:43 pm' !
+
PrimaryNode subclass:#ConstantNode
instanceVariableNames:''
classVariableNames:'TrueNode FalseNode NilNode Const0Node Const1Node Float0Node'
@@ -231,7 +233,11 @@
!ConstantNode methodsFor:'printing'!
displayString
+ "return a printed representation of the receiver for displaying"
+
^ value displayString
+
+ "Modified: 20.9.1997 / 11:39:07 / cg"
!
printOn:aStream indent:i
@@ -279,5 +285,5 @@
!ConstantNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Attic/ConstNode.st,v 1.23 1997-06-19 14:57:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/ConstNode.st,v 1.24 1997-09-20 21:03:30 cg Exp $'
! !
--- a/ConstantNode.st Sat Sep 20 22:54:35 1997 +0200
+++ b/ConstantNode.st Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:49:43 pm' !
+
PrimaryNode subclass:#ConstantNode
instanceVariableNames:''
classVariableNames:'TrueNode FalseNode NilNode Const0Node Const1Node Float0Node'
@@ -231,7 +233,11 @@
!ConstantNode methodsFor:'printing'!
displayString
+ "return a printed representation of the receiver for displaying"
+
^ value displayString
+
+ "Modified: 20.9.1997 / 11:39:07 / cg"
!
printOn:aStream indent:i
@@ -279,5 +285,5 @@
!ConstantNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.23 1997-06-19 14:57:42 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/ConstantNode.st,v 1.24 1997-09-20 21:03:30 cg Exp $'
! !
--- a/Make.proto Sat Sep 20 22:54:35 1997 +0200
+++ b/Make.proto Sat Sep 20 23:03:33 1997 +0200
@@ -1,4 +1,4 @@
-# $Header: /cvs/stx/stx/libcomp/Make.proto,v 1.53 1997-07-06 11:28:50 cg Exp $
+# $Header: /cvs/stx/stx/libcomp/Make.proto,v 1.54 1997-09-20 21:03:31 cg Exp $
#
# -------------- no need to change anything below ----------
@@ -9,7 +9,7 @@
STCOPT=$(LIBCOMP_STCOPT)
ZFLAG=-varPrefix=$(LIBNAME)
-STCLOCALOPT='-package=compiler-classes-(stx:libcomp)' $(COMMONSYMBOLS) $(SEPINITCODE) $(ZFLAG)
+STCLOCALOPT='-package=stx:libcomp' $(COMMONSYMBOLS) $(SEPINITCODE) $(ZFLAG)
LINKOBJRULE=$(SEPINITLINKOBJRULE)
LOCALDEFS=$(DLDEFS)
--- a/PrimaryNd.st Sat Sep 20 22:54:35 1997 +0200
+++ b/PrimaryNd.st Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:48:45 pm' !
+
ParseNode subclass:#PrimaryNode
instanceVariableNames:'value'
classVariableNames:''
@@ -77,7 +79,11 @@
!PrimaryNode methodsFor:'printing'!
displayString
+ "return a string for display in inspectors etc."
+
^ self subclassResponsibility
+
+ "Modified: 20.9.1997 / 11:41:19 / cg"
!
printOn:aStream indent:i
@@ -95,5 +101,5 @@
!PrimaryNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Attic/PrimaryNd.st,v 1.16 1996-04-25 17:08:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/PrimaryNd.st,v 1.17 1997-09-20 21:03:31 cg Exp $'
! !
--- a/PrimaryNode.st Sat Sep 20 22:54:35 1997 +0200
+++ b/PrimaryNode.st Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:48:45 pm' !
+
ParseNode subclass:#PrimaryNode
instanceVariableNames:'value'
classVariableNames:''
@@ -77,7 +79,11 @@
!PrimaryNode methodsFor:'printing'!
displayString
+ "return a string for display in inspectors etc."
+
^ self subclassResponsibility
+
+ "Modified: 20.9.1997 / 11:41:19 / cg"
!
printOn:aStream indent:i
@@ -95,5 +101,5 @@
!PrimaryNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.16 1996-04-25 17:08:19 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/PrimaryNode.st,v 1.17 1997-09-20 21:03:31 cg Exp $'
! !
--- a/SelfNode.st Sat Sep 20 22:54:35 1997 +0200
+++ b/SelfNode.st Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:48:04 pm' !
+
PrimaryNode subclass:#SelfNode
instanceVariableNames:''
classVariableNames:''
@@ -99,7 +101,11 @@
!SelfNode methodsFor:'printing'!
displayString
+ "return a string for display in inspectors etc."
+
^ 'InterpreterVariable(self)'
+
+ "Modified: 20.9.1997 / 11:41:41 / cg"
!
printOn:aStream indent:i
@@ -109,5 +115,5 @@
!SelfNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/SelfNode.st,v 1.12 1997-06-19 16:38:32 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/SelfNode.st,v 1.13 1997-09-20 21:03:32 cg Exp $'
! !
--- a/VarNode.st Sat Sep 20 22:54:35 1997 +0200
+++ b/VarNode.st Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:47:04 pm' !
+
PrimaryNode subclass:#VariableNode
instanceVariableNames:'name token selfValue selfClass index block'
classVariableNames:''
@@ -566,7 +568,11 @@
!VariableNode methodsFor:'printing'!
displayString
+ "return a string for display in inspectors etc."
+
^ 'InterpreterVariable(' , self printString , ')'
+
+ "Modified: 20.9.1997 / 11:42:07 / cg"
!
printOn:aStream indent:i
@@ -653,5 +659,5 @@
!VariableNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.32 1997-07-02 16:54:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/Attic/VarNode.st,v 1.33 1997-09-20 21:03:33 cg Exp $'
! !
--- a/VariableNode.st Sat Sep 20 22:54:35 1997 +0200
+++ b/VariableNode.st Sat Sep 20 23:03:33 1997 +0200
@@ -10,6 +10,8 @@
hereby transferred.
"
+'From Smalltalk/X, Version:3.1.10 on 20-sep-1997 at 11:47:04 pm' !
+
PrimaryNode subclass:#VariableNode
instanceVariableNames:'name token selfValue selfClass index block'
classVariableNames:''
@@ -566,7 +568,11 @@
!VariableNode methodsFor:'printing'!
displayString
+ "return a string for display in inspectors etc."
+
^ 'InterpreterVariable(' , self printString , ')'
+
+ "Modified: 20.9.1997 / 11:42:07 / cg"
!
printOn:aStream indent:i
@@ -653,5 +659,5 @@
!VariableNode class methodsFor:'documentation'!
version
- ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.32 1997-07-02 16:54:40 cg Exp $'
+ ^ '$Header: /cvs/stx/stx/libcomp/VariableNode.st,v 1.33 1997-09-20 21:03:33 cg Exp $'
! !