diff options
author | Camil Staps | 2016-09-24 14:49:06 +0200 |
---|---|---|
committer | Camil Staps | 2016-09-24 14:49:06 +0200 |
commit | 534079449fa91617f3d1497b24c3de92f810e183 (patch) | |
tree | af332573b8a5fa6e519438799208800857fc1e92 /interpreter/print.c | |
parent | cleanup (diff) |
Colour internal nodes gray in dot output
Diffstat (limited to 'interpreter/print.c')
-rw-r--r-- | interpreter/print.c | 10 |
1 files changed, 5 insertions, 5 deletions
diff --git a/interpreter/print.c b/interpreter/print.c index d2c03ae..2fb6e4b 100644 --- a/interpreter/print.c +++ b/interpreter/print.c @@ -196,13 +196,13 @@ void print_node_to_file(struct node* node, FILE* f, struct visited_nodes *visite case NODE_TUPLE: case NODE_APP: if (node->kind == NODE_LIST) - fprintf(f, "%" PRIuPTR " [label=\"%p: List (%d)\", penwidth=%d];\n", + fprintf(f, "%" PRIuPTR " [label=\"%p: List (%d)\", color=gray, penwidth=%d];\n", (uintptr_t) node, node, node->used_count, node->used_count); else if (node->kind == NODE_TUPLE) - fprintf(f, "%" PRIuPTR " [label=\"%p: Tuple (%d)\", penwidth=%d];\n", + fprintf(f, "%" PRIuPTR " [label=\"%p: Tuple (%d)\", color=gray, penwidth=%d];\n", (uintptr_t) node, node, node->used_count, node->used_count); else if (node->kind == NODE_APP) - fprintf(f, "%" PRIuPTR " [label=\"%p: App (%d)\", penwidth=%d];\n", + fprintf(f, "%" PRIuPTR " [label=\"%p: App (%d)\", color=gray, penwidth=%d];\n", (uintptr_t) node, node, node->used_count, node->used_count); if (node->var1) { @@ -216,10 +216,10 @@ void print_node_to_file(struct node* node, FILE* f, struct visited_nodes *visite break; case NODE_REDIRECT: - fprintf(f, "%" PRIuPTR " [label=\"%p: Redirection (%d)\", penwidth=%d];\n", + fprintf(f, "%" PRIuPTR " [label=\"%p: Redirection (%d)\", color=gray, penwidth=%d];\n", (uintptr_t) node, node, node->used_count, node->used_count); print_node_to_file((struct node*) node->var1, f, visited); - fprintf(f, "%" PRIuPTR " -> %" PRIuPTR " [label=\"l\", penwidth=%d];\n", + fprintf(f, "%" PRIuPTR " -> %" PRIuPTR " [penwidth=%d];\n", (uintptr_t) node, (uintptr_t) node->var1, node->used_count); break; } |