Mercurial Mercurial > hg > stx-libbasic / changeset
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | raw | zip | gz | bz2 | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
generate synthetic instvar names (for -sourceInfo)
authorClaus Gittinger <cg@exept.de>
Mon, 30 Oct 1995 19:55:31 +0100
changeset 459 744b144ae909
parent 458 ef1a25054341
child 460 7e058858cc3b
generate synthetic instvar names (for -sourceInfo)
ClassDescr.st file | annotate | diff | comparison | revisions
ClassDescription.st file | annotate | diff | comparison | revisions 
--- a/ClassDescr.st	Mon Oct 30 15:46:17 1995 +0100
+++ b/ClassDescr.st	Mon Oct 30 19:55:31 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.18 1995-08-11 02:59:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.19 1995-10-30 18:55:31 cg Exp $
 '!
 
 !ClassDescription class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.18 1995-08-11 02:59:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/Attic/ClassDescr.st,v 1.19 1995-10-30 18:55:31 cg Exp $
 "
 !
 
@@ -331,11 +331,27 @@
      and of the inst-vars of all superclasses to the argument, aCollection. 
      Return aCollection."
 
+    |superInsts|
+
     (superclass notNil) ifTrue:[
 	superclass addAllInstVarNamesTo:aCollection
     ].
     instvars notNil ifTrue:[
 	aCollection addAll:(instvars asCollectionOfWords).
+    ] ifFalse:[
+	"/ mhmh - either someone klduged around, or this is
+	"/ a system running without sourceInfo. Generate
+	"/ synthetic names.
+
+	superclass isNil ifTrue:[
+	    superInsts := 0
+	] ifFalse:[
+	    superInsts := superclass instSize
+	].
+	aCollection addAll:((superInsts+1 to:self instSize) 
+				collect:[:index | '* instVar' , index printString , ' *'])
     ].
     ^ aCollection
+
+    "Modified: 30.10.1995 / 19:46:21 / cg"
 ! !
--- a/ClassDescription.st	Mon Oct 30 15:46:17 1995 +0100
+++ b/ClassDescription.st	Mon Oct 30 19:55:31 1995 +0100
@@ -21,7 +21,7 @@
 COPYRIGHT (c) 1993 by Claus Gittinger
 	      All Rights Reserved
 
-$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.18 1995-08-11 02:59:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.19 1995-10-30 18:55:31 cg Exp $
 '!
 
 !ClassDescription class methodsFor:'documentation'!
@@ -42,7 +42,7 @@
 
 version
 "
-$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.18 1995-08-11 02:59:37 claus Exp $
+$Header: /cvs/stx/stx/libbasic/ClassDescription.st,v 1.19 1995-10-30 18:55:31 cg Exp $
 "
 !
 
@@ -331,11 +331,27 @@
      and of the inst-vars of all superclasses to the argument, aCollection. 
      Return aCollection."
 
+    |superInsts|
+
     (superclass notNil) ifTrue:[
 	superclass addAllInstVarNamesTo:aCollection
     ].
     instvars notNil ifTrue:[
 	aCollection addAll:(instvars asCollectionOfWords).
+    ] ifFalse:[
+	"/ mhmh - either someone klduged around, or this is
+	"/ a system running without sourceInfo. Generate
+	"/ synthetic names.
+
+	superclass isNil ifTrue:[
+	    superInsts := 0
+	] ifFalse:[
+	    superInsts := superclass instSize
+	].
+	aCollection addAll:((superInsts+1 to:self instSize) 
+				collect:[:index | '* instVar' , index printString , ' *'])
     ].
     ^ aCollection
+
+    "Modified: 30.10.1995 / 19:46:21 / cg"
 ! !
hg/stx-libbasic