X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=ccl%2Fcclsh.c;h=4d48c4fc65a9c4a502d3d48d2130372445029730;hb=26d07328e36c41d39216d66d742d133cf7512995;hp=5f1bb83949b3d003b4455d60879c75da9db13338;hpb=ba3b08ceb55b7448c0022892d6d013a107b26ab7;p=yaz-moved-to-github.git diff --git a/ccl/cclsh.c b/ccl/cclsh.c index 5f1bb83..4d48c4f 100644 --- a/ccl/cclsh.c +++ b/ccl/cclsh.c @@ -45,7 +45,21 @@ * Europagate 1995 * * $Log: cclsh.c,v $ - * Revision 1.4 1999-03-31 11:15:37 adam + * Revision 1.8 2001-03-18 20:45:39 ja7 + * Added readline and history support to cclsh + * + * Revision 1.7 2000/10/17 19:50:28 adam + * Implemented and-list and or-list for CCL module. + * + * Revision 1.6 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.5 1999/12/16 23:36:19 adam + * Implemented ILL protocol. Minor updates ASN.1 compiler. + * + * Revision 1.4 1999/03/31 11:15:37 adam * Fixed memory leaks in ccl_find_str and ccl_qual_rm. * * Revision 1.3 1997/04/30 08:52:07 quinn @@ -93,13 +107,27 @@ #include #include -#include -#include +#include + + +#if HAVE_READLINE_READLINE_H +#include +#endif +#if HAVE_READLINE_HISTORY_H +#include +#endif + static int debug = 0; static char *prog; +void usage(const char *prog) +{ + fprintf (stderr, "%s: [-d] [-b configfile]\n", prog); + exit (1); +} + int main (int argc, char **argv) { CCL_bibset bibset; @@ -141,9 +169,7 @@ int main (int argc, char **argv) fclose (bib_inf); break; default: - fprintf (stderr, "%s: unknown option '%s'\n", - prog, *argv); - exit (1); + usage(prog); } } else @@ -154,13 +180,31 @@ int main (int argc, char **argv) } while (1) { - char buf[80]; + char buf[1000]; int i, error, pos; struct ccl_rpn_node *rpn; +#if HAVE_READLINE_READLINE_H + char* line_in; + line_in=readline("CCLSH>"); + if (!line_in) + break; +#if HAVE_READLINE_HISTORY_H + if (*line_in) + add_history(line_in); +#endif + if(strlen(line_in) > 999) { + fprintf(stderr,"Input line to long\n"); + break; + }; + strcpy(buf,line_in); + free (line_in); +#else printf ("CCLSH>"); fflush (stdout); - if (!fgets (buf, 79, stdin)) + if (!fgets (buf, 999, stdin)) break; +#endif + for (i = 0; i<1; i++) { rpn = ccl_find_str (bibset, buf, &error, &pos); @@ -171,8 +215,7 @@ int main (int argc, char **argv) } else { - assert (rpn); - if (i == 0) + if (rpn && i == 0) { ccl_pr_tree (rpn, stdout); putchar ('\n');