+ res = zebra_records_retrieve(zh, odr, "rsetname", comp, format, 1,
+ retrievalRecord);
+ if (res != ZEBRA_OK)
+ {
+ int code = zebra_errCode(zh);
+ yaz_log(YLOG_FATAL, "zebra_records_retrieve returned error %d",
+ code);
+ }
+ else
+ {
+ *rec_buf = retrievalRecord[0].buf;
+ *rec_len = retrievalRecord[0].len;
+ }
+ return res;
+}
+
+ZEBRA_RES tl_fetch_compare(ZebraHandle zh,
+ int position, const char *element_set,
+ const Odr_oid *format, const char *cmp_rec)
+{
+ const char *rec_buf = 0;
+ size_t rec_len = 0;
+ ODR odr = odr_createmem(ODR_ENCODE);
+ ZEBRA_RES res = tl_fetch(zh, position, element_set, format, odr,
+ &rec_buf, &rec_len);
+ if (res == ZEBRA_OK)
+ {
+ if (strlen(cmp_rec) != rec_len)
+ res = ZEBRA_FAIL;
+ else if (memcmp(cmp_rec, rec_buf, rec_len))
+ res = ZEBRA_FAIL;
+ if (res == ZEBRA_FAIL)
+ {
+ int l = rec_len;
+ yaz_log(YLOG_LOG, "Expected: %s", cmp_rec);
+ yaz_log(YLOG_LOG, "Got: %.*s", l, rec_buf);
+ }
+ }
+ odr_destroy(odr);
+ return res;
+}
+
+ZEBRA_RES tl_fetch_first_compare(ZebraHandle zh,
+ const char *element_set,
+ const Odr_oid *format, const char *cmp_rec)
+{
+ return tl_fetch_compare(zh, 1, element_set, format, cmp_rec);
+}
+
+/*
+ * Local variables:
+ * c-basic-offset: 4
+ * c-file-style: "Stroustrup"
+ * indent-tabs-mode: nil
+ * End:
+ * vim: shiftwidth=4 tabstop=8 expandtab
+ */