JavaArrayMirror.st
author Claus Gittinger <cg@exept.de>
Wed, 26 Jun 2019 22:06:15 +0200
branchcvs_MAIN
changeset 3917 94088b7097d5
parent 3521 9e0b0a92d799
permissions -rw-r--r--
#OTHER by cg +bracketStrings
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2966
diff changeset
     2
 COPYRIGHT (c) 1996-2015 by Claus Gittinger
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
 New code and modifications done at SWING Research Group [1]:
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2966
diff changeset
     6
 COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
                            SWING Research Group, Czech Technical University in Prague
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
 This software is furnished under a license and may be used
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
 only in accordance with the terms of that license and with the
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
 inclusion of the above copyright notice.   This software may not
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
 be provided or otherwise made available to, or used by, any
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
 other person.  No title to or ownership of the software is
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
 hereby transferred.
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
 [1] Code written at SWING Research Group contains a signature
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
     of one of the above copright owners. For exact set of such code,
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
     see the differences between this version and version stx:libjava
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
     as of 1.9.2010
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
"{ Package: 'stx:libjava' }"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
3521
9e0b0a92d799 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
    23
"{ NameSpace: Smalltalk }"
9e0b0a92d799 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
    24
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
JavaMirror subclass:#JavaArrayMirror
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
	instanceVariableNames:''
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
	classVariableNames:''
2625
a91a1db9718e Make JavaMirror to access classes through pool vars.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2624
diff changeset
    28
	poolDictionaries:'JavaVMData'
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
	category:'Languages-Java-Classes'
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
!JavaArrayMirror class methodsFor:'documentation'!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
copyright
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
"
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2966
diff changeset
    36
 COPYRIGHT (c) 1996-2015 by Claus Gittinger
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
 New code and modifications done at SWING Research Group [1]:
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2966
diff changeset
    40
 COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
                            SWING Research Group, Czech Technical University in Prague
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
 This software is furnished under a license and may be used
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
 only in accordance with the terms of that license and with the
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
 inclusion of the above copyright notice.   This software may not
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
 be provided or otherwise made available to, or used by, any
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
 other person.  No title to or ownership of the software is
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
 hereby transferred.
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    50
 [1] Code written at SWING Research Group contains a signature
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
     of one of the above copright owners. For exact set of such code,
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
     see the differences between this version and version stx:libjava
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
     as of 1.9.2010
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    54
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
! !
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    57
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    58
!JavaArrayMirror methodsFor:'accessing'!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
getClassLoader
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
    "Returns a class loader that loaded this class"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
    ^ klass javaComponentClass javaMirror getClassLoader
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
    "Modified: / 31-07-2012 / 18:35:16 / Jan Vrany <jan.vrany@fit.cvut.cz>"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
getDeclaredConstructors:publicOnly
2966
afd174546057 Post-merge fixes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2625
diff changeset
    69
    "Returns an java.lang.reflect.Constructor[] with all constructors
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    70
     declared by this class"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
2966
afd174546057 Post-merge fixes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2625
diff changeset
    72
    ^ _java_lang_reflect_Constructor_CLASS javaArrayClass new:0.
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    73
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    74
    "Modified: / 18-05-2013 / 10:57:30 / Jan Vrany <jan.vrany@fit.cvut.cz>"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    75
!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    76
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    77
getDeclaredFields:publicOnly
2966
afd174546057 Post-merge fixes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2625
diff changeset
    78
    "Returns an java.lang.reflect.Field[] with all constructors
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
     declared by this class."
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
2966
afd174546057 Post-merge fixes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2625
diff changeset
    81
    ^_java_lang_reflect_Field_CLASS javaArrayClass new:0.
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    82
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    83
    "Modified: / 18-05-2013 / 10:57:37 / Jan Vrany <jan.vrany@fit.cvut.cz>"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    84
!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    85
2966
afd174546057 Post-merge fixes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2625
diff changeset
    86
getDeclaredMethods:publicOnly
afd174546057 Post-merge fixes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2625
diff changeset
    87
    "Returns an java.lang.reflect.Method[] with all methods
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    88
     declared by this class"
2966
afd174546057 Post-merge fixes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2625
diff changeset
    89
afd174546057 Post-merge fixes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2625
diff changeset
    90
    ^ _java_lang_reflect_Method_CLASS javaArrayClass new:0.
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    91
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    92
    "Modified: / 18-05-2013 / 10:57:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    93
!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    94
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    95
getInterfaces
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    96
    "Return a list if interfaces"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    97
2966
afd174546057 Post-merge fixes.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2625
diff changeset
    98
    ^ Array
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    99
        with: (JavaVM classForName: 'java.lang.Cloneable' definedBy: nil)
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   100
        with: (JavaVM classForName: 'java.io.Serializable' definedBy: nil)
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   101
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   102
    "Modified: / 18-05-2013 / 10:57:45 / Jan Vrany <jan.vrany@fit.cvut.cz>"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   103
!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   104
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   105
getModifiers
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   106
    "Return class modifiers (public/abstract/final...)"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   107
3521
9e0b0a92d799 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   108
    ^ (JavaConstants ACC_ABSTRACT bitOr: JavaConstants ACC_FINAL) bitOr: JavaConstants ACC_PUBLIC
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   109
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   110
    "Modified: / 22-08-2012 / 11:02:18 / Jan Vrany <jan.vrany@fit.cvut.cz>"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   111
! !
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   112
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   113
!JavaArrayMirror class methodsFor:'documentation'!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   114
3521
9e0b0a92d799 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   115
version
9e0b0a92d799 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   116
    ^ '$Header$'
9e0b0a92d799 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   117
!
9e0b0a92d799 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   118
9e0b0a92d799 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   119
version_CVS
9e0b0a92d799 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   120
    ^ '$Header$'
9e0b0a92d799 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   121
!
9e0b0a92d799 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   122
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   123
version_HG
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   124
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   125
    ^ '$Changeset: <not expanded> $'
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   126
! !
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   127