1 files changed, 17 insertions, 0 deletions
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,$);
+}