* Europagate, 1995
*
* $Log: cclptree.c,v $
- * Revision 1.1 1995/02/14 10:25:56 adam
+ * Revision 1.2 1995/02/14 19:55:11 adam
+ * Header files ccl.h/cclp.h are gone! They have been merged an
+ * moved to ../include/ccl.h.
+ * Node kind(s) in ccl_rpn_node have changed names.
+ *
+ * Revision 1.1 1995/02/14 10:25:56 adam
* The constructions 'qualifier rel term ...' implemented.
*
*/
#include <assert.h>
#include <string.h>
-#include "cclp.h"
+#include <ccl.h>
void ccl_pr_tree (struct ccl_rpn_node *rpn)
{
switch (rpn->kind)
{
- case TERM:
+ case CCL_RPN_TERM:
printf ("\"%s\"", rpn->u.t.term);
if (rpn->u.t.attr_list)
{
printf (" %d=%d", attr->type, attr->value);
}
break;
- case AND:
+ case CCL_RPN_AND:
printf ("(");
ccl_pr_tree (rpn->u.p[0]);
printf (") and (");
ccl_pr_tree (rpn->u.p[1]);
printf (")");
break;
- case OR:
+ case CCL_RPN_OR:
printf ("(");
ccl_pr_tree (rpn->u.p[0]);
printf (") or (");
ccl_pr_tree (rpn->u.p[1]);
printf (")");
break;
- case NOT:
+ case CCL_RPN_NOT:
printf ("(");
ccl_pr_tree (rpn->u.p[0]);
printf (") not (");
ccl_pr_tree (rpn->u.p[1]);
printf (")");
break;
- case SET:
+ case CCL_RPN_SET:
printf ("set=%s", rpn->u.setname);
break;
- case PROX:
+ case CCL_RPN_PROX:
printf ("(");
ccl_pr_tree (rpn->u.p[0]);
printf (") prox (");