JavaUnresolvedClassConstant.st
changeset 168 90e39cb3fa04
parent 148 db560ebab8b5
child 251 4898461c0cca
equal deleted inserted replaced
167:77dcbc4b2201 168:90e39cb3fa04
    38     ].
    38     ].
    39     ^ fullName
    39     ^ fullName
    40 
    40 
    41 !
    41 !
    42 
    42 
       
    43 deref
       
    44     (fullName startsWith:'[') ifTrue:[
       
    45         ^ JavaUnresolvedClassConstant basicNew setFullName:(fullName copyFrom:2)
       
    46     ].
       
    47     self halt.
       
    48 
       
    49     "Created: 7.4.1997 / 13:38:07 / cg"
       
    50 !
       
    51 
    43 fullName
    52 fullName
    44     ^ fullName
    53     ^ fullName
    45 
    54 
    46 !
    55 !
    47 
    56 
    65 pool:aPool poolIndex:slotIndex nameIndex:name_index
    74 pool:aPool poolIndex:slotIndex nameIndex:name_index
    66     constantPool := aPool.
    75     constantPool := aPool.
    67     constantPoolIndex := slotIndex.
    76     constantPoolIndex := slotIndex.
    68     nameIndex := name_index.
    77     nameIndex := name_index.
    69 
    78 
       
    79 !
       
    80 
       
    81 setFullName:aNameString
       
    82     fullName := aNameString
       
    83 
       
    84     "Created: 7.4.1997 / 13:37:45 / cg"
       
    85 !
       
    86 
       
    87 smalltalkArrayClass
       
    88     (fullName startsWith:'[[') ifTrue:[
       
    89         ^ Array
       
    90     ].
       
    91     (fullName startsWith:'[F') ifTrue:[
       
    92         ^ FloatArray
       
    93     ].
       
    94     (fullName startsWith:'[B') ifTrue:[
       
    95         ^ ByteArray
       
    96     ].
       
    97     self halt.
       
    98 
       
    99     "Created: 7.4.1997 / 13:35:25 / cg"
       
   100 ! !
       
   101 
       
   102 !JavaUnresolvedClassConstant methodsFor:'converting'!
       
   103 
       
   104 asClassPointerRef
       
   105     (fullName startsWith:'[[') ifTrue:[
       
   106         ^ JavaClassPointerRef class:Array nameandType:fullName
       
   107     ].
       
   108     (fullName startsWith:'[F') ifTrue:[
       
   109         ^ JavaClassPointerRef class:FloatArray nameandType:fullName
       
   110     ].
       
   111     (fullName startsWith:'[B') ifTrue:[
       
   112         ^ JavaClassPointerRef class:ByteArray nameandType:fullName
       
   113     ].
       
   114     self halt.
       
   115 
       
   116     "Created: 7.4.1997 / 13:40:29 / cg"
    70 ! !
   117 ! !
    71 
   118 
    72 !JavaUnresolvedClassConstant methodsFor:'printing & storing'!
   119 !JavaUnresolvedClassConstant methodsFor:'printing & storing'!
    73 
   120 
    74 displayString
   121 displayString
   164 ! !
   211 ! !
   165 
   212 
   166 !JavaUnresolvedClassConstant class methodsFor:'documentation'!
   213 !JavaUnresolvedClassConstant class methodsFor:'documentation'!
   167 
   214 
   168 version
   215 version
   169     ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedClassConstant.st,v 1.19 1997/03/18 16:54:06 cg Exp $'
   216     ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaUnresolvedClassConstant.st,v 1.20 1997/04/07 17:26:29 cg Exp $'
   170 ! !
   217 ! !