All Downloads are FREE. Search and download functionalities are using the official Maven repository.

com.oracle.truffle.api.debug.DebugValue Maven / Gradle / Ivy

Go to download

Truffle is a multi-language framework for executing dynamic languages that achieves high performance when combined with Graal.

There is a newer version: 24.1.1
Show newest version
/*
 * Copyright (c) 2016, 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 com.oracle.truffle.api.debug;

import java.time.Duration;
import java.time.Instant;
import java.time.LocalDate;
import java.time.LocalTime;
import java.time.ZoneId;
import java.util.AbstractList;
import java.util.Collection;
import java.util.Collections;
import java.util.LinkedList;
import java.util.List;
import java.util.NoSuchElementException;
import java.util.Objects;
import java.util.function.Consumer;

import com.oracle.truffle.api.CompilerDirectives;
import com.oracle.truffle.api.TruffleLanguage;
import com.oracle.truffle.api.interop.InteropLibrary;
import com.oracle.truffle.api.interop.InvalidArrayIndexException;
import com.oracle.truffle.api.interop.StopIterationException;
import com.oracle.truffle.api.interop.UnknownKeyException;
import com.oracle.truffle.api.interop.UnsupportedMessageException;
import com.oracle.truffle.api.nodes.LanguageInfo;
import com.oracle.truffle.api.nodes.RootNode;
import com.oracle.truffle.api.source.SourceSection;

/**
 * Represents a value accessed using the debugger API. Please note that values can become invalid
 * depending on the context in which they are used. For example stack values will only remain valid
 * as long as the current stack element is active. Heap values on the other hand remain valid. If a
 * value becomes invalid then setting or getting a value will throw an {@link IllegalStateException}
 * . {@link DebugValue} instances neither support equality or preserve identity.
 * 

* Clients may access the debug value only on the execution thread where the suspended event of the * stack frame was created and notification received; access from other threads will throw * {@link IllegalStateException}. * * @since 0.17 */ public abstract class DebugValue { static final InteropLibrary INTEROP = InteropLibrary.getFactory().getUncached(); final LanguageInfo preferredLanguage; abstract Object get() throws DebugException; DebugValue(LanguageInfo preferredLanguage) { this.preferredLanguage = preferredLanguage; } /** * Sets the value using another {@link DebugValue}. Throws an {@link IllegalStateException} if * the value is not writable, the passed value is not readable, this value or the passed value * is invalid, or the guest language of the values do not match. Use * {@link DebugStackFrame#eval(String)} to evaluate values to be set. * * @param value the value to set * @throws DebugException when guest language code throws an exception * @since 0.17 */ public abstract void set(DebugValue value) throws DebugException; /** * Sets a primitive value. Strings and boxed Java primitive types are considered primitive. * Throws an {@link IllegalStateException} if the value is not writable and * {@link IllegalArgumentException} if the value is not primitive. * * @param primitiveValue a primitive value to set * @throws DebugException when guest language code throws an exception * @since 19.0 * @deprecated in 21.2. Use {@link #set(DebugValue) * set}({@link #getSession()}{@link DebuggerSession#createPrimitiveValue(Object, Languageinfo) * .createPrimitiveValue(primitiveValue, null)}) instead. */ @Deprecated public abstract void set(Object primitiveValue) throws DebugException; /** * Converts the debug value into a Java type. Class conversions which are always supported: *

    *
  • {@link String}.class converts the value to its language specific string representation. *
  • *
  • {@link Number}.class converts the value to a Number representation, if any.
  • *
  • {@link Boolean}.class converts the value to a Boolean representation, if any.
  • *
* No optional conversions are currently available. If a conversion is not supported then an * {@link UnsupportedOperationException} is thrown. If the value is not {@link #isReadable() * readable} then an {@link IllegalStateException} is thrown. * * @param clazz the type to convert to * @return the converted Java type, or null when the conversion was not possible. * @throws DebugException when guest language code throws an exception * @since 0.17 * @deprecated Use {@link #toDisplayString()} instead. */ @Deprecated public abstract T as(Class clazz) throws DebugException; /** * Returns the name of this value as it is referred to from its origin. If this value is * originated from the stack it returns the name of the local variable. If the value was * returned from another objects then it returns the name of the property or field it is * contained in. If no name is available null is returned. * * @since 0.17 */ public abstract String getName(); /** * Returns true if this value can be read else false. * * @since 0.17 */ public abstract boolean isReadable(); /** * Returns true if reading of this value can have side-effects, else * false. Read has side-effects if it changes runtime state. * * @since 19.0 */ public abstract boolean hasReadSideEffects(); /** * Returns true if setting a new value can have side-effects, else * false. Write has side-effects if it changes runtime state besides this value. * * @since 19.0 */ public abstract boolean hasWriteSideEffects(); /** * Returns true if this value can be written to, else false. * * @since 0.26 */ public abstract boolean isWritable(); /** * Returns true if this value represents an internal variable or property, * false otherwise. *

* Languages might have extra object properties or extra scope variables that are a part of the * runtime, but do not correspond to anything what is an explicit part of the guest language * representation. They may represent additional language artifacts, providing more in-depth * information that can be valuable during debugging. Language implementors mark these variables * as internal. An example of such internal values are internal slots in ECMAScript. *

* * @since 0.26 */ public abstract boolean isInternal(); /** * Get the scope where this value is declared in. It returns a non-null value for local * variables declared on a stack. It's null for object properties and other heap * values. * * @return the scope, or null when this value does not belong into any scope. * * @since 0.26 */ public DebugScope getScope() { return null; } /** * Test if the value represents 'null'. * * @throws DebugException when guest language code throws an exception * @since 19.0 */ public final boolean isNull() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.isNull(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns true if and only if this value represents a string. * * @throws DebugException when guest language code throws an exception * @since 20.1.0 */ public boolean isString() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.isString(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns the {@link String} value if this value represents a string. This method returns * null otherwise. * * @throws DebugException when guest language code throws an exception * @since 19.0 */ public final String asString() throws DebugException { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object val = get(); if (INTEROP.isString(val)) { return INTEROP.asString(val); } else { return null; } } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns true if this value represents a {@link #isNumber() number} and the value * fits in int, else false. * * @throws DebugException when guest language code throws an exception * @see #asInt() * @since 20.1.0 */ public boolean fitsInInt() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.fitsInInt(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns an int representation of this value if it is {@link #isNumber() number} * and the value {@link #fitsInInt() fits}. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see #fitsInInt() * @since 20.1.0 */ public int asInt() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asInt(value); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not an int", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns true if and only if this value represents a boolean value. * * @throws DebugException when guest language code throws an exception * @see #asBoolean() * @since 20.1.0 */ public boolean isBoolean() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.isBoolean(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns a boolean representation of this value if it is {@link #isBoolean() * boolean}. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see #isBoolean() * @since 20.1.0 */ public boolean asBoolean() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asBoolean(value); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not a boolean", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns true if and only if this value represents a number. The number value may * be accessed as {@link #asByte() byte}, {@link #asShort() short}, {@link #asInt() int}, * {@link #asLong() long}, {@link #asFloat() float} or {@link #asDouble() double} value. * * @throws DebugException when guest language code throws an exception * @since 20.1.0 */ public boolean isNumber() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.isNumber(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns true if this value represents a {@link #isNumber() number} and the value * fits in long, else false. * * @throws DebugException when guest language code throws an exception * @see #asLong() * @since 20.1.0 */ public boolean fitsInLong() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.fitsInLong(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns a long representation of this value if it is {@link #isNumber() number} * and the value {@link #fitsInLong() fits}. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see #fitsInLong() * @since 20.1.0 */ public long asLong() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asLong(value); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not a long", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns true if this value represents a {@link #isNumber() number} and the value * fits in double, else false. * * @throws DebugException when guest language code throws an exception * @see #asDouble() * @since 20.1.0 */ public boolean fitsInDouble() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.fitsInDouble(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns a double representation of this value if it is {@link #isNumber() * number} and the value {@link #fitsInDouble() fits}. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see #fitsInDouble() * @since 20.1.0 */ public double asDouble() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asDouble(value); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not a double", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns true if this value represents a {@link #isNumber() number} and the value * fits in float, else false. * * @throws DebugException when guest language code throws an exception * @see #asFloat() * @since 20.1.0 */ public boolean fitsInFloat() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.fitsInFloat(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns a float representation of this value if it is {@link #isNumber() number} * and the value {@link #fitsInFloat() fits}. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see #fitsInFloat() * @since 20.1.0 */ public float asFloat() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asFloat(value); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not a float", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns true if this value represents a {@link #isNumber() number} and the value * fits in byte, else false. * * @throws DebugException when guest language code throws an exception * @see #asByte() * @since 20.1.0 */ public boolean fitsInByte() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.fitsInByte(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns a byte representation of this value if it is {@link #isNumber() number} * and the value {@link #fitsInByte() fits}. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see #fitsInByte() * @since 20.1.0 */ public byte asByte() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asByte(value); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not a byte", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns true if this value represents a {@link #isNumber() number} and the value * fits in short, else false. * * @throws DebugException when guest language code throws an exception * @see #asShort() * @since 20.1.0 */ public boolean fitsInShort() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.fitsInShort(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns a short representation of this value if it is {@link #isNumber() number} * and the value {@link #fitsInShort() fits}. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see #fitsInShort() * @since 20.1.0 */ public short asShort() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asShort(value); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not a short", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage()); } } /** * Returns true if this value represents a date, else false. If this * value is also a {@link #isTimeZone() timezone} then the date is aware, otherwise it is naive. * * @throws DebugException when guest language code throws an exception * @see #asDate() * @since 20.1.0 */ public boolean isDate() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.isDate(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns this value as date if it is a {@link #isDate() date}. The returned date is either * aware if the value has a {@link #isTimeZone() timezone} otherwise it is naive. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see #isDate() * @since 20.1.0 */ public LocalDate asDate() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asDate(value); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not a date", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns true if this value represents a time, else false. If the * value is also a {@link #isTimeZone() timezone} then the time is aware, otherwise it is naive. * * @throws DebugException when guest language code throws an exception * @see #asTime() * @since 20.1.0 */ public boolean isTime() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.isTime(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns this value as time if it is a {@link #isTime() time}. The returned time is either * aware if the value has a {@link #isTimeZone() timezone} otherwise it is naive. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see #isTime() * @since 20.1.0 */ public LocalTime asTime() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asTime(value); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not a time", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns true if this value represents an instant. See * {@link InteropLibrary#isInstant(Object)} for detailed description. * * @throws DebugException when guest language code throws an exception * @see #isDate() * @see #isTime() * @see #isInstant() * @see #asInstant() * @since 20.1.0 */ public boolean isInstant() { return isDate() && isTime() && isTimeZone(); } /** * Returns this value as instant if it is an {@link #isInstant() instant}. See * {@link InteropLibrary#asInstant(Object)} for detailed description. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see #isDate() * @see #isTime() * @see #isTimeZone() * @since 20.1.0 */ public Instant asInstant() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asInstant(value); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not an instant", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns true if this object represents a timezone, else false. See * {@link InteropLibrary#isTimeZone(Object)} for detailed description. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see #asTimeZone() * @see #asInstant() * @since 20.1.0 */ public boolean isTimeZone() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.isTimeZone(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns this value as timestamp if it represents a {@link #isTimeZone() timezone}. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see #isTimeZone() * @since 20.1.0 */ public ZoneId asTimeZone() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asTimeZone(value); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not a time", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns true if this object represents a duration, else false. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see Duration * @see #asDuration() * @since 20.1.0 */ public boolean isDuration() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.isDuration(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns this value as duration if this object represents a {@link #isDuration() duration}. * * @throws UnsupportedOperationException if this value could not be converted. * @throws DebugException when guest language code throws an exception * @see #isDuration() * @since 20.1.0 */ public Duration asDuration() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asDuration(value); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not a time", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns true if the value represents a metaobject. See * {@link InteropLibrary#isMetaObject(Object)} for detailed description. * * @throws DebugException when guest language code throws an exception * @see #getMetaQualifiedName() * @see #getMetaSimpleName() * @see #isMetaInstance(DebugValue) * @see #getMetaObject() * @since 20.1 */ public boolean isMetaObject() { if (!isReadable()) { return false; } try { Object value = get(); return INTEROP.isMetaObject(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns the qualified name of a metaobject as {@link #isString() String}. See * {@link InteropLibrary#getMetaQualifiedName(Object)} for detailed description. * * @throws UnsupportedOperationException if and only if {@link #isMetaObject()} returns * false for the same value. * @throws DebugException when guest language code throws an exception * @see #isMetaObject() * @since 20.1.0 */ public String getMetaQualifiedName() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asString(INTEROP.getMetaQualifiedName(value)); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not a metaobject", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns the simple name of a metaobject as {@link #isString() string}. See * {@link InteropLibrary#getMetaSimpleName(Object)} for detailed description. * * @throws UnsupportedOperationException if and only if {@link #isMetaObject()} returns * false for the same value. * @throws DebugException when guest language code throws an exception * @see #isMetaObject() * @since 20.1.0 */ public String getMetaSimpleName() { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.asString(INTEROP.getMetaSimpleName(value)); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not a metaobject", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns true if the given instance is an instance of this value, else * false. See {@link InteropLibrary#isMetaInstance(Object, Object)} for detailed * description. * * @param instance the instance value to check. * @throws UnsupportedOperationException if and only if {@link #isMetaObject()} returns * false for the same value. * @throws DebugException when guest language code throws an exception * @see #isMetaObject() * @since 20.1.0 */ public boolean isMetaInstance(DebugValue instance) { if (!isReadable()) { throw new UnsupportedOperationException("Value is not readable"); } try { Object value = get(); return INTEROP.isMetaInstance(value, instance.get()); } catch (ThreadDeath td) { throw td; } catch (UnsupportedMessageException uex) { throw new UnsupportedOperationException("Not a metaobject", uex); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Get a list of breakpoints installed to the value's session and whose * {@link Breakpoint.Builder#rootInstance(DebugValue) root instance} is this value. * * @return a list of breakpoints with this value as root instance * @since 19.3.0 */ @SuppressWarnings({"unchecked", "rawtypes"}) public final List getRootInstanceBreakpoints() { Object value = get(); List[] breakpoints = new List[]{null}; getSession().visitBreakpoints(new Consumer() { @Override public void accept(Breakpoint b) { if (b.getRootInstance() == value) { if (breakpoints[0] == null) { breakpoints[0] = new LinkedList<>(); } breakpoints[0].add(b); } } }); return breakpoints[0] != null ? breakpoints[0] : Collections.emptyList(); } /** * Provides properties representing an internal structure of this value. The returned collection * is not thread-safe. If the value is not {@link #isReadable() readable} then null * is returned. * * @return a collection of property values, or
null when the value does not have * any concept of properties. * @throws DebugException when guest language code throws an exception * @since 0.19 */ public final Collection getProperties() throws DebugException { if (!isReadable()) { return null; } Object value = get(); try { return getProperties(value, null, getSession(), resolveLanguage(), null); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } static ValuePropertiesCollection getProperties(Object value, String receiverName, DebuggerSession session, LanguageInfo language, DebugScope scope) { if (INTEROP.hasMembers(value)) { Object keys; try { keys = INTEROP.getMembers(value, true); } catch (UnsupportedMessageException e) { return null; } return new ValuePropertiesCollection(session, language, value, keys, receiverName, scope); } return null; } /** * Get a property value by its name. * * @param name name of a property * @return the property value, or null if the property does not exist. * @throws DebugException when guest language code throws an exception * @since 19.0 */ public final DebugValue getProperty(String name) throws DebugException { if (!isReadable()) { return null; } Object value = get(); if (value != null) { try { if (!INTEROP.isMemberExisting(value, name)) { return null; } else { return new DebugValue.ObjectMemberValue(getSession(), resolveLanguage(), null, value, name); } } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } else { return null; } } /** * Returns true if this value represents an array, false otherwise. * * @throws DebugException when guest language code throws an exception * @since 0.19 */ public final boolean isArray() throws DebugException { if (!isReadable()) { return false; } return INTEROP.hasArrayElements(get()); } /** * Provides array elements when this value represents an array. To test if this value represents * an array, check {@link #isArray()}. * * @return a list of array elements, or null when the value does not represent an * array. * @throws DebugException when guest language code throws an exception * @since 0.19 */ public List getArray() throws DebugException { if (!isReadable()) { return null; } Object value = get(); if (INTEROP.hasArrayElements(value)) { return new ValueInteropList(getSession(), resolveLanguage(), value); } return null; } /** * Returns the underlying guest value object held by this {@link DebugValue}. * * This method is permitted only if the guest language class is available. This is the case if * you want to utilize the Debugger API directly from within a guest language, or if you are an * instrument bound/dependent on a specific language. * * This method is opposite to {@link DebugScope#convertRawValue(Class, Object)} where a raw * guest language value is wrapped in a DebugValue. * * @param languageClass the Truffle language class for a given guest language * @return the guest language object or null if the language differs from the language that * created the underlying {@link DebugValue} * @since 20.1 */ public Object getRawValue(Class> languageClass) { Objects.requireNonNull(languageClass); RootNode rootNode = getScope().getRoot(); if (rootNode == null) { return null; } // check if language class of the root node corresponds to the input language TruffleLanguage language = Debugger.ACCESSOR.nodeSupport().getLanguage(rootNode); return language != null && language.getClass() == languageClass ? get() : null; } /** * Converts the value to a language-specific string representation. Is the same as * {@link #toDisplayString(boolean) toDisplayString(true)}. * * @see #toDisplayString(boolean) * @since 20.1 */ public final String toDisplayString() { return toDisplayString(true); } /** * Converts the value to a language-specific string representation. * * @param allowSideEffects whether side-effects are allowed in the production of the string. * @since 20.1 */ public final String toDisplayString(boolean allowSideEffects) throws DebugException { if (!isReadable()) { return ""; } try { Object stringValue = INTEROP.toDisplayString(getLanguageView(), allowSideEffects); return INTEROP.asString(stringValue); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } final Object getLanguageView() { LanguageInfo language = resolveLanguage(); Object value = get(); if (language == null) { return value; } else { return getDebugger().getEnv().getLanguageView(language, value); } } final LanguageInfo resolveLanguage() { LanguageInfo languageInfo; if (preferredLanguage != null) { languageInfo = preferredLanguage; } else if (getScope() != null && getScope().getLanguage() != null) { languageInfo = getScope().getLanguage(); } else { languageInfo = getOriginalLanguage(); } return languageInfo; } /** * Get a meta-object of this value, if any. The meta-object represents a description of the * value, reveals it's kind and it's features. See {@link InteropLibrary#getMetaObject(Object)} * for detailed description. * * @return a value representing the meta-object, or null * @throws DebugException when guest language code throws an exception * @since 0.22 */ public final DebugValue getMetaObject() throws DebugException { if (!isReadable()) { return null; } Object view = getLanguageView(); try { if (INTEROP.hasMetaObject(view)) { return new HeapValue(getSession(), resolveLanguage(), null, INTEROP.getMetaObject(view)); } } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } return null; } /** * Get a source location where this value is declared, if any. * * @return a source location of the object, or null * @throws DebugException when guest language code throws an exception * @since 0.22 */ public final SourceSection getSourceLocation() throws DebugException { if (!isReadable()) { return null; } try { Object obj = getLanguageView(); if (INTEROP.hasSourceLocation(obj)) { return getSession().resolveSection(INTEROP.getSourceLocation(obj)); } else { return null; } } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns true if this value can be executed (represents a guest language * function), else false. * * @since 19.0 */ public final boolean canExecute() throws DebugException { if (!isReadable()) { return false; } Object value = get(); try { return INTEROP.isExecutable(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Executes the executable represented by this value. * * @param arguments Arguments passed to the executable * @return the result of the execution * @throws DebugException when guest language code throws an exception * @see #canExecute() * @since 19.0 */ public final DebugValue execute(DebugValue... arguments) throws DebugException { Object value = get(); Object[] args = new Object[arguments.length]; for (int i = 0; i < arguments.length; i++) { args[i] = arguments[i].get(); } try { Object retValue = INTEROP.execute(value, args); return new HeapValue(getSession(), resolveLanguage(), null, retValue); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } // Iterators /** * Returns {@code true} if the value provides an iterator. For details see * {@link InteropLibrary#hasIterator(Object)}. * * @throws DebugException if guest language code throws an exception. * @see #getIterator() * @since 21.2 */ public boolean hasIterator() throws DebugException { if (!isReadable()) { return false; } Object value = get(); try { return INTEROP.hasIterator(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns the iterator value. The return value is always an {@link #isIterator() iterator}. For * details see {@link InteropLibrary#getIterator(Object)}. * * @throws DebugException if {@link #hasIterator()} returns {@code false} or guest language code * throws an exception. * @see #hasIterator() * @since 21.3 */ public DebugValue getIterator() throws DebugException { Object value = get(); Object iterator; try { iterator = INTEROP.getIterator(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } return new DebugValue.HeapValue(getSession(), preferredLanguage, null, iterator); } /** * Returns {@code true} if this value represents an iterator. For details see * {@link InteropLibrary#isIterator(Object)}. * * @throws DebugException if guest language code throws an exception. * @see #hasIterator() * @see #getIterator() * @since 21.2 */ public boolean isIterator() throws DebugException { if (!isReadable()) { return false; } Object value = get(); try { return INTEROP.isIterator(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns {@code true} if the value {@link #isIterator() is an iterator} which has more * elements, else {@code false}. For details see * {@link InteropLibrary#hasIteratorNextElement(Object)}. * * @throws DebugException if {@link #isIterator()} returns {@code false} or guest language code * throws an exception. * @see #isIterator() * @see #getIteratorNextElement() * @since 21.2 */ public boolean hasIteratorNextElement() throws DebugException { if (!isReadable()) { return false; } Object value = get(); try { return INTEROP.hasIteratorNextElement(value); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns the next element in the iteration. When the underlying data structure is modified the * {@link #getIteratorNextElement()} may throw the {@link NoSuchElementException} despite the * {@link #hasIteratorNextElement()} returned {@code true}. * * @throws DebugException if {@link #isIterator()} returns {@code false} or when the underlying * iterator element exists but is not readable, or guest language code throws an * exception. * @throws NoSuchElementException if the iteration has no more elements. * * @see #isIterator() * @see #hasIteratorNextElement() * @see InteropLibrary#getIteratorNextElement(Object) * @since 21.2 */ public DebugValue getIteratorNextElement() throws NoSuchElementException, DebugException { Object value = get(); Object next; try { next = INTEROP.getIteratorNextElement(value); } catch (ThreadDeath td) { throw td; } catch (StopIterationException ex) { throw new NoSuchElementException(ex.getLocalizedMessage()); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } return new DebugValue.HeapValue(getSession(), preferredLanguage, null, next); } // Hash map /** * Returns {@code true} if the value may have hash map entries. For details see * {@link InteropLibrary#hasHashEntries(Object)}. * * @throws DebugException if guest language code throws an exception. * @see #getHashEntriesIterator() * @see #getHashSize() * @see #isHashEntryReadable(DebugValue) * @see #isHashEntryWritable(DebugValue) * @see #isHashEntryInsertable(DebugValue) * @see #isHashEntryRemovable(DebugValue) * @see #getHashValue(DebugValue) * @see #getHashValueOrDefault(DebugValue, DebugValue) * @see #putHashEntry(DebugValue, DebugValue) * @see #removeHashEntry(DebugValue) * @since 21.2 */ public boolean hasHashEntries() throws DebugException { if (!isReadable()) { return false; } Object hash = get(); try { return INTEROP.hasHashEntries(hash); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns the number of hash map entries. * * @throws DebugException if {@link #hasHashEntries()} returns {@code false} or guest language * code throws an exception. * @see #hasHashEntries() * @since 21.2 */ public long getHashSize() throws DebugException { Object hash = get(); try { return INTEROP.getHashSize(hash); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns {@code true} if mapping for the specified key exists and is readable. If the * key is obtained from {@link #getHashEntriesIterator()} or * {@link #getHashKeysIterator()}, it returns the same value as * key.{@link #isReadable()}. For details see * {@link InteropLibrary#isHashEntryReadable(Object, Object)}. * * @throws DebugException if guest language code throws an exception. * @see #getHashValue(DebugValue) * @since 21.2 */ public boolean isHashEntryReadable(DebugValue key) throws DebugException { Object hash = get(); Object keyObject = key.get(); try { return INTEROP.isHashEntryReadable(hash, keyObject); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Get value of a hash map for the specified key or {@code null} if the mapping for the * specified key does not exist. The returned value, if any, is {@link #isWritable() writable} * if and only if {@link #isHashEntryWritable(DebugValue)} returns true for the entry key. * * @throws DebugException if the value has no {@link #hasHashEntries() hash entries}, or guest * language code throws an exception. * @see #isHashEntryReadable(DebugValue) * @see #getHashValueOrDefault(DebugValue, DebugValue) * @since 21.2 */ public DebugValue getHashValue(DebugValue key) throws DebugException { Object hash = get(); Object keyObject = key.get(); DebugValue value = HashEntryValue.getValueOrNull(getSession(), preferredLanguage, hash, keyObject); return value; } /** * Get value of a hash map for the specified key or return the {@code defaultValue} when the * mapping for the specified key does not exist or is not readable. * * @throws DebugException if the hash map does not support reading at all, or guest language * code throws an exception. * @see #isHashEntryReadable(DebugValue) * @see #getHashValue(DebugValue) * @since 21.2 */ public DebugValue getHashValueOrDefault(DebugValue key, DebugValue defaultValue) throws DebugException { Object hash = get(); Object keyObject = key.get(); Object defaultObject = defaultValue.get(); Object v; try { v = INTEROP.readHashValueOrDefault(hash, keyObject, defaultObject); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } if (v == defaultObject) { return defaultValue; } HashEntryValue value = new HashEntryValue(getSession(), preferredLanguage, hash, keyObject, HashEntryValue.EntryKind.VALUE); value.setCachedValue(v); return value; } /** * Returns {@code true} if mapping for the specified key exists and is * {@link #putHashEntry(DebugValue, DebugValue) writable}. If the corresponding value is * obtained from {@link #getHashValue(DebugValue)} or from {@link #getHashEntriesIterator()}, * then it returns the same value as value.{@link #isWritable()}. For details see * {@link InteropLibrary#isHashEntryModifiable(Object, Object)}. * * @throws DebugException if guest language code throws an exception. * @see #putHashEntry(DebugValue, DebugValue) * @since 21.2 */ public boolean isHashEntryModifiable(DebugValue key) throws DebugException { Object hash = get(); Object keyObject = key.get(); try { return INTEROP.isHashEntryModifiable(hash, keyObject); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns {@code true} if mapping for the specified key does not exist and is * {@link #putHashEntry(DebugValue, DebugValue) writable}. For details see * {@link InteropLibrary#isHashEntryInsertable(Object, Object)}. * * @throws DebugException if guest language code throws an exception. * @see #putHashEntry(DebugValue, DebugValue) * @since 21.2 */ public boolean isHashEntryInsertable(DebugValue key) throws DebugException { Object hash = get(); Object keyObject = key.get(); try { return INTEROP.isHashEntryInsertable(hash, keyObject); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns {@code true} if mapping for the specified key is * {@link #isHashEntryModifiable(DebugValue) modifiable} or * {@link #isHashEntryInsertable(DebugValue) insertable}. * * @throws DebugException if guest language code throws an exception. * @since 21.2 */ public boolean isHashEntryWritable(DebugValue key) throws DebugException { Object hash = get(); Object keyObject = key.get(); try { return INTEROP.isHashEntryWritable(hash, keyObject); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Associates the specified value with the specified key in the hash map. Putting the entry is * allowed if is existing and {@link #isHashEntryModifiable(DebugValue) modifiable}, or not * existing and {@link #isHashEntryInsertable(DebugValue) insertable}. * * @throws DebugException if the hash map does not support writing at all, or mapping for the * specified key is not {@link #isHashEntryModifiable(DebugValue) modifiable} nor * {@link #isHashEntryInsertable(DebugValue) insertable}, or the provided key type * or value type is not allowed to be written, or guest language code throws an * exception. * @since 21.2 */ public void putHashEntry(DebugValue key, DebugValue value) throws DebugException { Object hash = get(); Object keyObject = key.get(); Object valueObject = value.get(); try { INTEROP.writeHashEntry(hash, keyObject, valueObject); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns {@code true} if mapping for the specified key exists and is removable. For details * see {@link InteropLibrary#isHashEntryRemovable(Object, Object)}. * * @throws DebugException if guest language code throws an exception. * @see #removeHashEntry(DebugValue) * @since 21.2 */ public boolean isHashEntryRemovable(DebugValue key) throws DebugException { Object hash = get(); Object keyObject = key.get(); try { return INTEROP.isHashEntryRemovable(hash, keyObject); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Removes the mapping for a given key from the hash map. Mapping removing is allowed if it is * {@link #isHashEntryRemovable(DebugValue) removable}. * * @return {@code true} if the mapping was successfully removed, {@code false} if mapping for a * given key does not exist. * @throws DebugException if the value does not have any {@link #hasHashEntries() hash entries} * or if mapping for specified key {@link #isHashEntryExisting(DebugValue) exists} * but cannot be removed. * @see #isHashEntryRemovable(DebugValue) * @since 21.2 */ public boolean removeHashEntry(DebugValue key) throws DebugException { Object hash = get(); Object keyObject = key.get(); try { INTEROP.removeHashEntry(hash, keyObject); return true; } catch (UnknownKeyException ukex) { return false; } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns {@code true} if mapping for a given key is existing. For details see * {@link InteropLibrary#isHashEntryExisting(Object, Object)}. * * @throws DebugException if guest language code throws an exception. * @since 21.2 */ public boolean isHashEntryExisting(DebugValue key) throws DebugException { Object hash = get(); Object keyObject = key.get(); try { return INTEROP.isHashEntryExisting(hash, keyObject); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } /** * Returns the entries iterator of the hash map. The return value is always an * {@link #isIterator() iterator} of {@link #isArray() array} elements. The first array element * is a key, the second array element is the associated value. Array elements returned by the * iterator may be modifiable. {@link #set(DebugValue) Set} of the elements updates the hash * map. * * @throws DebugException if {@link #hasHashEntries()} returns {@code false}, or if guest * language code throws an exception. * @since 21.2 */ public DebugValue getHashEntriesIterator() throws DebugException { Object hash = get(); Object entriesIterator; try { entriesIterator = INTEROP.getHashEntriesIterator(hash); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } return new HashEntriesIteratorValue(getSession(), preferredLanguage, null, hash, entriesIterator, null); } /** * Returns the keys iterator of the hash map. The return value is always an {@link #isIterator() * iterator}. * * @throws DebugException if {@link #hasHashEntries()} returns {@code false}, or if guest * language code throws an exception. * @since 21.2 */ public DebugValue getHashKeysIterator() throws DebugException { Object hash = get(); Object keysIterator; try { keysIterator = INTEROP.getHashKeysIterator(hash); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } return new DebugValue.HeapValue(getSession(), preferredLanguage, null, keysIterator); } /** * Returns the values iterator of the hash map. The return value is always an * {@link #isIterator() iterator}. * * @throws DebugException if {@link #hasHashEntries()} returns {@code false}, or if guest * language code throws an exception. * @since 21.2 */ public DebugValue getHashValuesIterator() throws DebugException { Object hash = get(); Object valuesIterator; try { valuesIterator = INTEROP.getHashValuesIterator(hash); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } return new DebugValue.HeapValue(getSession(), preferredLanguage, null, valuesIterator); } /** * Provides hash code of the value. * * @return {@link InteropLibrary#identityHashCode(Object) identity hash code} of the guest * object, if the object {@link InteropLibrary#hasIdentity(Object) has identity}. * @throws DebugException when guest language code throws an exception * @since 21.2 */ @Override public int hashCode() throws DebugException { if (isReadable()) { Object value = get(); return valueHashCode(value); } else { return unreadableHashCode(); } } /** * Indicates whether another {@link DebugValue} is equal to this. Two {@link DebugValue} objects * are equal if and only if their guest objects are * {@link InteropLibrary#isIdentical(Object, Object, InteropLibrary) identical}. * * @throws DebugException when guest language code throws an exception * @since 21.2 */ @Override public boolean equals(Object obj) throws DebugException { if (!(obj instanceof DebugValue)) { return false; } if (obj == this) { return true; } DebugValue other = (DebugValue) obj; boolean thisReadable = isReadable(); boolean otherReadable = other.isReadable(); if (!thisReadable || !otherReadable) { if (thisReadable != otherReadable) { return false; } else { return unreadableEquals(other); } } Object value1 = get(); Object value2 = other.get(); return valueEquals(value1, value2); } int valueHashCode(Object value) throws DebugException { try { if (INTEROP.hasIdentity(value)) { return INTEROP.identityHashCode(value); } } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } return System.identityHashCode(value); } boolean valueEquals(Object value1, Object value2) throws DebugException { if (value1 == value2) { return true; } try { return INTEROP.isIdentical(value1, value2, INTEROP); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } abstract int unreadableHashCode(); abstract boolean unreadableEquals(DebugValue var); /** * Get the original language that created the value, if any. This method will return * null for values representing a primitive value, or objects that are not * associated with any language. * * @return the language, or null when no language can be identified as the creator * of the value. * @throws DebugException when guest language code throws an exception * @since 0.27 */ public final LanguageInfo getOriginalLanguage() throws DebugException { if (!isReadable()) { return null; } Object obj = get(); if (obj == null) { return null; } InteropLibrary lib = InteropLibrary.getFactory().getUncached(obj); if (lib.hasLanguage(obj)) { try { return getSession().getDebugger().getEnv().getLanguageInfo(lib.getLanguage(obj)); } catch (UnsupportedMessageException e) { CompilerDirectives.transferToInterpreter(); throw new AssertionError(e); } } return null; } /** * Returns a debug value that presents itself as seen by the provided language. The language * affects the output of {@link #toDisplayString()}, {@link #getMetaObject()}, * {@link #getSourceLocation()} and other methods that provide various representations of the * value. The {@link #getOriginalLanguage() original language} of the returned value remains the * same as of this value. * * @param language a language to get the value representation of * @return the value as represented in the language * @since 0.27 */ public final DebugValue asInLanguage(LanguageInfo language) { if (preferredLanguage == language) { return this; } return createAsInLanguage(language); } abstract DebugValue createAsInLanguage(LanguageInfo language); /** * Get the debugger session associated with this value. * * @since 21.2 */ public abstract DebuggerSession getSession(); final Debugger getDebugger() { return getSession().getDebugger(); } /** * Returns a string representation of the debug value. * * @since 0.17 */ @Override public String toString() { return "DebugValue(name=" + getName() + ", value = " + (isReadable() ? toDisplayString() : "") + ")"; } abstract static class AbstractDebugValue extends DebugValue { final DebuggerSession session; AbstractDebugValue(DebuggerSession session, LanguageInfo preferredLanguage) { super(preferredLanguage); this.session = session; } @Override @SuppressWarnings("deprecation") public final T as(Class clazz) throws DebugException { if (!isReadable()) { throw new IllegalStateException("Value is not readable"); } try { if (clazz == String.class) { Object val = get(); Object stringValue; if (INTEROP.isMetaObject(val)) { stringValue = INTEROP.getMetaQualifiedName(val); } else { stringValue = INTEROP.toDisplayString(getLanguageView()); } return clazz.cast(INTEROP.asString(stringValue)); } else if (clazz == Number.class || clazz == Boolean.class) { return convertToPrimitive(clazz); } } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } throw new UnsupportedOperationException(); } private T convertToPrimitive(Class clazz) { Object val = get(); if (clazz.isInstance(val)) { return clazz.cast(val); } return clazz.cast(Debugger.ACCESSOR.hostSupport().convertPrimitiveLossLess(val, clazz)); } @Override public final DebuggerSession getSession() { return session; } } static class HeapValue extends AbstractDebugValue { private final String name; private final Object value; HeapValue(DebuggerSession session, String name, Object value) { this(session, null, name, value); } HeapValue(DebuggerSession session, LanguageInfo preferredLanguage, String name, Object value) { super(session, preferredLanguage); this.name = name; this.value = value; assert value != null; } @Override Object get() { return value; } @Override public void set(DebugValue expression) { throw DebugException.create(getSession(), "Can not modify read-only value."); } @Override @SuppressWarnings("deprecation") public void set(Object primitiveValue) { throw DebugException.create(getSession(), "Can not modify read-only value."); } @Override public String getName() { return name; } @Override public boolean isReadable() { return true; } @Override public boolean isWritable() { return false; } @Override public boolean hasReadSideEffects() { return false; } @Override public boolean hasWriteSideEffects() { return false; } @Override public boolean isInternal() { return false; } @Override DebugValue createAsInLanguage(LanguageInfo language) { return new HeapValue(session, language, name, value); } @Override int unreadableHashCode() { throw new UnsupportedOperationException("HeapValue is always readable."); } @Override boolean unreadableEquals(DebugValue var) { throw new UnsupportedOperationException("HeapValue is always readable."); } } abstract static class AbstractDebugCachedValue extends AbstractDebugValue { private volatile Object cachedValue; AbstractDebugCachedValue(DebuggerSession session, LanguageInfo preferredLanguage) { super(session, preferredLanguage); } @Override final Object get() { Object value = cachedValue; if (value == null) { synchronized (this) { value = cachedValue; if (value == null) { value = readValue(); cachedValue = value; } } } return value; } abstract Object readValue(); final void setCachedValue(Object newCachedValue) { this.cachedValue = newCachedValue; } final void resetCachedValue() { this.cachedValue = null; } } static final class ObjectMemberValue extends AbstractDebugCachedValue { private final Object object; private final String member; private final DebugScope scope; ObjectMemberValue(DebuggerSession session, LanguageInfo preferredLanguage, DebugScope scope, Object object, String member) { super(session, preferredLanguage); this.object = object; this.member = member; this.scope = scope; } @Override Object readValue() { checkValid(); try { return INTEROP.readMember(object, member); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } @Override public String getName() { return String.valueOf(member); } @Override public boolean isReadable() { checkValid(); return INTEROP.isMemberReadable(object, member); } @Override public boolean isWritable() { checkValid(); return INTEROP.isMemberWritable(object, member); } @Override public boolean hasReadSideEffects() { checkValid(); return INTEROP.hasMemberReadSideEffects(object, member); } @Override public boolean hasWriteSideEffects() { checkValid(); return INTEROP.hasMemberWriteSideEffects(object, member); } @Override public boolean isInternal() { checkValid(); return INTEROP.isMemberInternal(object, member); } @Override public DebugScope getScope() { checkValid(); return scope; } @Override public void set(DebugValue value) { checkValid(); try { Object newValue = value.get(); INTEROP.writeMember(object, member, newValue); resetCachedValue(); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } @Override @SuppressWarnings("deprecation") public void set(Object primitiveValue) { checkValid(); checkPrimitive(primitiveValue); try { INTEROP.writeMember(object, member, primitiveValue); resetCachedValue(); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } @Override DebugValue createAsInLanguage(LanguageInfo language) { return new ObjectMemberValue(session, language, scope, object, member); } @Override int unreadableHashCode() { int hash = 7; hash = 29 * hash + valueHashCode(object); hash = 29 * hash + member.hashCode(); return hash; } @Override boolean unreadableEquals(DebugValue var) { if (!(var instanceof ObjectMemberValue)) { return false; } ObjectMemberValue other = (ObjectMemberValue) var; return valueEquals(object, other.object) && member.equals(other.member); } private void checkValid() { if (scope != null) { scope.verifyValidState(); } } } static final class ArrayElementValue extends AbstractDebugCachedValue { private final Object array; private final long index; private final DebugScope scope; ArrayElementValue(DebuggerSession session, LanguageInfo preferredLanguage, DebugScope scope, Object array, long index) { super(session, preferredLanguage); this.array = array; this.index = index; this.scope = scope; } @Override Object readValue() { checkValid(); try { return INTEROP.readArrayElement(array, index); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } @Override public String getName() { return String.valueOf(index); } @Override public boolean isReadable() { checkValid(); return INTEROP.isArrayElementReadable(array, index); } @Override public boolean isWritable() { checkValid(); return INTEROP.isArrayElementWritable(array, index); } @Override public boolean hasReadSideEffects() { checkValid(); return false; } @Override public boolean hasWriteSideEffects() { checkValid(); return false; } @Override public boolean isInternal() { checkValid(); return false; } @Override public DebugScope getScope() { checkValid(); return scope; } @Override public void set(DebugValue value) { checkValid(); try { Object newValue = value.get(); INTEROP.writeArrayElement(array, index, newValue); resetCachedValue(); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } @Override @SuppressWarnings("deprecation") public void set(Object primitiveValue) { checkValid(); checkPrimitive(primitiveValue); try { INTEROP.writeArrayElement(array, index, primitiveValue); resetCachedValue(); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } @Override DebugValue createAsInLanguage(LanguageInfo language) { return new ArrayElementValue(session, language, scope, array, index); } @Override int unreadableHashCode() { int hash = 7; hash = 29 * hash + valueHashCode(array); hash = 29 * hash + Long.hashCode(index); return hash; } @Override boolean unreadableEquals(DebugValue var) { if (!(var instanceof ArrayElementValue)) { return false; } ArrayElementValue other = (ArrayElementValue) var; return valueEquals(array, other.array) && index == other.index; } private void checkValid() { if (scope != null) { scope.verifyValidState(); } } } private static final class HashEntriesIteratorValue extends HeapValue { private final Object hashMap; private final HashEntryValue.EntryKind kind; HashEntriesIteratorValue(DebuggerSession session, LanguageInfo preferredLanguage, String name, Object hashMap, Object value, HashEntryValue.EntryKind kind) { super(session, preferredLanguage, name, value); this.hashMap = hashMap; assert kind == null || kind == HashEntryValue.EntryKind.KEY; this.kind = kind; } @Override public DebugValue getIteratorNextElement() { Object value = get(); try { Object next = INTEROP.getIteratorNextElement(value); if (HashEntryValue.EntryKind.KEY == kind) { return new HashEntryValue(getSession(), resolveLanguage(), hashMap, next, kind); } else { assert kind == null; return new HashEntryArrayValue(getSession(), resolveLanguage(), null, hashMap, next); } } catch (ThreadDeath td) { throw td; } catch (StopIterationException ex) { throw new NoSuchElementException(ex.getLocalizedMessage()); } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } } } private static final class HashEntryArrayValue extends HeapValue { private final Object hashMap; HashEntryArrayValue(DebuggerSession session, LanguageInfo preferredLanguage, String name, Object hashMap, Object value) { super(session, preferredLanguage, name, value); this.hashMap = hashMap; } @Override public List getArray() throws DebugException { return new HashEntriesList(get()); } final class HashEntriesList extends AbstractList { private final Object list; HashEntriesList(Object list) { this.list = list; } @Override public DebugValue get(int index) { HashEntryValue.EntryKind kind; switch (index) { case 0: kind = HashEntryValue.EntryKind.KEY; break; case 1: kind = HashEntryValue.EntryKind.VALUE; break; default: throw DebugException.create(getSession(), InvalidArrayIndexException.create(index), resolveLanguage(), null, true, null); } Object key; try { key = INTEROP.readArrayElement(list, 0); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } return new HashEntryValue(session, preferredLanguage, hashMap, key, kind); } @Override public DebugValue set(int index, DebugValue newValue) { throw new UnsupportedOperationException(); } @Override public int size() { try { return (int) INTEROP.getArraySize(list); } catch (UnsupportedMessageException e) { return 0; } } } } private static final class HashEntryValue extends AbstractDebugCachedValue { enum EntryKind { KEY, VALUE } private final Object hashMap; private final Object key; private final EntryKind kind; HashEntryValue(DebuggerSession session, LanguageInfo preferredLanguage, Object map, Object key, EntryKind kind) { super(session, preferredLanguage); this.hashMap = map; this.key = key; this.kind = kind; } static HashEntryValue getValueOrNull(DebuggerSession session, LanguageInfo preferredLanguage, Object map, Object key) throws DebugException { Object valueObject; try { valueObject = INTEROP.readHashValue(map, key); } catch (ThreadDeath td) { throw td; } catch (UnknownKeyException ex) { return null; } catch (Throwable ex) { throw DebugException.create(session, ex, preferredLanguage, null, true, null); } HashEntryValue value = new HashEntryValue(session, preferredLanguage, map, key, EntryKind.VALUE); value.setCachedValue(valueObject); return value; } @Override public String getName() { return null; } @Override public boolean isReadable() { switch (kind) { case KEY: return true; case VALUE: try { return INTEROP.isHashEntryReadable(hashMap, key); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } default: throw CompilerDirectives.shouldNotReachHere(); } } @Override public boolean isWritable() { switch (kind) { case KEY: try { return INTEROP.isHashEntryRemovable(hashMap, key); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } case VALUE: try { return INTEROP.isHashEntryWritable(hashMap, key); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } default: throw CompilerDirectives.shouldNotReachHere(); } } @Override Object readValue() { switch (kind) { case KEY: return key; case VALUE: try { return INTEROP.readHashValue(hashMap, key); } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } default: throw CompilerDirectives.shouldNotReachHere(); } } @Override public boolean hasReadSideEffects() { return true; } @Override public boolean hasWriteSideEffects() { return true; } @Override public boolean isInternal() { return false; } @Override public DebugScope getScope() { return null; } @Override public void set(DebugValue value) { Object newValue = value.get(); setNewValue(newValue); } @Override @SuppressWarnings("deprecation") public void set(Object primitiveValue) { checkPrimitive(primitiveValue); setNewValue(primitiveValue); } private void setNewValue(Object newValue) { switch (kind) { case KEY: // Remove the current key+value and put the new key with the value try { Object value = INTEROP.readHashValue(hashMap, key); INTEROP.removeHashEntry(hashMap, key); INTEROP.writeHashEntry(hashMap, newValue, value); return; } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } case VALUE: try { INTEROP.writeHashEntry(hashMap, key, newValue); return; } catch (ThreadDeath td) { throw td; } catch (Throwable ex) { throw DebugException.create(getSession(), ex, resolveLanguage(), null, true, null); } default: throw CompilerDirectives.shouldNotReachHere(); } } @Override DebugValue createAsInLanguage(LanguageInfo language) { return new HashEntryValue(session, language, hashMap, key, kind); } @Override int unreadableHashCode() { int hash = 7; hash = 29 * hash + valueHashCode(hashMap); hash = 29 * hash + valueHashCode(key); hash = 29 * hash + kind.hashCode(); return hash; } @Override boolean unreadableEquals(DebugValue var) { if (!(var instanceof HashEntryValue)) { return false; } HashEntryValue other = (HashEntryValue) var; return valueEquals(hashMap, other.hashMap) && valueEquals(key, other.key) && kind == other.kind; } } static void checkPrimitive(Object value) { Class clazz; if (value == null || !((clazz = value.getClass()) == Byte.class || clazz == Short.class || clazz == Integer.class || clazz == Long.class || clazz == Float.class || clazz == Double.class || clazz == Character.class || clazz == Boolean.class || clazz == String.class)) { throw new IllegalArgumentException(value + " is not primitive."); } } }




© 2015 - 2024 Weber Informatics LLC | Privacy Policy