moved to ../include/ccl.h.
Node kind(s) in ccl_rpn_node have changed names.
* Europagate, 1995
*
* $Log: cclfind.c,v $
- * Revision 1.6 1995/02/14 16:20:55 adam
+ * Revision 1.7 1995/02/14 19:55:10 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.6 1995/02/14 16:20:55 adam
* Qualifiers are read from a file now.
*
* Revision 1.5 1995/02/14 14:12:41 adam
#include <assert.h>
#include <string.h>
-#include "cclp.h"
+#include <ccl.h>
static struct ccl_token *look_token;
static int ccl_error;
return;
switch (rpn->kind)
{
- case AND:
- case OR:
- case NOT:
+ case CCL_RPN_AND:
+ case CCL_RPN_OR:
+ case CCL_RPN_NOT:
ccl_rpn_delete (rpn->u.p[0]);
ccl_rpn_delete (rpn->u.p[1]);
break;
- case TERM:
+ case CCL_RPN_TERM:
free (rpn->u.t.term);
for (attr = rpn->u.t.attr_list; attr; attr = attr1)
{
free (attr);
}
break;
- case SET:
+ case CCL_RPN_SET:
free (rpn->u.setname);
break;
- case PROX:
+ case CCL_RPN_PROX:
ccl_rpn_delete (rpn->u.p[0]);
ccl_rpn_delete (rpn->u.p[1]);
break;
len += 1+lookahead->len;
lookahead = lookahead->next;
}
- p = mk_node (TERM);
+ p = mk_node (CCL_RPN_TERM);
p->u.t.term = malloc (len);
assert (p->u.t.term);
p->u.t.attr_list = NULL;
struct ccl_rpn_node *p2;
p2 = search_term (ap);
- p = mk_node (AND);
+ p = mk_node (CCL_RPN_AND);
p->u.p[0] = p1;
add_attr (p1, CCL_BIB1_REL, 4);
p->u.p[1] = p2;
ccl_rpn_delete (p1);
return NULL;
}
- pn = mk_node (PROX);
+ pn = mk_node (CCL_RPN_PROX);
pn->u.p[0] = p1;
pn->u.p[1] = p2;
p1 = pn;
ccl_error = CCL_ERR_SETNAME_EXPECTED;
return NULL;
}
- p1 = mk_node (SET);
+ p1 = mk_node (CCL_RPN_SET);
p1->u.setname = copy_token_name (look_token);
ADVANCE;
return p1;
ccl_rpn_delete (p1);
return NULL;
}
- pn = mk_node (AND);
+ pn = mk_node (CCL_RPN_AND);
pn->u.p[0] = p1;
pn->u.p[1] = p2;
p1 = pn;
ccl_rpn_delete (p1);
return NULL;
}
- pn = mk_node (OR);
+ pn = mk_node (CCL_RPN_OR);
pn->u.p[0] = p1;
pn->u.p[1] = p2;
p1 = pn;
ccl_rpn_delete (p1);
return NULL;
}
- pn = mk_node (NOT);
+ pn = mk_node (CCL_RPN_NOT);
pn->u.p[0] = p1;
pn->u.p[1] = p2;
p1 = pn;
* 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 (");
* Europagate, 1995
*
* $Log: cclqual.c,v $
- * Revision 1.3 1995/02/14 16:20:56 adam
+ * Revision 1.4 1995/02/14 19:55:12 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.3 1995/02/14 16:20:56 adam
* Qualifiers are read from a file now.
*
* Revision 1.2 1995/02/14 10:25:56 adam
#include <assert.h>
#include <string.h>
-#include "cclp.h"
+#include <ccl.h>
struct ccl_qualifiers {
struct ccl_qualifier *list;
default:
pair[0] = atoi (qual_type);
}
- printf ("adding %s t=%d, v=%d\n", qual_name, pair[0], pair[1]);
ccl_qual_add (bibset, qual_name, 1, pair);
if (!split)
break;
* Europagate 1995
*
* $Log: cclsh.c,v $
- * Revision 1.5 1995/02/14 16:20:57 adam
+ * Revision 1.6 1995/02/14 19:55:13 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.5 1995/02/14 16:20:57 adam
* Qualifiers are read from a file now.
*
* Revision 1.4 1995/02/14 14:12:42 adam
#include <stdlib.h>
#include <assert.h>
-#include "ccl.h"
+#include <ccl.h>
static int debug = 0;
static char *prog;
-static int ti_attr[] = {
- CCL_BIB1_USE, 4,
- CCL_BIB1_STR, CCL_BIB1_STR_WP
-};
-
-static int au_attr[] = {
- CCL_BIB1_USE, 1,
- CCL_BIB1_STR, CCL_BIB1_STR_WP
-};
-
-static int pd_attr[] = {
- CCL_BIB1_USE, 31,
- CCL_BIB1_REL, CCL_BIB1_REL_ORDER
-};
-
int main (int argc, char **argv)
{
CCL_bibset bibset;
* Europagate, 1995
*
* $Log: ccltoken.c,v $
- * Revision 1.1 1995/02/13 12:35:21 adam
+ * Revision 1.2 1995/02/14 19:55:13 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/13 12:35:21 adam
* First version of CCL. Qualifiers aren't handled yet.
*
*/
#include <stdlib.h>
#include <assert.h>
-#include "cclp.h"
+#include <ccl.h>
static int strin (const char *s, const char *cset)
{