* See the file LICENSE for details.
* Sebastian Hammer, Adam Dickmeiss
*
- * $Id: d1_marc.c,v 1.20 2002-07-03 14:09:34 adam Exp $
+ * $Id: d1_marc.c,v 1.22 2002-08-17 07:56:59 adam Exp $
*/
return res;
}
+
/*
* Locate some data under this node. This routine should handle variants
* prettily.
static char *get_data(data1_node *n, int *len)
{
char *r;
+ data1_node *np = 0;
- while (n->which != DATA1N_data && n->child)
- n = n->child;
- if (n->which != DATA1N_data ||
- (n->u.data.what != DATA1I_text && n->u.data.what != DATA1I_num))
+ while (n)
{
- r = "[Structured/included data]";
- *len = strlen(r);
- return r;
+ if (n->which == DATA1N_data)
+ {
+ *len = n->u.data.len;
+ while (*len && d1_isspace(n->u.data.data[*len - 1]))
+ (*len)--;
+ if (*len != 0)
+ return n->u.data.data;
+ }
+ if (n->which == DATA1N_tag)
+ np = n->child;
+ n = n->next;
+ if (!n)
+ {
+ n = np;
+ np = 0;
+ }
}
-
- *len = n->u.data.len;
- while (*len && d1_isspace(n->u.data.data[*len - 1]))
- (*len)--;
- return n->u.data.data;
+ r = "";
+ *len = strlen(r);
+ return r;
}
static void memint (char *p, int val, int len)
return 0;
}
-static int nodetomarc(data1_marctab *p, data1_node *n, int selected,
- char **buf, int *size)
+static int nodetomarc(data1_handle dh,
+ data1_marctab *p, data1_node *n, int selected,
+ char **buf, int *size)
{
int len = 26;
int dlen;
if (subf->which == DATA1N_data)
is00X = 1;
+ if (!data1_is_xmlmode(dh))
+ {
+ if (subf->which == DATA1N_tag && !strcmp(subf->u.tag.tag, "@"))
+ is00X = 1;
+ }
+
if (!is00X)
len += p->indicator_length;
if (subf->which == DATA1N_data)
is00X = 1;
+ if (!data1_is_xmlmode(dh))
+ {
+ if (subf->which == DATA1N_tag && !strcmp(subf->u.tag.tag, "@"))
+ is00X = 1;
+ }
if (is_indicator (p, subf))
{
n = data1_get_root_tag (dh, n);
if (!n)
return 0;
- *len = nodetomarc(p, n, selected, buf, size);
+ *len = nodetomarc(dh, p, n, selected, buf, size);
return *buf;
}