Bump year. Change Aps->ApS

[idzebra-moved-to-github.git] / data1 / d1_absyn.c

diff --git a/data1/d1_absyn.c b/data1/d1_absyn.c
index 216f60a..e380610 100644 (file)
--- a/data1/d1_absyn.c
+++ b/data1/d1_absyn.c
@@ -1,6 +1,6 @@
-/* $Id: d1_absyn.c,v 1.14 2004-09-30 18:31:14 adam Exp $
-   Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002,2003,2004
-   Index Data Aps
+/* $Id: d1_absyn.c,v 1.19 2005-01-15 19:38:18 adam Exp $
+   Copyright (C) 1995-2005
+   Index Data ApS
 
 This file is part of the Zebra server.
 
@@ -25,8 +25,8 @@ Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
 #include <stdlib.h>
 #include <string.h>
 
-#include <yaz/oid.h>
 #include <yaz/log.h>
+#include <yaz/oid.h>
 #include <idzebra/data1.h>
 #include <zebra_xpath.h>
 #include <d1_absyn.h>
@@ -183,7 +183,7 @@ void data1_absyn_destroy (data1_handle dh)
        {
            data1_xpelement *xpe = abs->xp_elements;
            while (xpe) {
-               logf (LOG_DEBUG,"Destroy xp element %s",xpe->xpath_expr);
+               yaz_log (YLOG_DEBUG,"Destroy xp element %s",xpe->xpath_expr);
                if (xpe->dfa) {  dfa_delete (&xpe->dfa); }
                xpe = xpe->next;
            } 
@@ -273,7 +273,7 @@ data1_attset *data1_attset_add (data1_handle dh, const char *name)
            *cp = '\0';
     }
     if (!attset)
-       yaz_log (LOG_WARN|LOG_ERRNO, "Couldn't load attribute set %s", name);
+       yaz_log (YLOG_WARN|YLOG_ERRNO, "Couldn't load attribute set %s", name);
     else
     {
        data1_attset_cache p = (data1_attset_cache)
@@ -413,7 +413,7 @@ void fix_element_ref (data1_handle dh, data1_absyn *absyn, data1_element *e)
            if (sub_e)
                e->children = sub_e->elements;
            else
-               yaz_log (LOG_WARN, "Unresolved reference to sub-elements %s",
+               yaz_log (YLOG_WARN, "Unresolved reference to sub-elements %s",
                      e->sub_name);
        }
     }
@@ -496,7 +496,7 @@ const char * mk_xpath_regexp (data1_handle dh, char *expr)
     if (!abs) { sprintf (p, ".*"); p+=2; }
     sprintf (p, "$"); p++;
     r = nmem_strdup (data1_nmem_get (dh), res);
-    yaz_log(LOG_DEBUG,"Got regexp: %s",r);
+    yaz_log(YLOG_DEBUG,"Got regexp: %s",r);
     return (r);
 }
 
@@ -528,7 +528,7 @@ static int parse_termlists (data1_handle dh, data1_termlist ***tpp,
        if (i == 0)
        {
            if (*cp)
-               yaz_log(LOG_WARN,
+               yaz_log(YLOG_WARN,
                        "%s:%d: Syntax error in termlistspec '%s'",
                        file, lineno, cp);
            break;
@@ -568,7 +568,7 @@ static int parse_termlists (data1_handle dh, data1_termlist ***tpp,
        if (!((*tp)->att = data1_getattbyname(dh, res->attset,
                                               attname))) {
             if ((!xpelement) || (*attname != '!')) {
-                yaz_log(LOG_WARN,
+                yaz_log(YLOG_WARN,
                         "%s:%d: Couldn't find att '%s' in attset",
                         file, lineno, attname);
                 return -1;
@@ -596,6 +596,33 @@ static int parse_termlists (data1_handle dh, data1_termlist ***tpp,
     return 0;
 }
 
+/* quinn
+ * Converts a 'melm' field[$subfield] pattern to a simple xpath
+ */
+static int melm2xpath(char *melm, char *buf)
+{
+    char *dollar;
+    char *field = melm;
+    char *subfield;
+    char *fieldtype;
+    if ((dollar = strchr(melm, '$'))) {
+       *dollar = '\0';
+       subfield = ++dollar;
+    } else
+       subfield = "";
+    if (field[0] == '0' && field[1] == '0')
+       fieldtype = "controlfield";
+    else
+       fieldtype = "datafield";
+    sprintf(buf, "/*/%s[@tag=\"%s\"]", fieldtype, field);
+    if (*subfield) 
+       sprintf(buf + strlen(buf), "/subfield[@code=\"%s\"]", subfield);
+    else if (field[0] != '0' || field[1] != '0')
+       strcat(buf, "/subfield");
+    yaz_log(YLOG_DEBUG, "Created xpath: '%s'", buf);
+    return 0;
+}
+
 const char *data1_systag_lookup(data1_absyn *absyn, const char *tag,
                                 const char *default_value)
 {
@@ -681,7 +708,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
 
     if (!(f = data1_path_fopen(dh, file, "r")))
     {
-       yaz_log(LOG_WARN|LOG_ERRNO, "Couldn't open %s", file);
+       yaz_log(YLOG_WARN|YLOG_ERRNO, "Couldn't open %s", file);
         if (file_must_exist)
             return 0;
     }
@@ -723,7 +750,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
 
            if (argc < 4)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad # of args to elm", file, lineno);
+               yaz_log(YLOG_WARN, "%s:%d: Bad # of args to elm", file, lineno);
                continue;
            }
            path = argv[1];
