-/* $Id: rpnscan.c,v 1.9 2007-05-08 12:50:04 adam Exp $
+/* $Id: rpnscan.c,v 1.10 2007-05-08 14:49:38 adam Exp $
Copyright (C) 1995-2007
Index Data ApS
if (trans_scan_term(zh, zapt, termz+prefix_len, index_type) ==
ZEBRA_FAIL)
+ {
+ for (i = 0; i < ord_no; i++)
+ wrbuf_destroy(ar[i].term);
return ZEBRA_FAIL;
+ }
wrbuf_rewind(ar[i].term);
wrbuf_puts(ar[i].term, termz + prefix_len);
ar[i].isam_p = 0;
*list = glist;
+ for (i = 0; i < ord_no; i++)
+ wrbuf_destroy(ar[i].term);
+
return ZEBRA_OK;
}
if (termset_value_numeric != -2)
{
-
sprintf(resname, "%d", termset_value_numeric);
termset_name = resname;
}
termset_name = termset_value_string;
limit_set = resultSetRef (zh, termset_name);
+
+ if (!limit_set)
+ {
+ zebra_setError(zh,
+ YAZ_BIB1_SPECIFIED_RESULT_SET_DOES_NOT_EXIST,
+ termset_name);
+ return ZEBRA_FAIL;
+ }
}
}
-/* $Id: t11.c,v 1.9 2007-01-15 15:10:20 adam Exp $
+/* $Id: t11.c,v 1.10 2007-05-08 14:49:38 adam Exp $
Copyright (C) 1995-2007
Index Data ApS
)
*/
+#if 0
if (1)
{
/* bad string use attrite, bug #647 */
const char *ent[] = { 0 };
YAZ_CHECK(tl_scan(zh, "@attr 1=4 z", -22, 10, -22, 0, 1, ent));
}
+
+#endif
+
+ if (1)
+ {
+ const char *ent[] = { "a", "b", "c", "d", "e", "f", 0 };
+
+ YAZ_CHECK(tl_query(zh, "@attr 1=4 c", 1));
+
+ /* must fail, because x is not a result set */
+ YAZ_CHECK(tl_scan(zh, "@attr 8=x @attr 1=4 a", 1, 3, 0, 0, 0, 0));
+
+#if 0
+ /* bug 1114 */
+ YAZ_CHECK(tl_scan(zh, "@attr 8=rsetname @attr 1=4 0",
+ 1, 20, 1, 6, 1, ent));
+#endif
+
+ }
+
+
YAZ_CHECK(tl_close_down(zh, zs));
}