11 #include <yaz/diagbib1.h>
17 #include <yaz/pquery.h>
19 void data1_print_tree(data1_handle dh, data1_node *n, FILE *out) {
20 data1_pr_tree(dh, n, stdout);
23 int zebra_get_shadow_enable (ZebraHandle zh) {
24 return (zh->shadow_enable);
27 void zebra_set_shadow_enable (ZebraHandle zh, int value) {
28 zh->shadow_enable = value;
30 /* recordGroup stuff */
31 void describe_recordGroup (recordGroup *rg) {
32 printf ("name:%s\ndatabaseName%s\npath:%s\n",
38 void init_recordGroup (recordGroup *rg) {
40 rg->databaseName = NULL;
43 rg->recordType = NULL;
44 rg->flagStoreData = -1;
45 rg->flagStoreKeys = -1;
47 rg->databaseNamePath = 0;
48 rg->explainDatabase = 0;
49 rg->fileVerboseLimit = 100000;
54 /* This is from extract.c... it seems useful, when extract_rec_in mem is
55 called... and in general... Should be moved to somewhere else */
56 void res_get_recordGroup (ZebraHandle zh,
62 if (!rGroup->groupName || !*rGroup->groupName)
65 sprintf (gprefix, "%s.", rGroup->groupName);
67 /* determine file type - depending on extension */
68 if (!rGroup->recordType) {
69 sprintf (ext_res, "%srecordType.%s", gprefix, ext);
70 if (!(rGroup->recordType = res_get (zh->res, ext_res))) {
71 sprintf (ext_res, "%srecordType", gprefix);
72 rGroup->recordType = res_get (zh->res, ext_res);
75 /* determine match criteria */
76 if (!rGroup->recordId) {
77 sprintf (ext_res, "%srecordId.%s", gprefix, ext);
78 if (!(rGroup->recordId = res_get (zh->res, ext_res))) {
79 sprintf (ext_res, "%srecordId", gprefix);
80 rGroup->recordId = res_get (zh->res, ext_res);
84 /* determine database name */
85 if (!rGroup->databaseName) {
86 sprintf (ext_res, "%sdatabase.%s", gprefix, ext);
87 if (!(rGroup->databaseName = res_get (zh->res, ext_res))) {
88 sprintf (ext_res, "%sdatabase", gprefix);
89 rGroup->databaseName = res_get (zh->res, ext_res);
92 if (!rGroup->databaseName)
93 rGroup->databaseName = "Default";
95 /* determine if explain database */
96 sprintf (ext_res, "%sexplainDatabase", gprefix);
97 rGroup->explainDatabase =
98 atoi (res_get_def (zh->res, ext_res, "0"));
101 if (rGroup->flagStoreData == -1) {
103 sprintf (ext_res, "%sstoreData.%s", gprefix, ext);
104 if (!(sval = res_get (zh->res, ext_res))) {
105 sprintf (ext_res, "%sstoreData", gprefix);
106 sval = res_get (zh->res, ext_res);
109 rGroup->flagStoreData = atoi (sval);
111 if (rGroup->flagStoreData == -1) rGroup->flagStoreData = 0;
114 if (rGroup->flagStoreKeys == -1) {
117 sprintf (ext_res, "%sstoreKeys.%s", gprefix, ext);
118 sval = res_get (zh->res, ext_res);
120 sprintf (ext_res, "%sstoreKeys", gprefix);
121 sval = res_get (zh->res, ext_res);
123 if (!sval) sval = res_get (zh->res, "storeKeys");
124 if (sval) rGroup->flagStoreKeys = atoi (sval);
126 if (rGroup->flagStoreKeys == -1) rGroup->flagStoreKeys = 0;
130 /* ---------------------------------------------------------------------------
131 Record insert(=update), delete
133 If sysno is provided, then it's used to identify the reocord.
134 If not, and match_criteria is provided, then sysno is guessed
135 If not, and a record is provided, then sysno is got from there
139 int zebra_update_record (ZebraHandle zh,
140 struct recordGroup *rGroup,
141 int sysno, const char *match, const char *fname,
142 const char *buf, int buf_size)
147 if (buf_size < 1) buf_size = strlen(buf);
149 res=bufferExtractRecord (zh, buf, buf_size, rGroup,
158 int zebra_delete_record (ZebraHandle zh,
159 struct recordGroup *rGroup,
160 int sysno, const char *match, const char *fname,
161 const char *buf, int buf_size)
165 if (buf_size < 1) buf_size = strlen(buf);
167 res=bufferExtractRecord (zh, buf, buf_size, rGroup,
174 void zebra_search_RPN (ZebraHandle zh, ODR decode, ODR stream,
175 Z_RPNQuery *query, const char *setname, int *hits)
180 if (zebra_begin_read (zh))
182 resultSetAddRPN (zh, decode, stream, query,
183 zh->num_basenames, zh->basenames, setname);
190 void zebra_retrieve_sysnos (ZebraHandle zh,
196 /* zh->errString = odr_strdup (stream, setname); */
197 logf(LOG_FATAL,"No resources open");
202 if (zebra_begin_read (zh))
209 int zebra_search_PQF (ZebraHandle zh,
210 ODR odr_input, ODR odr_output,
211 const char *pqf_query,
217 logf (LOG_LOG, "11");
218 query = p_query_rpn (odr_input, PROTO_Z3950, pqf_query);
219 logf (LOG_LOG, "22");
222 logf (LOG_WARN, "bad query %s\n", pqf_query);
223 odr_reset (odr_input);
226 zebra_search_RPN (zh, odr_input, odr_output, query, setname, &hits);
228 odr_reset (odr_input);
229 odr_reset (odr_output);