JavaNameandType.st
author Claus Gittinger <cg@exept.de>
Wed, 10 Dec 2003 11:06:45 +0100
changeset 2114 cbdc4c02a8e2
parent 2108 ca8c4e7db2e8
permissions -rw-r--r--
ExecutionErrorSignal -> ExecutionError
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
454
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
     1
"
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
     2
 COPYRIGHT (c) 1997 by eXept Software AG
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
     3
              All Rights Reserved
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
     4
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
     5
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
     6
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
     8
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
     9
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    10
 hereby transferred.
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    11
"
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    12
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    13
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    14
713
75e92ac63bf1 category change
cg
parents: 625
diff changeset
    15
"{ Package: 'stx:libjava' }"
75e92ac63bf1 category change
cg
parents: 625
diff changeset
    16
1
083530508d9c intitial checkin
cg
parents:
diff changeset
    17
Object subclass:#JavaNameandType
083530508d9c intitial checkin
cg
parents:
diff changeset
    18
	instanceVariableNames:'name signature'
90
918e2740098c resolve rewritten
cg
parents: 27
diff changeset
    19
	classVariableNames:'KnownNamesAndTypes'
1
083530508d9c intitial checkin
cg
parents:
diff changeset
    20
	poolDictionaries:''
713
75e92ac63bf1 category change
cg
parents: 625
diff changeset
    21
	category:'Languages-Java-Reader-Support'
1
083530508d9c intitial checkin
cg
parents:
diff changeset
    22
!
083530508d9c intitial checkin
cg
parents:
diff changeset
    23
454
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    24
!JavaNameandType class methodsFor:'documentation'!
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    25
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    26
copyright
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    27
"
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    28
 COPYRIGHT (c) 1997 by eXept Software AG
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    29
              All Rights Reserved
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    30
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    31
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    32
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    33
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    34
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    35
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    36
 hereby transferred.
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    37
"
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    38
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    39
38f590639d65 *** empty log message ***
cg
parents: 356
diff changeset
    40
! !
1
083530508d9c intitial checkin
cg
parents:
diff changeset
    41
135
098936234135 *** empty log message ***
cg
parents: 90
diff changeset
    42
!JavaNameandType class methodsFor:'instance creation'!
1
083530508d9c intitial checkin
cg
parents:
diff changeset
    43
083530508d9c intitial checkin
cg
parents:
diff changeset
    44
name:aString signature:signature
356
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    45
    |idx nt|
1
083530508d9c intitial checkin
cg
parents:
diff changeset
    46
356
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    47
"/    KnownNamesAndTypes notNil ifTrue:[
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    48
"/        idx := KnownNamesAndTypes findFirst:[:nt | nt signature == signature and:[nt name = aString]].
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    49
"/        idx ~~ 0 ifTrue:[
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    50
"/            nt := KnownNamesAndTypes at:idx.
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    51
"/            (nt ~~ 0 and:[nt notNil]) ifTrue:[
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    52
"/                ^ nt
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    53
"/            ]
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    54
"/        ]
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    55
"/    ].
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    56
    nt := self new name:aString signature:signature.
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    57
"/    KnownNamesAndTypes isNil ifTrue:[
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    58
"/        KnownNamesAndTypes := WeakIdentitySet new.
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    59
"/    ].
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    60
"/    KnownNamesAndTypes add:nt.
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    61
    ^ nt
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    62
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    63
    "Created: / 15.4.1996 / 16:17:14 / cg"
861abc393bc7 checkin from browser
cg
parents: 244
diff changeset
    64
    "Modified: / 16.5.1998 / 02:59:54 / cg"
1
083530508d9c intitial checkin
cg
parents:
diff changeset
    65
! !
083530508d9c intitial checkin
cg
parents:
diff changeset
    66
083530508d9c intitial checkin
cg
parents:
diff changeset
    67
!JavaNameandType methodsFor:'accessing'!
083530508d9c intitial checkin
cg
parents:
diff changeset
    68
27
4560bb77bb36 checkin from browser
cg
parents: 4
diff changeset
    69
name
4560bb77bb36 checkin from browser
cg
parents: 4
diff changeset
    70
     ^ name 
4560bb77bb36 checkin from browser
cg
parents: 4
diff changeset
    71
4560bb77bb36 checkin from browser
cg
parents: 4
diff changeset
    72
    "Created: 15.4.1996 / 16:16:47 / cg"
4560bb77bb36 checkin from browser
cg
parents: 4
diff changeset
    73
!
4560bb77bb36 checkin from browser
cg
parents: 4
diff changeset
    74
1
083530508d9c intitial checkin
cg
parents:
diff changeset
    75
name:aString signature:aSignature
90
918e2740098c resolve rewritten
cg
parents: 27
diff changeset
    76
     name := aString asSymbol.
918e2740098c resolve rewritten
cg
parents: 27
diff changeset
    77
     signature := aSignature asSymbol
1
083530508d9c intitial checkin
cg
parents:
diff changeset
    78
083530508d9c intitial checkin
cg
parents:
diff changeset
    79
    "Created: 15.4.1996 / 16:16:47 / cg"
27
4560bb77bb36 checkin from browser
cg
parents: 4
diff changeset
    80
!
4560bb77bb36 checkin from browser
cg
parents: 4
diff changeset
    81
4560bb77bb36 checkin from browser
cg
parents: 4
diff changeset
    82
signature
4560bb77bb36 checkin from browser
cg
parents: 4
diff changeset
    83
     ^ signature 
4560bb77bb36 checkin from browser
cg
parents: 4
diff changeset
    84
