7cc154ec62ace766fcd34b9bed7b368ca634b151
[yaz-moved-to-github.git] / util / marcdump.c
1 /*
2  * Copyright (c) 1995-2001, Index Data
3  * See the file LICENSE for details.
4  * Sebastian Hammer, Adam Dickmeiss
5  *
6  * $Log: marcdump.c,v $
7  * Revision 1.13  2001-02-10 01:21:59  adam
8  * Dumper only keeps one record at a time in memory.
9  *
10  * Revision 1.12  2000/10/02 11:07:45  adam
11  * Added peer_name member for bend_init handler. Changed the YAZ
12  * client so that tcp: can be avoided in target spec.
13  *
14  * Revision 1.11  2000/07/04 08:53:22  adam
15  * Fixed bug.
16  *
17  * Revision 1.10  2000/02/29 13:44:55  adam
18  * Check for config.h (currently not generated).
19  *
20  * Revision 1.9  1999/11/30 13:47:12  adam
21  * Improved installation. Moved header files to include/yaz.
22  *
23  * Revision 1.8  1999/05/26 07:49:35  adam
24  * C++ compilation.
25  *
26  * Revision 1.7  1998/02/11 11:53:36  adam
27  * Changed code so that it compiles as C++.
28  *
29  * Revision 1.6  1997/12/12 06:32:33  adam
30  * Added include of string.h.
31  *
32  * Revision 1.5  1997/09/24 13:29:40  adam
33  * Added verbose option -v to marcdump utility.
34  *
35  * Revision 1.4  1995/11/01 13:55:05  quinn
36  * Minor adjustments
37  *
38  * Revision 1.3  1995/05/16  08:51:12  quinn
39  * License, documentation, and memory fixes
40  *
41  * Revision 1.2  1995/05/15  11:56:56  quinn
42  * Debuggng & adjustments.
43  *
44  * Revision 1.1  1995/04/10  10:28:47  quinn
45  * Added copy of CCL and MARC display
46  *
47  */
48
49 #if HAVE_CONFIG_H
50 #include <config.h>
51 #endif
52
53 #include <stdio.h>
54 #include <stdlib.h>
55 #include <string.h>
56 #include <errno.h>
57 #include <yaz/marcdisp.h>
58 #include <yaz/yaz-util.h>
59 #include <yaz/xmalloc.h>
60 #include <yaz/options.h>
61
62 #ifndef SEEK_SET
63 #define SEEK_SET 0
64 #endif
65 #ifndef SEEK_END
66 #define SEEK_END 2
67 #endif
68  
69 int main (int argc, char **argv)
70 {
71     int r;
72     char *arg;
73     int verbose = 0;
74     FILE *inf;
75     char buf[100001];
76     char *prog = *argv;
77     int no = 0;
78     FILE *cfile = 0;
79
80     while ((r = options("vc:", argv, argc, &arg)) != -2)
81     {
82         int count;
83         no++;
84         switch (r)
85         {
86         case 'c':
87             if (cfile)
88                 fclose (cfile);
89             cfile = fopen (arg, "w");
90             break;
91         case 0:
92             inf = fopen (arg, "r");
93             count = 0;
94             if (!inf)
95             {
96                 fprintf (stderr, "%s: cannot open %s:%s\n",
97                          prog, arg, strerror (errno));
98                 exit (1);
99             }
100             if (cfile)
101                 fprintf (cfile, "char *marc_records[] = {\n");
102             while (1)
103             {
104                 int len;
105                 
106                 r = fread (buf, 1, 5, inf);
107                 if (r < 5)
108                     break;
109                 len = atoi_n(buf, 5);
110                 if (len < 25 || len > 100000)
111                     break;
112                 len = len - 5;
113                 r = fread (buf + 5, 1, len, inf);
114                 if (r < len)
115                     break;
116                 r = marc_display_ex (buf, stdout, verbose);
117                 if (r <= 0)
118                     break;
119                 if (cfile)
120                 {
121                     char *p = buf;
122                     int i;
123                     if (count)
124                         fprintf (cfile, ",");
125                     fprintf (cfile, "{\n");
126                     for (i = 0; i < r; i++)
127                     {
128                         if ((i & 15) == 0)
129                             fprintf (cfile, "  \"");
130                         fprintf (cfile, "\\x%02X", p[i] & 255);
131                         
132                         if (i < r - 1 && (i & 15) == 15)
133                             fprintf (cfile, "\"\n");
134                         
135                         }
136                     fprintf (cfile, "\"\n}");
137                 }
138                 count++;
139             }
140             if (cfile)
141                 fprintf (cfile, "};\n");
142             break;
143         case 'v':
144             verbose++;
145             break;
146         default:
147             fprintf (stderr, "Usage: %s [-c cfile] [-v] file...\n", prog);
148             exit (1);
149         }
150     }
151     if (cfile)
152         fclose (cfile);
153     if (!no)
154     {
155         fprintf (stderr, "Usage: %s [-v] file...\n", prog);
156         exit (1);
157     }
158     exit (0);
159 }