1 /* This file is part of the YAZ toolkit.
2 * Copyright (C) 1995-2008 Index Data
3 * See the file LICENSE for details.
5 /* bison parser for CQL grammar. */
9 * \brief Implements CQL parser.
11 * This is a YACC parser, but since it must be reentrant, Bison is required.
12 * The original source file is cql.y.
18 #include <yaz/xmalloc.h>
22 /** Node in the LALR parse tree. */
24 /** Inhereted attribute: relation */
26 /** Synthesized attribute: CQL node */
28 /** string buffer with token */
30 /** length of token */
32 /** size of buffer (len <= size) */
37 int (*getbyte)(void *client_data);
38 void (*ungetbyte)(int b, void *client_data);
48 #define YYPARSE_PARAM parm
49 #define YYLEX_PARAM parm
51 int yylex(YYSTYPE *lval, void *vp);
56 %token DOTTERM TERM AND OR NOT PROX GE LE NE EXACT SORTBY
61 $$.rel = cql_node_mk_sc(((CQL_parser) parm)->nmem,
62 "cql.serverChoice", "=", 0);
63 ((CQL_parser) parm)->top = 0;
65 cql_node_destroy($$.rel);
66 ((CQL_parser) parm)->top = $2.cql;
73 sortSpec: sortSpec singleSpec
76 singleSpec: index modifiers ;
80 cql_node_destroy($1.cql);
88 '>' searchTerm '=' searchTerm {
91 $$.cql = cql_apply_prefix(((CQL_parser) parm)->nmem,
92 $6.cql, $2.buf, $4.buf);
97 $$.cql = cql_apply_prefix(((CQL_parser) parm)->nmem,
105 scopedClause boolean modifiers {
108 struct cql_node *cn = cql_node_mk_boolean(((CQL_parser) parm)->nmem,
111 cn->u.boolean.modifiers = $3.cql;
112 cn->u.boolean.left = $1.cql;
113 cn->u.boolean.right = $5.cql;
127 searchTerm extraTerms {
128 struct cql_node *st = cql_node_dup(((CQL_parser) parm)->nmem, $0.rel);
129 st->u.st.extra_terms = $2.cql;
130 st->u.st.term = nmem_strdup(((CQL_parser)parm)->nmem, $1.buf);
134 index relation modifiers {
135 $$.rel = cql_node_mk_sc(((CQL_parser) parm)->nmem, $1.buf, $2.buf, 0);
136 $$.rel->u.st.modifiers = $3.cql;
139 cql_node_destroy($4.rel);
145 struct cql_node *st = cql_node_mk_sc(((CQL_parser) parm)->nmem,
146 /* index */ 0, /* rel */ 0, $2.buf);
147 st->u.st.extra_terms = $1.cql;
155 /* unary NOT search TERM here .. */
158 AND | OR | NOT | PROX ;
160 modifiers: modifiers '/' searchTerm
162 struct cql_node *mod = cql_node_mk_sc(((CQL_parser)parm)->nmem,
165 mod->u.st.modifiers = $1.cql;
169 modifiers '/' searchTerm mrelation searchTerm
171 struct cql_node *mod = cql_node_mk_sc(((CQL_parser)parm)->nmem,
172 $3.buf, $4.buf, $5.buf);
174 mod->u.st.modifiers = $1.cql;
225 * putb is a utility that puts one character to the string
226 * in current lexical token. This routine deallocates as
227 * necessary using NMEM.
230 static void putb(YYSTYPE *lval, CQL_parser cp, int c)
232 if (lval->len+1 >= lval->size)
235 nmem_malloc(cp->nmem, (lval->size = lval->len * 2 + 20));
236 memcpy (nb, lval->buf, lval->len);
240 lval->buf[lval->len++] = c;
241 lval->buf[lval->len] = '\0';
246 * yylex returns next token for Bison to be read. In this
247 * case one of the CQL terminals are returned.
249 int yylex(YYSTYPE *lval, void *vp)
251 CQL_parser cp = (CQL_parser) vp;
257 lval->buf = (char *) nmem_malloc(cp->nmem, lval->size);
261 c = cp->getbyte(cp->client_data);
266 } while (isspace(c));
267 if (strchr("()=></", c))
273 c1 = cp->getbyte(cp->client_data);
280 cp->ungetbyte(c1, cp->client_data);
284 c1 = cp->getbyte(cp->client_data);
291 cp->ungetbyte(c1, cp->client_data);
295 c1 = cp->getbyte(cp->client_data);
307 cp->ungetbyte(c1, cp->client_data);
313 while ((c = cp->getbyte(cp->client_data)) != 0 && c != '"')
318 c = cp->getbyte(cp->client_data);
329 int relation_like = 0;
330 while (c != 0 && !strchr(" \n()=<>/", c))
337 c = cp->getbyte(cp->client_data);
342 c = cp->getbyte(cp->client_data);
346 printf ("got %s\n", lval->buf);
349 cp->ungetbyte(c, cp->client_data);
350 if (!cql_strcmp(lval->buf, "and"))
355 if (!cql_strcmp(lval->buf, "or"))
360 if (!cql_strcmp(lval->buf, "not"))
365 if (!cql_strcmp(lval->buf, "prox"))
370 if (!cql_strcmp(lval->buf, "sortby"))
372 lval->buf = "sortby";
375 if (!cql_strcmp(lval->buf, "all"))
377 if (!cql_strcmp(lval->buf, "any"))
386 int cql_parser_stream(CQL_parser cp,
387 int (*getbyte)(void *client_data),
388 void (*ungetbyte)(int b, void *client_data),
391 nmem_reset(cp->nmem);
392 cp->getbyte = getbyte;
393 cp->ungetbyte = ungetbyte;
394 cp->client_data = client_data;
396 cql_node_destroy(cp->top);
403 CQL_parser cql_parser_create(void)
405 CQL_parser cp = (CQL_parser) xmalloc (sizeof(*cp));
413 cp->nmem = nmem_create();
417 void cql_parser_destroy(CQL_parser cp)
419 cql_node_destroy(cp->top);
420 nmem_destroy(cp->nmem);
424 struct cql_node *cql_parser_result(CQL_parser cp)