Mercurial > hg > truffle

annotate truffle/com.oracle.truffle.sl/src/com/oracle/truffle/sl/nodes/instrument/SLDefaultVisualizer.java @ 22003:5bc7f7b867ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Making debugger always on for each TruffleVM execution. Introducing EventConsumer to process such debugger events. Requesting each RootNode to be associated with a TruffleLanguage, so debugger can find out proper context for each Node where executions gets suspended.
author Jaroslav Tulach <jaroslav.tulach@oracle.com>
date Sat, 18 Jul 2015 18:03:36 +0200
parents c07e64ecb528
children 503529c65456
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
16595
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
1 /*
19699
ef30b2318658 Truffle/Instrumentation: the Visualizer for language-specific values now has a "trim" option to limit result size.
Michael Van De Vanter <michael.van.de.vanter@oracle.com>
parents: 16595
diff changeset
2 * Copyright (c) 2012, 2015, Oracle and/or its affiliates. All rights reserved.
16595
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
3 * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
4 *
21997
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
5 * The Universal Permissive License (UPL), Version 1.0
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
6 *
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
7 * Subject to the condition set forth below, permission is hereby granted to any
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
8 * person obtaining a copy of this software, associated documentation and/or
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
9 * data (collectively the "Software"), free of charge and under any and all
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
10 * copyright rights in the Software, and any and all patent rights owned or
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
11 * freely licensable by each licensor hereunder covering either (i) the
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
12 * unmodified Software as contributed to or provided by such licensor, or (ii)
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
13 * the Larger Works (as defined below), to deal in both
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
14 *
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
15 * (a) the Software, and
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
16 *
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
17 * (b) any piece of software and/or hardware listed in the lrgrwrks.txt file if
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
18 * one is included with the Software each a "Larger Work" to which the Software
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
19 * is contributed by such licensors),
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
20 *
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
21 * without restriction, including without limitation the rights to copy, create
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
22 * derivative works of, display, perform, and distribute the Software and make,
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
23 * use, sell, offer for sale, import, export, have made, and have sold the
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
24 * Software and the Larger Work(s), and to sublicense the foregoing rights on
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
25 * either these or other terms.
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
26 *
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
27 * This license is subject to the following condition:
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
28 *
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
29 * The above copyright notice and either this complete permission notice or at a
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
30 * minimum a reference to the UPL must be included in all copies or substantial
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
31 * portions of the Software.
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
32 *
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
33 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
34 * IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
35 * FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
36 * AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
37 * LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
38 * OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE
c07e64ecb528 Update SL copyright headers to use UPL
Gilles Duboscq <gilles.m.duboscq@oracle.com>
parents: 21951
diff changeset
39 * SOFTWARE.
16595
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
40 */
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
41 package com.oracle.truffle.sl.nodes.instrument;
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
42
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
43 import com.oracle.truffle.api.*;
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
44 import com.oracle.truffle.api.frame.*;
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
45 import com.oracle.truffle.api.instrument.*;
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
46 import com.oracle.truffle.api.instrument.impl.*;
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
47 import com.oracle.truffle.api.nodes.*;
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
48 import com.oracle.truffle.sl.nodes.*;
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
49 import com.oracle.truffle.sl.runtime.*;
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
50
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
51 /**
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
52 * SLDefaultVisualizer provides methods to get the names of SL's internal Truffle AST nodes.
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
53 *
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
54 */
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
55 public class SLDefaultVisualizer extends DefaultVisualizer {
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
56
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
57 private final SLASTPrinter astPrinter;
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
58
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
59 public SLDefaultVisualizer() {
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
60 this.astPrinter = new SLASTPrinter();
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
61 }
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
62
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
63 @Override
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
64 public ASTPrinter getASTPrinter() {
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
65 return astPrinter;
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
66 }
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
67
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
68 @Override
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
69 public String displayMethodName(Node node) {
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
70
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
71 if (node == null) {
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
72 return null;
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
73 }
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
74 RootNode root = node.getRootNode();
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
75 if (root instanceof SLRootNode) {
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
76 SLRootNode slRootNode = (SLRootNode) root;
22003
5bc7f7b867ab Making debugger always on for each TruffleVM execution. Introducing EventConsumer to process such debugger events. Requesting each RootNode to be associated with a TruffleLanguage, so debugger can find out proper context for each Node where executions gets suspended.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21997
diff changeset
77 return slRootNode.getName();
16595
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
78
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
79 }
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
80 return "unknown";
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
81 }
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
82
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
83 @Override
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
84 public String displayCallTargetName(CallTarget callTarget) {
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
85 if (callTarget instanceof RootCallTarget) {
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
86 final RootCallTarget rootCallTarget = (RootCallTarget) callTarget;
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
87 SLRootNode slRootNode = (SLRootNode) rootCallTarget.getRootNode();
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
88 return slRootNode.toString();
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
89 }
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
90 return callTarget.toString();
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
91 }
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
92
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
93 @Override
21890
894f82515e38 Truffle/APIs and Debugging: Evolutionary steps to integrating debugging and tool support with TruffleVM APIs
Michael Van De Vanter <michael.van.de.vanter@oracle.com>
parents: 19699
diff changeset
94 public String displayValue(Object value, int trim) {
22003
5bc7f7b867ab Making debugger always on for each TruffleVM execution. Introducing EventConsumer to process such debugger events. Requesting each RootNode to be associated with a TruffleLanguage, so debugger can find out proper context for each Node where executions gets suspended.
Jaroslav Tulach <jaroslav.tulach@oracle.com>
parents: 21997
diff changeset
95 if (value == null || value == SLNull.SINGLETON) {
16595
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
96 return "null";
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
97 }
19699
ef30b2318658 Truffle/Instrumentation: the Visualizer for language-specific values now has a "trim" option to limit result size.
Michael Van De Vanter <michael.van.de.vanter@oracle.com>
parents: 16595
diff changeset
98 return trim(value.toString(), trim);
16595
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
99 }
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
100
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
101 @Override
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
102 public String displayIdentifier(FrameSlot slot) {
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
103
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
104 final Object id = slot.getIdentifier();
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
105 return id.toString();
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
106 }
618d92152d3c SL: Added support for instrumentation.
David Piorkowski <david.piorkowski@oracle.com>
parents:
diff changeset
107 }