JavaMethodHandle2.st
author Claus Gittinger <cg@exept.de>
Sun, 23 Feb 2020 14:03:15 +0100
branchcvs_MAIN
changeset 3997 5bb44f7e1d20
parent 3749 6e7cdef5ceb7
permissions -rw-r--r--
#REFACTORING by exept class: Java class changed: #dumpConfigOn:
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
3106
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     1
"
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3106
diff changeset
     2
 COPYRIGHT (c) 1996-2015 by Claus Gittinger
3106
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
 New code and modifications done at SWING Research Group [1]:
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3106
diff changeset
     6
 COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
3106
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
                            SWING Research Group, Czech Technical University in Prague
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
 This software is furnished under a license and may be used
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
 only in accordance with the terms of that license and with the
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
 inclusion of the above copyright notice.   This software may not
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
 be provided or otherwise made available to, or used by, any
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
 other person.  No title to or ownership of the software is
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
 hereby transferred.
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
 [1] Code written at SWING Research Group contains a signature
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
     of one of the above copright owners. For exact set of such code,
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
     see the differences between this version and version stx:libjava
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
     as of 1.9.2010
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
"
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
"{ Package: 'stx:libjava' }"
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
3749
6e7cdef5ceb7 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
    23
"{ NameSpace: Smalltalk }"
6e7cdef5ceb7 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
    24
3106
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
JavaRef2 subclass:#JavaMethodHandle2
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
	instanceVariableNames:'referenceKind referenceIndex'
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
	classVariableNames:''
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
	poolDictionaries:''
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
	category:'Languages-Java-Reader-Support-new'
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
!
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
!JavaMethodHandle2 class methodsFor:'documentation'!
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
copyright
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
"
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3106
diff changeset
    36
 COPYRIGHT (c) 1996-2015 by Claus Gittinger
3106
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    38
 New code and modifications done at SWING Research Group [1]:
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    39
3324
a58245c0e83a Updated copyright notices.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 3106
diff changeset
    40
 COPYRIGHT (c) 2010-2015 by Jan Vrany, Jan Kurs and Marcel Hlopko
3106
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
                            SWING Research Group, Czech Technical University in Prague
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    42
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
 This software is furnished under a license and may be used
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
 only in accordance with the terms of that license and with the
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
 inclusion of the above copyright notice.   This software may not
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
 be provided or otherwise made available to, or used by, any
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
 other person.  No title to or ownership of the software is
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
 hereby transferred.
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    50
 [1] Code written at SWING Research Group contains a signature
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
     of one of the above copright owners. For exact set of such code,
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
     see the differences between this version and version stx:libjava
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
     as of 1.9.2010
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    54
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
"
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
! !
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    57
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    58
!JavaMethodHandle2 class methodsFor:'instance creation'!
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
in:constantPool kind:refType index:refIndex 
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
    ^ (self basicNew)
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
        constantPool:constantPool;
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
        referenceKind:refType;
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
        referenceIndex:refIndex;
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
        yourself
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    67
    "Created: / 20-05-2014 / 17:29:59 / Jan Vrany <jan.vrany@fit.cvut.cz>"
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    68
! !
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    69
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    70
!JavaMethodHandle2 methodsFor:'accessing'!
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    71
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    72
referenceIndex
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    73
    ^ referenceIndex
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    74
!
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    75
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    76
referenceIndex:something
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    77
    referenceIndex := something.
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    78
!
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
referenceKind
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
    ^ referenceKind
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    82
!
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    83
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    84
referenceKind:something
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    85
    referenceKind := something.
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    86
! !
e53888146940 Added support for new constants used bu JSR 272 Invoke dynamic.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    87
3749
6e7cdef5ceb7 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
    88
!JavaMethodHandle2 class methodsFor:'documentation'!
6e7cdef5ceb7 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
    89
6e7cdef5ceb7 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
    90
version_CVS
6e7cdef5ceb7 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
    91
    ^ '$Header$'
6e7cdef5ceb7 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
    92
! !
6e7cdef5ceb7 #OTHER by cg
Claus Gittinger <cg@exept.de>
parents: 3324
diff changeset
    93