5 * Revision 1.3 1995/02/14 10:25:57 adam
6 * The constructions 'qualifier rel term ...' implemented.
8 * Revision 1.2 1995/02/13 15:15:07 adam
9 * Added handling of qualifiers. Not finished yet.
11 * Revision 1.1 1995/02/13 12:35:21 adam
12 * First version of CCL. Qualifiers aren't handled yet.
25 static int ti_attr[] = {
27 CCL_BIB1_STR, CCL_BIB1_STR_WP
30 static int au_attr[] = {
32 CCL_BIB1_STR, CCL_BIB1_STR_WP
35 static int pd_attr[] = {
37 CCL_BIB1_REL, CCL_BIB1_REL_ORDER
40 int main (int argc, char **argv)
45 bibset = ccl_qual_mk ();
57 fprintf (stderr, "%s: unknown option '%s'\n",
64 fprintf (stderr, "%s: no filenames, please\n", prog);
68 ccl_qual_add (bibset, "ti", sizeof(ti_attr)/(2*sizeof(int)), ti_attr);
69 ccl_qual_add (bibset, "au", sizeof(au_attr)/(2*sizeof(int)), au_attr);
70 ccl_qual_add (bibset, "pd", sizeof(pd_attr)/(2*sizeof(int)), pd_attr);
75 struct ccl_rpn_node *rpn;
77 printf ("CCLSH>"); fflush (stdout);
78 if (!fgets (buf, 79, stdin))
80 rpn = ccl_find_str (bibset, buf, &error, &pos);
83 printf ("%*s^ - ", 6+pos, " ");
84 printf ("%s\n", ccl_err_msg (error));