JavaPrimitiveMirror.st
author Claus Gittinger <cg@exept.de>
Sun, 23 Feb 2020 14:03:15 +0100
branchcvs_MAIN
changeset 3997 5bb44f7e1d20
parent 3517 c541d49ddaa5
permissions -rw-r--r--
#REFACTORING by exept class: Java class changed: #dumpConfigOn:
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
3517
c541d49ddaa5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
    23
"{ NameSpace: Smalltalk }"
c541d49ddaa5 #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:#JavaPrimitiveMirror
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
!JavaPrimitiveMirror 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
!JavaPrimitiveMirror 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
    ^ nil
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:33 / 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:56 / 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:58:00 / 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:58:03 / 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
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    98
    ^ #()
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: / 22-08-2012 / 11:07:42 / 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
3517
c541d49ddaa5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   106
    ^ (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
   107
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   108
    "Modified: / 22-08-2012 / 11:02:26 / 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
!JavaPrimitiveMirror class methodsFor:'documentation'!
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   112
3517
c541d49ddaa5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   113
version
c541d49ddaa5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   114
    ^ '$Header$'
c541d49ddaa5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   115
!
c541d49ddaa5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   116
c541d49ddaa5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   117
version_CVS
c541d49ddaa5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   118
    ^ '$Header$'
c541d49ddaa5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   119
!
c541d49ddaa5 #REFACTORING
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
   120
2624
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   121
version_HG
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   122
44507f0c37aa Make mirror classes public
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   123
    ^ '$Changeset: <not expanded> $'
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