recctrl/inline.c

   1 /*
   2     $Id: inline.c,v 1.4 2004-12-10 11:56:22 heikki Exp $
   3 */
   4 #include <stdio.h>
   5 #include <string.h>
   6 #include <ctype.h>
   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>
  11 #include <yaz/ylog.h>
  12 #include <yaz/tpath.h>
  13 #include <yaz/options.h>
  14 #include <yaz/wrbuf.h>
  15 #include <yaz/nmem.h>
  16 #include <yaz/readconf.h>
  17 #include <yaz/marcdisp.h>
  18 #include <yaz/yaz-iconv.h>
  19
  20 #include "inline.h"
  21
  22 static void inline_destroy_subfield_recursive(inline_subfield *p);
  23
  24 inline_field *inline_mk_field(void)
  25 {
  26     inline_field *p = (inline_field *) xmalloc(sizeof(*p));
  27
  28     if (p)
  29     {
  30         memset(p, 0, sizeof(*p));
  31         p->name = (char *) xmalloc(SZ_FNAME+1);
  32         *(p->name) = '\0';
  33         p->ind1 = (char *) xmalloc(SZ_IND+1);
  34         *(p->ind1) = '\0';
  35         p->ind2 = (char *) xmalloc(SZ_IND+1);
  36         *(p->ind2) = '\0';
  37     }
  38     return p;
  39 }
  40 void inline_destroy_field(inline_field *p)
  41 {
  42     if (p)
  43     {
  44         if (p->name) xfree(p->name);
  45         if (p->ind1) xfree(p->ind1);
  46         if (p->ind2) xfree(p->ind2);
  47         if (p->list)
  48             inline_destroy_subfield_recursive(p->list);
  49         xfree(p);
  50     }
  51 }
  52 static inline_subfield *inline_mk_subfield(inline_subfield *parent)
  53 {
  54     inline_subfield *p = (inline_subfield *)xmalloc(sizeof(*p));
  55
  56     if (p)
  57     {
  58         memset(p, 0, sizeof(*p));
  59         p->name = (char *) xmalloc(SZ_SFNAME+1);
  60         *(p->name) = '\0';
  61         p->parent = parent;
  62     }
  63     return p;
  64 }
  65
  66 #if 0
  67 static void inline_destroy_subfield(inline_subfield *p)
  68 {
  69     if (p)
  70     {
  71         if (p->name) xfree(p->name);
  72         if (p->data) xfree(p->data);
  73         if (p->parent) p->parent->next = p->next;
  74         xfree(p);
  75     }
  76 }
  77 #endif
  78
  79 static void inline_destroy_subfield_recursive(inline_subfield *p)
  80 {
  81     if (p)
  82     {
  83         inline_destroy_subfield_recursive(p->next);
  84         if (p->name) xfree(p->name);
  85         if (p->data) xfree(p->data);
  86         if (p->parent)
  87             p->parent->next = 0;
  88         xfree(p);
  89     }
  90 }
  91 int inline_parse(inline_field *pif, const char *tag, const char *s)
  92 {
  93     inline_field *pf = pif;
  94     char *p = (char *)s;
  95
  96     if (!pf)
  97         return -1;
  98
  99     if (pf->name[0] == '\0')
 100     {
 101         if ((sscanf(p, "%3s", pf->name)) != 1)
 102             return -2;
 103
 104         p += SZ_FNAME;
 105
 106         if (!memcmp(pf->name, "00", 2))
 107         {
 108             pf->list = inline_mk_subfield(0);
 109             pf->list->data = xstrdup(p);
 110         }
 111         else
 112         {
 113             if ((sscanf(p, "%c%c", pf->ind1, pf->ind2)) != 2)
 114                 return -3;
 115         }
 116     }
 117     else
 118     {
 119         inline_subfield *psf = inline_mk_subfield(0);
 120
 121         sscanf(tag, "%1s", psf->name);
 122         psf->data = xstrdup(p);
 123
 124         if (!pf->list)
 125         {
 126             pf->list = psf;
 127         }
 128         else
 129         {
 130             inline_subfield *last = pf->list;
 131             while (last->next)
 132                 last = last->next;
 133             last->next = psf;
 134         }
 135     }
 136     return 0;
 137 }