JavaField.st
author cg
Fri, 20 Aug 1999 17:22:29 +0000
changeset 593 8e713803c6e6
parent 454 38f590639d65
child 713 75e92ac63bf1
permissions -rw-r--r--
checkin from browser
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
454
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
     1
"
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
     2
 COPYRIGHT (c) 1997 by eXept Software AG
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
     3
              All Rights Reserved
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
     4
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
     5
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
     6
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
     7
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
     8
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
     9
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    10
 hereby transferred.
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    11
"
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    12
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    13
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    14
6
b23a6474754f intitial checkin
cg
parents:
diff changeset
    15
JavaRef subclass:#JavaField
b23a6474754f intitial checkin
cg
parents:
diff changeset
    16
	instanceVariableNames:'accessFlags name signature constantValue'
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    17
	classVariableNames:'A_FINAL A_PRIVATE A_PROTECTED A_PUBLIC A_STATIC A_TRANSIENT
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    18
		A_VOLATILE A_SMALLTALK'
6
b23a6474754f intitial checkin
cg
parents:
diff changeset
    19
	poolDictionaries:''
b23a6474754f intitial checkin
cg
parents:
diff changeset
    20
	category:'Java-Reader-Support'
b23a6474754f intitial checkin
cg
parents:
diff changeset
    21
!
b23a6474754f intitial checkin
cg
parents:
diff changeset
    22
454
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    23
!JavaField class methodsFor:'documentation'!
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    24
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    25
copyright
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    26
"
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    27
 COPYRIGHT (c) 1997 by eXept Software AG
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    28
              All Rights Reserved
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    29
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    30
 This software is furnished under a license and may be used
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    31
 only in accordance with the terms of that license and with the
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    32
 inclusion of the above copyright notice.   This software may not
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    33
 be provided or otherwise made available to, or used by, any
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    34
 other person.  No title to or ownership of the software is
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    35
 hereby transferred.
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    36
"
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    37
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    38
38f590639d65 *** empty log message ***
cg
parents: 376
diff changeset
    39
! !
6
b23a6474754f intitial checkin
cg
parents:
diff changeset
    40
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    41
!JavaField class methodsFor:'class initialization'!
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    42
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    43
initialize
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    44
    A_PUBLIC    := 16r0001. "/ JavaClass A_PUBLIC
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    45
    A_PRIVATE   := 16r0002.
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    46
    A_PROTECTED := 16r0004.
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    47
    A_STATIC    := 16r0008.
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    48
    A_FINAL     := 16r0010. "/ JavaClass A_FINAL
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    49
    A_VOLATILE  := 16r0040.
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    50
    A_TRANSIENT := 16r0080.
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    51
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    52
    "
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    53
     self initialize
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    54
    "
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    55
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    56
    "Modified: / 13.5.1998 / 14:44:43 / cg"
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    57
! !
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    58
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    59
!JavaField class methodsFor:'constants'!
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    60
593
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    61
A_FINAL
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    62
    ^ A_FINAL
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    63
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    64
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    65
!
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    66
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    67
A_PRIVATE
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    68
    ^ A_PRIVATE
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    69
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    70
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    71
!
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    72
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    73
A_PROTECTED
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    74
    ^ A_PROTECTED
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    75
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    76
    "Created: / 13.5.1998 / 13:03:51 / cg"
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    77
!
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    78
593
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    79
A_PUBLIC
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    80
    ^ A_PUBLIC
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    81
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    82
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    83
!
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    84
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    85
A_STATIC
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    86
    ^ A_STATIC
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    87
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
    88
    "Created: / 13.5.1998 / 13:03:55 / cg"
593
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    89
!
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    90
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    91
A_TRANSIENT
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    92
    ^ A_TRANSIENT
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    93
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    94
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    95
!
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    96
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    97
A_VOLATILE
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    98
    ^ A_VOLATILE
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
    99
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
   100
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   101
! !
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   102
27
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   103
!JavaField methodsFor:'accessing'!
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   104
59
38114c3e3e77 checkin from browser
cg
parents: 52
diff changeset
   105
