|
Server : Apache System : Linux cloud.heroica.com.br 4.18.0-553.36.1.el8_10.x86_64 #1 SMP Wed Jan 22 03:07:54 EST 2025 x86_64 User : farolpborg ( 1053) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system Directory : /proc/self/root/usr/share/graphviz/gvpr/ |
Upload File : |
/* Looks for multiedges and loops, and output
* those found along with counts. If the -d flag
* is given, edge direction is taken into account.
*/
BEGIN{
char* ename;
char* n;
int doDir, cnt[];
int loopcnt[];
int nloops, nmulti;
if ((ARGC > 0) && (ARGV[0] == "-d"))
doDir = 1;
else
doDir = 0;
}
BEG_G{unset(cnt); unset(loopcnt); nloops = nmulti = 0;}
E{
if (doDir || (tail.name <= head.name)) ename=tail.name+"_"+head.name;
else ename = head.name+"_"+tail.name;
if (tail == head) {
loopcnt[ename] += 1;
if (loopcnt[ename] == 1) nloops += 1;
}
else {
cnt[ename] += 1;
if (cnt[ename] == 2) nmulti += 1;
}
}
END_G{
printf ("graph %s: %d loops %d multiedges\n", $.name, nloops, nmulti);
for (cnt[n]) {
if (cnt[n] > 1)
printf ("%s : %d\n", n, cnt[n]);
}
for (loopcnt[n]) {
if (loopcnt[n] > 0)
printf ("%s : %d\n", n, loopcnt[n]);
}
}