+#include <assert.h>
+#ifdef WIN32
+#include <io.h>
+#else
+#include <unistd.h>
+#endif
+
+#include <zebrautl.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;
+ Res over_res;
+};
+
+static struct res_entry *add_entry (Res r)
+{
+ struct res_entry *resp;
+
+ if (!r->first)
+ resp = r->last = r->first =
+ (struct res_entry *) xmalloc (sizeof(*resp));
+ else
+ {
+ resp = (struct res_entry *) xmalloc (sizeof(*resp));
+ r->last->next = resp;
+ r->last = resp;
+ }
+ resp->next = NULL;
+ return resp;
+}
+
+static char *xstrdup_env(const char *src)
+{
+ int i = 0;
+ int j = 0;
+ char *dst;
+ int env_strlen = 0;
+
+ while (src[i])
+ {
+ if (src[i] == '$' && src[i+1] == '{')
+ {
+ char envname[128];
+ char *env_val;
+ int k = 0;
+ i = i + 2;
+ while (k < 127 && src[i] && !strchr(":}\n\r\f", src[i]))
+ envname[k++] = src[i++];
+ envname[k] = '\0';
+
+ env_val = getenv(envname);
+ if (env_val)
+ env_strlen += 1 + strlen(env_val);
+ else
+ env_strlen++;
+ while (src[i] && !strchr("}\n\r\f", src[i]))
+ i++;
+ if (src[i] == '}')
+ i++;
+ }
+ else
+ i++;
+ }
+ dst = xmalloc(1 + env_strlen + i);
+ i = 0;
+ while (src[i])
+ {
+ if (src[i] == '$' && src[i+1] == '{')
+ {
+ char envname[128];
+ char *env_val;
+ int k = 0;
+ i = i + 2;
+ while(k < 127 && src[i] && !strchr(":}\n\r\f", src[i]))
+ envname[k++] = src[i++];
+ envname[k] = '\0';
+ env_val = getenv(envname);
+ if (env_val)
+ {
+ strcpy(dst+j, env_val);
+ j += strlen(env_val);
+ }
+ else if (src[i] == ':' && src[i+1] == '-')
+ {
+ i = i + 2;
+ while (src[i] && !strchr("}\n\r\f", src[i]))
+ dst[j++] = src[i++];
+ }
+ while (src[i] && !strchr("}\n\r\f", src[i]))
+ i++;
+ if (src[i] == '}')
+ i++;
+ }
+ else
+ dst[j++] = src[i++];
+ }
+ dst[j] = '\0';
+ return dst;
+}