--- 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 $'
! !