| 1 | /*
|
|---|
| 2 | * Copyright (c) 1995, the EUROPAGATE consortium (see below).
|
|---|
| 3 | *
|
|---|
| 4 | * The EUROPAGATE consortium members are:
|
|---|
| 5 | *
|
|---|
| 6 | * University College Dublin
|
|---|
| 7 | * Danmarks Teknologiske Videnscenter
|
|---|
| 8 | * An Chomhairle Leabharlanna
|
|---|
| 9 | * Consejo Superior de Investigaciones Cientificas
|
|---|
| 10 | *
|
|---|
| 11 | * Permission to use, copy, modify, distribute, and sell this software and
|
|---|
| 12 | * its documentation, in whole or in part, for any purpose, is hereby granted,
|
|---|
| 13 | * provided that:
|
|---|
| 14 | *
|
|---|
| 15 | * 1. This copyright and permission notice appear in all copies of the
|
|---|
| 16 | * software and its documentation. Notices of copyright or attribution
|
|---|
| 17 | * which appear at the beginning of any file must remain unchanged.
|
|---|
| 18 | *
|
|---|
| 19 | * 2. The names of EUROPAGATE or the project partners may not be used to
|
|---|
| 20 | * endorse or promote products derived from this software without specific
|
|---|
| 21 | * prior written permission.
|
|---|
| 22 | *
|
|---|
| 23 | * 3. Users of this software (implementors and gateway operators) agree to
|
|---|
| 24 | * inform the EUROPAGATE consortium of their use of the software. This
|
|---|
| 25 | * information will be used to evaluate the EUROPAGATE project and the
|
|---|
| 26 | * software, and to plan further developments. The consortium may use
|
|---|
| 27 | * the information in later publications.
|
|---|
| 28 | *
|
|---|
| 29 | * 4. Users of this software agree to make their best efforts, when
|
|---|
| 30 | * documenting their use of the software, to acknowledge the EUROPAGATE
|
|---|
| 31 | * consortium, and the role played by the software in their work.
|
|---|
| 32 | *
|
|---|
| 33 | * THIS SOFTWARE IS PROVIDED "AS IS" AND WITHOUT WARRANTY OF ANY KIND,
|
|---|
| 34 | * EXPRESS, IMPLIED, OR OTHERWISE, INCLUDING WITHOUT LIMITATION, ANY
|
|---|
| 35 | * WARRANTY OF MERCHANTABILITY OR FITNESS FOR A PARTICULAR PURPOSE.
|
|---|
| 36 | * IN NO EVENT SHALL THE EUROPAGATE CONSORTIUM OR ITS MEMBERS BE LIABLE
|
|---|
| 37 | * FOR ANY SPECIAL, INCIDENTAL, INDIRECT OR CONSEQUENTIAL DAMAGES OF
|
|---|
| 38 | * ANY KIND, OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA
|
|---|
| 39 | * OR PROFITS, WHETHER OR NOT ADVISED OF THE POSSIBILITY OF DAMAGE, AND
|
|---|
| 40 | * ON ANY THEORY OF LIABILITY, ARISING OUT OF OR IN CONNECTION WITH THE
|
|---|
| 41 | * USE OR PERFORMANCE OF THIS SOFTWARE.
|
|---|
| 42 | *
|
|---|
| 43 | */
|
|---|
| 44 | /* CCL shell.
|
|---|
| 45 | * Europagate 1995
|
|---|
| 46 | *
|
|---|
| 47 | * $Log$
|
|---|
| 48 | * Revision 1.1 2000/08/03 03:09:58 johnmcp
|
|---|
| 49 | * Added the YAZ toolkit source to the packages directory (for z39.50 stuff)
|
|---|
| 50 | *
|
|---|
| 51 | * Revision 1.6 2000/01/31 13:15:21 adam
|
|---|
| 52 | * Removed uses of assert(3). Cleanup of ODR. CCL parser update so
|
|---|
| 53 | * that some characters are not surrounded by spaces in resulting term.
|
|---|
| 54 | * ILL-code updates.
|
|---|
| 55 | *
|
|---|
| 56 | * Revision 1.5 1999/12/16 23:36:19 adam
|
|---|
| 57 | * Implemented ILL protocol. Minor updates ASN.1 compiler.
|
|---|
| 58 | *
|
|---|
| 59 | * Revision 1.4 1999/03/31 11:15:37 adam
|
|---|
| 60 | * Fixed memory leaks in ccl_find_str and ccl_qual_rm.
|
|---|
| 61 | *
|
|---|
| 62 | * Revision 1.3 1997/04/30 08:52:07 quinn
|
|---|
| 63 | * Null
|
|---|
| 64 | *
|
|---|
| 65 | * Revision 1.2 1996/10/11 15:00:25 adam
|
|---|
| 66 | * CCL parser from Europagate Email gateway 1.0.
|
|---|
| 67 | *
|
|---|
| 68 | * Revision 1.11 1995/05/16 09:39:27 adam
|
|---|
| 69 | * LICENSE.
|
|---|
| 70 | *
|
|---|
| 71 | * Revision 1.10 1995/05/11 14:03:57 adam
|
|---|
| 72 | * Changes in the reading of qualifier(s). New function: ccl_qual_fitem.
|
|---|
| 73 | * New variable ccl_case_sensitive, which controls whether reserved
|
|---|
| 74 | * words and field names are case sensitive or not.
|
|---|
| 75 | *
|
|---|
| 76 | * Revision 1.9 1995/02/23 08:32:00 adam
|
|---|
| 77 | * Changed header.
|
|---|
| 78 | *
|
|---|
| 79 | * Revision 1.7 1995/02/15 17:42:16 adam
|
|---|
| 80 | * Minor changes of the api of this module. FILE* argument added
|
|---|
| 81 | * to ccl_pr_tree.
|
|---|
| 82 | *
|
|---|
| 83 | * Revision 1.6 1995/02/14 19:55:13 adam
|
|---|
| 84 | * Header files ccl.h/cclp.h are gone! They have been merged an
|
|---|
| 85 | * moved to ../include/ccl.h.
|
|---|
| 86 | * Node kind(s) in ccl_rpn_node have changed names.
|
|---|
| 87 | *
|
|---|
| 88 | * Revision 1.5 1995/02/14 16:20:57 adam
|
|---|
| 89 | * Qualifiers are read from a file now.
|
|---|
| 90 | *
|
|---|
| 91 | * Revision 1.4 1995/02/14 14:12:42 adam
|
|---|
| 92 | * Ranges for ordered qualfiers implemented (e.g. pd=1980-1990).
|
|---|
| 93 | *
|
|---|
| 94 | * Revision 1.3 1995/02/14 10:25:57 adam
|
|---|
| 95 | * The constructions 'qualifier rel term ...' implemented.
|
|---|
| 96 | *
|
|---|
| 97 | * Revision 1.2 1995/02/13 15:15:07 adam
|
|---|
| 98 | * Added handling of qualifiers. Not finished yet.
|
|---|
| 99 | *
|
|---|
| 100 | * Revision 1.1 1995/02/13 12:35:21 adam
|
|---|
| 101 | * First version of CCL. Qualifiers aren't handled yet.
|
|---|
| 102 | *
|
|---|
| 103 | */
|
|---|
| 104 |
|
|---|
| 105 | #include <stdio.h>
|
|---|
| 106 | #include <stdlib.h>
|
|---|
| 107 |
|
|---|
| 108 | #include <yaz/ccl.h>
|
|---|
| 109 |
|
|---|
| 110 | static int debug = 0;
|
|---|
| 111 | static char *prog;
|
|---|
| 112 |
|
|---|
| 113 | int main (int argc, char **argv)
|
|---|
| 114 | {
|
|---|
| 115 | CCL_bibset bibset;
|
|---|
| 116 | FILE *bib_inf;
|
|---|
| 117 | char *bib_fname;
|
|---|
| 118 |
|
|---|
| 119 | prog = *argv;
|
|---|
| 120 | bibset = ccl_qual_mk ();
|
|---|
| 121 | while (--argc > 0)
|
|---|
| 122 | {
|
|---|
| 123 | if (**++argv == '-')
|
|---|
| 124 | {
|
|---|
| 125 | switch (argv[0][1])
|
|---|
| 126 | {
|
|---|
| 127 | case 'd':
|
|---|
| 128 | debug = 1;
|
|---|
| 129 | break;
|
|---|
| 130 | case 'b':
|
|---|
| 131 | if (argv[0][2])
|
|---|
| 132 | bib_fname = argv[0]+2;
|
|---|
| 133 | else if (argc > 0)
|
|---|
| 134 | {
|
|---|
| 135 | --argc;
|
|---|
| 136 | bib_fname = *++argv;
|
|---|
| 137 | }
|
|---|
| 138 | else
|
|---|
| 139 | {
|
|---|
| 140 | fprintf (stderr, "%s: missing bib filename\n", prog);
|
|---|
| 141 | exit (1);
|
|---|
| 142 | }
|
|---|
| 143 | bib_inf = fopen (bib_fname, "r");
|
|---|
| 144 | if (!bib_inf)
|
|---|
| 145 | {
|
|---|
| 146 | fprintf (stderr, "%s: cannot open %s\n", prog,
|
|---|
| 147 | bib_fname);
|
|---|
| 148 | exit (1);
|
|---|
| 149 | }
|
|---|
| 150 | ccl_qual_file (bibset, bib_inf);
|
|---|
| 151 | fclose (bib_inf);
|
|---|
| 152 | break;
|
|---|
| 153 | default:
|
|---|
| 154 | fprintf (stderr, "%s: unknown option '%s'\n",
|
|---|
| 155 | prog, *argv);
|
|---|
| 156 | exit (1);
|
|---|
| 157 | }
|
|---|
| 158 | }
|
|---|
| 159 | else
|
|---|
| 160 | {
|
|---|
| 161 | fprintf (stderr, "%s: no filenames, please\n", prog);
|
|---|
| 162 | exit (1);
|
|---|
| 163 | }
|
|---|
| 164 | }
|
|---|
| 165 | while (1)
|
|---|
| 166 | {
|
|---|
| 167 | char buf[80];
|
|---|
| 168 | int i, error, pos;
|
|---|
| 169 | struct ccl_rpn_node *rpn;
|
|---|
| 170 |
|
|---|
| 171 | printf ("CCLSH>"); fflush (stdout);
|
|---|
| 172 | if (!fgets (buf, 79, stdin))
|
|---|
| 173 | break;
|
|---|
| 174 | for (i = 0; i<1; i++)
|
|---|
| 175 | {
|
|---|
| 176 | rpn = ccl_find_str (bibset, buf, &error, &pos);
|
|---|
| 177 | if (error)
|
|---|
| 178 | {
|
|---|
| 179 | printf ("%*s^ - ", 6+pos, " ");
|
|---|
| 180 | printf ("%s\n", ccl_err_msg (error));
|
|---|
| 181 | }
|
|---|
| 182 | else
|
|---|
| 183 | {
|
|---|
| 184 | if (rpn && i == 0)
|
|---|
| 185 | {
|
|---|
| 186 | ccl_pr_tree (rpn, stdout);
|
|---|
| 187 | putchar ('\n');
|
|---|
| 188 | }
|
|---|
| 189 | }
|
|---|
| 190 | if (rpn)
|
|---|
| 191 | ccl_rpn_delete(rpn);
|
|---|
| 192 | }
|
|---|
| 193 | }
|
|---|
| 194 | putchar ('\n');
|
|---|
| 195 | return 0;
|
|---|
| 196 | }
|
|---|
