From 454ce0647544a588751b4a0fe536253a84867362 Mon Sep 17 00:00:00 2001
From: Adam Dickmeiss <adam@indexdata.dk>
Date: Mon, 29 Aug 2011 13:04:57 +0200
Subject: [PATCH] cql2ccl: term code for all/any sequences as well

---
 src/cql2ccl.c       |  145 +++++++++++++++++++++++----------------------------
 test/test_cql2ccl.c |    9 +++-
 2 files changed, 72 insertions(+), 82 deletions(-)

diff --git a/src/cql2ccl.c b/src/cql2ccl.c
index 99c90c4..d7d05cc 100644
--- a/src/cql2ccl.c
+++ b/src/cql2ccl.c
@@ -20,73 +20,67 @@ static int cql_to_ccl_r(struct cql_node *cn,
                         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++)
     {
-        if (! *cn->u.st.term) /* empty term special case */
-            pr("\"\"", client_data);
-        else
+        char x[4];
+        
+        if (*cp == '\\' && cp[1])
         {
-            const char *cp;
-            int quote_mode = 0;
-            for (cp = cn->u.st.term; *cp; cp++)
+            if (!quote_mode)
             {
-                char x[4];
-                
-                if (*cp == '\\' && cp[1])
-                {
-                    if (!quote_mode)
-                    {
-                        pr("\"", client_data);
-                        quote_mode = 1;
-                    }
-                    cp++;
-                    if (*cp == '\"' || *cp == '\\')
-                        pr("\\", client_data);
-                    x[0] = *cp;
-                    x[1] = '\0';
-                    pr(x, client_data);
-                }
-                else if (*cp == '*')
-                {
-                    if (quote_mode)
-                    {
-                        pr("\"", client_data);
-                        quote_mode = 0;
-                    }
-                    pr("?", client_data);
-                }
-                else if (*cp == '?')
-                {
-                    if (quote_mode)
-                    {
-                        pr("\"", client_data);
-                        quote_mode = 0;
-                    }
-                    pr("#", client_data);
-                }
-                else
-                {
-                    if (!quote_mode)
-                    {
-                        pr("\"", client_data);
-                        quote_mode = 1;
-                    }
-                    x[0] = *cp;
-                    x[1] = '\0';
-                    pr(x, client_data);
-                }
+                pr("\"", client_data);
+                quote_mode = 1;
+            }
+            cp++;
+            if (*cp == '\"' || *cp == '\\')
+                pr("\\", client_data);
+            x[0] = *cp;
+            x[1] = '\0';
+            pr(x, client_data);
+        }
+        else if (*cp == '*')
+        {
+            if (quote_mode)
+            {
+                pr("\"", client_data);
+                quote_mode = 0;
             }
+            pr("?", client_data);
+        }
+        else if (*cp == '?')
+        {
             if (quote_mode)
+            {
                 pr("\"", client_data);
+                quote_mode = 0;
+            }
+            pr("#", client_data);
+        }
+        else if (*cp == ' ')
+            break;
+        else
+        {
+            if (!quote_mode)
+            {
+                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, 
@@ -127,46 +121,35 @@ 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);
             }
-            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);
+            if (!split_op)
+                break;
             while (*cp == ' ')
                 cp++;
             if (*cp == '\0')
                 break;
             pr(" ", client_data);
             pr(split_op, client_data);
-            pr(" ", 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;
diff --git a/test/test_cql2ccl.c b/test/test_cql2ccl.c
index 6426d87..0f2cdd2 100644
--- a/test/test_cql2ccl.c
+++ b/test/test_cql2ccl.c
@@ -90,8 +90,15 @@ static void tst(void)
     YAZ_CHECK(tst_query("title=x or author=y",
                         "(title=\"x\" or author=\"y\")"));
 
+    YAZ_CHECK(tst_query("title all \"\"", "title=\"\""));
 
-    YAZ_CHECK(tst_query("title all x", "title=x"));
+    YAZ_CHECK(tst_query("title all x", "title=\"x\""));
+    YAZ_CHECK(tst_query("title all x y", "title=\"x\" and title=\"y\""));
+    YAZ_CHECK(tst_query("title all \"x y\"", "title=\"x\" and title=\"y\""));
+
+    YAZ_CHECK(tst_query("title any x", "title=\"x\""));
+    YAZ_CHECK(tst_query("title any x y", "title=\"x\" or title=\"y\""));
+    YAZ_CHECK(tst_query("title any \"x y\"", "title=\"x\" or title=\"y\""));
 }
 
 int main(int argc, char **argv)
-- 
1.7.10.4