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
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
|
/*************************************************************************
* Copyright (c) 2011 AT&T Intellectual Property
* 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
* https://www.eclipse.org/legal/epl-v10.html
*
* Contributors: Details at http://www.graphviz.org/
*************************************************************************/
# remove leading underscore, then translate leading dot to underscore
function canon(s) {
gsub(/\./,"_",s);
gsub(/^_*/,"",s);
gsub(/_*$/,"",s);
return s;
}
BEGIN {
maxhue = .65
minsaturation = .2;
brightness = 1.0;
printf ("digraph prof {\n");
printf (" node [style=filled];\n");
}
$1 ~ /\[/ && $0 !~ "as a" {
if (NF == 6) {
tail = $5
source = 1
}
else {
tail = $6
source = 0
}
mytotal = $4
while (getline) {
if (NF == 0) {
# if (source == 1) printf("\t%s;\n",canon(tail));
break
}
if ( $2 ~ /\./ ) {
ntc = $3;
gsub("/.*","",ntc);
if (mytotal < 0.0000000001)
color = 0.0
else
color = $2/(mytotal + .01);
color = color/ntc;
tailc = canon(tail);
headc = canon($4);
hue = maxhue * (1.0 - color);
saturation = minsaturation
+ (1.0 - minsaturation) * color;
brightness = .7 + .3*color;
if ((tailc != "") && (headc != "")) {
printf ("\t%s -> %s [color=\"%.3f %.3f %.3f\"];\n",
# tailc, headc, hue, saturation, brightness);
tailc, headc, hue, brightness, brightness);
Degree[tailc]++; Degree[headc]++;
}
else { # Recursive call
printf ("\t%s -> %s;\n ", canon(tail), canon($2))
}
}
}
}
$2 == "cumulative" {
while ($1 != "time") getline;
getline;
scale = $1;
brightness = 1.0;
while (NF > 0) {
if ($1 == " ") exit;
if ($(NF - 2) == "<cycle") func_name = $(NF - 3);
else func_name = $(NF - 1);
func_name = canon(func_name);
if (Degree[func_name] > 0) {
hue = maxhue * (1.0 - $1/scale);
saturation = minsaturation + ((1.0 - minsaturation) * $1/scale);
printf("%s [color=\"%.3f %.3f %.3f\"];\n",func_name,
hue,saturation,brightness);
}
getline;
}
exit;
}
END { print "}" }
|
