JavaUnresolvedClassConstant.st
changeset 168 90e39cb3fa04
parent 148 db560ebab8b5
child 251 4898461c0cca
--- a/JavaUnresolvedClassConstant.st	Wed Mar 26 17:25:36 1997 +0000
+++ b/JavaUnresolvedClassConstant.st	Mon Apr 07 17:28:23 1997 +0000
@@ -40,6 +40,15 @@
 
 !
 
+deref
+    (fullName startsWith:'[') ifTrue:[
+        ^ JavaUnresolvedClassConstant basicNew setFullName:(fullName copyFrom:2)
+    ].
+    self halt.
+
+    "Created: 7.4.1997 / 13:38:07 / cg"
+!
+
 fullName
     ^ fullName
 
@@ -67,6 +76,44 @@
     constantPoolIndex := slotIndex.
     nameIndex := name_index.
 
+!
+
+setFullName:aNameString
+    fullName := aNameString
+
+    "Created: 7.4.1997 / 13:37:45 / cg"
+!
+
+smalltalkArrayClass
+    (fullName startsWith:'[[') ifTrue:[
+        ^ Array
+    ].
+    (fullName startsWith:'[F') ifTrue:[
+        ^ FloatArray
+    ].
+    (fullName startsWith:'[B') ifTrue:[
+        ^ ByteArray
+    ].
+    self halt.
+
+    "Created: 7.4.1997 / 13:35:25 / cg"
+! !
+
+!JavaUnresolvedClassConstant methodsFor:'converting'!
+
+asClassPointerRef
+    (fullName startsWith:'[[') ifTrue:[
+        ^ JavaClassPointerRef class:Array nameandType:fullName
+    ].
+    (fullName startsWith:'[F') ifTrue:[
+        ^ JavaClassPointerRef class:FloatArray nameandType:fullName
+    ].
+    (fullName startsWith:'[B') ifTrue:[
+        ^ JavaClassPointerRef class:ByteArray nameandType:fullName
+    ].
+    self halt.
+
+    "Created: 7.4.1997 / 13:40:29 / cg"
 ! !
 
 !JavaUnresolvedClassConstant methodsFor:'printing & storing'!
@@ -166,5 +213,5 @@
 !JavaUnresolvedClassConstant class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedClassConstant.st,v 1.19 1997/03/18 16:54:06 cg Exp $'
+    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedClassConstant.st,v 1.20 1997/04/07 17:26:29 cg Exp $'
 ! !