Makefile: add moduledeps target.

    make moduledeps ROOTNODE=T.P.Parsing

2 files changed, 23 insertions, 0 deletions

diff --git a/Makefile b/Makefile
index 9388c5d6f..4d58079bc 100644
--- a/Makefile
+++ b/Makefile
@@ -180,6 +180,11 @@ modules.dot: $(SOURCEFILES)
 modules.pdf: modules.dot
 	gvpr -f tools/cliptree.gvpr -a '"$(ROOTNODE)"' $< | dot -Tpdf > $@
 
+# make moduledeps ROOTNODE=T.P.Parsing
+moduledeps: modules.dot  ## Print dependencies of a module ROOTNODE
+	gvpr -f tools/depthfirst.gvpr -a '"$(ROOTNODE)"' modules.dot
+.PHONY: moduledeps
+
 clean: ## clean up
 	cabal clean
 .PHONY: clean
diff --git a/tools/depthfirst.gvpr b/tools/depthfirst.gvpr
new file mode 100644
index 000000000..5539be22e
--- /dev/null
+++ b/tools/depthfirst.gvpr
@@ -0,0 +1,18 @@
+BEGIN {
+  int i, indent;
+  int seen[string];
+  void prInd (int cnt) {
+  for (i = 0; i < cnt; i++) printf (" "); }
+}
+BEG_G {
+  $tvtype = TV_prepostfwd; $tvroot = node($,ARGV[0]);
+} N{
+  if (seen[$.name]) {
+    indent--;
+    if (indent == 0) exit(0);
+  } else {
+    prInd(indent); print ($.name);
+    seen[$.name] = 1;
+    indent++;
+  }
+}