Introduced new 'global' data1 handle.

diff --git a/retrieval/d1_handle.c b/retrieval/d1_handle.c
new file mode 100644 (file)
index 0000000..d294218
--- /dev/null
+++ b/retrieval/d1_handle.c
@@ -0,0 +1,95 @@
+/*
+ * Copyright (c) 1995-1997, Index Data.
+ * See the file LICENSE for details.
+ * Sebastian Hammer, Adam Dickmeiss
+ *
+ * $Log: d1_handle.c,v $
+ * Revision 1.1  1997-09-17 12:28:24  adam
+ * Introduced new 'global' data1 handle.
+ *
+ */
+
+#include <stdio.h>
+#include <stdlib.h>
+
+#include <log.h>
+#include <data1.h>
+
+struct data1_handle_info {
+    WRBUF wrbuf;
+    char *tab_path;
+    char *read_buf;
+    int read_len;
+    data1_absyn_cache absyn_cache;
+    NMEM mem;
+};
+
+data1_handle data1_create (void)
+{
+    data1_handle p = xmalloc (sizeof(*p));
+    if (!p)
+       return NULL;
+    p->tab_path = NULL;
+    p->wrbuf = wrbuf_alloc();
+    p->read_buf = NULL;
+    p->read_len = 0;
+    p->absyn_cache = NULL;
+    p->mem = nmem_create ();
+    return p;
+}
+
+NMEM data1_nmem_get (data1_handle dh)
+{
+    return dh->mem;
+}
+
+data1_absyn_cache *data1_absyn_cache_get (data1_handle dh)
+{
+    return &dh->absyn_cache;
+}
+
+void data1_destroy (data1_handle dh)
+{
+    if (!dh)
+       return;
+    wrbuf_free (dh->wrbuf, 1);
+    if (dh->tab_path)
+       xfree (dh->tab_path);
+    if (dh->read_buf)
+       xfree (dh->read_buf);
+    nmem_destroy (dh->mem);
+    
+    xfree (dh);
+}
+
+WRBUF data1_get_wrbuf (data1_handle dp)
+{
+    return dp->wrbuf;
+}
+
+char **data1_get_read_buf (data1_handle dp, int **lenp)
+{
+    *lenp = &dp->read_len;
+    return &dp->read_buf;
+}
+
+
+void data1_set_tabpath (data1_handle dp, const char *p)
+{
+    if (dp->tab_path)
+    {
+        xfree (dp->tab_path);
+        dp->tab_path = NULL;
+    }
+    if (p)
+    {
+        dp->tab_path = xmalloc (strlen(p)+1);
+        strcpy (dp->tab_path, p);
+    }
+}
+
+const char *data1_get_tabpath (data1_handle dp)
+{
+    return dp->tab_path;
+}
+