1 /* CCL print rpn tree - infix notation
5 * Revision 1.2 1995/02/14 19:55:11 adam
6 * Header files ccl.h/cclp.h are gone! They have been merged an
7 * moved to ../include/ccl.h.
8 * Node kind(s) in ccl_rpn_node have changed names.
10 * Revision 1.1 1995/02/14 10:25:56 adam
11 * The constructions 'qualifier rel term ...' implemented.
21 void ccl_pr_tree (struct ccl_rpn_node *rpn)
27 printf ("\"%s\"", rpn->u.t.term);
28 if (rpn->u.t.attr_list)
30 struct ccl_rpn_attr *attr;
31 for (attr = rpn->u.t.attr_list; attr; attr = attr->next)
32 printf (" %d=%d", attr->type, attr->value);
37 ccl_pr_tree (rpn->u.p[0]);
39 ccl_pr_tree (rpn->u.p[1]);
44 ccl_pr_tree (rpn->u.p[0]);
46 ccl_pr_tree (rpn->u.p[1]);
51 ccl_pr_tree (rpn->u.p[0]);
53 ccl_pr_tree (rpn->u.p[1]);
57 printf ("set=%s", rpn->u.setname);
61 ccl_pr_tree (rpn->u.p[0]);
63 ccl_pr_tree (rpn->u.p[1]);