constantValue
38114c3e3e77 checkin from browser
cg
parents: 52
diff changeset
   106
    ^ constantValue
38114c3e3e77 checkin from browser
cg
parents: 52
diff changeset
   107
!
38114c3e3e77 checkin from browser
cg
parents: 52
diff changeset
   108
38114c3e3e77 checkin from browser
cg
parents: 52
diff changeset
   109
constantValue:aValue
38114c3e3e77 checkin from browser
cg
parents: 52
diff changeset
   110
    constantValue := aValue
38114c3e3e77 checkin from browser
cg
parents: 52
diff changeset
   111
!
38114c3e3e77 checkin from browser
cg
parents: 52
diff changeset
   112
27
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   113
name
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   114
    ^ name
376
ffd6472dbf91 *** empty log message ***
cg
parents: 354
diff changeset
   115
!
ffd6472dbf91 *** empty log message ***
cg
parents: 354
diff changeset
   116
ffd6472dbf91 *** empty log message ***
cg
parents: 354
diff changeset
   117
signature
ffd6472dbf91 *** empty log message ***
cg
parents: 354
diff changeset
   118
    ^ signature
ffd6472dbf91 *** empty log message ***
cg
parents: 354
diff changeset
   119
ffd6472dbf91 *** empty log message ***
cg
parents: 354
diff changeset
   120
    "Created: / 15.10.1998 / 10:37:06 / cg"
27
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   121
! !
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   122
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   123
!JavaField methodsFor:'printing & storing'!
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   124
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   125
displayString
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   126
    ^ self class name , '(name: ' , name displayString , ')'
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   127
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   128
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   129
! !
4560bb77bb36 checkin from browser
cg
parents: 13
diff changeset
   130
6
b23a6474754f intitial checkin
cg
parents:
diff changeset
   131
!JavaField methodsFor:'private accessing'!
b23a6474754f intitial checkin
cg
parents:
diff changeset
   132
b23a6474754f intitial checkin
cg
parents:
diff changeset
   133
setAccessFlags:flags
b23a6474754f intitial checkin
cg
parents:
diff changeset
   134
    accessFlags := flags.
b23a6474754f intitial checkin
cg
parents:
diff changeset
   135
b23a6474754f intitial checkin
cg
parents:
diff changeset
   136
    "Created: 16.4.1996 / 13:04:25 / cg"
b23a6474754f intitial checkin
cg
parents:
diff changeset
   137
!
b23a6474754f intitial checkin
cg
parents:
diff changeset
   138
b23a6474754f intitial checkin
cg
parents:
diff changeset
   139
setConstantValue:something
b23a6474754f intitial checkin
cg
parents:
diff changeset
   140
    constantValue := something.
b23a6474754f intitial checkin
cg
parents:
diff changeset
   141
b23a6474754f intitial checkin
cg
parents:
diff changeset
   142
    "Created: 16.4.1996 / 13:04:58 / cg"
b23a6474754f intitial checkin
cg
parents:
diff changeset
   143
!
b23a6474754f intitial checkin
cg
parents:
diff changeset
   144
b23a6474754f intitial checkin
cg
parents:
diff changeset
   145
setName:aString
b23a6474754f intitial checkin
cg
parents:
diff changeset
   146
    name := aString.
b23a6474754f intitial checkin
cg
parents:
diff changeset
   147
b23a6474754f intitial checkin
cg
parents:
diff changeset
   148
    "Created: 16.4.1996 / 13:04:35 / cg"
b23a6474754f intitial checkin
cg
parents:
diff changeset
   149
!
b23a6474754f intitial checkin
cg
parents:
diff changeset
   150
b23a6474754f intitial checkin
cg
parents:
diff changeset
   151
setSignature:aString
b23a6474754f intitial checkin
cg
parents:
diff changeset
   152
    signature := aString.
b23a6474754f intitial checkin
cg
parents:
diff changeset
   153
b23a6474754f intitial checkin
cg
parents:
diff changeset
   154
    "Created: 16.4.1996 / 13:04:43 / cg"
