author | cjplummer |
Sat, 06 May 2017 00:05:32 +0000 | |
changeset 46439 | 6de560f6c1ad |
parent 41842 | 50202a344d28 |
permissions | -rw-r--r-- |
34455
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
1 |
/* |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
2 |
* Copyright (c) 2015, Oracle and/or its affiliates. All rights reserved. |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
3 |
* |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
4 |
* Redistribution and use in source and binary forms, with or without |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
5 |
* modification, are permitted provided that the following conditions |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
6 |
* are met: |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
7 |
* |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
8 |
* - Redistributions of source code must retain the above copyright |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
9 |
* notice, this list of conditions and the following disclaimer. |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
10 |
* |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
11 |
* - Redistributions in binary form must reproduce the above copyright |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
12 |
* notice, this list of conditions and the following disclaimer in the |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
13 |
* documentation and/or other materials provided with the distribution. |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
14 |
* |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
15 |
* - Neither the name of Oracle nor the names of its |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
16 |
* contributors may be used to endorse or promote products derived |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
17 |
* from this software without specific prior written permission. |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
18 |
* |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
19 |
* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
20 |
* IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
21 |
* THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
22 |
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
23 |
* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
24 |
* EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
25 |
* PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
26 |
* PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
27 |
* LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
28 |
* NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
29 |
* SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
30 |
*/ |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
31 |
|
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
32 |
import java.util.ArrayList; |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
33 |
import java.util.List; |
41422 | 34 |
import java.util.regex.Matcher; |
34455
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
35 |
import java.util.regex.Pattern; |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
36 |
import jdk.dynalink.CallSiteDescriptor; |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
37 |
import jdk.dynalink.NamedOperation; |
41842
50202a344d28
8168005: Introduce namespaces for GET, SET Dynalink operations
attila
parents:
41422
diff
changeset
|
38 |
import jdk.dynalink.NamespaceOperation; |
34455
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
39 |
import jdk.dynalink.Operation; |
41842
50202a344d28
8168005: Introduce namespaces for GET, SET Dynalink operations
attila
parents:
41422
diff
changeset
|
40 |
import jdk.dynalink.StandardNamespace; |
34455
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
41 |
import jdk.dynalink.StandardOperation; |
41422 | 42 |
import jdk.dynalink.linker.GuardedInvocation; |
34455
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
43 |
import jdk.dynalink.linker.GuardingDynamicLinker; |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
44 |
import jdk.dynalink.linker.GuardingDynamicLinkerExporter; |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
45 |
import jdk.dynalink.linker.LinkRequest; |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
46 |
import jdk.dynalink.linker.LinkerServices; |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
47 |
import jdk.dynalink.linker.support.SimpleLinkRequest; |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
48 |
|
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
49 |
/** |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
50 |
* This is a dynalink pluggable linker (see http://openjdk.java.net/jeps/276). |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
51 |
* This linker translater underscore_separated method names to CamelCase names |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
52 |
* used in Java APIs. |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
53 |
*/ |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
54 |
public final class UnderscoreNameLinkerExporter extends GuardingDynamicLinkerExporter { |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
55 |
static { |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
56 |
System.out.println("pluggable dynalink underscore name linker loaded"); |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
57 |
} |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
58 |
|
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
59 |
private static final Pattern UNDERSCORE_NAME = Pattern.compile("_(.)"); |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
60 |
|
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
61 |
// translate underscore_separated name as a CamelCase name |
41422 | 62 |
private static String translateToCamelCase(final String name) { |
63 |
final Matcher m = UNDERSCORE_NAME.matcher(name); |
|
64 |
final StringBuilder buf = new StringBuilder(); |
|
34455
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
65 |
while (m.find()) { |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
66 |
m.appendReplacement(buf, m.group(1).toUpperCase()); |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
67 |
} |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
68 |
m.appendTail(buf); |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
69 |
return buf.toString(); |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
70 |
} |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
71 |
|
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
72 |
@Override |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
73 |
public List<GuardingDynamicLinker> get() { |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
74 |
final ArrayList<GuardingDynamicLinker> linkers = new ArrayList<>(); |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
75 |
linkers.add(new GuardingDynamicLinker() { |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
76 |
@Override |
41422 | 77 |
public GuardedInvocation getGuardedInvocation(final LinkRequest request, |
78 |
final LinkerServices linkerServices) throws Exception { |
|
79 |
final CallSiteDescriptor desc = request.getCallSiteDescriptor(); |
|
80 |
final Operation op = desc.getOperation(); |
|
81 |
final Object name = NamedOperation.getName(op); |
|
41842
50202a344d28
8168005: Introduce namespaces for GET, SET Dynalink operations
attila
parents:
41422
diff
changeset
|
82 |
final Operation namespaceOp = NamedOperation.getBaseOperation(op); |
34455
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
83 |
// is this a named GET_METHOD? |
41842
50202a344d28
8168005: Introduce namespaces for GET, SET Dynalink operations
attila
parents:
41422
diff
changeset
|
84 |
final boolean isGetMethod = |
50202a344d28
8168005: Introduce namespaces for GET, SET Dynalink operations
attila
parents:
41422
diff
changeset
|
85 |
NamespaceOperation.getBaseOperation(namespaceOp) == StandardOperation.GET |
50202a344d28
8168005: Introduce namespaces for GET, SET Dynalink operations
attila
parents:
41422
diff
changeset
|
86 |
&& StandardNamespace.findFirst(namespaceOp) == StandardNamespace.METHOD; |
34455
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
87 |
if (isGetMethod && name instanceof String) { |
41422 | 88 |
final String str = (String)name; |
34455
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
89 |
if (str.indexOf('_') == -1) { |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
90 |
return null; |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
91 |
} |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
92 |
|
41422 | 93 |
final String nameStr = translateToCamelCase(str); |
34455
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
94 |
// create a new call descriptor to use translated name |
41842
50202a344d28
8168005: Introduce namespaces for GET, SET Dynalink operations
attila
parents:
41422
diff
changeset
|
95 |
final CallSiteDescriptor newDesc = desc.changeOperation(((NamedOperation)op).changeName(nameStr)); |
34455
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
96 |
// create a new Link request to link the call site with translated name |
41842
50202a344d28
8168005: Introduce namespaces for GET, SET Dynalink operations
attila
parents:
41422
diff
changeset
|
97 |
final LinkRequest newRequest = request.replaceArguments(newDesc, request.getArguments()); |
34455
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
98 |
// return guarded invocation linking the translated request |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
99 |
return linkerServices.getGuardedInvocation(newRequest); |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
100 |
} |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
101 |
|
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
102 |
return null; |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
103 |
} |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
104 |
}); |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
105 |
return linkers; |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
106 |
} |
cc9f05d3caf0
8144473: Nashorn code assumes NashornCallSiteDescriptor always
sundar
parents:
diff
changeset
|
107 |
} |