2 * Copyright (C) 1994-1995, Index Data I/S
4 * Sebastian Hammer, Adam Dickmeiss
7 * Revision 1.10 1996-10-29 13:55:20 adam
8 * Include of zebrautl.h instead of alexutil.h.
10 * Revision 1.9 1995/12/11 09:15:22 adam
11 * New set types: sand/sor/snot - ranked versions of and/or/not in
12 * ranked/semi-ranked result sets.
13 * Note: the snot not finished yet.
14 * New rset member: flag.
15 * Bug fix: r_delete in rsrel.c did free bad memory block.
17 * Revision 1.8 1995/10/12 12:41:55 adam
18 * Private info (buf) moved from struct rset_control to struct rset.
19 * Bug fixes in relevance.
21 * Revision 1.7 1995/10/10 14:00:03 adam
22 * Function rset_open changed its wflag parameter to general flags.
24 * Revision 1.6 1995/10/06 14:38:05 adam
25 * New result set method: r_score.
26 * Local no (sysno) and score is transferred to retrieveCtrl.
28 * Revision 1.5 1995/09/08 14:52:41 adam
29 * Work on relevance feedback.
31 * Revision 1.4 1995/09/08 08:54:04 adam
32 * More efficient and operation.
34 * Revision 1.3 1995/09/07 13:58:43 adam
35 * New parameter: result-set file descriptor (RSFD) to support multiple
36 * positions within the same result-set.
37 * Boolean operators: and, or, not implemented.
39 * Revision 1.2 1995/09/06 16:11:55 adam
40 * More work on boolean sets.
42 * Revision 1.1 1995/09/06 13:27:15 adam
43 * New set type: bool. Not finished yet.
53 static void *r_create(const struct rset_control *sel, void *parms,
55 static RSFD r_open (RSET ct, int flag);
56 static void r_close (RSFD rfd);
57 static void r_delete (RSET ct);
58 static void r_rewind (RSFD rfd);
59 static int r_count (RSET ct);
60 static int r_read_and (RSFD rfd, void *buf);
61 static int r_read_or (RSFD rfd, void *buf);
62 static int r_read_not (RSFD rfd, void *buf);
63 static int r_write (RSFD rfd, const void *buf);
64 static int r_score (RSFD rfd, int *score);
66 static const rset_control control_and =
80 static const rset_control control_or =
94 static const rset_control control_not =
109 const rset_control *rset_kind_and = &control_and;
110 const rset_control *rset_kind_or = &control_or;
111 const rset_control *rset_kind_not = &control_not;
113 struct rset_bool_info {
117 int (*cmp)(const void *p1, const void *p2);
118 struct rset_bool_rfd *rfd_list;
121 struct rset_bool_rfd {
128 struct rset_bool_rfd *next;
129 struct rset_bool_info *info;
132 static void *r_create (const struct rset_control *sel, void *parms,
135 rset_bool_parms *bool_parms = parms;
136 struct rset_bool_info *info;
138 info = xmalloc (sizeof(*info));
139 info->key_size = bool_parms->key_size;
140 info->rset_l = bool_parms->rset_l;
141 info->rset_r = bool_parms->rset_r;
142 if (rset_is_volatile(info->rset_l) || rset_is_volatile(info->rset_r))
143 *flags |= RSET_FLAG_VOLATILE;
144 info->cmp = bool_parms->cmp;
145 info->rfd_list = NULL;
149 static RSFD r_open (RSET ct, int flag)
151 struct rset_bool_info *info = ct->buf;
152 struct rset_bool_rfd *rfd;
154 if (flag & RSETF_WRITE)
156 logf (LOG_FATAL, "bool set type is read-only");
159 rfd = xmalloc (sizeof(*rfd));
160 rfd->next = info->rfd_list;
161 info->rfd_list = rfd;
164 rfd->buf_l = xmalloc (info->key_size);
165 rfd->buf_r = xmalloc (info->key_size);
166 rfd->rfd_l = rset_open (info->rset_l, RSETF_READ|RSETF_SORT_SYSNO);
167 rfd->rfd_r = rset_open (info->rset_r, RSETF_READ|RSETF_SORT_SYSNO);
168 rfd->more_l = rset_read (info->rset_l, rfd->rfd_l, rfd->buf_l);
169 rfd->more_r = rset_read (info->rset_r, rfd->rfd_r, rfd->buf_r);
173 static void r_close (RSFD rfd)
175 struct rset_bool_info *info = ((struct rset_bool_rfd*)rfd)->info;
176 struct rset_bool_rfd **rfdp;
178 for (rfdp = &info->rfd_list; *rfdp; rfdp = &(*rfdp)->next)
181 xfree ((*rfdp)->buf_l);
182 xfree ((*rfdp)->buf_r);
183 rset_close (info->rset_l, (*rfdp)->rfd_l);
184 rset_close (info->rset_r, (*rfdp)->rfd_r);
185 *rfdp = (*rfdp)->next;
189 logf (LOG_FATAL, "r_close but no rfd match!");
193 static void r_delete (RSET ct)
195 struct rset_bool_info *info = ct->buf;
197 assert (info->rfd_list == NULL);
198 rset_delete (info->rset_l);
199 rset_delete (info->rset_r);
203 static void r_rewind (RSFD rfd)
205 struct rset_bool_info *info = ((struct rset_bool_rfd*)rfd)->info;
206 struct rset_bool_rfd *p = rfd;
208 logf (LOG_DEBUG, "rsbool_rewind");
209 rset_rewind (info->rset_l, p->rfd_l);
210 rset_rewind (info->rset_r, p->rfd_r);
211 p->more_l = rset_read (info->rset_l, p->rfd_l, p->buf_l);
212 p->more_r = rset_read (info->rset_r, p->rfd_r, p->buf_r);
215 static int r_count (RSET ct)
220 static int r_read_and (RSFD rfd, void *buf)
222 struct rset_bool_rfd *p = rfd;
223 struct rset_bool_info *info = p->info;
225 while (p->more_l && p->more_r)
229 cmp = (*info->cmp)(p->buf_l, p->buf_r);
232 memcpy (buf, p->buf_l, info->key_size);
233 p->more_l = rset_read (info->rset_l, p->rfd_l, p->buf_l);
234 p->more_r = rset_read (info->rset_r, p->rfd_r, p->buf_r);
239 memcpy (buf, p->buf_r, info->key_size);
240 p->more_r = rset_read (info->rset_r, p->rfd_r, p->buf_r);
245 memcpy (buf, p->buf_l, info->key_size);
246 p->more_l = rset_read (info->rset_l, p->rfd_l, p->buf_l);
250 p->more_r = rset_read (info->rset_r, p->rfd_r, p->buf_r);
252 p->more_l = rset_read (info->rset_l, p->rfd_l, p->buf_l);
257 static int r_read_or (RSFD rfd, void *buf)
259 struct rset_bool_rfd *p = rfd;
260 struct rset_bool_info *info = p->info;
262 while (p->more_l || p->more_r)
266 if (p->more_l && p->more_r)
267 cmp = (*info->cmp)(p->buf_l, p->buf_r);
274 memcpy (buf, p->buf_l, info->key_size);
275 p->more_l = rset_read (info->rset_l, p->rfd_l, p->buf_l);
276 p->more_r = rset_read (info->rset_r, p->rfd_r, p->buf_r);
281 memcpy (buf, p->buf_r, info->key_size);
282 p->more_r = rset_read (info->rset_r, p->rfd_r, p->buf_r);
287 memcpy (buf, p->buf_l, info->key_size);
288 p->more_l = rset_read (info->rset_l, p->rfd_l, p->buf_l);
295 static int r_read_not (RSFD rfd, void *buf)
297 struct rset_bool_rfd *p = rfd;
298 struct rset_bool_info *info = p->info;
300 while (p->more_l || p->more_r)
304 if (p->more_l && p->more_r)
305 cmp = (*info->cmp)(p->buf_l, p->buf_r);
312 memcpy (buf, p->buf_l, info->key_size);
313 p->more_l = rset_read (info->rset_l, p->rfd_l, p->buf_l);
317 p->more_r = rset_read (info->rset_r, p->rfd_r, p->buf_r);
320 memcpy (buf, p->buf_l, info->key_size);
323 p->more_l = rset_read (info->rset_l, p->rfd_l, p->buf_l);
326 cmp = (*info->cmp)(p->buf_l, buf);
327 } while (cmp >= -1 && cmp <= 1);
330 p->more_r = rset_read (info->rset_r, p->rfd_r, p->buf_r);
333 cmp = (*info->cmp)(p->buf_r, buf);
334 } while (cmp >= -1 && cmp <= 1);
341 static int r_write (RSFD rfd, const void *buf)
343 logf (LOG_FATAL, "bool set type is read-only");
347 static int r_score (RSFD rfd, int *score)