Ad generic histogram script.

diff --git a/cmd/gvpr/lib/Makefile.am b/cmd/gvpr/lib/Makefile.am
index ef87083e17312e17ef5852b60bb20f646fdbd8ca..ceaf2127e042e079db468d31f8f58120c74dc4e8 100644 (file)
--- a/cmd/gvpr/lib/Makefile.am
+++ b/cmd/gvpr/lib/Makefile.am
@@ -6,7 +6,7 @@ gvprdir = $(pkgdatadir)/gvpr
 gvpr_DATA = addranks addrings anon attr bb bbox bipart binduce chkclusters \
        cliptree col collapse color cycle dechain deghist \
        deledges delmulti delnodes depath dijkstra \
-       flatten get-layers-list group indent knbhd \
+       flatten get-layers-list histogram group indent knbhd \
        maxdeg path rotate scale scalexy span topon \
        treetoclust 
 

diff --git a/cmd/gvpr/lib/histogram b/cmd/gvpr/lib/histogram
new file mode 100644 (file)
index 0000000..d719912
--- /dev/null
+++ b/cmd/gvpr/lib/histogram
@@ -0,0 +1,20 @@
+/* print histogram of integer attribute */
+BEGIN {
+  int count[];
+  int maxd = 0;
+  int i, d, v;
+  char* attrname = ARGV[0];
+}
+N{ 
+  v = (int)(aget($,attrname));
+  count[v]++;
+  if (v > maxd) {
+    maxd = v;
+  }
+}
+END {
+  for (i = 1; i <= maxd; i++) {
+    d = count[i];
+    if (d > 0) printf ("[%d] %d\n", i, d);
+  }
+}