Find file
Fetching contributors…
Cannot retrieve contributors at this time
93 lines (77 sloc) 2.85 KB
Copyright (c) 2009-2013 CWI
All rights reserved. This program and the accompanying materials
are made available under the terms of the Eclipse Public License v1.0
which accompanies this distribution, and is available at
@contributor{Paul Klint - - CWI}
module vis::ParseTree
// Visualization of ParseTrees
import lang::rascal::format::Grammar;
import lang::rascal::format::Escape;
import vis::Figure;
import vis::Render;
import ParseTree;
import IO;
import String;
import ValueIO;
import Set;
public void renderParsetree(Tree t){
public Figure visParsetree(Tree t){
case b:appl(Production prod, list[Tree] args) : {
if (skipped() == prod) {
return box(text("skipped"),size(5),popup(unparse(b)));
if(\lex(_) := prod.def){
return box(text(unparse(b)),size(5));
if(prod.def has string){
return box(text(prod.def.string),size(5));
if(\layouts(_) := prod.def){
return box(size(5),fillColor("grey"),popup(unparse(b)));
FProperty p = popup(topProd2rascal(prod));
return tree(ellipse(size(5),p),[visParsetree(c) | c <- args]);
case amb(set[Tree] alternatives):{
FProperty p = popup("Ambiguous: <size(alternatives)>");
// viewTrees(root, toList(alternatives));
return tree(ellipse(size(10), fillColor("red"), p),[visParsetree(c) | c <- alternatives]);
case char(int c) : {
return box(text(escape(stringChar(c)), fontColor("blue")));
throw "viewTree1: missing case for: <t>";
private FProperty popup(str s){
return mouseOver(box(text(s), grow(1.2), resizable(false),fillColor("yellow")));
private bool allChars(list[Tree] trees){
return all(char(_) <- trees);
private str getChars(list[Tree] trees){
chars = [ c | t <- trees, char(int c) := t];
return stringChars(chars);
public FProperty popup(str s){
return mouseOver(box(text(s), grow(1.2), resizable(false), fillColor("yellow")));
public void tree2(){
render(tree(ellipse(size(60), fillColor("green"), popup("Ellipse A")),
[ ellipse(size(90), fillColor("red"), popup("Ellipse B")),
ellipse(size(120), fillColor("blue"), popup("Ellipse C")),
ellipse(size(150), fillColor("purple"), popup("Ellipse D")),
ellipse(size(180), fillColor("lightblue"), popup("Ellipse E")),
box(size(60), fillColor("orange"), popup("Box F")),
box(size(60), fillColor("brown"), popup("Box G")),
box(size(60), fillColor("black"), popup("Box H")),
box(size(60), fillColor("grey"), popup("Box I")),
ellipse(size(60), fillColor("white"), popup("Ellipse J"))
], gap(30), lineWidth(2), fillColor("black"), std(shadow(true))));