JavaArrayMirror.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 24 May 2013 17:55:42 +0100
branchbuiltin-class-support
changeset 2629 cedb88626902
parent 2625 a91a1db9718e
child 2966 afd174546057
permissions -rw-r--r--
Closing branch.
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
"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
 COPYRIGHT (c) 1996-2011 by Claus Gittinger
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
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
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
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
JavaMirror subclass:#JavaArrayMirror
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
	instanceVariableNames:''
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
	classVariableNames:''
2625
a91a1db9718e Make JavaMirror to access classes through pool vars.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2624
diff changeset
    26
	poolDictionaries:'JavaVMData'
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
	category:'Languages-Java-Classes'
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
!JavaArrayMirror class methodsFor:'documentation'!
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
copyright
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 (c) 1996-2011 by Claus Gittinger
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
 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
    37
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
 COPYRIGHT (c) 2010-2011 by Jan Vrany, Jan Kurs and Marcel Hlopko
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
                            SWING Research Group, Czech Technical University in Prague
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
 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
    42
 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
    43
 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
    44
 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
    45
 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
    46
 hereby transferred.
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
 [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
    49
     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
    50
     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
    51
     as of 1.9.2010
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
"
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
!JavaArrayMirror methodsFor:'accessing'!
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
getClassLoader
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
    "Returns a class loader that loaded this class"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
    ^ klass javaComponentClass javaMirror getClassLoader
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
    "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
    64
!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
getDeclaredConstructors:publicOnly
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
    "Returns an java.lang.reflect.Constructor[] with all constructors 
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
     declared by this class"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    69
2625
a91a1db9718e Make JavaMirror to access classes through pool vars.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2624
diff changeset
    70
    ^ java_lang_reflect_Constructor javaArrayClass new:0.
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    72
    "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
    73
!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    74
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    75
getDeclaredFields:publicOnly
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    76
    "Returns an java.lang.reflect.Field[] with all constructors 
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    77
     declared by this class."
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    78
2625
a91a1db9718e Make JavaMirror to access classes through pool vars.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2624
diff changeset
    79
    ^java_lang_reflect_Field javaArrayClass new:0.
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
    "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
    82
!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    83
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    84
getDeclaredMethods:publicOnly 
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    85
    "Returns an java.lang.reflect.Method[] with all methods 
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    86
     declared by this class"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    87
    
2625
a91a1db9718e Make JavaMirror to access classes through pool vars.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2624
diff changeset
    88
    ^ java_lang_reflect_Method javaArrayClass new:0.
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    89
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    90
    "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
    91
!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    92
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    93
getInterfaces
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    94
    "Return a list if interfaces"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    95
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    96
    ^ Array 
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    97
        with: (JavaVM classForName: 'java.lang.Cloneable' definedBy: nil)
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    98
        with: (JavaVM classForName: 'java.io.Serializable' definedBy: nil)
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    99
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   100
    "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
   101
!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   102
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   103
getModifiers
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   104
    "Return class modifiers (public/abstract/final...)"
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   105
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   106
    ^ JavaConstants ACC_ABSTRACT | JavaConstants ACC_FINAL | JavaConstants ACC_PUBLIC
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   107
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   108
    "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
   109
! !
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   110
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   111
!JavaArrayMirror class methodsFor:'documentation'!
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
version_HG
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   114
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   115
    ^ '$Changeset: <not expanded> $'
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   116
! !
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   117