2 * Iso2709 record management
4 * Europagate, 1994-1995.
7 * Revision 1.4 1995/03/29 11:44:29 adam
8 * New functions: iso2709_a_.. for record manipulation.
10 * Revision 1.3 1995/02/22 21:32:36 adam
13 * Revision 1.1 1995/02/10 17:05:18 adam
14 * New function iso2709_display to display MARC records in a
15 * line-by-line format. The iso2709_cvt function no longer
16 * prints the record to stderr.
28 void iso2709_display (Iso2709Rec rec, FILE *out)
36 a = iso2709_a_mk (rec);
39 if (!iso2709_a_info_line (a, &tag, &indicator))
41 fprintf (out, "%s", tag);
43 fprintf (out, " %s", indicator);
46 iso2709_a_info_field (a, NULL, NULL, &identifier, &data);
48 fprintf (out, " $%s", identifier);
49 fprintf (out, " %s", data);
50 } while (iso2709_a_next_field (a));
52 } while (iso2709_a_next_line(a));