Remove unused function connection_get_url
[pazpar2-moved-to-github.git] / src / charsets.c
index 3f45baa..f867b6f 100644 (file)
@@ -1,7 +1,5 @@
-/* $Id: charsets.c,v 1.1 2007-05-10 11:46:09 adam Exp $
-   Copyright (c) 2006-2007, Index Data.
-
-This file is part of Pazpar2.
+/* This file is part of Pazpar2.
+   Copyright (C) 2006-2010 Index Data
 
 Pazpar2 is free software; you can redistribute it and/or modify it under
 the terms of the GNU General Public License as published by the Free
@@ -14,71 +12,204 @@ FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License
 for more details.
 
 You should have received a copy of the GNU General Public License
-along with Pazpar2; see the file LICENSE.  If not, write to the
-Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
-02111-1307, USA.
- */
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA
+
+*/
 
 /** \file charsets.c
     \brief Pazpar2 Character set facilities
 */
 
 #if HAVE_CONFIG_H
-#include "cconfig.h"
+#include <config.h>
 #endif
 
 #include <yaz/xmalloc.h>
 #include <yaz/wrbuf.h>
+#include <yaz/log.h>
+#include <yaz/yaz-version.h>
 #include <ctype.h>
 #include <assert.h>
+#include <string.h>
+
 #include "charsets.h"
+#include "normalize7bit.h"
+
+#if YAZ_HAVE_ICU
+#include <yaz/icu.h>
+#endif
 
 /* charset handle */
 struct pp2_charset_s {
     const char *(*token_next_handler)(pp2_relevance_token_t prt);
-    /* other handlers will come as we see fit */
+    const char *(*get_sort_handler)(pp2_relevance_token_t prt);
+    int ref_count;
+#if YAZ_HAVE_ICU
+    struct icu_chain * icu_chn;
+    UErrorCode icu_sts;
+#endif
 };
 
 static const char *pp2_relevance_token_a_to_z(pp2_relevance_token_t prt);
-/* in the future : */
-// static const char *pp2_relevance_token_icu(pp2_relevance_token_t prt);
+static const char *pp2_get_sort_ascii(pp2_relevance_token_t prt);
+
+#if YAZ_HAVE_ICU
+static const char *pp2_relevance_token_icu(pp2_relevance_token_t prt);
+static const char *pp2_get_sort_icu(pp2_relevance_token_t prt);
+#endif
 
 /* tokenzier handle */
 struct pp2_relevance_token_s {
     const char *cp;     /* unnormalized buffer we're tokenizing */
+    const char *last_cp;  /* pointer to last token we're dealing with */
     pp2_charset_t pct;  /* our main charset handle (type+config) */
     WRBUF norm_str;     /* normized string we return (temporarily) */
+    WRBUF sort_str;     /* sort string we return (temporarily) */
+#if YAZ_HAVE_ICU
+    yaz_icu_iter_t iter;
+#endif
 };
 
-pp2_charset_t pp2_charset_create(void)
+
+pp2_charset_t pp2_charset_create_xml(xmlNode *xml_node)
+{
+#if YAZ_HAVE_ICU
+    UErrorCode status = U_ZERO_ERROR;
+    struct icu_chain *chain = 0;
+    if (xml_node)
+        xml_node = xml_node->children;
+    while (xml_node && xml_node->type != XML_ELEMENT_NODE)
+        xml_node = xml_node->next;
+    chain = icu_chain_xml_config(xml_node, 1, &status);
+    if (!chain || U_FAILURE(status)){
+        //xmlDocPtr icu_doc = 0;
+        //xmlChar *xmlstr = 0;
+                //int size = 0;
+                //xmlDocDumpMemory(icu_doc, size);
+        
+        yaz_log(YLOG_FATAL, "Could not parse ICU chain config:\n"
+                "<%s>\n ... \n</%s>",
+                xml_node->name, xml_node->name);
+        return 0;
+    }
+    return pp2_charset_create(chain);
+#else // YAZ_HAVE_ICU
+    yaz_log(YLOG_FATAL, "Error: ICU support requested with element:\n"
+            "<%s>\n ... \n</%s>",
+            xml_node->name, xml_node->name);
+    yaz_log(YLOG_FATAL, 
+            "But no ICU support is compiled into the YAZ library.");
+    return 0;
+#endif // YAZ_HAVE_ICU
+}
+
+void pp2_charset_incref(pp2_charset_t pct)
+{
+    (pct->ref_count)++;
+}
+
+pp2_charset_t pp2_charset_create(struct icu_chain * icu_chn)
 {
     pp2_charset_t pct = xmalloc(sizeof(*pct));
 
     pct->token_next_handler = pp2_relevance_token_a_to_z;
+    pct->get_sort_handler  = pp2_get_sort_ascii;
+    pct->ref_count = 1;
+#if YAZ_HAVE_ICU
+    pct->icu_chn = 0;
+    if (icu_chn)
+    {
+        pct->icu_chn = icu_chn;
+        pct->icu_sts = U_ZERO_ERROR;
+        pct->token_next_handler = pp2_relevance_token_icu;
+        pct->get_sort_handler = pp2_get_sort_icu;
+    }
+#endif // YAZ_HAVE_ICU
     return pct;
 }
 
 void pp2_charset_destroy(pp2_charset_t pct)
 {
-    xfree(pct);
+    if (pct)
+    {
+        assert(pct->ref_count >= 1);
+        --(pct->ref_count);
+        if (pct->ref_count == 0)
+        {
+#if YAZ_HAVE_ICU
+            icu_chain_destroy(pct->icu_chn);
+#endif
+            xfree(pct);
+        }
+    }
 }
 
