/* This file is part of the YAZ toolkit.
- * Copyright (C) 1995-2011 Index Data
+ * Copyright (C) 1995-2012 Index Data
* See the file LICENSE for details.
*/
/**
* \file cql2ccl.c
- * \brief Implements CQL to XCQL conversion.
+ * \brief Implements CQL to CCL conversion.
*/
#if HAVE_CONFIG_H
#include <config.h>
void (*pr)(const char *buf, void *client_data),
void *client_data);
-static void pr_term(struct cql_node *cn,
+static void pr_term(const char **cpp, int stop_at_space,
void (*pr)(const char *buf, void *client_data),
void *client_data)
{
- while (cn)
+ const char *cp;
+ int quote_mode = 0;
+ for (cp = *cpp; *cp; cp++)
{
- const char *cp;
- for (cp = cn->u.st.term; *cp; cp++)
+ char x[4];
+
+ if (*cp == '\\' && cp[1])
{
- char x[4];
-
- if (*cp == '\\' && cp[1])
- {
- x[0] = cp[0];
- x[1] = cp[1];
- x[2] = '\0';
- cp++;
- }
- else if (*cp == '#')
+ if (!quote_mode)
{
- strcpy(x, "\\#");
+ pr("\"", client_data);
+ quote_mode = 1;
}
- else if (*cp == '*')
+ cp++;
+ if (*cp == '\"' || *cp == '\\')
+ pr("\\", client_data);
+ x[0] = *cp;
+ x[1] = '\0';
+ pr(x, client_data);
+ }
+ else if (*cp == '*')
+ {
+ if (quote_mode)
{
- strcpy(x, "?");
+ pr("\"", client_data);
+ quote_mode = 0;
}
- else if (*cp == '?')
+ pr("?", client_data);
+ }
+ else if (*cp == '?')
+ {
+ if (quote_mode)
{
- strcpy(x, "#");
+ pr("\"", client_data);
+ quote_mode = 0;
}
- else
+ pr("#", client_data);
+ }
+ else if (*cp == ' ' && stop_at_space)
+ break;
+ else
+ {
+ if (!quote_mode)
{
- x[0] = *cp;
- x[1] = '\0';
+ pr("\"", client_data);
+ quote_mode = 1;
}
+ x[0] = *cp;
+ x[1] = '\0';
pr(x, client_data);
}
- if (cn->u.st.extra_terms)
- pr(" ", client_data);
- cn = cn->u.st.extra_terms;
}
+ if (quote_mode)
+ pr("\"", client_data);
+ if (cp == *cpp)
+ pr("\"\"", client_data);
+ *cpp = cp;
}
static int node(struct cql_node *cn,
/* unsupported relation */
return -1;
}
- if (!split_op)
- {
- if (ccl_field && ccl_rel)
- {
- pr(ccl_field, client_data);
- pr(ccl_rel, client_data);
- }
- pr_term(cn, pr, client_data);
- }
- else
+ for (; cn; cn = cn->u.st.extra_terms)
{
const char *cp = cn->u.st.term;
-
while (1)
{
- if (*cp == '\0')
- break;
if (ccl_field && ccl_rel)
{
pr(ccl_field, client_data);
pr(ccl_rel, client_data);
+ if (!split_op)
+ ccl_rel = 0;
}
- while (*cp && *cp != ' ')
- {
- char x[2];
- if (*cp == '*')
- x[0] = '?';
- else
- x[0] = *cp;
- x[1] = '\0';
- pr(x, client_data);
- cp++;
- }
+ pr_term(&cp, split_op ? 1 : 0, pr, client_data);
while (*cp == ' ')
cp++;
if (*cp == '\0')
break;
pr(" ", client_data);
- pr(split_op, client_data);
- pr(" ", client_data);
+ if (split_op)
+ {
+ pr(split_op, client_data);
+ pr(" ", client_data);
+ }
+ }
+ if (cn->u.st.extra_terms)
+ {
+ pr(" ", client_data);
+ if (split_op)
+ {
+ pr(split_op, client_data);
+ pr(" ", client_data);
+ }
}
}
return 0;
if (r)
return r;
- pr(" ", client_data);
+ pr(") ", client_data);
if (strcmp(value, "prox"))
{ /* not proximity. assuming boolean */
if (!strcmp(n->u.st.relation, "<="))
distance = atoi(n->u.st.term);
else if (!strcmp(n->u.st.relation, "<"))
- distance = atoi(n->u.st.term) - 1;
+ distance = atoi(n->u.st.term) - 1;
else
return -1;
}
pr(x, client_data);
}
}
- pr(" ", client_data);
+ pr(" (", client_data);
r = cql_to_ccl_r(cn->u.boolean.right, pr, client_data);
pr(")", client_data);