+ data1_node *node_attr;
+ node_attr = data1_mk_tag(zei->dh, zei->nmem, "attr", 0 /* attr */,
+ node_list);
+
+ data1_mk_tag_data_text(zei->dh, node_attr, "type",
+ zsui->info.index_type, zei->nmem);
+ data1_mk_tag_data_text(zei->dh, node_attr, "str",
+ zsui->info.str, zei->nmem);
+ data1_mk_tag_data_int(zei->dh, node_attr, "ordinal",
+ zsui->info.ordinal, zei->nmem);
+
+ data1_mk_tag_data_zint(zei->dh, node_attr, "dococcurrences",
+ zsui->info.doc_occurrences, zei->nmem);
+ data1_mk_tag_data_zint(zei->dh, node_attr, "termoccurrences",
+ zsui->info.term_occurrences, zei->nmem);
+ switch(zsui->info.cat)
+ {
+ case zinfo_index_category_index:
+ data1_mk_tag_data_text(zei->dh, node_attr, "cat",
+ "index", zei->nmem); break;
+ case zinfo_index_category_sort:
+ data1_mk_tag_data_text(zei->dh, node_attr, "cat",
+ "sort", zei->nmem); break;
+ case zinfo_index_category_alwaysmatches:
+ data1_mk_tag_data_text(zei->dh, node_attr, "cat",
+ "alwaysmatches", zei->nmem); break;
+ case zinfo_index_category_anchor:
+ data1_mk_tag_data_text(zei->dh, node_attr, "cat",
+ "anchor", zei->nmem); break;
+ }
+ }
+ /* convert to "SGML" and write it */
+#if ZINFO_DEBUG
+ data1_pr_tree(zei->dh, zad->data1_tree, stderr);
+#endif
+ sgml_buf = data1_nodetoidsgml(zei->dh, zad->data1_tree,
+ 0, &sgml_len);
+ drec->info[recInfo_storeData] = (char *) xmalloc(sgml_len);
+ memcpy(drec->info[recInfo_storeData], sgml_buf, sgml_len);
+ drec->size[recInfo_storeData] = sgml_len;
+
+ rec_put(zei->records, &drec);
+}
+
+static void zebraExplain_writeDatabase(ZebraExplainInfo zei,
+ struct zebDatabaseInfoB *zdi,
+ int key_flush)
+{
+ char *sgml_buf;
+ int sgml_len;
+ Record drec;
+ data1_node *node_dbinfo, *node_count, *node_zebra;
+
+ if (!zdi->dirty)
+ return;
+
+ zdi->dirty = 0;
+#if ZINFO_DEBUG
+ yaz_log(YLOG_LOG, "zebraExplain_writeDatabase %s", zdi->databaseName);
+#endif
+ drec = createRecord(zei->records, &zdi->sysno);
+ if (!drec)
+ return;
+ assert(zdi->data1_database);
+
+ node_dbinfo = data1_search_tag(zei->dh, zdi->data1_database,
+ "/databaseInfo");
+
+ assert(node_dbinfo);
+ zebraExplain_updateCommonInfo(zei, node_dbinfo);
+ zebraExplain_updateAccessInfo(zei, node_dbinfo, zdi->accessInfo);
+