-/*
- * Copyright (C) 1998, Index Data ApS
- * All rights reserved.
- * Sebastian Hammer, Adam Dickmeiss
- *
- * $Log: sortidx.c,v $
- * Revision 1.3 1999-05-26 07:49:13 adam
- * C++ compilation.
- *
- * Revision 1.2 1998/06/25 09:55:50 adam
- * Minor changes - fixex headers.
- *
- */
-
+/* $Id: sortidx.c,v 1.24 2007-01-15 15:10:17 adam Exp $
+ Copyright (C) 1995-2007
+ Index Data ApS
+
+This file is part of the Zebra server.
+
+Zebra is free software; you can redistribute it and/or modify it under
+the terms of the GNU General Public License as published by the Free
+Software Foundation; either version 2, or (at your option) any later
+version.
+
+Zebra is distributed in the hope that it will be useful, but WITHOUT ANY
+WARRANTY; without even the implied warranty of MERCHANTABILITY or
+FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License
+along with this program; if not, write to the Free Software
+Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA
+
+*/
+
+
+#include <assert.h>
#include <string.h>
-#include <log.h>
-#include <bfile.h>
+#include <yaz/log.h>
+#include <yaz/xmalloc.h>
+#include <idzebra/isamb.h>
+#include <idzebra/bfile.h>
#include <sortidx.h>
+#include "recindex.h"
+
+#define SORT_MAX_TERM 110
#define SORT_IDX_BLOCKSIZE 64
+struct sort_term {
+ zint sysno;
+ char term[SORT_MAX_TERM];
+};
+
+
+static void sort_term_log_item(int level, const void *b, const char *txt)
+{
+ struct sort_term a1;
+
+ memcpy(&a1, b, sizeof(a1));
+
+ yaz_log(level, "%s " ZINT_FORMAT " %s", txt, a1.sysno, a1.term);
+}
+
+int sort_term_compare(const void *a, const void *b)
+{
+ struct sort_term a1, b1;
+
+ memcpy(&a1, a, sizeof(a1));
+ memcpy(&b1, b, sizeof(b1));
+
+ if (a1.sysno > b1.sysno)
+ return 1;
+ else if (a1.sysno < b1.sysno)
+ return -1;
+ return 0;
+}
+
+void *sort_term_code_start(void)
+{
+ return 0;
+}
+
+void sort_term_encode(void *p, char **dst, const char **src)
+{
+ struct sort_term a1;
+
+ memcpy(&a1, *src, sizeof(a1));
+ *src += sizeof(a1);
+
+ zebra_zint_encode(dst, a1.sysno); /* encode record id */
+ strcpy(*dst, a1.term); /* then sort term, 0 terminated */
+ *dst += strlen(a1.term) + 1;
+}
+
+void sort_term_decode(void *p, char **dst, const char **src)
+{
+ struct sort_term a1;
+
+ zebra_zint_decode(src, &a1.sysno);
+
+ strcpy(a1.term, *src);
+ *src += strlen(a1.term) + 1;
+
+ memcpy(*dst, &a1, sizeof(a1));
+ *dst += sizeof(a1);
+}
+
+void sort_term_code_reset(void *p)
+{
+}
+
+void sort_term_code_stop(void *p)
+{
+}
+
+
+struct sort_term_stream {
+ int no;
+ int insert_flag;
+ struct sort_term st;
+};
+
+int sort_term_code_read(void *vp, char **dst, int *insertMode)
+{
+ struct sort_term_stream *s = (struct sort_term_stream *) vp;
+
+ if (s->no == 0)
+ return 0;
+
+ (s->no)--;
+
+ *insertMode = s->insert_flag;
+ memcpy(*dst, &s->st, sizeof(s->st));
+ *dst += sizeof(s->st);
+ return 1;
+}
+
+
struct sortFileHead {
- int sysno_max;
+ zint sysno_max;
};
struct sortFile {
- int type;
- BFile bf;
+ int id;
+ union {
+ BFile bf;
+ ISAMB isamb;
+ } u;
+ ISAM_P isam_p;
+ ISAMB_PP isam_pp;
struct sortFile *next;
struct sortFileHead head;
+ int no_inserted;
+ int no_deleted;
};
-struct sortIdx {
+struct zebra_sort_index {
BFiles bfs;
int write_flag;
- int sysno;
+ zint sysno;
+ int type;
char *entry_buf;
struct sortFile *current_file;
struct sortFile *files;
};
-SortIdx sortIdx_open (BFiles bfs, int write_flag)
+zebra_sort_index_t zebra_sort_open(BFiles bfs, int write_flag, int type)
{
- SortIdx si = (SortIdx) xmalloc (sizeof(*si));
+ zebra_sort_index_t si = (zebra_sort_index_t) xmalloc(sizeof(*si));
si->bfs = bfs;
si->write_flag = write_flag;
si->current_file = NULL;
si->files = NULL;
- si->entry_buf = (char *) xmalloc (SORT_IDX_ENTRYSIZE);
+ si->type = type;
+ si->entry_buf = (char *) xmalloc(SORT_IDX_ENTRYSIZE);
return si;
}
-void sortIdx_close (SortIdx si)
+void zebra_sort_close(zebra_sort_index_t si)
{
struct sortFile *sf = si->files;
while (sf)
{
struct sortFile *sf_next = sf->next;
- if (sf->bf)
- bf_close (sf->bf);
- xfree (sf);
+ switch(si->type)
+ {
+ case ZEBRA_SORT_TYPE_FLAT:
+ bf_close(sf->u.bf);
+ break;
+ case ZEBRA_SORT_TYPE_ISAMB:
+ if (sf->isam_pp)
+ isamb_pp_close(sf->isam_pp);
+ isamb_set_root_ptr(sf->u.isamb, sf->isam_p);
+ isamb_close(sf->u.isamb);
+ break;
+ }
+ xfree(sf);
sf = sf_next;
}
- xfree (si->entry_buf);
- xfree (si);
+ xfree(si->entry_buf);
+ xfree(si);
}
-int sortIdx_type (SortIdx si, int type)
+int zebra_sort_type(zebra_sort_index_t si, int id)
{
+ int isam_block_size = 4096;
+ ISAMC_M method;
char fname[80];
struct sortFile *sf;
- if (si->current_file && si->current_file->type == type)
+ if (si->current_file && si->current_file->id == id)
return 0;
for (sf = si->files; sf; sf = sf->next)
- if (sf->type == type)
+ if (sf->id == id)
{
si->current_file = sf;
return 0;
}
- sf = (struct sortFile *) xmalloc (sizeof(*sf));
- sf->type = type;
- sf->bf = NULL;
- sf->next = si->files;
- si->current_file = si->files = sf;
- sprintf (fname, "sort%d", type);
- logf (LOG_DEBUG, "sort idx %s wr=%d", fname, si->write_flag);
- sf->bf = bf_open (si->bfs, fname, SORT_IDX_BLOCKSIZE, si->write_flag);
- if (!sf->bf)
- return -1;
- if (!bf_read (sf->bf, 0, 0, sizeof(sf->head), &sf->head))
+ sf = (struct sortFile *) xmalloc(sizeof(*sf));
+ sf->id = id;
+
+ method.compare_item = sort_term_compare;
+ method.log_item = sort_term_log_item;
+ method.codec.start = sort_term_code_start;
+ method.codec.encode = sort_term_encode;
+ method.codec.decode = sort_term_decode;
+ method.codec.reset = sort_term_code_reset;
+ method.codec.stop = sort_term_code_stop;
+
+ switch(si->type)
{
- sf->head.sysno_max = 0;
- if (!si->write_flag)
- return -1;
+ case ZEBRA_SORT_TYPE_FLAT:
+ sf->u.bf = NULL;
+ sprintf(fname, "sort%d", id);
+ yaz_log(YLOG_DEBUG, "sort idx %s wr=%d", fname, si->write_flag);
+ sf->u.bf = bf_open(si->bfs, fname, SORT_IDX_BLOCKSIZE, si->write_flag);
+ if (!sf->u.bf)
+ {
+ xfree(sf);
+ return -1;
+ }
+ if (!bf_read(sf->u.bf, 0, 0, sizeof(sf->head), &sf->head))
+ {
+ sf->head.sysno_max = 0;
+ if (!si->write_flag)
+ {
+ bf_close(sf->u.bf);
+ xfree(sf);
+ return -1;
+ }
+ }
+ break;
+ case ZEBRA_SORT_TYPE_ISAMB:
+ sprintf(fname, "sortb%d", id);
+
+ sf->u.isamb = isamb_open2(si->bfs, fname, si->write_flag, &method,
+ /* cache */ 0,
+ /* no_cat */ 1, &isam_block_size,
+ /* use_root_ptr */ 1);
+ if (!sf->u.isamb)
+ {
+ xfree(sf);
+ return -1;
+ }
+ else
+ {
+ sf->isam_p = isamb_get_root_ptr(sf->u.isamb);
+ }
+ break;
}
+ sf->isam_pp = 0;
+ sf->no_inserted = 0;
+ sf->no_deleted = 0;
+ sf->next = si->files;
+ si->current_file = si->files = sf;
return 0;
}
-void sortIdx_sysno (SortIdx si, int sysno)
+void zebra_sort_sysno(zebra_sort_index_t si, zint sysno)
{
- si->sysno = sysno;
+ struct sortFile *sf = si->current_file;
+ zint new_sysno = rec_sysno_to_int(sysno);
+
+ for (sf = si->files; sf; sf = sf->next)
+ {
+ sf->no_inserted = 0;
+ sf->no_deleted = 0;
+ if (sf->isam_pp && new_sysno < si->sysno && sf->isam_pp)
+ {
+ isamb_pp_close(sf->isam_pp);
+ sf->isam_pp = 0;
+ }
+ }
+ si->sysno = new_sysno;
}
-void sortIdx_add (SortIdx si, const char *buf, int len)
+
+void zebra_sort_delete(zebra_sort_index_t si)
{
- if (!si->current_file || !si->current_file->bf)
- return;
- if (len > SORT_IDX_ENTRYSIZE)
+ struct sortFile *sf = si->current_file;
+
+ if (!sf || !sf->u.bf)
+ return;
+ switch(si->type)
{
- len = SORT_IDX_ENTRYSIZE;
- memcpy (si->entry_buf, buf, len);
+ case ZEBRA_SORT_TYPE_FLAT:
+ zebra_sort_add(si, "", 0);
+ break;
+ case ZEBRA_SORT_TYPE_ISAMB:
+ assert(sf->u.isamb);
+ if (sf->no_deleted == 0)
+ {
+ struct sort_term_stream s;
+ ISAMC_I isamc_i;
+
+ s.st.sysno = si->sysno;
+ s.st.term[0] = '\0';
+
+ s.no = 1;
+ s.insert_flag = 0;
+ isamc_i.clientData = &s;
+ isamc_i.read_item = sort_term_code_read;
+
+ isamb_merge(sf->u.isamb, &sf->isam_p, &isamc_i);
+ sf->no_deleted++;
+ }
+ break;
}
- else
+}
+
+void zebra_sort_add(zebra_sort_index_t si, const char *buf, int len)
+{
+ struct sortFile *sf = si->current_file;
+
+ if (!sf || !sf->u.bf)
+ return;
+ switch(si->type)
{
- memcpy (si->entry_buf, buf, len);
- memset (si->entry_buf+len, 0, SORT_IDX_ENTRYSIZE-len);
+ case ZEBRA_SORT_TYPE_FLAT:
+ if (len > SORT_IDX_ENTRYSIZE)
+ {
+ len = SORT_IDX_ENTRYSIZE;
+ memcpy(si->entry_buf, buf, len);
+ }
+ else
+ {
+ memcpy(si->entry_buf, buf, len);
+ memset(si->entry_buf+len, 0, SORT_IDX_ENTRYSIZE-len);
+ }
+ bf_write(sf->u.bf, si->sysno+1, 0, 0, si->entry_buf);
+ break;
+ case ZEBRA_SORT_TYPE_ISAMB:
+ assert(sf->u.isamb);
+ if (sf->no_inserted == 0)
+ {
+ struct sort_term_stream s;
+ ISAMC_I isamc_i;
+
+ s.st.sysno = si->sysno;
+ if (len >= SORT_MAX_TERM)
+ len = SORT_MAX_TERM-1;
+ memcpy(s.st.term, buf, len);
+ s.st.term[len] = '\0';
+ s.no = 1;
+ s.insert_flag = 1;
+ isamc_i.clientData = &s;
+ isamc_i.read_item = sort_term_code_read;
+
+ isamb_merge(sf->u.isamb, &sf->isam_p, &isamc_i);
+ sf->no_inserted++;
+ }
+ break;
}
- bf_write (si->current_file->bf, si->sysno+1, 0, 0, si->entry_buf);
}
-void sortIdx_read (SortIdx si, char *buf)
+void zebra_sort_read(zebra_sort_index_t si, char *buf)
{
- bf_read (si->current_file->bf, si->sysno+1, 0, 0, buf);
+ int r;
+ struct sortFile *sf = si->current_file;
+
+ assert(sf);
+
+ switch(si->type)
+ {
+ case ZEBRA_SORT_TYPE_FLAT:
+ r = bf_read(sf->u.bf, si->sysno+1, 0, 0, buf);
+ if (!r)
+ memset(buf, 0, SORT_IDX_ENTRYSIZE);
+ break;
+ case ZEBRA_SORT_TYPE_ISAMB:
+ memset(buf, 0, SORT_IDX_ENTRYSIZE);
+ assert(sf->u.bf);
+ if (sf->u.bf)
+ {
+ struct sort_term st, st_untilbuf;
+
+ if (!sf->isam_pp)
+ sf->isam_pp = isamb_pp_open(sf->u.isamb, sf->isam_p, 1);
+ if (!sf->isam_pp)
+ return;
+
+#if 0
+ while (1)
+ {
+ r = isamb_pp_read(sf->isam_pp, &st);
+ if (!r)
+ break;
+ if (st.sysno == si->sysno)
+ break;
+ yaz_log(YLOG_LOG, "Received sysno=" ZINT_FORMAT " looking for "
+ ZINT_FORMAT, st.sysno, si->sysno);
+ }
+#else
+ st_untilbuf.sysno = si->sysno;
+ st_untilbuf.term[0] = '\0';
+ r = isamb_pp_forward(sf->isam_pp, &st, &st_untilbuf);
+ if (!r)
+ return;
+#endif
+ if (r)
+ {
+ if (st.sysno != si->sysno)
+ {
+ yaz_log(YLOG_LOG, "Received sysno=" ZINT_FORMAT " looking for "
+ ZINT_FORMAT, st.sysno, si->sysno);
+ return;
+ }
+ if (strlen(st.term) < SORT_IDX_ENTRYSIZE)
+ strcpy(buf, st.term);
+ else
+ memcpy(buf, st.term, SORT_IDX_ENTRYSIZE);
+ }
+ }
+ break;
+ }
}
+/*
+ * Local variables:
+ * c-basic-offset: 4
+ * indent-tabs-mode: nil
+ * End:
+ * vim: shiftwidth=4 tabstop=8 expandtab
+ */
+