2 * Copyright (c) 2002-2003, Index Data.
3 * See the file LICENSE for details.
5 * $Id: srwtst.c,v 1.4 2003-02-23 14:26:58 adam Exp $
11 Z_SOAP_Handler h[2] = {
12 {"http://www.loc.gov/zing/srw/v1.0/", 0, (Z_SOAP_fun) yaz_srw_codec},
16 int main(int argc, char **argv)
19 char *content_buf = buf;
23 Z_SOAP *soap_package = 0;
28 if (argc == 2 && !strcmp(argv[1], "debug"))
30 no = fread(buf, 1, sizeof(buf), stdin);
31 if (no < 1 || no == sizeof(buf))
33 fprintf(stderr, "Bad file or too big\n");
36 decode = odr_createmem(ODR_DECODE);
37 encode = odr_createmem(ODR_ENCODE);
39 ret = z_soap_codec(decode, &soap_package,
40 &content_buf, &content_len, h);
43 fprintf(stderr, "Decoding seriously failed\n");
48 fprintf(stderr, "got NS = %s\n", soap_package->ns);
49 if (soap_package->which == Z_SOAP_generic &&
50 soap_package->u.generic->no == 0)
52 Z_SRW_PDU *sr = soap_package->u.generic->p;
53 if (sr->which == Z_SRW_searchRetrieve_request)
55 Z_SRW_searchRetrieveRequest *req = sr->u.request;
57 else if (sr->which == Z_SRW_searchRetrieve_response)
59 Z_SRW_searchRetrieveResponse *res = sr->u.response;
60 if (res->records && res->num_records)
63 for (i = 0; i<res->num_records; i++)
65 fprintf (stderr, "%d\n", i);
66 if (res->records[i].recordData_buf)
67 fwrite(res->records[i].recordData_buf, 1,
68 res->records[i].recordData_len, stderr);
75 ret = z_soap_codec(encode, &soap_package,
76 &content_buf, &content_len, h);
77 if (content_buf && content_len)
78 fwrite (content_buf, content_len, 1, stdout);
81 fprintf(stderr, "No output!\n");
90 int main(int argc, char **argv)
92 fprintf(stderr, "SOAP disabled\n");