2 $Id: inline.c,v 1.4 2004-12-10 11:56:22 heikki Exp $
7 /* Old yaz-util includes (FIXME - clean up what is not needed)*/
8 #include <yaz/yconfig.h>
9 #include <yaz/yaz-version.h>
10 #include <yaz/xmalloc.h>
12 #include <yaz/tpath.h>
13 #include <yaz/options.h>
14 #include <yaz/wrbuf.h>
16 #include <yaz/readconf.h>
17 #include <yaz/marcdisp.h>
18 #include <yaz/yaz-iconv.h>
22 static void inline_destroy_subfield_recursive(inline_subfield *p);
24 inline_field *inline_mk_field(void)
26 inline_field *p = (inline_field *) xmalloc(sizeof(*p));
30 memset(p, 0, sizeof(*p));
31 p->name = (char *) xmalloc(SZ_FNAME+1);
33 p->ind1 = (char *) xmalloc(SZ_IND+1);
35 p->ind2 = (char *) xmalloc(SZ_IND+1);
40 void inline_destroy_field(inline_field *p)
44 if (p->name) xfree(p->name);
45 if (p->ind1) xfree(p->ind1);
46 if (p->ind2) xfree(p->ind2);
48 inline_destroy_subfield_recursive(p->list);
52 static inline_subfield *inline_mk_subfield(inline_subfield *parent)
54 inline_subfield *p = (inline_subfield *)xmalloc(sizeof(*p));
58 memset(p, 0, sizeof(*p));
59 p->name = (char *) xmalloc(SZ_SFNAME+1);
67 static void inline_destroy_subfield(inline_subfield *p)
71 if (p->name) xfree(p->name);
72 if (p->data) xfree(p->data);
73 if (p->parent) p->parent->next = p->next;
79 static void inline_destroy_subfield_recursive(inline_subfield *p)
83 inline_destroy_subfield_recursive(p->next);
84 if (p->name) xfree(p->name);
85 if (p->data) xfree(p->data);
91 int inline_parse(inline_field *pif, const char *tag, const char *s)
93 inline_field *pf = pif;
99 if (pf->name[0] == '\0')
101 if ((sscanf(p, "%3s", pf->name)) != 1)
106 if (!memcmp(pf->name, "00", 2))
108 pf->list = inline_mk_subfield(0);
109 pf->list->data = xstrdup(p);
113 if ((sscanf(p, "%c%c", pf->ind1, pf->ind2)) != 2)
119 inline_subfield *psf = inline_mk_subfield(0);
121 sscanf(tag, "%1s", psf->name);
122 psf->data = xstrdup(p);
130 inline_subfield *last = pf->list;