Multiple registers (alpha early)
[idzebra-moved-to-github.git] / util / res.c
index 202d351..a65e506 100644 (file)
 /*
- * Copyright (C) 1994-1998, Index Data ApS
+ * Copyright (C) 1994-2002, Index Data
  * All rights reserved.
  * Sebastian Hammer, Adam Dickmeiss
  *
- * $Log: res.c,v $
- * Revision 1.23  1998-10-28 15:18:55  adam
- * Fix for DOS-formatted configuration files.
- *
- * Revision 1.22  1998/01/12 15:04:32  adam
- * Removed exit - call.
- *
- * Revision 1.21  1997/11/18 10:04:03  adam
- * Function res_trav returns number of 'hits'.
- *
- * Revision 1.20  1997/10/31 12:39:15  adam
- * Resouce name can be terminated with either white-space or colon.
- *
- * Revision 1.19  1997/10/27 14:27:59  adam
- * Fixed memory leak.
- *
- * Revision 1.18  1997/09/17 12:19:24  adam
- * Zebra version corresponds to YAZ version 1.4.
- * Changed Zebra server so that it doesn't depend on global common_resource.
- *
- * Revision 1.17  1997/09/09 13:38:19  adam
- * Partial port to WIN95/NT.
- *
- * Revision 1.16  1996/10/29 13:47:49  adam
- * Implemented res_get_match. Updated to use zebrautl instead of alexpath.
- *
- * Revision 1.15  1996/05/22 08:23:43  adam
- * Bug fix: trailing blanks in resource values where not removed.
- *
- * Revision 1.14  1996/04/26 11:51:20  adam
- * Resource names are matched by the yaz_matchstr routine instead of strcmp.
- *
- * Revision 1.13  1995/09/04  12:34:05  adam
- * Various cleanup. YAZ util used instead.
- *
- * Revision 1.12  1995/01/24  16:40:32  adam
- * Bug fix.
- *
- * Revision 1.11  1994/10/05  16:54:52  adam
- * Minor changes.
- *
- * Revision 1.10  1994/10/05  10:47:31  adam
- * Small bug fix.
- *
- * Revision 1.9  1994/09/16  14:41:12  quinn
- * Added log warning to res_get_def
- *
- * Revision 1.8  1994/09/16  14:37:12  quinn
- * added res_get_def
- *
- * Revision 1.7  1994/09/06  13:01:03  quinn
- * Removed const from declaration of res_get
- *
- * Revision 1.6  1994/09/01  17:45:14  adam
- * Work on resource manager.
- *
- * Revision 1.5  1994/08/18  11:02:28  adam
- * Implementation of res_write.
- *
- * Revision 1.4  1994/08/18  10:02:01  adam
- * Module alexpath moved from res.c to alexpath.c. Minor changes in res-test.c
- *
- * Revision 1.3  1994/08/18  09:43:51  adam
- * Development of resource manager. Only missing is res_write.
- *
- * Revision 1.2  1994/08/18  08:23:26  adam
- * Res.c now use handles. xmalloc defines xstrdup.
- *
- * Revision 1.1  1994/08/17  15:34:23  adam
- * Initial version of resource manager.
- *
+ * $Id: res.c,v 1.29 2002-04-04 14:14:14 adam Exp $
  */
 #include <stdio.h>
 #include <stdlib.h>
 #include <string.h>
 #include <assert.h>
-#ifdef WINDOWS
+#ifdef WIN32
 #include <io.h>
 #else
 #include <unistd.h>
 #endif
 
 #include <zebrautl.h>
-#include <yaz-util.h>
+#include <yaz/yaz-util.h>
+
+struct res_entry {
+    char *name;
+    char *value;
+    struct res_entry *next;
+};
+
+struct res_struct {
+    struct res_entry *first, *last;
+    char *name;
+    int  init;
+    Res def_res;
+};
 
 static struct res_entry *add_entry (Res r)
 {
     struct res_entry *resp;
 
     if (!r->first)
-        resp = r->last = r->first = xmalloc (sizeof(*resp));
+        resp = r->last = r->first =
+           (struct res_entry *) xmalloc (sizeof(*resp));
     else
     {
-        resp = xmalloc (sizeof(*resp));
+        resp = (struct res_entry *) xmalloc (sizeof(*resp));
         r->last->next = resp;
         r->last = resp;
     }
@@ -116,7 +60,7 @@ static void reread (Res r)
     assert (r);
     r->init = 1;
 
-    val_buf = xmalloc (val_max);
+    val_buf = (char*) xmalloc (val_max);
 
     fr = fopen (r->name, "r");
     if (!fr)
@@ -138,7 +82,7 @@ static void reread (Res r)
             fr_buf[no] = '\0';
 
             resp = add_entry (r);
-            resp->name = xmalloc (no+1);
+            resp->name = (char*) xmalloc (no+1);
             resp->value = NULL;
             strcpy (resp->name, fr_buf);
         }
