Files
annotate/detectors/cds/tools/chlorodb/subdb/lib/db.cc.awk
alain viari 2d404b5b24 removed need of R igraph from chlorodb/subdb
Former-commit-id: 574aace9be5804d728a877110f5f475d61644f75
Former-commit-id: 2e7ea63447643830a62f18a364327d7b396ec140
2015-11-14 22:13:55 +01:00

31 lines
338 B
Awk

#
#
function visit(u, i, _local_, v) {
if (Visited[u]) return
Visited[u] = i
for (v in Edge[u]) {
visit(v, i)
}
}
/^#/ { next }
{
Node[$1]++
Node[$2]++
Edge[$1][$2]++
Edge[$2][$1]++
}
END {
for (u in Node) {
if (Visited[u]) continue
visit(u, ++NbComp)
}
for (u in Node)
print u, Visited[u]
}