![]() Server : Apache System : Linux server2.corals.io 4.18.0-348.2.1.el8_5.x86_64 #1 SMP Mon Nov 15 09:17:08 EST 2021 x86_64 User : corals ( 1002) PHP Version : 7.4.33 Disable Function : exec,passthru,shell_exec,system Directory : /proc/self/root/usr/share/graphviz/gvpr/ |
/* create a copy of the input graph with no multiedges */ BEG_G { graph_t g = graph ("merge", "S"); } E { int wt; node_t h = node(g,$.head.name); node_t t = node(g,$.tail.name); edge_t e = isEdge(t,h,""); wt = $.weight; if (wt <= 0) wt = 1; if (e) { e.weight = e.weight + wt; } else if (h != t) { e = edge(t,h,""); e.weight = wt; } } END_G { fwriteG(g,1); }