@@ -754,7 +781,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
            }
            if (i > level+1)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad level increase", file, lineno);
+               yaz_log(YLOG_WARN, "%s:%d: Bad level increase", file, lineno);
                fclose(f);
                return 0;
            }
@@ -777,14 +804,14 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
            {
                if (!res->tagset)
                {
-                   yaz_log(LOG_WARN, "%s:%d: No tagset loaded", file, lineno);
+                   yaz_log(YLOG_WARN, "%s:%d: No tagset loaded", file, lineno);
                    fclose(f);
                    return 0;
                }
                if (!(new_element->tag = data1_gettagbynum (dh, res->tagset,
                                                            type, value)))
                {
-                   yaz_log(LOG_WARN, "%s:%d: Couldn't find tag %s in tagset",
+                   yaz_log(YLOG_WARN, "%s:%d: Couldn't find tag %s in tagset",
                         file, lineno, p);
                    fclose(f);
                    return 0;
@@ -810,7 +837,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
            }
            else
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad element", file, lineno);
+               yaz_log(YLOG_WARN, "%s:%d: Bad element", file, lineno);
                fclose(f);
                return 0;
            }
@@ -843,25 +870,33 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
           pop, 2003-01-17
        */
 
-       else if (!strcmp(cmd, "xelm")) {
+       else if (!strcmp(cmd, "xelm") || !strcmp(cmd, "melm")) {
 
            int i;
            char *p, *xpath_expr, *termlists;
            const char *regexp;
            struct DFA *dfa = dfa = dfa_init();
            data1_termlist **tp;
+           char melm_xpath[128];
             
            if (argc < 3)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad # of args to xelm", file, lineno);
+               yaz_log(YLOG_WARN, "%s:%d: Bad # of args to xelm", file, lineno);
                continue;
            }
-           xpath_expr = argv[1];
+
+           if (!strcmp(cmd, "melm")) {
+               if (melm2xpath(argv[1], melm_xpath) < 0)
+                   continue;
+               xpath_expr = melm_xpath;
+           } else {
+               xpath_expr = argv[1];
+           }
            termlists = argv[2];
            regexp = mk_xpath_regexp(dh, xpath_expr);
            i = dfa_parse (dfa, &regexp);
            if (i || *regexp) {
-                yaz_log(LOG_WARN, "%s:%d: Bad xpath to xelm", file, lineno);
+                yaz_log(YLOG_WARN, "%s:%d: Bad xpath to xelm", file, lineno);
                 dfa_delete (&dfa);
                 continue;
            }
@@ -917,7 +952,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
            
            if (argc < 2)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad # of args to section",
+               yaz_log(YLOG_WARN, "%s:%d: Bad # of args to section",
                         file, lineno);
                continue;
            }
@@ -937,7 +972,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
         {
             if (argc != 2)
             {
-               yaz_log(LOG_WARN, "%s:%d: Bad # of args to 'xpath' directive",
+               yaz_log(YLOG_WARN, "%s:%d: Bad # of args to 'xpath' directive",
                     file, lineno);
                continue;
             }
@@ -947,7 +982,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
                 res->enable_xpath_indexing = 0;
             else
             {
-               yaz_log(LOG_WARN, "%s:%d: Expecting disable/enable "
+               yaz_log(YLOG_WARN, "%s:%d: Expecting disable/enable "
                         "after 'xpath' directive", file, lineno);
             }
         }
@@ -956,13 +991,13 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
            data1_termlist **tp = &all;
            if (all)
            {
-               yaz_log(LOG_WARN, "%s:%d: Too many 'all' directives - ignored",
+               yaz_log(YLOG_WARN, "%s:%d: Too many 'all' directives - ignored",
                     file, lineno);
                continue;
            }
            if (argc != 2)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad # of args to 'all' directive",
+               yaz_log(YLOG_WARN, "%s:%d: Bad # of args to 'all' directive",
                     file, lineno);
                continue;
            }
@@ -976,7 +1011,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
        {
            if (argc != 2)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad # of args to name directive",
+               yaz_log(YLOG_WARN, "%s:%d: Bad # of args to name directive",
                     file, lineno);
                continue;
            }
@@ -988,14 +1023,14 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
            
            if (argc != 2)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad # of args to reference",
+               yaz_log(YLOG_WARN, "%s:%d: Bad # of args to reference",
                     file, lineno);
                continue;
            }
            name = argv[1];
            if ((res->reference = oid_getvalbyname(name)) == VAL_NONE)
            {
-               yaz_log(LOG_WARN, "%s:%d: Unknown tagset ref '%s'", 
+               yaz_log(YLOG_WARN, "%s:%d: Unknown tagset ref '%s'", 
                     file, lineno, name);
                continue;
            }
@@ -1007,14 +1042,14 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
            
            if (argc != 2)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad # of args to attset",
+               yaz_log(YLOG_WARN, "%s:%d: Bad # of args to attset",
                     file, lineno);
                continue;
            }
            name = argv[1];
            if (!(attset = data1_get_attset (dh, name)))
            {
-               yaz_log(LOG_WARN, "%s:%d: Couldn't find attset  %s",
+               yaz_log(YLOG_WARN, "%s:%d: Couldn't find attset  %s",
                     file, lineno, name);
                continue;
            }
@@ -1030,7 +1065,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
            int type = 0;
            if (argc < 2)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad # of args to tagset",
+               yaz_log(YLOG_WARN, "%s:%d: Bad # of args to tagset",
                     file, lineno);
                continue;
            }
@@ -1040,7 +1075,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
            *tagset_childp = data1_read_tagset (dh, name, type);
            if (!(*tagset_childp))
            {
-               yaz_log(LOG_WARN, "%s:%d: Couldn't load tagset %s",
+               yaz_log(YLOG_WARN, "%s:%d: Couldn't load tagset %s",
                     file, lineno, name);
                continue;
            }
@@ -1052,14 +1087,14 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
 
            if (argc != 2)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad # of args in varset",
+               yaz_log(YLOG_WARN, "%s:%d: Bad # of args in varset",
                     file, lineno);
                continue;
            }
            name = argv[1];
            if (!(res->varset = data1_read_varset (dh, name)))
            {
-               yaz_log(LOG_WARN, "%s:%d: Couldn't load Varset %s",
+               yaz_log(YLOG_WARN, "%s:%d: Couldn't load Varset %s",
                     file, lineno, name);
                continue;
            }
@@ -1070,7 +1105,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
 
            if (argc != 3)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad # of args in esetname",
+               yaz_log(YLOG_WARN, "%s:%d: Bad # of args in esetname",
                     file, lineno);
                continue;
            }
@@ -1085,7 +1120,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
                (*esetpp)->spec = 0;
            else if (!((*esetpp)->spec = data1_read_espec1 (dh, fname)))
            {
-               yaz_log(LOG_WARN, "%s:%d: Espec-1 read failed for %s",
+               yaz_log(YLOG_WARN, "%s:%d: Espec-1 read failed for %s",
                     file, lineno, fname);
                continue;
            }
@@ -1097,14 +1132,14 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
            
            if (argc != 2)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad # of args for maptab",
+               yaz_log(YLOG_WARN, "%s:%d: Bad # of args for maptab",
                      file, lineno);
                continue;
            }
            name = argv[1];
            if (!(*maptabp = data1_read_maptab (dh, name)))
            {
-               yaz_log(LOG_WARN, "%s:%d: Couldn't load maptab %s",
+               yaz_log(YLOG_WARN, "%s:%d: Couldn't load maptab %s",
                      file, lineno, name);
                continue;
            }
@@ -1116,14 +1151,14 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
            
            if (argc != 2)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad # or args for marc",
+               yaz_log(YLOG_WARN, "%s:%d: Bad # or args for marc",
                     file, lineno);
                continue;
            }
            name = argv[1];
            if (!(*marcp = data1_read_marctab (dh, name)))
            {
-               yaz_log(LOG_WARN, "%s:%d: Couldn't read marctab %s",
+               yaz_log(YLOG_WARN, "%s:%d: Couldn't read marctab %s",
                      file, lineno, name);
                continue;
            }
@@ -1133,7 +1168,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
        {
            if (argc != 2)
            {
-               yaz_log(LOG_WARN, "%s:%d: Bad # or args for encoding",
+               yaz_log(YLOG_WARN, "%s:%d: Bad # or args for encoding",
                     file, lineno);
                continue;
            }
@@ -1143,7 +1178,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
         {
             if (argc != 3)
             {
-               yaz_log(LOG_WARN, "%s:%d: Bad # or args for systag",
+               yaz_log(YLOG_WARN, "%s:%d: Bad # or args for systag",
                     file, lineno);
                continue;
             }
@@ -1155,7 +1190,7 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
         }
        else
        {
-           yaz_log(LOG_WARN, "%s:%d: Unknown directive '%s'", file, 
+           yaz_log(YLOG_WARN, "%s:%d: Unknown directive '%s'", file, 
                     lineno, cmd);
            continue;
        }
@@ -1171,6 +1206,6 @@ data1_absyn *data1_read_absyn (data1_handle dh, const char *file,
        fix_element_ref (dh, res, cur_elements->elements);
     }
     *systagsp = 0;
-    yaz_log(LOG_DEBUG, "%s: data1_read_absyn end", file);
+    yaz_log(YLOG_DEBUG, "%s: data1_read_absyn end", file);
     return res;
 }