From 20f82b0a8b47cdcdead0939a2c8fd2d459774fc7 Mon Sep 17 00:00:00 2001
From: John MacFarlane <jgm@berkeley.edu>
Date: Sat, 1 Oct 2022 12:34:27 -0700
Subject: Makefile target to get module dependeny subgraphs.

E.g. what depends on Text.Pandoc.Parsing?

    make modules.pdf ROOTNODE=T.P.Parsing

This is helpful for figuring out what we can split out as separate
packages.
---
 tools/cliptree.gvpr | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)
 create mode 100644 tools/cliptree.gvpr

(limited to 'tools')

diff --git a/tools/cliptree.gvpr b/tools/cliptree.gvpr
new file mode 100644
index 000000000..428cdfee5
--- /dev/null
+++ b/tools/cliptree.gvpr
@@ -0,0 +1,17 @@
+/* Construct subgraph reachable from node ARGV[0] by forward edges */
+BEG_G {
+  node_t r = node($,ARGV[0]);
+
+  $tvroot = r;
+  $tvtype = TV_fwd;
+  //print ("//  Staring node: ", r.name);
+}
+N{
+  print ("// subgraph node: ", $.name);
+  $tvroot=NULL;
+  subnode($T,$);
+}
+E{
+  print ("// subgraph edge: ", $.name);
+  subedge($T,$);
+}
-- 
cgit v1.2.3