-/* $Id: cqlutil.c,v 1.5 2004-10-03 22:34:07 adam Exp $
- Copyright (C) 2002-2004
- Index Data Aps
-
-This file is part of the YAZ toolkit.
-
-See the file LICENSE for details.
-*/
+/* This file is part of the YAZ toolkit.
+ * Copyright (C) 1995-2010 Index Data
+ * See the file LICENSE for details.
+ */
/**
* \file cqlutil.c
#include <stdlib.h>
#include <string.h>
-#include <yaz/xmalloc.h>
#include <yaz/cql.h>
void cql_fputs(const char *buf, void *client_data)
fputs(buf, f);
}
-struct cql_node *cql_node_dup (struct cql_node *cp)
+struct cql_node *cql_node_dup (NMEM nmem, struct cql_node *cp)
{
struct cql_node *cn = 0;
switch (cp->which)
{
case CQL_NODE_ST:
- cn = cql_node_mk_sc(cp->u.st.index,
+ cn = cql_node_mk_sc(nmem, cp->u.st.index,
cp->u.st.relation,
cp->u.st.term);
- cn->u.st.modifiers = cql_node_dup(cp->u.st.modifiers);
- cn->u.st.index_uri = cp->u.st.index_uri ?
- xstrdup(cp->u.st.index_uri) : 0;
- cn->u.st.relation_uri = cp->u.st.relation_uri ?
- xstrdup(cp->u.st.relation_uri) : 0;
+ cn->u.st.modifiers = cql_node_dup(nmem, cp->u.st.modifiers);
+ cn->u.st.index_uri = cp->u.st.index_uri ?
+ nmem_strdup(nmem, cp->u.st.index_uri) : 0;
+ cn->u.st.relation_uri = cp->u.st.relation_uri ?
+ nmem_strdup(nmem, cp->u.st.relation_uri) : 0;
break;
case CQL_NODE_BOOL:
- cn = cql_node_mk_boolean(cp->u.boolean.value);
- cn->u.boolean.left = cql_node_dup(cp->u.boolean.left);
- cn->u.boolean.right = cql_node_dup(cp->u.boolean.right);
+ cn = cql_node_mk_boolean(nmem, cp->u.boolean.value);
+ cn->u.boolean.left = cql_node_dup(nmem, cp->u.boolean.left);
+ cn->u.boolean.right = cql_node_dup(nmem, cp->u.boolean.right);
}
return cn;
}
-struct cql_node *cql_node_mk_sc(const char *index,
+struct cql_node *cql_node_mk_sc(NMEM nmem,
+ const char *index,
const char *relation,
const char *term)
{
- struct cql_node *p = (struct cql_node *) xmalloc(sizeof(*p));
+ struct cql_node *p = (struct cql_node *) nmem_malloc(nmem, sizeof(*p));
p->which = CQL_NODE_ST;
p->u.st.index = 0;
if (index)
- p->u.st.index = xstrdup(index);
+ p->u.st.index = nmem_strdup(nmem, index);
p->u.st.index_uri = 0;
p->u.st.term = 0;
if (term)
- p->u.st.term = xstrdup(term);
+ p->u.st.term = nmem_strdup(nmem, term);
p->u.st.relation = 0;
if (relation)
- p->u.st.relation = xstrdup(relation);
+ p->u.st.relation = nmem_strdup(nmem, relation);
p->u.st.relation_uri = 0;
p->u.st.modifiers = 0;
+ p->u.st.extra_terms = 0;
return p;
}
-struct cql_node *cql_node_mk_boolean(const char *op)
+struct cql_node *cql_node_mk_boolean(NMEM nmem, const char *op)
{
- struct cql_node *p = (struct cql_node *) xmalloc(sizeof(*p));
+ struct cql_node *p = (struct cql_node *) nmem_malloc(nmem, sizeof(*p));
p->which = CQL_NODE_BOOL;
p->u.boolean.value = 0;
if (op)
- p->u.boolean.value = xstrdup(op);
+ p->u.boolean.value = nmem_strdup(nmem, op);
p->u.boolean.left = 0;
p->u.boolean.right = 0;
p->u.boolean.modifiers = 0;
return p;
}
-const char *cql_uri()
+const char *cql_uri(void)
{
- return "info:srw/cql-context-set/1/cql-v1.1";
+ return "info:srw/cql-context-set/1/cql-v1.2";
}
-struct cql_node *cql_apply_prefix(struct cql_node *n, const char *prefix,
- const char *uri)
+struct cql_node *cql_apply_prefix(NMEM nmem,
+ struct cql_node *n, const char *prefix,
+ const char *uri)
{
if (n->which == CQL_NODE_ST)
{
- if (!n->u.st.index_uri && n->u.st.index)
- { /* not yet resolved.. */
- const char *cp = strchr(n->u.st.index, '.');
- if (prefix && cp &&
- strlen(prefix) == (size_t) (cp - n->u.st.index) &&
- !memcmp(n->u.st.index, prefix, strlen(prefix)))
- {
- char *nval = xstrdup(cp+1);
- n->u.st.index_uri = xstrdup(uri);
- xfree (n->u.st.index);
- n->u.st.index = nval;
- }
- else if (!prefix && !cp)
- {
- n->u.st.index_uri = xstrdup(uri);
- }
- }
- if (!n->u.st.relation_uri && n->u.st.relation)
- {
- const char *cp = strchr(n->u.st.relation, '.');
- if (prefix && cp &&
- strlen(prefix) == (size_t)(cp - n->u.st.relation) &&
- !memcmp(n->u.st.relation, prefix, strlen(prefix)))
- {
- char *nval = xstrdup(cp+1);
- n->u.st.relation_uri = xstrdup(uri);
- xfree (n->u.st.relation);
- n->u.st.relation = nval;
- }
- }
+ if (!n->u.st.index_uri && n->u.st.index)
+ { /* not yet resolved.. */
+ const char *cp = strchr(n->u.st.index, '.');
+ if (prefix && cp &&
+ strlen(prefix) == (size_t) (cp - n->u.st.index) &&
+ !cql_strncmp(n->u.st.index, prefix, strlen(prefix)))
+ {
+ char *nval = nmem_strdup(nmem, cp+1);
+ n->u.st.index_uri = nmem_strdup(nmem, uri);
+ n->u.st.index = nval;
+ }
+ else if (!prefix && !cp)
+ {
+ n->u.st.index_uri = nmem_strdup(nmem, uri);
+ }
+ }
+ if (!n->u.st.relation_uri && n->u.st.relation)
+ {
+ const char *cp = strchr(n->u.st.relation, '.');
+ if (prefix && cp &&
+ strlen(prefix) == (size_t)(cp - n->u.st.relation) &&
+ !cql_strncmp(n->u.st.relation, prefix, strlen(prefix)))
+ {
+ char *nval = nmem_strdup(nmem, cp+1);
+ n->u.st.relation_uri = nmem_strdup(nmem, uri);
+ n->u.st.relation = nval;
+ }
+ }
}
else if (n->which == CQL_NODE_BOOL)
{
- cql_apply_prefix(n->u.boolean.left, prefix, uri);
- cql_apply_prefix(n->u.boolean.right, prefix, uri);
+ cql_apply_prefix(nmem, n->u.boolean.left, prefix, uri);
+ cql_apply_prefix(nmem, n->u.boolean.right, prefix, uri);
}
return n;
}
switch (cn->which)
{
case CQL_NODE_ST:
- xfree (cn->u.st.index);
- xfree (cn->u.st.relation);
- xfree (cn->u.st.term);
- xfree (cn->u.st.index_uri);
- xfree (cn->u.st.relation_uri);
cql_node_destroy(cn->u.st.modifiers);
break;
case CQL_NODE_BOOL:
- xfree (cn->u.boolean.value);
cql_node_destroy(cn->u.boolean.left);
cql_node_destroy(cn->u.boolean.right);
cql_node_destroy(cn->u.boolean.modifiers);
}
- xfree (cn);
}
+
+int cql_strcmp(const char *s1, const char *s2)
+{
+ while (*s1 && *s2)
+ {
+ int c1 = *s1++;
+ int c2 = *s2++;
+ if (c1 >= 'A' && c1 <= 'Z')
+ c1 = c1 + ('a' - 'A');
+ if (c2 >= 'A' && c2 <= 'Z')
+ c2 = c2 + ('a' - 'A');
+ if (c1 != c2)
+ return c1 - c2;
+ }
+ return *s1 - *s2;
+}
+
+int cql_strncmp(const char *s1, const char *s2, size_t n)
+{
+ while (*s1 && *s2 && n)
+ {
+ int c1 = *s1++;
+ int c2 = *s2++;
+ if (c1 >= 'A' && c1 <= 'Z')
+ c1 = c1 + ('a' - 'A');
+ if (c2 >= 'A' && c2 <= 'Z')
+ c2 = c2 + ('a' - 'A');
+ if (c1 != c2)
+ return c1 - c2;
+ --n;
+ }
+ if (!n)
+ return 0;
+ return *s1 - *s2;
+}
+
+/*
+ * Local variables:
+ * c-basic-offset: 4
+ * c-file-style: "Stroustrup"
+ * indent-tabs-mode: nil
+ * End:
+ * vim: shiftwidth=4 tabstop=8 expandtab
+ */
+