4560bb77bb36 checkin from browser
cg
parents: 4
diff changeset
    85
    "Created: 15.4.1996 / 16:16:47 / cg"
1
083530508d9c intitial checkin
cg
parents:
diff changeset
    86
! !
083530508d9c intitial checkin
cg
parents:
diff changeset
    87
244
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
    88
!JavaNameandType methodsFor:'comparing'!
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
    89
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
    90
= aNameandType
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
    91
    name ~= aNameandType name ifTrue:[^ false].
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
    92
    ^ signature = aNameandType signature
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
    93
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
    94
    "Created: 19.8.1997 / 13:58:29 / cg"
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
    95
!
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
    96
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
    97
hash
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
    98
    ^ name hash bitXor:signature hash
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
    99
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
   100
    "Created: 19.8.1997 / 13:59:03 / cg"
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
   101
! !
30a32734cc47 checkin from browser
cg
parents: 203
diff changeset
   102
1
083530508d9c intitial checkin
cg
parents:
diff changeset
   103
!JavaNameandType methodsFor:'printing & storing'!
083530508d9c intitial checkin
cg
parents:
diff changeset
   104
083530508d9c intitial checkin
cg
parents:
diff changeset
   105
displayString
90
918e2740098c resolve rewritten
cg
parents: 27
diff changeset
   106
    ^ self class name , '(name:' , name displayString, ' signature:' , signature displayString , ')'
1
083530508d9c intitial checkin
cg
parents:
diff changeset
   107
083530508d9c intitial checkin
cg
parents:
diff changeset
   108
    "Created: 15.4.1996 / 16:32:40 / cg"
083530508d9c intitial checkin
cg
parents:
diff changeset
   109
! !
083530508d9c intitial checkin
cg
parents:
diff changeset
   110
90
918e2740098c resolve rewritten
cg
parents: 27
diff changeset
   111
!JavaNameandType methodsFor:'queries'!
918e2740098c resolve rewritten
cg
parents: 27
diff changeset
   112
625
b0d1764545b5 checkin from browser
cg
parents: 619
diff changeset
   113
isJavaClassRef
b0d1764545b5 checkin from browser
cg
parents: 619
diff changeset
   114
    ^ false
b0d1764545b5 checkin from browser
cg
parents: 619
diff changeset
   115
b0d1764545b5 checkin from browser
cg
parents: 619
diff changeset
   116
    "Created: / 9.11.1999 / 17:13:22 / cg"
b0d1764545b5 checkin from browser
cg
parents: 619
diff changeset
   117
    "Modified: / 9.11.1999 / 17:13:45 / cg"
b0d1764545b5 checkin from browser
cg
parents: 619
diff changeset
   118
!
b0d1764545b5 checkin from browser
cg
parents: 619
diff changeset
   119
619
b4868e432de3 added #isJavaMethodRef query
cg
parents: 454
diff changeset
   120
isJavaMethodRef
b4868e432de3 added #isJavaMethodRef query
cg
parents: 454
diff changeset
   121
    ^ false
b4868e432de3 added #isJavaMethodRef query
cg
parents: 454
diff changeset
   122
b4868e432de3 added #isJavaMethodRef query
cg
parents: 454
diff changeset
   123
    "Created: / 9.11.1999 / 15:50:01 / cg"
b4868e432de3 added #isJavaMethodRef query
cg
parents: 454
diff changeset
   124
!
b4868e432de3 added #isJavaMethodRef query
cg
parents: 454
diff changeset
   125
90
918e2740098c resolve rewritten
cg
parents: 27
diff changeset
   126
isUnresolved
918e2740098c resolve rewritten
cg
parents: 27
diff changeset
   127
    ^ false
918e2740098c resolve rewritten
cg
parents: 27
diff changeset
   128
918e2740098c resolve rewritten
cg
parents: 27
diff changeset
   129
918e2740098c resolve rewritten
cg
parents: 27
diff changeset
   130
! !
918e2740098c resolve rewritten
cg
parents: 27
diff changeset
   131
203
67af98594672 *** empty log message ***
cg
parents: 135
diff changeset
   132
!JavaNameandType methodsFor:'special'!
67af98594672 *** empty log message ***
cg
parents: 135
diff changeset
   133
67af98594672 *** empty log message ***
cg
parents: 135
diff changeset
   134
updateClassRefsFrom:oldClass to:newClass
67af98594672 *** empty log message ***
cg
parents: 135
diff changeset
   135
    "/ nothing done here
67af98594672 *** empty log message ***
cg
parents: 135
diff changeset
   136
67af98594672 *** empty log message ***
cg
parents: 135
diff changeset
   137
    "Created: 7.8.1997 / 15:12:25 / cg"
67af98594672 *** empty log message ***
cg
parents: 135
diff changeset
   138
! !
67af98594672 *** empty log message ***
cg
parents: 135
diff changeset
   139
135
098936234135 *** empty log message ***
cg
parents: 90
diff changeset
   140
!JavaNameandType class methodsFor:'documentation'!
1
083530508d9c intitial checkin
cg
parents:
diff changeset
   141
083530508d9c intitial checkin
cg
parents:
diff changeset
   142
version
2108
ca8c4e7db2e8 category change
Claus Gittinger <cg@exept.de>
parents: 748
diff changeset
   143
    ^ '$Header: /cvs/stx/stx/libjava/Attic/JavaNameandType.st,v 1.12 2002-11-22 20:11:50 cg Exp $'
1
083530508d9c intitial checkin
cg
parents:
diff changeset
   144
! !