Add function to free an entire parse tree.

diff --git a/Parser/node.c b/Parser/node.c
index 86d607ab19b88b70bc5e3e68ebaa272900cd5d1f..264fd9e8a1f2f4ee53c212d265e11b81688eef8c 100644 (file)
--- a/Parser/node.c
+++ b/Parser/node.c
@@ -45,3 +45,26 @@ addchild(n1, type, str)
        n->n_child = NULL;
        return n;
 }
+
+static void
+freechildren(n)
+       node *n;
+{
+       int i;
+       for (i = NCH(n); --i >= 0; )
+               freechildren(CHILD(n, i));
+       if (n->n_child != NULL)
+               DEL(n->n_child);
+       if (STR(n) != NULL)
+               DEL(STR(n));
+}
+
+void
+freenode(n)
+       node *n;
+{
+       if (n != NULL) {
+               freechildren(n);
+               DEL(n);
+       }
+}