187 switch (z_req->which)
189 case Z_APDU_initRequest:
190 wrbuf_puts(w,
"Init ");
193 else if (z_res->which != Z_APDU_initResponse)
194 wrbuf_printf(w,
"? response=%d", z_res->which);
197 Z_InitRequest *req = z_req->u.initRequest;
198 Z_InitResponse *res = z_res->u.initResponse;
199 if (res->result && *res->result)
200 wrbuf_printf(w,
"OK -");
203 Z_External *uif = res->userInformationField;
204 bool got_code =
false;
205 wrbuf_printf(w,
"ERROR ");
206 if (uif && uif->which == Z_External_userInfo1)
208 Z_OtherInformation *ui = uif->u.userInfo1;
209 if (ui->num_elements >= 1)
211 Z_OtherInformationUnit *unit = ui->list[0];
212 if (unit->which == Z_OtherInfo_externallyDefinedInfo &&
213 unit->information.externallyDefinedInfo &&
214 unit->information.externallyDefinedInfo->which ==
217 Z_DiagnosticFormat *diag =
218 unit->information.externallyDefinedInfo->
222 Z_DiagnosticFormat_s *ds = diag->elements[0];
224 Z_DiagnosticFormat_s_defaultDiagRec)
227 ds->u.defaultDiagRec);
238 wrbuf_printf(w,
" ID:%s Name:%s Version:%s",
239 req->implementationId ? req->implementationId :
"-",
240 req->implementationName ?req->implementationName :
"-",
241 req->implementationVersion ?
242 req->implementationVersion :
"-");
245 case Z_APDU_searchRequest:
246 wrbuf_puts(w,
"Search ");
249 else if (z_res->which != Z_APDU_searchResponse)
250 wrbuf_printf(w,
"? response=%d", z_res->which);
253 Z_SearchRequest *req = z_req->u.searchRequest;
254 Z_SearchResponse *res = z_res->u.searchResponse;
256 for (i = 0 ; i < req->num_databaseNames; i++)
259 wrbuf_printf(w,
"+");
260 wrbuf_puts(w, req->databaseNames[i]);
262 wrbuf_printf(w,
" ");
265 wrbuf_printf(w,
"OK " ODR_INT_PRINTF
" %s", *res->resultCount,
268 else if (res->records->which == Z_Records_DBOSD)
270 wrbuf_printf(w,
"OK " ODR_INT_PRINTF
" %s", *res->resultCount,
273 else if (res->records->which == Z_Records_NSD)
275 wrbuf_puts(w,
"ERROR ");
277 res->records->u.nonSurrogateDiagnostic);
279 else if (res->records->which == Z_Records_multipleNSD)
281 wrbuf_puts(w,
"ERROR ");
284 res->records->u.multipleNonSurDiagnostics->num_diagRecs,
285 res->records->u.multipleNonSurDiagnostics->diagRecs);
289 wrbuf_printf(w,
" 1+" ODR_INT_PRINTF
" ",
290 res->numberOfRecordsReturned
291 ? *res->numberOfRecordsReturned : 0);
292 yaz_query_to_wrbuf(w, req->query);
295 case Z_APDU_presentRequest:
296 wrbuf_puts(w,
"Present ");
299 else if (z_res->which != Z_APDU_presentResponse)
300 wrbuf_printf(w,
"? response=%d", z_res->which);
303 Z_PresentRequest *req = z_req->u.presentRequest;
304 Z_PresentResponse *res = z_res->u.presentResponse;
308 wrbuf_printf(w,
"OK");
310 else if (res->records->which == Z_Records_DBOSD)
312 wrbuf_printf(w,
"OK");
314 else if (res->records->which == Z_Records_NSD)
316 wrbuf_puts(w,
"ERROR ");
318 res->records->u.nonSurrogateDiagnostic);
320 else if (res->records->which == Z_Records_multipleNSD)
322 wrbuf_puts(w,
"ERROR ");
325 res->records->u.multipleNonSurDiagnostics->num_diagRecs,
326 res->records->u.multipleNonSurDiagnostics->diagRecs);
331 wrbuf_printf(w,
" %s " ODR_INT_PRINTF
"+" ODR_INT_PRINTF
" ",
332 req->resultSetId, *req->resultSetStartPoint,
333 *req->numberOfRecordsRequested);
336 case Z_APDU_deleteResultSetRequest:
337 wrbuf_puts(w,
"deleteResultSet ");
339 case Z_APDU_accessControlRequest:
340 wrbuf_puts(w,
"accessControl ");
342 case Z_APDU_resourceControlRequest:
343 wrbuf_puts(w,
"resourceControl ");
345 case Z_APDU_triggerResourceControlRequest:
346 wrbuf_puts(w,
"triggerResourceControlRequest");
348 case Z_APDU_resourceReportRequest:
349 wrbuf_puts(w,
"resourceReport ");
351 case Z_APDU_scanRequest:
352 wrbuf_puts(w,
"Scan ");
355 else if (z_res->which != Z_APDU_scanResponse)
356 wrbuf_printf(w,
"? response=%d", z_res->which);
359 Z_ScanRequest *req = z_req->u.scanRequest;
360 Z_ScanResponse *res = z_res->u.scanResponse;
362 for (i = 0 ; i < req->num_databaseNames; i++)
365 wrbuf_printf(w,
"+");
366 wrbuf_puts(w, req->databaseNames[i]);
369 if (!res->scanStatus || *res->scanStatus == 0)
371 else if (*res->scanStatus == 6)
372 wrbuf_puts(w,
"ERROR");
374 wrbuf_printf(w,
"PARTIAL" ODR_INT_PRINTF, *res->scanStatus);
376 wrbuf_printf(w,
" " ODR_INT_PRINTF
" " ODR_INT_PRINTF
"+"
377 ODR_INT_PRINTF
"+" ODR_INT_PRINTF
" ",
378 res->numberOfEntriesReturned ?
379 *res->numberOfEntriesReturned : 0,
380 req->preferredPositionInResponse ?
381 *req->preferredPositionInResponse : 1,
382 *req->numberOfTermsRequested,
383 res->stepSize ? *res->stepSize : 1);
385 yaz_scan_to_wrbuf(w, req->termListAndStartPoint,
389 case Z_APDU_sortRequest:
390 wrbuf_puts(w,
"sort ");
393 else if (z_res->which != Z_APDU_sortResponse)
394 wrbuf_printf(w,
"? response=%d", z_res->which);
397 Z_SortResponse *res = z_res->u.sortResponse;
398 Z_SortRequest *req = z_res->u.sortRequest;
401 if (*res->sortStatus == Z_SortResponse_success)
403 else if (*res->sortStatus == Z_SortResponse_partial_1)
404 wrbuf_puts(w,
"PARTIAL");
405 else if (*res->sortStatus == Z_SortResponse_failure)
406 wrbuf_puts(w,
"ERROR");
409 if (res->diagnostics && res->num_diagnostics >= 1)
415 for (i = 0; i < req->num_inputResultSetNames; i++)
419 wrbuf_puts(w, req->inputResultSetNames[i]);
421 wrbuf_printf(w,
")->%s ",req->sortedResultSetName);
425 case Z_APDU_segmentRequest:
426 wrbuf_puts(w,
"segmentRequest");
428 case Z_APDU_extendedServicesRequest:
429 wrbuf_puts(w,
"extendedServices ");
432 else if (z_res->which != Z_APDU_extendedServicesResponse)
433 wrbuf_printf(w,
"? response=%d", z_res->which);
436 Z_ExtendedServicesResponse *res =
437 z_res->u.extendedServicesResponse;
438 switch (*res->operationStatus)
440 case Z_ExtendedServicesResponse_done:
441 wrbuf_puts(w,
"DONE");
break;
442 case Z_ExtendedServicesResponse_accepted:
443 wrbuf_puts(w,
"ACCEPTED");
break;
444 case Z_ExtendedServicesResponse_failure:
445 wrbuf_puts(w,
"ERROR");
break;
447 wrbuf_printf(w, ODR_INT_PRINTF, *res->operationStatus);
450 if (res->diagnostics && res->num_diagnostics >= 1)
457 wrbuf_puts(w,
"close");
459 case Z_APDU_duplicateDetectionRequest:
460 wrbuf_puts(w,
"duplicateDetention ");
463 else if (z_res->which != Z_APDU_duplicateDetectionResponse)
464 wrbuf_printf(w,
"? response=%d", z_res->which);
467 Z_DuplicateDetectionResponse *res =
468 z_res->u.duplicateDetectionResponse;
472 wrbuf_puts(w,
"ERROR");
475 if (res->diagnostics && res->num_diagnostics >= 1)
476 log_DiagRecs(w, res->num_diagnostics, res->diagnostics);
482 wrbuf_printf(w,
"REQ=%d RES=%d", z_req->which, z_res->which);
static void log_syntax(WRBUF w, const Odr_oid *syntax)
static void log_DefaultDiagFormat(WRBUF w, Z_DefaultDiagFormat *e)
static void log_DiagRecs(WRBUF w, int num_diagRecs, Z_DiagRec **diags)