X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=wais-tcl.c;h=d61dd1ff29819ce05edb6790bd636ec88a5ffc4e;hb=d026c3e06f6e19e5ed4174ab1a504a4b5af79183;hp=f12d931a6b2ed2daebe5e0b7ae8581da39ea380d;hpb=e302116454d761cda450a148086e16640ef4028b;p=ir-tcl-moved-to-github.git

diff --git a/wais-tcl.c b/wais-tcl.c
index f12d931..d61dd1f 100644
--- a/wais-tcl.c
+++ b/wais-tcl.c
@@ -5,7 +5,13 @@
  * Wais extension to IrTcl
  *
  * $Log: wais-tcl.c,v $
- * Revision 1.3  1996-03-08 16:46:44  adam
+ * Revision 1.5  1996-03-15 14:40:23  adam
+ * Bug fix: do_responseStatus called Tcl_AppendElement when interp was 0.
+ *
+ * Revision 1.4  1996/03/11  17:39:48  adam
+ * 40 documents are retrieved by default (maxDocs=40).
+ *
+ * Revision 1.3  1996/03/08  16:46:44  adam
  * Doesn't use documentID to determine positions in present-response.
  *
  * Revision 1.2  1996/03/07  12:43:44  adam
@@ -294,7 +300,7 @@ static void wais_handle_search_response (WaisSetTcl_Obj *p,
             for (i = 0; ddr->DocHeaders[i]; i++)
             {
                 WAISDocumentHeader *head = ddr->DocHeaders[i];
-
+                
                 logf (LOG_DEBUG, "%4d -->%.*s<--", i+1,
                       head->DocumentID->size, head->DocumentID->bytes);
                 wais_add_record_brief (p, i+1, head->DocumentID,
@@ -308,17 +314,9 @@ static void wais_handle_search_response (WaisSetTcl_Obj *p,
             int i;
             logf (LOG_DEBUG, "Adding text entries");
             for (i = 0; ddr->Text[i]; i++)
-            {
-                logf (LOG_DEBUG, " size=%d", ddr->Text[i]->DocumentID->size);
-#if 0
-                logf (LOG_DEBUG, "-->%.*s<--",
-                      ddr->Text[i]->DocumentID->size,
-                      ddr->Text[i]->DocumentID->bytes);
-#endif
                 wais_add_record_full (p,
                                       p->presentOffset + i,
                                       ddr->Text[i]->DocumentText);
-            }
         }
         freeWAISSearchResponse (ddr);
     }
@@ -932,6 +930,7 @@ static int do_responseStatus (void *o, Tcl_Interp *interp,
     {
         free (obj->diag);
         free (obj->addinfo);
+        return TCL_OK;
     }
     if (obj->diag)
     {
@@ -956,7 +955,7 @@ static int do_maxDocs (void *o, Tcl_Interp *interp, int argc, char **argv)
 
     if (argc <= 0)
     {
-        obj->maxDocs = 100;
+        obj->maxDocs = 40;
         return TCL_OK;
     }
     return ir_tcl_get_set_int (&obj->maxDocs, interp, argc, argv);