projects
/
ir-tcl-moved-to-github.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Disable CCL2RPN by default
[ir-tcl-moved-to-github.git]
/
wais-tcl.c
diff --git
a/wais-tcl.c
b/wais-tcl.c
index
f12d931
..
d61dd1f
100644
(file)
--- a/
wais-tcl.c
+++ b/
wais-tcl.c
@@
-5,7
+5,13
@@
* Wais extension to IrTcl
*
* $Log: wais-tcl.c,v $
* 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
* 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];
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,
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++)
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);
wais_add_record_full (p,
p->presentOffset + i,
ddr->Text[i]->DocumentText);
- }
}
freeWAISSearchResponse (ddr);
}
}
freeWAISSearchResponse (ddr);
}
@@
-932,6
+930,7
@@
static int do_responseStatus (void *o, Tcl_Interp *interp,
{
free (obj->diag);
free (obj->addinfo);
{
free (obj->diag);
free (obj->addinfo);
+ return TCL_OK;
}
if (obj->diag)
{
}
if (obj->diag)
{
@@
-956,7
+955,7
@@
static int do_maxDocs (void *o, Tcl_Interp *interp, int argc, char **argv)
if (argc <= 0)
{
if (argc <= 0)
{
- obj->maxDocs = 100;
+ obj->maxDocs = 40;
return TCL_OK;
}
return ir_tcl_get_set_int (&obj->maxDocs, interp, argc, argv);
return TCL_OK;
}
return ir_tcl_get_set_int (&obj->maxDocs, interp, argc, argv);