util/iso27dis.c

   1 /*
   2    Iso2709 record management
   3
   4    Europagate, 1994-1995.
   5
   6    iso27dis.c,v
   7  * Revision 1.1  1995/02/10  17:05:18  adam
   8  * New function iso2709_display to display MARC records in a
   9  * line-by-line format. The iso2709_cvt function no longer
  10  * prints the record to stderr.
  11  *
  12  */
  13
  14 #include <stdlib.h>
  15 #include <string.h>
  16 #include <stdio.h>
  17 #include <assert.h>
  18 #include <ctype.h>
  19
  20 #include <iso2709p.h>
  21
  22 void iso2709_display (Iso2709Rec rec, FILE *out)
  23 {
  24     struct iso2709_dir *dir;
  25
  26     for (dir = rec->directory; dir; dir = dir->next)
  27     {
  28         struct iso2709_field *field;
  29
  30         fprintf (out, "%s", dir->tag);
  31         if (dir->indicator)
  32             fprintf (out, " %s", dir->indicator);
  33         for (field = dir->fields; field; field = field->next)
  34         {
  35             if (field->identifier)
  36                 fprintf (out, " $%s", field->identifier);
  37             fprintf (out, " %s", field->data);
  38         }
  39         fprintf (out, "\n");
  40     }
  41 }