com.oracle.truffle.api.debug.SuspendableLocationFinder Maven / Gradle / Ivy
Go to download
Show more of this group Show more artifacts with this name
Show all versions of truffle-api Show documentation
Show all versions of truffle-api Show documentation
Truffle is a multi-language framework for executing dynamic languages
that achieves high performance when combined with Graal.
/*
* Copyright (c) 2018, 2019, 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.util.Collections;
import java.util.HashSet;
import java.util.Set;
import com.oracle.truffle.api.instrumentation.InstrumentableNode;
import com.oracle.truffle.api.instrumentation.LoadSourceSectionEvent;
import com.oracle.truffle.api.instrumentation.LoadSourceSectionListener;
import com.oracle.truffle.api.instrumentation.SourceSectionFilter;
import com.oracle.truffle.api.instrumentation.Tag;
import com.oracle.truffle.api.instrumentation.TruffleInstrument;
import com.oracle.truffle.api.nodes.Node;
import com.oracle.truffle.api.nodes.RootNode;
import com.oracle.truffle.api.source.Source;
import com.oracle.truffle.api.source.SourceSection;
/**
* This class searches for a suspendable location (SourceSection tagged with one of the element
* tags) in a Source file.
*
* We can verify whether the initial suspended location is accurate and if yes, no language
* adjustment is necessary.
*
* We find one of following three nodes:
*
* - node whose source section contains the location,
*
- node before the location,
*
- node after the location
*
* Using this context node, the language determines the nearest tagged node.
*/
final class SuspendableLocationFinder {
private SuspendableLocationFinder() {
}
static SourceSection findNearest(Source source, SourceElement[] sourceElements, int line, int column, SuspendAnchor anchor, TruffleInstrument.Env env) {
if (!source.hasCharacters()) {
return null;
}
int boundLine = line;
int boundColumn = column;
int maxLine = source.getLineCount();
if (boundLine > maxLine) {
boundLine = maxLine;
}
int maxColumn = source.getLineLength(boundLine) + 1;
if (boundColumn > maxColumn) {
boundColumn = maxColumn;
}
return findNearestBound(source, getElementTags(sourceElements), boundLine, boundColumn, anchor, env);
}
private static Set> getElementTags(SourceElement[] sourceElements) {
if (sourceElements.length == 1) {
return Collections.singleton(sourceElements[0].getTag());
}
Set> elementTags = new HashSet<>();
for (int i = 0; i < sourceElements.length; i++) {
elementTags.add(sourceElements[i].getTag());
}
return elementTags;
}
private static SourceSection findNearestBound(Source source, Set> elementTags,
int line, int column, SuspendAnchor anchor, TruffleInstrument.Env env) {
int offset = source.getLineStartOffset(line);
if (column > 0) {
offset += column - 1;
}
NearestSections sectionsCollector = new NearestSections(elementTags, (column <= 0) ? line : 0, offset, anchor);
// All SourceSections of the Source are loaded already when the source was executed
env.getInstrumenter().visitLoadedSourceSections(
SourceSectionFilter.newBuilder().sourceIs(source).build(),
sectionsCollector);
SourceSection section = sectionsCollector.getExactSection();
if (section != null) {
return section;
}
if (!sectionsCollector.isOffsetInRoot) {
// The offset position is not in any RootNode.
return null;
}
InstrumentableNode contextNode = sectionsCollector.getContainsNode();
if (contextNode == null) {
contextNode = sectionsCollector.getNextNode();
}
if (contextNode == null) {
contextNode = sectionsCollector.getPreviousNode();
}
if (contextNode == null) {
return null;
}
Node node = contextNode.findNearestNodeAt(offset, elementTags);
if (node == null) {
return null;
}
return node.getSourceSection();
}
private static class NearestSections implements LoadSourceSectionListener {
private final Set> elementTags;
private final int line;
private final int offset;
private final SuspendAnchor anchor;
private SourceSection exactLineMatch;
private SourceSection exactIndexMatch;
private SourceSection containsMatch;
private LinkedNodes containsNode;
private SourceSection previousMatch;
private LinkedNodes previousNode;
private SourceSection nextMatch;
private LinkedNodes nextNode;
private boolean isOffsetInRoot = false;
NearestSections(Set> elementTags, int line, int offset, SuspendAnchor anchor) {
this.elementTags = elementTags;
this.line = line;
this.offset = offset;
this.anchor = anchor;
}
@Override
public void onLoad(LoadSourceSectionEvent event) {
Node eventNode = event.getNode();
if (!(eventNode instanceof InstrumentableNode && ((InstrumentableNode) eventNode).isInstrumentable())) {
return;
}
if (!isOffsetInRoot) {
SourceSection rootSection = eventNode.getRootNode().getSourceSection();
if (rootSection != null) {
isOffsetInRoot = rootSection.getCharIndex() <= offset && offset < rootSection.getCharEndIndex();
}
}
InstrumentableNode node = (InstrumentableNode) eventNode;
SourceSection sourceSection = event.getSourceSection();
if (matchSectionLine(node, sourceSection)) {
// We have exact line match, we do not need to do anything more
return;
}
int o1 = sourceSection.getCharIndex();
int o2;
if (sourceSection.getCharLength() > 0) {
o2 = sourceSection.getCharEndIndex() - 1;
} else {
o2 = sourceSection.getCharIndex();
}
if (matchSectionOffset(node, sourceSection, o1, o2)) {
// We have exact offset index match, we do not need to do anything more
return;
}
// Offset approximation
findOffsetApproximation(node, sourceSection, o1, o2);
}
private boolean matchSectionLine(InstrumentableNode node, SourceSection sourceSection) {
if (line > 0) {
int l;
switch (anchor) {
case BEFORE:
l = sourceSection.getStartLine();
break;
case AFTER:
l = sourceSection.getEndLine();
break;
default:
throw new IllegalArgumentException(anchor.name());
}
if (line == l && isTaggedWith(node, elementTags)) {
if (exactLineMatch == null ||
(anchor == SuspendAnchor.BEFORE) && sourceSection.getCharIndex() < exactLineMatch.getCharIndex() ||
(anchor == SuspendAnchor.AFTER) && sourceSection.getCharEndIndex() > exactLineMatch.getCharEndIndex()) {
exactLineMatch = sourceSection;
}
}
if (exactLineMatch != null) {
return true;
}
}
return false;
}
private boolean matchSectionOffset(InstrumentableNode node, SourceSection sourceSection, int o1, int o2) {
int o;
switch (anchor) {
case BEFORE:
o = o1;
break;
case AFTER:
o = o2;
break;
default:
throw new IllegalArgumentException(anchor.name());
}
if (offset == o && isTaggedWith(node, elementTags)) {
if (exactIndexMatch == null || sourceSection.getCharLength() > exactIndexMatch.getCharLength()) {
exactIndexMatch = sourceSection;
}
}
if (exactIndexMatch != null) {
return true;
}
return false;
}
private void findOffsetApproximation(InstrumentableNode node, SourceSection sourceSection, int o1, int o2) {
if (o1 <= offset && offset <= o2) {
// Exact match. There can be more of these, find the smallest one:
if (containsMatch == null || containsMatch.getCharLength() > sourceSection.getCharLength()) {
containsMatch = sourceSection;
containsNode = new LinkedNodes(node);
} else if (containsMatch.getCharLength() == sourceSection.getCharLength()) {
containsNode.append(new LinkedNodes(node));
}
} else if (o2 < offset) {
// Previous match. Find the nearest one (with the largest end index):
if (previousMatch == null || previousMatch.getCharEndIndex() < sourceSection.getCharEndIndex() ||
// when equal end, find the largest one
previousMatch.getCharEndIndex() == sourceSection.getCharEndIndex() && previousMatch.getCharLength() < sourceSection.getCharLength()) {
previousMatch = sourceSection;
previousNode = new LinkedNodes(node);
} else if (previousMatch.getCharEndIndex() == sourceSection.getCharEndIndex() && previousMatch.getCharLength() == sourceSection.getCharLength()) {
previousNode.append(new LinkedNodes(node));
}
} else {
assert offset < o1;
// Next match. Find the nearest one (with the smallest start index):
if (nextMatch == null || nextMatch.getCharIndex() > sourceSection.getCharIndex() ||
// when equal start, find the largest one
nextMatch.getCharIndex() == sourceSection.getCharIndex() && nextMatch.getCharLength() < sourceSection.getCharLength()) {
nextMatch = sourceSection;
nextNode = new LinkedNodes(node);
} else if (nextMatch.getCharIndex() == sourceSection.getCharIndex() && nextMatch.getCharLength() == sourceSection.getCharLength()) {
nextNode.append(new LinkedNodes(node));
}
}
}
private static boolean isTaggedWith(InstrumentableNode node, Set> tags) {
for (Class tag : tags) {
if (node.hasTag(tag)) {
return true;
}
}
return false;
}
SourceSection getExactSection() {
if (exactLineMatch != null) {
return exactLineMatch;
}
if (exactIndexMatch != null) {
return exactIndexMatch;
}
return null;
}
InstrumentableNode getContainsNode() {
if (containsNode == null) {
return null;
}
if (line > 0) {
if (anchor == SuspendAnchor.BEFORE && line == containsMatch.getStartLine() || anchor == SuspendAnchor.AFTER && line == containsMatch.getEndLine()) {
return (InstrumentableNode) containsNode.getOuter(containsMatch.getCharLength());
}
} else {
if (anchor == SuspendAnchor.BEFORE && offset == containsMatch.getCharIndex() || anchor == SuspendAnchor.AFTER && offset == containsMatch.getCharEndIndex() - 1) {
return (InstrumentableNode) containsNode.getOuter(containsMatch.getCharLength());
}
}
return (InstrumentableNode) containsNode.getInner(containsMatch.getCharLength());
}
InstrumentableNode getPreviousNode() {
if (previousNode == null) {
return null;
}
return (InstrumentableNode) previousNode.getOuter(previousMatch.getCharLength());
}
InstrumentableNode getNextNode() {
if (nextNode == null) {
return null;
}
return (InstrumentableNode) nextNode.getOuter(nextMatch.getCharLength());
}
}
/**
* Linked list of nodes that have the same source sections.
*/
private static final class LinkedNodes {
final Node node;
private LinkedNodes next;
LinkedNodes(InstrumentableNode node) {
this.node = (Node) node;
}
void append(LinkedNodes lns) {
LinkedNodes tail = this;
while (tail.next != null) {
tail = tail.next;
}
tail.next = lns;
}
Node getInner(int sectionLength) {
Node inner = this.node;
LinkedNodes linkedNodes = this.next;
while (linkedNodes != null) {
Node inner2 = linkedNodes.node;
if (isParentOf(inner, inner2)) {
// inner stays
} else if (isParentOf(inner2, inner)) {
inner = inner2;
} else {
// They are in different functions, find out which encloses the other
if (hasLargerParent(inner2, sectionLength)) {
// inner stays
} else {
inner = inner2;
}
}
linkedNodes = linkedNodes.next;
}
return inner;
}
Node getOuter(int sectionLength) {
Node outer = this.node;
LinkedNodes linkedNodes = this.next;
while (linkedNodes != null) {
Node outer2 = linkedNodes.node;
if (isParentOf(outer, outer2)) {
outer = outer2;
} else if (isParentOf(outer2, outer)) {
// outer stays
} else {
// They are in different functions, find out which encloses the other
if (hasLargerParent(outer2, sectionLength)) {
outer = outer2;
} else {
// outer stays
}
}
linkedNodes = linkedNodes.next;
}
return outer;
}
@Override
public String toString() {
if (next == null) {
return node.toString();
}
StringBuilder sb = new StringBuilder("[");
LinkedNodes ln = this;
while (ln != null) {
sb.append(ln.node);
sb.append(", ");
ln = ln.next;
}
sb.delete(sb.length() - 2, sb.length());
sb.append("]");
return sb.toString();
}
private static boolean isParentOf(Node ch, Node p) {
Node parent = ch.getParent();
while (parent != null) {
if (parent == p) {
return true;
}
parent = parent.getParent();
}
return false;
}
private static boolean hasLargerParent(Node ch, int sectionLength) {
Node parent = ch.getParent();
while (parent != null) {
if (parent instanceof InstrumentableNode && ((InstrumentableNode) parent).isInstrumentable() || parent instanceof RootNode) {
SourceSection pss = parent.getSourceSection();
if (pss != null && pss.getCharLength() > sectionLength) {
return true;
}
}
parent = parent.getParent();
}
return false;
}
}
}