X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=ccl%2Fcclptree.c;h=0f50a948a1919d54362857102f491edac8e6c679;hb=9f6bbd483ea92b4a5ae114a36bfebd942e138460;hp=2c37bd91bfef1953fa93902666e2bcd66fad7ec5;hpb=d9ee01635f03f9095a66f71b73580560d48798e8;p=yaz-moved-to-github.git diff --git a/ccl/cclptree.c b/ccl/cclptree.c index 2c37bd9..0f50a94 100644 --- a/ccl/cclptree.c +++ b/ccl/cclptree.c @@ -45,7 +45,15 @@ * Europagate, 1995 * * $Log: cclptree.c,v $ - * Revision 1.6 1999-11-30 13:47:11 adam + * Revision 1.8 2000-11-16 09:58:02 adam + * Implemented local AttributeSet setting for CCL field maps. + * + * Revision 1.7 2000/01/31 13:15:21 adam + * Removed uses of assert(3). Cleanup of ODR. CCL parser update so + * that some characters are not surrounded by spaces in resulting term. + * ILL-code updates. + * + * Revision 1.6 1999/11/30 13:47:11 adam * Improved installation. Moved header files to include/yaz. * * Revision 1.5 1997/04/30 08:52:06 quinn @@ -75,7 +83,6 @@ */ #include -#include #include #include @@ -91,7 +98,11 @@ void ccl_pr_tree (struct ccl_rpn_node *rpn, FILE *fd_out) { struct ccl_rpn_attr *attr; for (attr = rpn->u.t.attr_list; attr; attr = attr->next) - fprintf (fd_out, " %d=%d", attr->type, attr->value); + if (attr->set) + fprintf (fd_out, " %s,%d=%d", attr->set, attr->type, + attr->value); + else + fprintf (fd_out, " %d=%d", attr->type, attr->value); } break; case CCL_RPN_AND: @@ -126,6 +137,6 @@ void ccl_pr_tree (struct ccl_rpn_node *rpn, FILE *fd_out) fprintf (fd_out, ")"); break; default: - assert (0); + ccl_assert (0); } }