* Sebastian Hammer, Adam Dickmeiss
*
* $Log: d1_read.c,v $
- * Revision 1.1 1995-11-01 11:56:09 quinn
+ * Revision 1.4 1995-11-13 09:27:36 quinn
+ * Fiddling with the variant stuff.
+ *
+ * Revision 1.3 1995/11/01 16:34:57 quinn
+ * Making data1 look for tables in data1_tabpath
+ *
+ * Revision 1.2 1995/11/01 13:54:48 quinn
+ * Minor adjustments
+ *
+ * Revision 1.1 1995/11/01 11:56:09 quinn
* Added Retrieval (data management) functions en masse.
*
* Revision 1.14 1995/10/30 12:40:55 quinn
#include <xmalloc.h>
#include <log.h>
-#include "data1.h"
+#include <data1.h>
+
+char *data1_tabpath = 0; /* global path for tables */
+
+void data1_set_tabpath(char *p)
+{ data1_tabpath = p; }
static data1_node *freelist = 0;
tagn->line = -1;
tagn->u.tag.tag = 0;
tagn->u.tag.node_selected = 0;
+ tagn->u.tag.make_variantlist = 0;
+ tagn->u.tag.no_data_requested = 0;
if (!(tagn->u.tag.element = data1_getelementbytagname(root->u.root.absyn,
0, tagname)))
{
*buf = t + 1;
}
}
- else /* acquire our element in the abstract syntax */
+ else /* tag.. acquire our element in the abstract syntax */
{
data1_node *partag = get_parent_tag(parent);
data1_element *e = 0;
res->u.tag.element = elem;
res->u.tag.tag = tag;
res->u.tag.node_selected = 0;
+ res->u.tag.make_variantlist = 0;
+ res->u.tag.no_data_requested = 0;
res->root = parent->root;
*buf = t + 1;
}
abort();
for (;;)
{
- if (rd + 4096 > size && !(buf = realloc(buf, size *= 2)))
+ if (rd + 4096 > size && !(buf =xrealloc(buf, size *= 2)))
abort();
if ((res = (*rf)(fd, buf + rd, 4096)) <= 0)
{