@@ -160,7 +104,7 @@ static void reread (Res r)
                 continue;
             fr_buf[no++] = '\0';
             resp = add_entry (r);
-            resp->name = xmalloc (no);
+            resp->name = (char*) xmalloc (no);
             strcpy (resp->name, fr_buf);
             
             while (strchr (" \t", fr_buf[no]))
@@ -175,7 +119,7 @@ static void reread (Res r)
                                val_buf[val_size-1] == '\t'))
                         val_size--;
                     val_buf[val_size++] = '\0';
-                    resp->value = xmalloc (val_size);
+                    resp->value = (char*) xmalloc (val_size);
                     strcpy (resp->value, val_buf);
                     logf (LOG_DEBUG, "(name=%s,value=%s)",
                          resp->name, resp->value);
@@ -186,7 +130,7 @@ static void reread (Res r)
                     line = fgets (fr_buf, sizeof(fr_buf)-1, fr);
                     if (!line)
                     {
-                        resp->value = xmalloc (val_size);
+                        resp->value = (char*) xmalloc (val_size);
                         strcpy (resp->value, val_buf);
                         break;
                     }
@@ -199,7 +143,7 @@ static void reread (Res r)
                     {
                         char *nb;
 
-                        nb = xmalloc (val_max+=1024);
+                        nb = (char*) xmalloc (val_max+=1024);
                         memcpy (nb, val_buf, val_size);
                         xfree (val_buf);
                         val_buf = nb;
@@ -212,28 +156,30 @@ static void reread (Res r)
     fclose (fr);
 }
 
-Res res_open (const char *name)
+Res res_open (const char *name, Res def_res)
 {
     Res r;
-#ifdef WINDOWS
+#ifdef WIN32
     if (access (name, 4))
 #else
     if (access (name, R_OK))
 #endif
     {
         logf (LOG_LOG|LOG_ERRNO, "Cannot access resource file `%s'", name);
-       return NULL;
+       return 0;
     }
-    r = xmalloc (sizeof(*r));
+    r = (Res) xmalloc (sizeof(*r));
     r->init = 0;
     r->first = r->last = NULL;
     r->name = xstrdup (name);
+    r->def_res = def_res;
     return r;
 }
 
 void res_close (Res r)
 {
-    assert (r);
+    if (!r)
+        return;
     if (r->init)
     {
         struct res_entry *re, *re1;
@@ -255,13 +201,15 @@ char *res_get (Res r, const char *name)
 {
     struct res_entry *re;
 
-    assert (r);
+    if (!r)
+       return 0;
     if (!r->init)
         reread (r);
     for (re = r->first; re; re=re->next)
         if (re->value && !yaz_matchstr (re->name, name))
             return re->value;
-    return NULL;
+
+    return res_get (r->def_res, name);
 }
 
 char *res_get_def (Res r, const char *name, char *def)
@@ -281,6 +229,8 @@ int res_get_match (Res r, const char *name, const char *value, const char *s)
 {
     const char *cn = res_get (r, name);
 
+    if (!cn)
+       cn = s;
     if (cn && !yaz_matchstr (cn, value))
         return 1;
     return 0;
@@ -312,7 +262,8 @@ int res_trav (Res r, const char *prefix, void *p,
     int l = 0;
     int no = 0;
     
-    assert (r);
+    if (!r)
+        return 0;
     if (prefix)
         l = strlen(prefix);
     if (!r->init)
@@ -324,6 +275,8 @@ int res_trav (Res r, const char *prefix, void *p,
                 (*f)(p, re->name, re->value);
                no++;
            }
+    if (!no)
+        return res_trav (r->def_res, prefix, p, f);
     return no;
 }