* Europagate, 1995
*
* $Log: persist.c,v $
- * Revision 1.8 1995/05/16 09:40:43 adam
+ * Revision 1.10 1995/07/20 08:16:38 adam
+ * Bug fix in persist.c: Double referenced result-sets weren't recovered.
+ *
+ * Revision 1.9 1995/05/19 13:26:00 adam
+ * Bug fixes. Better command line options.
+ *
+ * Revision 1.8 1995/05/16 09:40:43 adam
* LICENSE. Setting of CCL token names (and/or/not/set) in read_kernel_res.
*
* Revision 1.7 1995/05/03 16:34:19 adam
static int obtain_set (ZASS zass, struct gw_user_set *set)
{
const struct zass_searchent *p;
-
+
+ gw_log (GW_LOG_DEBUG, KERNEL_LOG, "Set %s must be obtained", set->name);
p = zass_search (zass, set->rpn, set->name, set->database, NULL);
if (!p)
return 2;
return 0;
}
}
+ obtain_sets (zass, set->rpn, sets);
return obtain_set (zass, set);
}
return -1;
gw_log (GW_LOG_DEBUG, KERNEL_LOG,
"Reading persistence file %s (2)", fname);
-#if 0
- reopen_target ();
-#endif
while (fgetsx (fline, 1024, inf))
{
gw_log (GW_LOG_DEBUG, KERNEL_LOG,
gw_log (GW_LOG_DEBUG, KERNEL_LOG, "Search string %s", fline);
set = user_set_add (resultname, hits, database, NULL, 0, fline);
set->rpn = load_rpn (fline, inf);
+#if 0
ccl_pr_tree (set->rpn, stderr);
+#endif
fgetsx (fline, 1024, inf);
}
fclose (inf);