1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
#
# /**********************************************************
# * This software is part of the graphviz package *
# * http://www.graphviz.org/ *
# * *
# * Copyright (c) 1994-2005 AT&T Corp. *
# * and is licensed under the *
# * Common Public License, Version 1.0 *
# * by AT&T Corp. *
# * *
# * Information and Software Systems Research *
# * AT&T Research, Florham Park NJ *
# **********************************************************/
BEGIN {
n_names = 0;
printf("strict digraph typeref {\n");
printf(" node [shape=record];\n");
}
(NF == 1) { # starts a new node in the node file
Name[n_names++] = name = $1;
n_fields = 0;
}
(NF == 2) { # enters a field in the node file
if (($2 == "v") || (PROCS && ($2 == "p"))) {
Field[name,n_fields] = $2 ": " $1;
Field[name,$1] = n_fields;
n_fields++;
}
}
(NF == 6) { # an entry in the edge file. example:
# v BinaryNode left t - Tree
kind = $1;
if ((kind == "v") || (PROCS && (kind == "p"))) {
if (($2 != "-") && ($2 != $3))
from = "\"" $2 "\".f0_1_" Field[$2,$3];
else from = "\"" $3 "\"";
if (($5 != "-") && ($5 != $6))
to = "\"" $5 "\".f0_1_" Field[$5,$6];
else to = "\"" $6 "\"";
printf("\t%s -> %s;\n",from, to);
}
}
END {
for (i in Name) {
name = Name[i];
printf("\t\"%s\" [label=\"{%s{",name,name);
for (j = 0; Field[name,j] != ""; j++) {
if (j > 0) printf("|");
printf("%s",Field[name,j]);
}
printf("}}\"];\n");
}
printf("}\n");
}
|
