2 * Copyright (C) 1994-1999, Index Data
4 * Sebastian Hammer, Adam Dickmeiss, Heikki Levanto
18 void key_logdump (int logmask, const void *p)
22 memcpy (&key, p, sizeof(key));
23 logf (logmask, "%7d s=%-4d", key.sysno, key.seqno);
26 int key_compare_it (const void *p1, const void *p2)
28 if (((struct it_key *) p1)->sysno != ((struct it_key *) p2)->sysno)
30 if (((struct it_key *) p1)->sysno > ((struct it_key *) p2)->sysno)
35 if (((struct it_key *) p1)->seqno != ((struct it_key *) p2)->seqno)
37 if (((struct it_key *) p1)->seqno > ((struct it_key *) p2)->seqno)
45 int key_compare (const void *p1, const void *p2)
48 memcpy (&i1, p1, sizeof(i1));
49 memcpy (&i2, p2, sizeof(i2));
50 if (i1.sysno != i2.sysno)
52 if (i1.sysno > i2.sysno)
57 if (i1.seqno != i2.seqno)
59 if (i1.seqno > i2.seqno)
67 int key_qsort_compare (const void *p1, const void *p2)
71 char *cp1 = *(char **) p1;
72 char *cp2 = *(char **) p2;
74 if ((r = strcmp (cp1, cp2)))
77 if ((r = key_compare (cp1+l+1, cp2+l+1)))
79 return cp1[l] - cp2[l];
82 int key_get_pos (const void *p)
85 memcpy (&key, p, sizeof(key));
89 struct iscz1_code_info {
93 static void *iscz1_code_start (int mode)
95 struct iscz1_code_info *p = (struct iscz1_code_info *)
102 static void iscz1_code_reset (void *vp)
104 struct iscz1_code_info *p = (struct iscz1_code_info *) vp;
109 static void iscz1_code_stop (int mode, void *p)
114 void iscz1_encode_int (unsigned d, char **dst)
116 unsigned char *bp = (unsigned char*) *dst;
125 else if (d <= 4194303)
127 *bp++ = 128 | (d>>16);
128 *bp++ = (d>>8) & 255;
133 *bp++ = 192 | (d>>24);
134 *bp++ = (d>>16) & 255;
135 *bp++ = (d>>8) & 255;
141 int iscz1_decode_int (unsigned char **src)
143 unsigned c = *(*src)++;
149 return ((c & 63) << 8) + *(*src)++;
151 c = ((c & 63) << 8) + *(*src)++;
152 c = (c << 8) + *(*src)++;
155 if (c&32) /* expand sign bit to high bits */
156 c = ((c | 63) << 8) + *(*src)++;
158 c = ((c & 63) << 8) + *(*src)++;
159 c = (c << 8) + *(*src)++;
160 c = (c << 8) + *(*src)++;
165 static void iscz1_code_item (int mode, void *vp, char **dst, char **src)
167 struct iscz1_code_info *p = (struct iscz1_code_info *) vp;
171 if (mode == ISAMC_ENCODE)
173 memcpy (&tkey, *src, sizeof(struct it_key));
174 d = tkey.sysno - p->key.sysno;
177 iscz1_encode_int (2*tkey.seqno + 1, dst);
178 iscz1_encode_int (d, dst);
180 p->key.seqno = tkey.seqno;
184 iscz1_encode_int (2*(tkey.seqno - p->key.seqno), dst);
185 p->key.seqno = tkey.seqno;
187 (*src) += sizeof(struct it_key);
191 d = iscz1_decode_int ((unsigned char **) src);
195 p->key.sysno += iscz1_decode_int ((unsigned char **) src);
198 p->key.seqno += d>>1;
199 memcpy (*dst, &p->key, sizeof(struct it_key));
200 (*dst) += sizeof(struct it_key);
204 ISAMS_M key_isams_m (Res res, ISAMS_M me)
206 isams_getmethod (me);
208 me->compare_item = key_compare;
210 me->code_start = iscz1_code_start;
211 me->code_item = iscz1_code_item;
212 me->code_stop = iscz1_code_stop;
214 me->debug = atoi(res_get_def (res, "isamsDebug", "0"));
221 ISAMC_M key_isamc_m (Res res, ISAMC_M me)
225 me->compare_item = key_compare;
227 me->code_start = iscz1_code_start;
228 me->code_item = iscz1_code_item;
229 me->code_stop = iscz1_code_stop;
230 me->code_reset = iscz1_code_reset;
232 me->debug = atoi(res_get_def (res, "isamcDebug", "0"));
237 ISAMD_M key_isamd_m (Res res,ISAMD_M me)
240 me = isamd_getmethod (me);
242 me->compare_item = key_compare;
244 me->code_start = iscz1_code_start;
245 me->code_item = iscz1_code_item;
246 me->code_stop = iscz1_code_stop;
247 me->code_reset = iscz1_code_reset;
249 me->debug = atoi(res_get_def (res, "isamdDebug", "0"));
256 int key_SU_code (int ch, char *out)
262 out[i] = 128 + (ch & 63);
272 * $Log: kcompare.c,v $
273 * Revision 1.35 1999-11-30 13:48:03 adam
274 * Improved installation. Updated for inclusion of YAZ header files.
276 * Revision 1.34 1999/07/14 13:21:34 heikki
277 * Added isam-d files. Compiles (almost) clean. Doesn't work at all
279 * Revision 1.33 1999/07/14 10:59:26 adam
280 * Changed functions isc_getmethod, isams_getmethod.
281 * Improved fatal error handling (such as missing EXPLAIN schema).
283 * Revision 1.32 1999/07/13 13:21:15 heikki
284 * Managing negative deltas
286 * Revision 1.31 1999/07/06 09:37:04 heikki
287 * Working on isamh - not ready yet.
289 * Revision 1.30 1999/06/30 15:07:23 heikki
292 * Revision 1.29 1999/06/30 09:08:23 adam
293 * Added coder to reset.
295 * Revision 1.28 1999/05/26 07:49:13 adam
298 * Revision 1.27 1999/05/12 13:08:06 adam
299 * First version of ISAMS.
301 * Revision 1.26 1999/02/02 14:50:54 adam
302 * Updated WIN32 code specific sections. Changed header.
304 * Revision 1.25 1998/06/08 15:26:06 adam
307 * Revision 1.24 1998/06/08 14:43:12 adam
308 * Added suport for EXPLAIN Proxy servers - added settings databasePath
309 * and explainDatabase to facilitate this. Increased maximum number
310 * of databases and attributes in one register.
312 * Revision 1.23 1998/03/05 08:45:12 adam
313 * New result set model and modular ranking system. Moved towards
314 * descent server API. System information stored as "SGML" records.
316 * Revision 1.22 1997/09/22 12:39:06 adam
317 * Added get_pos method for the ranked result sets.
319 * Revision 1.21 1997/09/17 12:19:13 adam
320 * Zebra version corresponds to YAZ version 1.4.
321 * Changed Zebra server so that it doesn't depend on global common_resource.
323 * Revision 1.20 1996/12/23 15:30:44 adam
324 * Work on truncation.
325 * Bug fix: result sets weren't deleted after server shut down.
327 * Revision 1.19 1996/12/11 12:08:00 adam
328 * Added better compression.
330 * Revision 1.18 1996/10/29 14:09:44 adam
331 * Use of cisam system - enabled if setting isamc is 1.
333 * Revision 1.17 1996/06/04 10:18:58 adam
334 * Minor changes - removed include of ctype.h.
336 * Revision 1.16 1996/05/13 14:23:05 adam
337 * Work on compaction of set/use bytes in dictionary.
339 * Revision 1.15 1995/11/20 16:59:46 adam
340 * New update method: the 'old' keys are saved for each records.
342 * Revision 1.14 1995/10/30 15:08:08 adam
345 * Revision 1.13 1995/10/27 14:00:11 adam
346 * Implemented detection of database availability.
348 * Revision 1.12 1995/10/17 18:02:08 adam
349 * New feature: databases. Implemented as prefix to words in dictionary.
351 * Revision 1.11 1995/10/06 16:33:37 adam
352 * Use attribute mappings.
354 * Revision 1.10 1995/09/29 14:01:41 adam
357 * Revision 1.9 1995/09/28 12:10:32 adam
358 * Bug fixes. Field prefix used in queries.
360 * Revision 1.8 1995/09/28 09:19:42 adam
361 * xfree/xmalloc used everywhere.
362 * Extract/retrieve method seems to work for text records.
364 * Revision 1.7 1995/09/27 12:22:28 adam
365 * More work on extract in record control.
366 * Field name is not in isam keys but in prefix in dictionary words.
368 * Revision 1.6 1995/09/14 07:48:23 adam
369 * Record control management.
371 * Revision 1.5 1995/09/11 13:09:34 adam
372 * More work on relevance feedback.
374 * Revision 1.4 1995/09/08 14:52:27 adam
375 * Minor changes. Dictionary is lower case now.
377 * Revision 1.3 1995/09/07 13:58:36 adam
378 * New parameter: result-set file descriptor (RSFD) to support multiple
379 * positions within the same result-set.
380 * Boolean operators: and, or, not implemented.
381 * Result-set references.
383 * Revision 1.2 1995/09/06 16:11:17 adam
384 * Option: only one word key per file.
386 * Revision 1.1 1995/09/04 09:10:36 adam
387 * More work on index add/del/update.
388 * Merge sort implemented.
389 * Initial work on z39 server.