-pp2_relevance_token_t pp2_relevance_tokenize(pp2_charset_t pct,
-                                             const char *buf)
+pp2_relevance_token_t pp2_relevance_tokenize(pp2_charset_t pct)
 {
     pp2_relevance_token_t prt = xmalloc(sizeof(*prt));
 
     assert(pct);
+
     prt->norm_str = wrbuf_alloc();
-    prt->cp = buf;
+    prt->sort_str = wrbuf_alloc();
+    prt->cp = 0;
+    prt->last_cp = 0;
     prt->pct = pct;
+
+#if YAZ_HAVE_ICU
+    prt->iter = 0;
+    if (pct->icu_chn)
+        prt->iter = icu_iter_create(pct->icu_chn);
+#endif
     return prt;
 }
 
+void pp2_relevance_first(pp2_relevance_token_t prt,
+                         const char *buf,
+                         int skip_article)
+{ 
+    if (skip_article)
+    {
+        const char *p = buf;
+        char firstword[64];
+        char *pout = firstword;
+        char articles[] = "the den der die des an a "; // must end in space
+        
+        while (*p && !isalnum(*(unsigned char *)p))
+            p++;
+        for (; *p && *p != ' ' && pout - firstword < (sizeof(firstword)-2); p++)
+            *pout++ = tolower(*(unsigned char *)p);
+        *pout++ = ' ';
+        *pout++ = '\0';
+        if (strstr(articles, firstword))
+            buf = p;
+    }
+
+    wrbuf_rewind(prt->norm_str);
+    wrbuf_rewind(prt->sort_str);
+    prt->cp = buf;
+    prt->last_cp = 0;
+
+#if YAZ_HAVE_ICU
+    if (prt->iter)
+    {
+        icu_iter_first(prt->iter, buf);
+    }
+#endif // YAZ_HAVE_ICU
+}
+
 void pp2_relevance_token_destroy(pp2_relevance_token_t prt)
 {
     assert(prt);
-    wrbuf_destroy(prt->norm_str);
+#if YAZ_HAVE_ICU
+    if (prt->iter)
+        icu_iter_destroy(prt->iter);
+#endif
+    if(prt->norm_str) 
+        wrbuf_destroy(prt->norm_str);
+    if(prt->sort_str) 
+        wrbuf_destroy(prt->sort_str);
     xfree(prt);
 }
 
@@ -88,7 +219,12 @@ const char *pp2_relevance_token_next(pp2_relevance_token_t prt)
     return (prt->pct->token_next_handler)(prt);
 }
 
-#define raw_char(c) (((c) >= 'a' && (c) <= 'z') ? (c) - 'a' + 1 : -1)
+const char *pp2_get_sort(pp2_relevance_token_t prt)
+{
+    return prt->pct->get_sort_handler(prt);
+}
+
+#define raw_char(c) (((c) >= 'a' && (c) <= 'z') ? (c) : -1)
 /* original tokenizer with our tokenize interface, but we
    add +1 to ensure no '\0' are in our string (except for EOF)
 */
@@ -98,14 +234,17 @@ static const char *pp2_relevance_token_a_to_z(pp2_relevance_token_t prt)
     int c;
 
     /* skip white space */
-    while (*cp && (c = raw_char(tolower(*cp))) < 0)
+    while (*cp && (c = raw_char(tolower(*(const unsigned char *)cp))) < 0)
         cp++;
     if (*cp == '\0')
     {
         prt->cp = cp;
+        prt->last_cp = 0;
         return 0;
     }
     /* now read the term itself */
+
+    prt->last_cp = cp;
     wrbuf_rewind(prt->norm_str);
     while (*cp && (c = raw_char(tolower(*cp))) >= 0)
     {
@@ -116,11 +255,48 @@ static const char *pp2_relevance_token_a_to_z(pp2_relevance_token_t prt)
     return wrbuf_cstr(prt->norm_str);
 }
 
+static const char *pp2_get_sort_ascii(pp2_relevance_token_t prt)
+{
+    if (prt->last_cp == 0)
+        return 0;
+    else
+    {
+        char *tmp = xstrdup(prt->last_cp);
+        char *result = 0;
+        result = normalize7bit_mergekey(tmp);
+        
+        wrbuf_rewind(prt->sort_str);
+        wrbuf_puts(prt->sort_str, result);
+        xfree(tmp);
+        return wrbuf_cstr(prt->sort_str);
+    }
+}
+
+
+#if YAZ_HAVE_ICU
+static const char *pp2_relevance_token_icu(pp2_relevance_token_t prt)
+{
+    if (icu_iter_next(prt->iter))
+    {
+        return icu_iter_get_norm(prt->iter);
+    }
+    return 0;
+}
+
+static const char *pp2_get_sort_icu(pp2_relevance_token_t prt)
+{
+    return icu_iter_get_sortkey(prt->iter);
+}
+
+#endif // YAZ_HAVE_ICU
+
 
 /*
  * Local variables:
  * c-basic-offset: 4
+ * c-file-style: "Stroustrup"
  * indent-tabs-mode: nil
  * End:
  * vim: shiftwidth=4 tabstop=8 expandtab
  */
+