From: Emden Gansner <emdenrg@google.com>
Date: Wed, 21 Oct 2015 18:28:07 +0000 (-0400)
Subject: Ad generic histogram script.
X-Git-Tag: TRAVIS_CI_BUILD_EXPERIMENTAL~97
X-Git-Url: https://granicus.if.org/sourcecode?a=commitdiff_plain;h=639e72f8ec9117107039afc5383f4fdf83affef2;p=graphviz

Ad generic histogram script.
---

diff --git a/cmd/gvpr/lib/Makefile.am b/cmd/gvpr/lib/Makefile.am
index ef87083e1..ceaf2127e 100644
--- 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
index 000000000..d7199126f
--- /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);
+  }
+}