+void rec_prstat(Records records, int verbose)
+{
+ int i;
+ zint total_bytes = 0;
+
+ yaz_log (YLOG_LOG,
+ "Total records %8" ZINT_FORMAT0,
+ records->head.no_records);
+
+ for (i = 0; i< REC_BLOCK_TYPES; i++)
+ {
+ yaz_log (YLOG_LOG, "Record blocks of size "ZINT_FORMAT,
+ records->head.block_size[i]);
+ yaz_log (YLOG_LOG,
+ " Used/Total/Bytes used "
+ ZINT_FORMAT "/" ZINT_FORMAT "/" ZINT_FORMAT,
+ records->head.block_used[i], records->head.block_last[i]-1,
+ records->head.block_used[i] * records->head.block_size[i]);
+ total_bytes +=
+ records->head.block_used[i] * records->head.block_size[i];
+
+ yaz_log(YLOG_LOG, " Block Last " ZINT_FORMAT, records->head.block_last[i]);
+ if (verbose)
+ { /* analyse free lists */
+ zint no_free = 0;
+ zint block_free = records->head.block_free[i];
+ WRBUF w = wrbuf_alloc();
+ while (block_free)
+ {
+ zint nblock;
+ no_free++;
+ wrbuf_printf(w, " " ZINT_FORMAT, block_free);
+ if (bf_read(records->data_BFile[i],
+ block_free, 0, sizeof(nblock), &nblock) != 1)
+ {
+ yaz_log(YLOG_FATAL|YLOG_ERRNO, "read in %s at free block "
+ ZINT_FORMAT,
+ records->data_fname[i], block_free);
+ break;
+ }
+ block_free = nblock;
+ }
+ yaz_log (YLOG_LOG,
+ " Number in free list %8" ZINT_FORMAT0, no_free);
+ if (no_free)
+ yaz_log(YLOG_LOG, "%s", wrbuf_cstr(w));
+ wrbuf_destroy(w);
+ }
+ }
+ yaz_log (YLOG_LOG,
+ "Total size of record index in bytes %8" ZINT_FORMAT0,
+ records->head.total_bytes);
+ yaz_log (YLOG_LOG,
+ "Total size with overhead %8" ZINT_FORMAT0,
+ total_bytes);
+}
+