org.pkl.thirdparty.truffle.host.GuestToHostCodeCache Maven / Gradle / Ivy
Go to download
Show more of this group Show more artifacts with this name
Show all versions of pkl-tools Show documentation
Show all versions of pkl-tools Show documentation
Fat Jar containing pkl-cli, pkl-codegen-java, pkl-codegen-kotlin, pkl-config-java, pkl-core, pkl-doc, and their shaded third-party dependencies.
/*
* Copyright (c) 2020, 2021, Oracle and/or its affiliates. All rights reserved.
* DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
*
* The Universal Permissive License (UPL), Version 1.0
*
* Subject to the condition set forth below, permission is hereby granted to any
* person obtaining a copy of this software, associated documentation and/or
* data (collectively the "Software"), free of charge and under any and all
* copyright rights in the Software, and any and all patent rights owned or
* freely licensable by each licensor hereunder covering either (i) the
* unmodified Software as contributed to or provided by such licensor, or (ii)
* the Larger Works (as defined below), to deal in both
*
* (a) the Software, and
*
* (b) any piece of software and/or hardware listed in the lrgrwrks.txt file if
* one is included with the Software each a "Larger Work" to which the Software
* is contributed by such licensors),
*
* without restriction, including without limitation the rights to copy, create
* derivative works of, display, perform, and distribute the Software and make,
* use, sell, offer for sale, import, export, have made, and have sold the
* Software and the Larger Work(s), and to sublicense the foregoing rights on
* either these or other terms.
*
* This license is subject to the following condition:
*
* The above copyright notice and either this complete permission notice or at a
* minimum a reference to the UPL must be included in all copies or substantial
* portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
* FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
* OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
* SOFTWARE.
*/
package org.pkl.thirdparty.truffle.host;
import java.lang.invoke.MethodHandle;
import java.time.Duration;
import java.time.Instant;
import java.time.LocalDate;
import java.time.LocalTime;
import java.time.ZoneId;
import java.util.NoSuchElementException;
import org.pkl.thirdparty.graalvm.polyglot.Value;
import org.pkl.thirdparty.graalvm.polyglot.proxy.ProxyArray;
import org.pkl.thirdparty.graalvm.polyglot.proxy.ProxyDate;
import org.pkl.thirdparty.graalvm.polyglot.proxy.ProxyDuration;
import org.pkl.thirdparty.graalvm.polyglot.proxy.ProxyExecutable;
import org.pkl.thirdparty.graalvm.polyglot.proxy.ProxyHashMap;
import org.pkl.thirdparty.graalvm.polyglot.proxy.ProxyInstant;
import org.pkl.thirdparty.graalvm.polyglot.proxy.ProxyInstantiable;
import org.pkl.thirdparty.graalvm.polyglot.proxy.ProxyIterable;
import org.pkl.thirdparty.graalvm.polyglot.proxy.ProxyIterator;
import org.pkl.thirdparty.graalvm.polyglot.proxy.ProxyNativeObject;
import org.pkl.thirdparty.graalvm.polyglot.proxy.ProxyObject;
import org.pkl.thirdparty.graalvm.polyglot.proxy.ProxyTime;
import org.pkl.thirdparty.graalvm.polyglot.proxy.ProxyTimeZone;
import org.pkl.thirdparty.truffle.api.CallTarget;
import org.pkl.thirdparty.truffle.api.CompilerDirectives;
import org.pkl.thirdparty.truffle.api.CompilerDirectives.TruffleBoundary;
import org.pkl.thirdparty.truffle.api.TruffleOptions;
import org.pkl.thirdparty.truffle.api.interop.InteropException;
import org.pkl.thirdparty.truffle.api.interop.InvalidArrayIndexException;
import org.pkl.thirdparty.truffle.api.interop.StopIterationException;
import org.pkl.thirdparty.truffle.api.interop.UnsupportedMessageException;
import org.pkl.thirdparty.truffle.host.HostMethodDesc.SingleMethod;
import org.pkl.thirdparty.truffle.host.HostMethodDesc.SingleMethod.MHBase;
final class GuestToHostCodeCache {
final HostLanguage language;
GuestToHostCodeCache(HostLanguage language) {
this.language = language;
}
final CallTarget methodHandleHostInvoke = new GuestToHostRootNode(HostObject.class, "doInvoke") {
@Override
protected Object executeImpl(Object receiver, Object[] callArguments) {
if (TruffleOptions.AOT) {
throw CompilerDirectives.shouldNotReachHere("MHBase.invokeHandle can only be used in non AOT mode.");
}
MethodHandle methodHandle = (MethodHandle) callArguments[ARGUMENT_OFFSET];
Object[] arguments = (Object[]) callArguments[ARGUMENT_OFFSET + 1];
Object ret;
try {
ret = MHBase.invokeHandle(methodHandle, receiver, arguments);
} catch (Throwable e) {
throw HostInteropReflect.rethrow(e);
}
return ret;
}
}.getCallTarget();
final CallTarget reflectionHostInvoke = new GuestToHostRootNode(HostObject.class, "doInvoke") {
@Override
protected Object executeImpl(Object obj, Object[] callArguments) {
SingleMethod.ReflectBase method = (SingleMethod.ReflectBase) callArguments[ARGUMENT_OFFSET];
Object[] arguments = (Object[]) callArguments[ARGUMENT_OFFSET + 1];
Object ret;
try {
ret = method.invoke(obj, arguments);
} catch (Throwable e) {
throw HostInteropReflect.rethrow(e);
}
return ret;
}
}.getCallTarget();
final CallTarget execute = new GuestToHostRootNode(ProxyExecutable.class, "execute") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) throws UnsupportedMessageException {
try {
return ((ProxyExecutable) proxy).execute((Value[]) arguments[ARGUMENT_OFFSET]);
} catch (UnsupportedOperationException e) {
throw UnsupportedMessageException.create();
}
}
}.getCallTarget();
final CallTarget asPointer = new GuestToHostRootNode(ProxyNativeObject.class, "asPointer") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) {
return ((ProxyNativeObject) proxy).asPointer();
}
}.getCallTarget();
final CallTarget instantiate = new GuestToHostRootNode(ProxyInstantiable.class, "newInstance") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) throws UnsupportedMessageException {
try {
return ((ProxyInstantiable) proxy).newInstance((Value[]) arguments[ARGUMENT_OFFSET]);
} catch (UnsupportedOperationException e) {
throw UnsupportedMessageException.create();
}
}
}.getCallTarget();
final CallTarget arrayGet = new GuestToHostRootNode(ProxyArray.class, "get") {
@Override
protected Object executeImpl(Object proxy, Object[] arguments) throws InvalidArrayIndexException, UnsupportedMessageException {
long index = (long) arguments[ARGUMENT_OFFSET];
try {
return boundaryGet((ProxyArray) proxy, index);
} catch (ArrayIndexOutOfBoundsException e) {
throw InvalidArrayIndexException.create(index);
} catch (UnsupportedOperationException e) {
throw UnsupportedMessageException.create();
}
}
@TruffleBoundary
private Object boundaryGet(ProxyArray proxy, long index) {
return proxy.get(index);
}
}.getCallTarget();
final CallTarget arraySet = new GuestToHostRootNode(ProxyArray.class, "set") {
@Override
protected Object executeImpl(Object proxy, Object[] arguments) throws InvalidArrayIndexException, UnsupportedMessageException {
long index = (long) arguments[ARGUMENT_OFFSET];
try {
boundarySet((ProxyArray) proxy, index, (Value) arguments[ARGUMENT_OFFSET + 1]);
} catch (ArrayIndexOutOfBoundsException e) {
throw InvalidArrayIndexException.create(index);
} catch (UnsupportedOperationException e) {
throw UnsupportedMessageException.create();
}
return null;
}
@TruffleBoundary
private void boundarySet(ProxyArray proxy, long index, Value value) {
proxy.set(index, value);
}
}.getCallTarget();
final CallTarget arrayRemove = new GuestToHostRootNode(ProxyArray.class, "remove") {
@Override
protected Object executeImpl(Object proxy, Object[] arguments) throws InvalidArrayIndexException, UnsupportedMessageException {
long index = (long) arguments[ARGUMENT_OFFSET];
try {
return boundaryRemove((ProxyArray) proxy, index);
} catch (ArrayIndexOutOfBoundsException e) {
throw InvalidArrayIndexException.create(index);
} catch (UnsupportedOperationException e) {
throw UnsupportedMessageException.create();
}
}
@TruffleBoundary
private boolean boundaryRemove(ProxyArray proxy, long index) {
return proxy.remove(index);
}
}.getCallTarget();
final CallTarget arraySize = new GuestToHostRootNode(ProxyArray.class, "getSize") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) {
return ((ProxyArray) proxy).getSize();
}
}.getCallTarget();
final CallTarget memberKeys = new GuestToHostRootNode(ProxyObject.class, "getMemberKeys") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) {
return ((ProxyObject) proxy).getMemberKeys();
}
}.getCallTarget();
final CallTarget getMember = new GuestToHostRootNode(ProxyObject.class, "getMember") {
@Override
protected Object executeImpl(Object proxy, Object[] arguments) throws UnsupportedMessageException {
try {
return boundaryGetMember((ProxyObject) proxy, (String) arguments[ARGUMENT_OFFSET]);
} catch (UnsupportedOperationException e) {
throw UnsupportedMessageException.create();
}
}
@TruffleBoundary
private Object boundaryGetMember(ProxyObject proxy, String argument) {
return proxy.getMember(argument);
}
}.getCallTarget();
final CallTarget putMember = new GuestToHostRootNode(ProxyObject.class, "putMember") {
@Override
protected Object executeImpl(Object proxy, Object[] arguments) throws UnsupportedMessageException {
try {
boundaryPutMember((ProxyObject) proxy, (String) arguments[ARGUMENT_OFFSET], (Value) arguments[ARGUMENT_OFFSET + 1]);
} catch (UnsupportedOperationException e) {
throw UnsupportedMessageException.create();
}
return null;
}
@TruffleBoundary
private void boundaryPutMember(ProxyObject proxy, String member, Value value) {
proxy.putMember(member, value);
}
}.getCallTarget();
final CallTarget removeMember = new GuestToHostRootNode(ProxyObject.class, "removeMember") {
@Override
protected Object executeImpl(Object proxy, Object[] arguments) throws UnsupportedMessageException {
try {
return removeBoundary((ProxyObject) proxy, (String) arguments[ARGUMENT_OFFSET]);
} catch (UnsupportedOperationException e) {
throw UnsupportedMessageException.create();
}
}
@TruffleBoundary
private boolean removeBoundary(ProxyObject proxy, String member) {
return proxy.removeMember(member);
}
}.getCallTarget();
final CallTarget hasMember = new GuestToHostRootNode(ProxyObject.class, "hasMember") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) {
return ((ProxyObject) proxy).hasMember((String) arguments[ARGUMENT_OFFSET]);
}
}.getCallTarget();
final CallTarget asTimezone = new GuestToHostRootNode(ProxyTimeZone.class, "asTimeZone") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) {
ZoneId zone = ((ProxyTimeZone) proxy).asTimeZone();
if (zone == null) {
throw CompilerDirectives.shouldNotReachHere("The returned zone must not be null.");
}
return zone;
}
}.getCallTarget();
final CallTarget asDate = new GuestToHostRootNode(ProxyDate.class, "asDate") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) {
LocalDate date = ((ProxyDate) proxy).asDate();
if (date == null) {
throw new AssertionError("The returned date must not be null.");
}
return date;
}
}.getCallTarget();
final CallTarget asTime = new GuestToHostRootNode(ProxyTime.class, "asTime") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) {
LocalTime time = ((ProxyTime) proxy).asTime();
if (time == null) {
throw new AssertionError("The returned time must not be null.");
}
return time;
}
}.getCallTarget();
final CallTarget asInstant = new GuestToHostRootNode(ProxyInstant.class, "asInstant") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) {
Instant instant = ((ProxyInstant) proxy).asInstant();
if (instant == null) {
throw new AssertionError("The returned instant must not be null.");
}
return instant;
}
}.getCallTarget();
final CallTarget asDuration = new GuestToHostRootNode(ProxyDuration.class, "asDuration") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) {
Duration duration = ((ProxyDuration) proxy).asDuration();
if (duration == null) {
throw new AssertionError("The returned duration must not be null.");
}
return duration;
}
}.getCallTarget();
final CallTarget getIterator = new GuestToHostRootNode(ProxyIterable.class, "getIterator") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) {
return ((ProxyIterable) proxy).getIterator();
}
}.getCallTarget();
final CallTarget hasIteratorNextElement = new GuestToHostRootNode(ProxyIterator.class, "hasIteratorNextElement") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) {
return ((ProxyIterator) proxy).hasNext();
}
}.getCallTarget();
final CallTarget getIteratorNextElement = new GuestToHostRootNode(ProxyIterator.class, "getIteratorNextElement") {
@Override
@TruffleBoundary
protected Object executeImpl(Object proxy, Object[] arguments) throws StopIterationException, UnsupportedMessageException {
try {
return ((ProxyIterator) proxy).getNext();
} catch (NoSuchElementException e) {
throw StopIterationException.create();
} catch (UnsupportedOperationException e) {
throw UnsupportedMessageException.create();
}
}
}.getCallTarget();
final CallTarget hasHashEntry = new GuestToHostRootNode(ProxyHashMap.class, "hasEntry") {
@Override
@TruffleBoundary
protected Object executeImpl(Object receiver, Object[] arguments) throws InteropException {
return ((ProxyHashMap) receiver).hasHashEntry((Value) arguments[ARGUMENT_OFFSET]);
}
}.getCallTarget();
final CallTarget getHashSize = new GuestToHostRootNode(ProxyHashMap.class, "getSize") {
@Override
@TruffleBoundary
protected Object executeImpl(Object receiver, Object[] arguments) throws InteropException {
return ((ProxyHashMap) receiver).getHashSize();
}
}.getCallTarget();
final CallTarget getHashValue = new GuestToHostRootNode(ProxyHashMap.class, "getValue") {
@Override
@TruffleBoundary
protected Object executeImpl(Object receiver, Object[] arguments) throws InteropException {
try {
return ((ProxyHashMap) receiver).getHashValue((Value) arguments[ARGUMENT_OFFSET]);
} catch (UnsupportedOperationException e) {
throw UnsupportedMessageException.create();
}
}
}.getCallTarget();
final CallTarget putHashEntry = new GuestToHostRootNode(ProxyHashMap.class, "putEntry") {
@Override
@TruffleBoundary
protected Object executeImpl(Object receiver, Object[] arguments) throws InteropException {
try {
((ProxyHashMap) receiver).putHashEntry((Value) arguments[ARGUMENT_OFFSET], (Value) arguments[ARGUMENT_OFFSET + 1]);
return null;
} catch (UnsupportedOperationException e) {
throw UnsupportedMessageException.create();
}
}
}.getCallTarget();
final CallTarget removeHashEntry = new GuestToHostRootNode(ProxyHashMap.class, "removeEntry") {
@Override
@TruffleBoundary
protected Object executeImpl(Object receiver, Object[] arguments) throws InteropException {
try {
return ((ProxyHashMap) receiver).removeHashEntry((Value) arguments[ARGUMENT_OFFSET]);
} catch (UnsupportedOperationException e) {
throw UnsupportedMessageException.create();
}
}
}.getCallTarget();
final CallTarget getHashEntriesIterator = new GuestToHostRootNode(ProxyHashMap.class, "getEntriesIterator") {
@Override
@TruffleBoundary
protected Object executeImpl(Object receiver, Object[] arguments) throws InteropException {
return ((ProxyHashMap) receiver).getHashEntriesIterator();
}
}.getCallTarget();
}
© 2015 - 2024 Weber Informatics LLC | Privacy Policy