* \file
* \brief Implements RPN to CQL conversion
*
- * Evaluation order of rules:
- *
- * always
- * relation
- * structure
- * position
- * truncation
- * index
- * relationModifier
*/
#include <assert.h>
#include <yaz/z-core.h>
#include <yaz/wrbuf.h>
+static int rpn2cql_attr(cql_transform_t ct,
+ Z_AttributeList *attributes, WRBUF w)
+{
+ const char *relation = cql_lookup_reverse(ct, "relation.", attributes);
+ const char *index = cql_lookup_reverse(ct, "index.", attributes);
+ const char *structure = cql_lookup_reverse(ct, "structure.", attributes);
+ if (index && strcmp(index, "index.cql.serverChoice"))
+ {
+ wrbuf_puts(w, index+6);
+ if (relation)
+ {
+ relation += 9;
+
+ if (!strcmp(relation, "exact"))
+ relation = "==";
+ else if (!strcmp(relation, "eq"))
+ relation = "=";
+ else if (!strcmp(relation, "le"))
+ relation = "<=";
+ else if (!strcmp(relation, "ge"))
+ relation = ">=";
+ wrbuf_puts(w, relation);
+ }
+ else
+ wrbuf_puts(w, "=");
+
+ if (structure)
+ {
+ structure += 10;
+ if (strcmp(structure, "*"))
+ {
+ wrbuf_puts(w, "/");
+ wrbuf_puts(w, structure);
+ wrbuf_puts(w, " ");
+ }
+ }
+ }
+ return 0;
+}
+
static int rpn2cql_simple(cql_transform_t ct,
void (*pr)(const char *buf, void *client_data),
void *client_data,
- Z_Operand *q)
+ Z_Operand *q, WRBUF w)
{
int ret = 0;
if (q->which != Z_Operand_APT)
{
Z_AttributesPlusTerm *apt = q->u.attributesPlusTerm;
Z_Term *term = apt->term;
- Z_AttributeList *attributes = apt->attributes;
- WRBUF w = wrbuf_alloc();
+ const char *sterm = 0;
+ size_t lterm = 0;
+
+ wrbuf_rewind(w);
+ ret = rpn2cql_attr(ct, apt->attributes, w);
switch(term->which)
{
case Z_Term_general:
- wrbuf_write(w, (const char *) term->u.general->buf, term->u.general->len);
+ lterm = term->u.general->len;
+ sterm = (const char *) term->u.general->buf;
break;
case Z_Term_numeric:
wrbuf_printf(w, "%d", *term->u.numeric);
break;
case Z_Term_characterString:
- wrbuf_puts(w, term->u.characterString);
+ sterm = term->u.characterString;
+ lterm = strlen(sterm);
break;
default:
ret = -1;
cql_transform_set_error(ct, YAZ_BIB1_TERM_TYPE_UNSUPP, 0);
}
+
+ if (term)
+ {
+ size_t i;
+ int must_quote = 0;
+ for (i = 0 ; i < lterm; i++)
+ if (sterm[i] == ' ')
+ must_quote = 1;
+ if (must_quote)
+ wrbuf_puts(w, "\"");
+ wrbuf_write(w, sterm, lterm);
+ if (must_quote)
+ wrbuf_puts(w, "\"");
+ }
if (ret == 0)
pr(wrbuf_cstr(w), client_data);
- wrbuf_destroy(w);
}
return ret;
}
static int rpn2cql_structure(cql_transform_t ct,
void (*pr)(const char *buf, void *client_data),
void *client_data,
- Z_RPNStructure *q, int nested)
+ Z_RPNStructure *q, int nested,
+ WRBUF w)
{
if (q->which == Z_RPNStructure_simple)
- return rpn2cql_simple(ct, pr, client_data, q->u.simple);
+ return rpn2cql_simple(ct, pr, client_data, q->u.simple, w);
else
{
Z_Operator *op = q->u.complex->roperator;
if (nested)
pr("(", client_data);
- r = rpn2cql_structure(ct, pr, client_data, q->u.complex->s1, 1);
+ r = rpn2cql_structure(ct, pr, client_data, q->u.complex->s1, 1, w);
if (r)
return r;
switch(op->which)
cql_transform_set_error(ct, YAZ_BIB1_UNSUPP_SEARCH, 0);
return -1;
}
- r = rpn2cql_structure(ct, pr, client_data, q->u.complex->s2, 1);
+ r = rpn2cql_structure(ct, pr, client_data, q->u.complex->s2, 1, w);
if (nested)
pr(")", client_data);
return r;
}
}
-int cql_transform_rpn2cql(cql_transform_t ct,
- void (*pr)(const char *buf, void *client_data),
- void *client_data,
- Z_RPNQuery *q)
+int cql_transform_rpn2cql_stream(cql_transform_t ct,
+ void (*pr)(const char *buf, void *client_data),
+ void *client_data,
+ Z_RPNQuery *q)
{
+ int r;
+ WRBUF w = wrbuf_alloc();
cql_transform_set_error(ct, 0, 0);
- return rpn2cql_structure(ct, pr, client_data, q->RPNStructure, 0);
+ r = rpn2cql_structure(ct, pr, client_data, q->RPNStructure, 0, w);
+ wrbuf_destroy(w);
+ return r;
}
+int cql_transform_rpn2cql_wrbuf(cql_transform_t ct,
+ WRBUF w,
+ Z_RPNQuery *q)
+{
+ return cql_transform_rpn2cql_stream(ct, wrbuf_vputs, w, q);
+}
+
/*
* Local variables:
* c-basic-offset: 4