New member in recRetrieveCtrl: diagnostic.

[idzebra-moved-to-github.git] / index / zrpn.c

diff --git a/index/zrpn.c b/index/zrpn.c
index cc1893d..f801b0d 100644 (file)
--- a/index/zrpn.c
+++ b/index/zrpn.c
@@ -4,7 +4,16 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: zrpn.c,v $
- * Revision 1.12  1995-09-15 14:45:21  adam
+ * Revision 1.15  1995-10-02 15:18:52  adam
+ * New member in recRetrieveCtrl: diagnostic.
+ *
+ * Revision 1.14  1995/09/28  12:10:32  adam
+ * Bug fixes. Field prefix used in queries.
+ *
+ * Revision 1.13  1995/09/18  14:17:50  adam
+ * Minor changes.
+ *
+ * Revision 1.12  1995/09/15  14:45:21  adam
  * Retrieve control.
  * Work on truncation.
  *
@@ -241,7 +250,7 @@ static RSET rset_trunc (ISAM isam, ISAM_P *isam_p, int from, int to,
                         int merge_chunk)
 {
     logf (LOG_DEBUG, "rset_trunc, range=%d-%d", from, to-1);
-    if (from - to > merge_chunk)
+    if (to - from > merge_chunk)
     {
         return NULL;
     }
@@ -254,6 +263,7 @@ static RSET rset_trunc (ISAM isam, ISAM_P *isam_p, int from, int to,
         RSFD rsfd;
         rset_temp_parms parms;
 
+        ispt = xmalloc (sizeof(*ispt) * (to-from));
         parms.key_size = sizeof (struct it_key);
         result = rset_create (rset_kind_temp, &parms);
         rsfd = rset_open (result, 1);
@@ -279,6 +289,7 @@ static RSET rset_trunc (ISAM isam, ISAM_P *isam_p, int from, int to,
             is_pt_free (ispt[i]);
         rset_close (result, rsfd);
         heap_close (ti);
+        xfree (ispt);
         return result;
     }
 }
@@ -347,7 +358,7 @@ static int trunc_term (ZServerInfo *zi, Z_AttributesPlusTerm *zapt,
         zi->errCode = 120;
         return -1;
     case 101:        /* process # in term */
-        for (j = 0, i = 0; term_sub[i] && i < 3; i++)
+        for (j = 0, i = 0; term_sub[i] && i < 2; i++)
             term_dict[j++] = term_sub[i];
         for (; term_sub[i]; i++)
             if (term_sub[i] == '#')
@@ -378,7 +389,7 @@ static RSET rpn_search_APT_relevance (ZServerInfo *zi,
     char term_sub[IT_MAX_WORD+1];
     char *p0 = termz, *p1 = NULL;
     Z_Term *term = zapt->term;
-    size_t sizez, i;
+    size_t sizez, i, j;
 
     parms.key_size = sizeof(struct it_key);
     parms.max_rec = 100;
@@ -390,11 +401,12 @@ static RSET rpn_search_APT_relevance (ZServerInfo *zi,
         zi->errCode = 124;
         return NULL;
     }
-    sizez = term->u.general->len;
+    i = index_word_prefix (termz, 1, 1016);
+    sizez = i + term->u.general->len;
     if (sizez > IT_MAX_WORD)
         sizez = IT_MAX_WORD;
-    for (i = 0; i<sizez; i++)
-        termz[i] = index_char_cvt (term->u.general->buf[i]);
+    for (j = 0; i < sizez; i++, j++)
+        termz[i] = index_char_cvt (term->u.general->buf[j]);
     termz[i] = '\0';
 
     isam_p_indx = 0;  /* global, set by trunc_term - see below */
@@ -428,18 +440,20 @@ static RSET rpn_search_APT_word (ZServerInfo *zi,
 
     char termz[IT_MAX_WORD+1];
     Z_Term *term = zapt->term;
-    size_t sizez, i;
+    size_t sizez, i, j;
 
     if (term->which != Z_Term_general)
     {
         zi->errCode = 124;
         return NULL;
     }
-    sizez = term->u.general->len;
+    i = index_word_prefix (termz, 1, 1016);
+    logf (LOG_DEBUG, "i=%d", i);
+    sizez = i + term->u.general->len;
     if (sizez > IT_MAX_WORD)
         sizez = IT_MAX_WORD;
-    for (i = 0; i<sizez; i++)
-        termz[i] = index_char_cvt (term->u.general->buf[i]);
+    for (j = 0; i < sizez; i++, j++)
+        termz[i] = index_char_cvt (term->u.general->buf[j]);
     termz[i] = '\0';
 
     isam_p_indx = 0;  /* global, set by trunc_term - see below */
@@ -454,7 +468,7 @@ static RSET rpn_search_APT_word (ZServerInfo *zi,
         return rset_create (rset_kind_isam, &parms);
     }
     else
-        return rset_trunc (zi->wordIsam, isam_positions, 0, isam_p_indx, 200);
+        return rset_trunc (zi->wordIsam, isam_positions, 0, isam_p_indx, 400);
 }
 
 static RSET rpn_search_APT_phrase (ZServerInfo *zi,
@@ -465,18 +479,19 @@ static RSET rpn_search_APT_phrase (ZServerInfo *zi,
 
     char termz[IT_MAX_WORD+1];
     Z_Term *term = zapt->term;
-    size_t sizez, i;
+    size_t sizez, i, j;
 
     if (term->which != Z_Term_general)
     {
         zi->errCode = 124;
         return NULL;
     }
-    sizez = term->u.general->len;
+    i = index_word_prefix (termz, 1, 1016);
+    sizez = i + term->u.general->len;
     if (sizez > IT_MAX_WORD)
         sizez = IT_MAX_WORD;
-    for (i = 0; i<sizez; i++)
-        termz[i] = index_char_cvt (term->u.general->buf[i]);
+    for (j = 0 ; i < sizez; i++, j++)
+        termz[i] = index_char_cvt (term->u.general->buf[j]);
     termz[i] = '\0';
 
     isam_p_indx = 0;  /* global, set by trunc_term - see below */