Case insensitive CQL relations/indexes/operations.
[yaz-moved-to-github.git] / src / cqlutil.c
index 9fa3ae6..68daa0e 100644 (file)
@@ -1,4 +1,4 @@
-/* $Id: cqlutil.c,v 1.8 2005-06-25 15:46:04 adam Exp $
+/* $Id: cqlutil.c,v 1.9 2005-06-27 22:03:59 adam Exp $
    Copyright (C) 1995-2005, Index Data ApS
    Index Data Aps
 
@@ -100,7 +100,7 @@ struct cql_node *cql_apply_prefix(NMEM nmem,
             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)))
+                !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);
@@ -116,7 +116,7 @@ struct cql_node *cql_apply_prefix(NMEM nmem,
             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)))
+                !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);
@@ -147,6 +147,42 @@ void cql_node_destroy(struct cql_node *cn)
         cql_node_destroy(cn->u.boolean.modifiers);
     }
 }
+
+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