b23a6474754f intitial checkin
cg
parents:
diff changeset
   155
! !
b23a6474754f intitial checkin
cg
parents:
diff changeset
   156
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   157
!JavaField methodsFor:'queries'!
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   158
52
1dc41619b6f8 checkin from browser
cg
parents: 35
diff changeset
   159
initialValue
1dc41619b6f8 checkin from browser
cg
parents: 35
diff changeset
   160
    ^ JavaClass initialValueFromSignature:signature
1dc41619b6f8 checkin from browser
cg
parents: 35
diff changeset
   161
1dc41619b6f8 checkin from browser
cg
parents: 35
diff changeset
   162
1dc41619b6f8 checkin from browser
cg
parents: 35
diff changeset
   163
!
1dc41619b6f8 checkin from browser
cg
parents: 35
diff changeset
   164
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   165
isFinal
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   166
    ^ (accessFlags bitAnd:A_FINAL) ~~ 0
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   167
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   168
    "Modified: / 13.5.1998 / 12:59:26 / cg"
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   169
!
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   170
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   171
isPrivate
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   172
    ^ (accessFlags bitAnd:A_PRIVATE) ~~ 0
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   173
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   174
    "Modified: / 13.5.1998 / 12:59:30 / cg"
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   175
!
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   176
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   177
isProtected
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   178
    ^ (accessFlags bitAnd:A_PROTECTED) ~~ 0
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   179
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   180
    "Modified: / 13.5.1998 / 12:59:35 / cg"
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   181
!
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   182
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   183
isPublic
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   184
    ^ (accessFlags bitAnd:A_PUBLIC) ~~ 0
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   185
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   186
    "Modified: / 13.5.1998 / 12:59:40 / cg"
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   187
!
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   188
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   189
isStatic
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   190
    ^ (accessFlags bitAnd:A_STATIC) ~~ 0
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   191
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   192
    "Modified: / 13.5.1998 / 12:59:43 / cg"
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   193
!
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   194
83
2d61ef3579e4 *** empty log message ***
cg
parents: 59
diff changeset
   195
isTransient
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   196
    ^ (accessFlags bitAnd:A_TRANSIENT) ~~ 0
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   197
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   198
    "Modified: / 13.5.1998 / 12:59:51 / cg"
83
2d61ef3579e4 *** empty log message ***
cg
parents: 59
diff changeset
   199
!
2d61ef3579e4 *** empty log message ***
cg
parents: 59
diff changeset
   200
2d61ef3579e4 *** empty log message ***
cg
parents: 59
diff changeset
   201
isVolatile
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   202
    ^ (accessFlags bitAnd:A_VOLATILE) ~~ 0
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   203
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   204
    "Modified: / 13.5.1998 / 12:59:56 / cg"
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   205
!
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   206
83
2d61ef3579e4 *** empty log message ***
cg
parents: 59
diff changeset
   207
type
255
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
   208
    ^ JavaMethod typeFromSignature:signature in:nil
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
   209
2d8b3948a08a *** empty log message ***
cg
parents: 135
diff changeset
   210
    "Modified: / 8.1.1998 / 19:13:22 / cg"
35
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   211
! !
040fd1fca7ec checkin from browser
cg
parents: 27
diff changeset
   212
135
098936234135 *** empty log message ***
cg
parents: 83
diff changeset
   213
!JavaField class methodsFor:'documentation'!
6
b23a6474754f intitial checkin
cg
parents:
diff changeset
   214
b23a6474754f intitial checkin
cg
parents:
diff changeset
   215
version
593
8e713803c6e6 checkin from browser
cg
parents: 454
diff changeset
   216
    ^ '$Header: /home/jv/Projects/SmalltalkX/repositories/cvs/stx/libjava/JavaField.st,v 1.15 1999/08/20 17:22:29 cg Exp $'
6
b23a6474754f intitial checkin
cg
parents:
diff changeset
   217
! !
354
320707c9d7fe checkin from browser
cg
parents: 264
diff changeset
   218
JavaField initialize!