2 * Copyright (C) 1994-1999, Index Data
4 * Sebastian Hammer, Adam Dickmeiss
7 * Revision 1.20 2002-04-04 14:14:13 adam
8 * Multiple registers (alpha early)
10 * Revision 1.19 2000/12/05 10:01:44 adam
11 * Fixed bug regarding user-defined attribute sets.
13 * Revision 1.18 1999/09/07 07:19:21 adam
14 * Work on character mapping. Implemented replace rules.
16 * Revision 1.17 1999/02/02 14:50:55 adam
17 * Updated WIN32 code specific sections. Changed header.
19 * Revision 1.16 1998/05/20 10:12:17 adam
20 * Implemented automatic EXPLAIN database maintenance.
21 * Modified Zebra to work with ASN.1 compiled version of YAZ.
23 * Revision 1.15 1998/03/05 08:45:12 adam
24 * New result set model and modular ranking system. Moved towards
25 * descent server API. System information stored as "SGML" records.
27 * Revision 1.14 1997/10/27 14:33:04 adam
28 * Moved towards generic character mapping depending on "structure"
29 * field in abstract syntax file. Fixed a few memory leaks. Fixed
30 * bug with negative integers when doing searches with relational
33 * Revision 1.13 1997/09/09 13:38:07 adam
34 * Partial port to WIN95/NT.
36 * Revision 1.12 1997/09/05 09:52:32 adam
37 * Extra argument added to function chr_read_maptab (tab path).
39 * Revision 1.11 1996/10/29 14:06:49 adam
40 * Include zebrautl.h instead of alexutil.h.
42 * Revision 1.10 1996/06/04 14:56:12 quinn
45 * Revision 1.9 1996/06/04 14:18:53 quinn
48 * Revision 1.8 1996/06/04 10:18:59 adam
49 * Minor changes - removed include of ctype.h.
51 * Revision 1.7 1995/10/10 12:24:38 adam
52 * Temporary sort files are compressed.
54 * Revision 1.6 1995/09/29 14:01:42 adam
57 * Revision 1.5 1995/09/11 13:09:35 adam
58 * More work on relevance feedback.
60 * Revision 1.4 1995/09/08 14:52:27 adam
61 * Minor changes. Dictionary is lower case now.
63 * Revision 1.3 1995/09/06 16:11:17 adam
64 * Option: only one word key per file.
66 * Revision 1.2 1995/09/04 12:33:42 adam
67 * Various cleanup. YAZ util used instead.
69 * Revision 1.1 1995/09/04 09:10:36 adam
70 * More work on index add/del/update.
71 * Merge sort implemented.
72 * Initial work on z39 server.
91 int key_file_decode (FILE *f)
102 d = ((c&63) << 8) + (getc (f) & 0xff);
105 d = ((c&63) << 8) + (getc (f) & 0xff);
106 d = (d << 8) + (getc (f) & 0xff);
109 d = ((c&63) << 8) + (getc (f) & 0xff);
110 d = (d << 8) + (getc (f) & 0xff);
111 d = (d << 8) + (getc (f) & 0xff);
118 static int read_one (FILE *inf, char *name, char *key, struct it_key *prevk)
125 if ((c=getc(inf)) == EOF)
131 c = key_file_decode (inf);
134 itkey.sysno = c + prevk->sysno;
137 prevk->sysno = itkey.sysno;
140 c = key_file_decode (inf);
141 itkey.seqno = c + prevk->seqno;
142 prevk->seqno = itkey.seqno;
144 memcpy (key+1, &itkey, sizeof(itkey));
148 int main (int argc, char **argv)
152 char *key_fname = NULL;
153 char key_string[IT_MAX_WORD];
164 while ((ret = options ("c:v:", argv, argc, &arg)) != -2)
172 yaz_log_init (yaz_log_mask_str(arg), prog, NULL);
176 if (!(res = res_open (arg, 0)))
178 logf(LOG_FATAL, "Failed to open resource file %s", arg);
184 logf (LOG_FATAL, "Unknown option '-%s'", arg);
190 fprintf (stderr, "kdump [-c config] [-v log] file\n");
194 res = res_open ("zebra.cfg", 0);
195 zm = zebra_maps_open (res);
196 if (!(inf = fopen (key_fname, "r")))
198 logf (LOG_FATAL|LOG_ERRNO, "fopen %s", key_fname);
201 printf ("t rg op sysno seqno txt\n");
202 while (read_one (inf, key_string, key_info, &prevk))
206 char keybuf[IT_MAX_WORD+1];
208 const char *from = key_string;
209 int usedb_type = from[0];
210 int reg_type = from[1];
213 memcpy (&k, 1+key_info, sizeof(k));
218 const char *res = zebra_maps_output (zm, reg_type, &from);
226 printf ("%c %3d %c %7d %5d %s\n", reg_type, usedb_type, op ? 'i':'d',
227 k.sysno, k.seqno, keybuf);
229 zebra_maps_close (zm);
232 logf (LOG_FATAL|LOG_ERRNO, "fclose %s", key_fname);