util/iso27dis.c

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