1 /* $Id: kcompare.c,v 1.40 2002-08-02 19:26:55 adam Exp $
2 Copyright (C) 1995,1996,1997,1998,1999,2000,2001,2002
5 This file is part of the Zebra server.
7 Zebra is free software; you can redistribute it and/or modify it under
8 the terms of the GNU General Public License as published by the Free
9 Software Foundation; either version 2, or (at your option) any later
12 Zebra is distributed in the hope that it will be useful, but WITHOUT ANY
13 WARRANTY; without even the implied warranty of MERCHANTABILITY or
14 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
17 You should have received a copy of the GNU General Public License
18 along with Zebra; see the file LICENSE.zebra. If not, write to the
19 Free Software Foundation, 59 Temple Place - Suite 330, Boston, MA
33 void key_logdump (int logmask, const void *p)
37 memcpy (&key, p, sizeof(key));
38 logf (logmask, "%7d s=%-4d", key.sysno, key.seqno);
41 int key_compare_it (const void *p1, const void *p2)
43 if (((struct it_key *) p1)->sysno != ((struct it_key *) p2)->sysno)
45 if (((struct it_key *) p1)->sysno > ((struct it_key *) p2)->sysno)
50 if (((struct it_key *) p1)->seqno != ((struct it_key *) p2)->seqno)
52 if (((struct it_key *) p1)->seqno > ((struct it_key *) p2)->seqno)
60 char *key_print_it (const void *p, char *buf)
62 const struct it_key *i = p;
63 sprintf (buf, "%d:%d", i->sysno, i->seqno);
67 int key_compare (const void *p1, const void *p2)
70 memcpy (&i1, p1, sizeof(i1));
71 memcpy (&i2, p2, sizeof(i2));
72 if (i1.sysno != i2.sysno)
74 if (i1.sysno > i2.sysno)
79 if (i1.seqno != i2.seqno)
81 if (i1.seqno > i2.seqno)
89 int key_qsort_compare (const void *p1, const void *p2)
93 char *cp1 = *(char **) p1;
94 char *cp2 = *(char **) p2;
96 if ((r = strcmp (cp1, cp2)))
99 if ((r = key_compare (cp1+l+1, cp2+l+1)))
101 return cp1[l] - cp2[l];
104 int key_get_pos (const void *p)
107 memcpy (&key, p, sizeof(key));
111 struct iscz1_code_info {
115 static void *iscz1_code_start (int mode)
117 struct iscz1_code_info *p = (struct iscz1_code_info *)
118 xmalloc (sizeof(*p));
124 static void iscz1_code_reset (void *vp)
126 struct iscz1_code_info *p = (struct iscz1_code_info *) vp;
131 static void iscz1_code_stop (int mode, void *p)
136 void iscz1_encode_int (unsigned d, char **dst)
138 unsigned char *bp = (unsigned char*) *dst;
147 else if (d <= 4194303)
149 *bp++ = 128 | (d>>16);
150 *bp++ = (d>>8) & 255;
155 *bp++ = 192 | (d>>24);
156 *bp++ = (d>>16) & 255;
157 *bp++ = (d>>8) & 255;
163 int iscz1_decode_int (unsigned char **src)
165 unsigned c = *(*src)++;
171 return ((c & 63) << 8) + *(*src)++;
173 c = ((c & 63) << 8) + *(*src)++;
174 c = (c << 8) + *(*src)++;
177 if (c&32) /* expand sign bit to high bits */
178 c = ((c | 63) << 8) + *(*src)++;
180 c = ((c & 63) << 8) + *(*src)++;
181 c = (c << 8) + *(*src)++;
182 c = (c << 8) + *(*src)++;
187 static void iscz1_code_item (int mode, void *vp, char **dst, char **src)
189 struct iscz1_code_info *p = (struct iscz1_code_info *) vp;
193 if (mode == ISAMC_ENCODE)
195 memcpy (&tkey, *src, sizeof(struct it_key));
196 d = tkey.sysno - p->key.sysno;
199 iscz1_encode_int (2*tkey.seqno + 1, dst);
200 iscz1_encode_int (d, dst);
202 p->key.seqno = tkey.seqno;
206 iscz1_encode_int (2*(tkey.seqno - p->key.seqno), dst);
207 p->key.seqno = tkey.seqno;
209 (*src) += sizeof(struct it_key);
213 d = iscz1_decode_int ((unsigned char **) src);
217 p->key.sysno += iscz1_decode_int ((unsigned char **) src);
220 p->key.seqno += d>>1;
221 memcpy (*dst, &p->key, sizeof(struct it_key));
222 (*dst) += sizeof(struct it_key);
226 ISAMS_M key_isams_m (Res res, ISAMS_M me)
228 isams_getmethod (me);
230 me->compare_item = key_compare;
232 me->code_start = iscz1_code_start;
233 me->code_item = iscz1_code_item;
234 me->code_stop = iscz1_code_stop;
236 me->debug = atoi(res_get_def (res, "isamsDebug", "0"));
241 ISAMC_M key_isamc_m (Res res, ISAMC_M me)
245 me->compare_item = key_compare;
247 me->code_start = iscz1_code_start;
248 me->code_item = iscz1_code_item;
249 me->code_stop = iscz1_code_stop;
250 me->code_reset = iscz1_code_reset;
252 me->debug = atoi(res_get_def (res, "isamcDebug", "0"));
257 ISAMD_M key_isamd_m (Res res,ISAMD_M me)
260 me = isamd_getmethod (me);
262 me->compare_item = key_compare;
264 me->code_start = iscz1_code_start;
265 me->code_item = iscz1_code_item;
266 me->code_stop = iscz1_code_stop;
267 me->code_reset = iscz1_code_reset;
269 me->debug = atoi(res_get_def (res, "isamdDebug", "0"));
274 int key_SU_encode (int ch, char *out)
280 out[i] = 65 + (ch & 63);
299 int key_SU_decode (int *ch, const unsigned char *out)
304 for (len = 1; *out >= 65; len++, out++)
306 *ch += (*out - 65) * fact;
309 *ch += (*out - 1) * fact;
314 * $Log: kcompare.c,v $
315 * Revision 1.40 2002-08-02 19:26:55 adam
318 * Revision 1.39 2002/04/12 14:55:22 adam
321 * Revision 1.38 2002/04/05 08:46:26 adam
322 * Zebra with full functionality
324 * Revision 1.37 2001/11/19 23:08:30 adam
325 * Added const qualifier for name parameter of key_SU_decode.
327 * Revision 1.36 2001/10/15 19:53:43 adam
328 * POSIX thread updates. First work on term sets.
330 * Revision 1.35 1999/11/30 13:48:03 adam
331 * Improved installation. Updated for inclusion of YAZ header files.
333 * Revision 1.34 1999/07/14 13:21:34 heikki
334 * Added isam-d files. Compiles (almost) clean. Doesn't work at all
336 * Revision 1.33 1999/07/14 10:59:26 adam
337 * Changed functions isc_getmethod, isams_getmethod.
338 * Improved fatal error handling (such as missing EXPLAIN schema).
340 * Revision 1.32 1999/07/13 13:21:15 heikki
341 * Managing negative deltas
343 * Revision 1.31 1999/07/06 09:37:04 heikki
344 * Working on isamh - not ready yet.
346 * Revision 1.30 1999/06/30 15:07:23 heikki
349 * Revision 1.29 1999/06/30 09:08:23 adam
350 * Added coder to reset.
352 * Revision 1.28 1999/05/26 07:49:13 adam
355 * Revision 1.27 1999/05/12 13:08:06 adam
356 * First version of ISAMS.
358 * Revision 1.26 1999/02/02 14:50:54 adam
359 * Updated WIN32 code specific sections. Changed header.
361 * Revision 1.25 1998/06/08 15:26:06 adam
364 * Revision 1.24 1998/06/08 14:43:12 adam
365 * Added suport for EXPLAIN Proxy servers - added settings databasePath
366 * and explainDatabase to facilitate this. Increased maximum number
367 * of databases and attributes in one register.
369 * Revision 1.23 1998/03/05 08:45:12 adam
370 * New result set model and modular ranking system. Moved towards
371 * descent server API. System information stored as "SGML" records.
373 * Revision 1.22 1997/09/22 12:39:06 adam
374 * Added get_pos method for the ranked result sets.
376 * Revision 1.21 1997/09/17 12:19:13 adam
377 * Zebra version corresponds to YAZ version 1.4.
378 * Changed Zebra server so that it doesn't depend on global common_resource.
380 * Revision 1.20 1996/12/23 15:30:44 adam
381 * Work on truncation.
382 * Bug fix: result sets weren't deleted after server shut down.
384 * Revision 1.19 1996/12/11 12:08:00 adam
385 * Added better compression.
387 * Revision 1.18 1996/10/29 14:09:44 adam
388 * Use of cisam system - enabled if setting isamc is 1.
390 * Revision 1.17 1996/06/04 10:18:58 adam
391 * Minor changes - removed include of ctype.h.
393 * Revision 1.16 1996/05/13 14:23:05 adam
394 * Work on compaction of set/use bytes in dictionary.
396 * Revision 1.15 1995/11/20 16:59:46 adam
397 * New update method: the 'old' keys are saved for each records.
399 * Revision 1.14 1995/10/30 15:08:08 adam
402 * Revision 1.13 1995/10/27 14:00:11 adam
403 * Implemented detection of database availability.
405 * Revision 1.12 1995/10/17 18:02:08 adam
406 * New feature: databases. Implemented as prefix to words in dictionary.
408 * Revision 1.11 1995/10/06 16:33:37 adam
409 * Use attribute mappings.
411 * Revision 1.10 1995/09/29 14:01:41 adam
414 * Revision 1.9 1995/09/28 12:10:32 adam
415 * Bug fixes. Field prefix used in queries.
417 * Revision 1.8 1995/09/28 09:19:42 adam
418 * xfree/xmalloc used everywhere.
419 * Extract/retrieve method seems to work for text records.
421 * Revision 1.7 1995/09/27 12:22:28 adam
422 * More work on extract in record control.
423 * Field name is not in isam keys but in prefix in dictionary words.
425 * Revision 1.6 1995/09/14 07:48:23 adam
426 * Record control management.
428 * Revision 1.5 1995/09/11 13:09:34 adam
429 * More work on relevance feedback.
431 * Revision 1.4 1995/09/08 14:52:27 adam
432 * Minor changes. Dictionary is lower case now.
434 * Revision 1.3 1995/09/07 13:58:36 adam
435 * New parameter: result-set file descriptor (RSFD) to support multiple
436 * positions within the same result-set.
437 * Boolean operators: and, or, not implemented.
438 * Result-set references.
440 * Revision 1.2 1995/09/06 16:11:17 adam
441 * Option: only one word key per file.
443 * Revision 1.1 1995/09/04 09:10:36 adam
444 * More work on index add/del/update.
445 * Merge sort implemented.
446 * Initial work on z39 server.