* See the file LICENSE for details.
* Sebastian Hammer, Adam Dickmeiss
*
- * $Id: d1_marc.c,v 1.19 2002-05-28 21:09:44 adam Exp $
+ * $Id: d1_marc.c,v 1.26 2002-08-28 19:10:56 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)
+ {
+ int i;
+ *len = n->u.data.len;
- *len = n->u.data.len;
- while (*len && d1_isspace(n->u.data.data[*len - 1]))
- (*len)--;
- return n->u.data.data;
+ for (i = 0; i<*len; i++)
+ if (!d1_isspace(n->u.data.data[i]))
+ break;
+ while (*len && d1_isspace(n->u.data.data[*len - 1]))
+ (*len)--;
+ *len = *len - i;
+ if (*len > 0)
+ return n->u.data.data + i;
+ }
+ if (n->which == DATA1N_tag)
+ n = n->child;
+ else if (n->which == DATA1N_data)
+ n = n->next;
+ else
+ break;
+ }
+ 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;
data1_node *field, *subf;
yaz_log (LOG_DEBUG, "nodetomarc");
+
for (field = n->child; field; field = field->next)
{
int is00X = 0;
}
if (selected && !field->u.tag.node_selected)
continue;
+
+ subf = field->child;
+ if (!subf)
+ continue;
+
len += 4 + p->length_data_entry + p->length_starting
+ p->length_implementation;
base_address += 3 + p->length_data_entry + p->length_starting
+ p->length_implementation;
- subf = field->child;
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;
continue;
subf = field->child;
+ if (!subf)
+ continue;
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))
{
int *size;
char **buf = data1_get_map_buf (dh, &size);
- *len = nodetomarc(p, n, selected, buf, size);
+ n = data1_get_root_tag (dh, n);
+ if (!n)
+ return 0;
+ *len = nodetomarc(dh, p, n, selected, buf, size);
return *buf;
}