Announce new functionality API on Debian
[yaz-moved-to-github.git] / util / srwtst.c
1 /* This file is part of the YAZ toolkit.
2  * Copyright (C) 1995-2012 Index Data
3  * See the file LICENSE for details.
4  */
5 #if HAVE_CONFIG_H
6 #include <config.h>
7 #endif
8
9 #include <stdlib.h>
10 #include <yaz/srw.h>
11
12 #if YAZ_HAVE_XML2
13 Z_SOAP_Handler h[2] = {
14     {"http://www.loc.gov/zing/srw/v1.0/", 0, (Z_SOAP_fun) yaz_srw_codec},
15     {0, 0, 0}
16 };
17
18 int main(int argc, char **argv)
19 {
20     char buf[163840];
21     char *content_buf = buf;
22     int content_len;
23     size_t no;
24     Z_SOAP *soap_package = 0;
25     ODR decode, encode;
26     int debug = 0;
27
28     if (argc == 2 && !strcmp(argv[1], "debug"))
29         debug = 1;
30     no = fread(buf, 1, sizeof(buf), stdin);
31     if (no < 1 || no == sizeof(buf))
32     {
33         fprintf(stderr, "Bad file or too big\n");
34         exit (1);
35     }
36     decode = odr_createmem(ODR_DECODE);
37     encode = odr_createmem(ODR_ENCODE);
38     content_len = no;
39     z_soap_codec(decode, &soap_package,
40                  &content_buf, &content_len, h);
41     if (!soap_package)
42     {
43         fprintf(stderr, "Decoding seriously failed\n");
44         exit(1);
45     }
46     if (debug)
47     {
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)
51         {
52             Z_SRW_PDU *sr = (Z_SRW_PDU *) soap_package->u.generic->p;
53             if (sr->which == Z_SRW_searchRetrieve_request)
54             {
55                 Z_SRW_searchRetrieveRequest *req = sr->u.request;
56                 switch(req->query_type)
57                 {
58                 case Z_SRW_query_type_cql:
59                     fprintf(stderr, "CQL: %s\n", req->query.cql);
60                     break;
61                 case Z_SRW_query_type_xcql:
62                     fprintf(stderr, "XCQL\n");
63                     break;
64                 case Z_SRW_query_type_pqf:
65                     fprintf(stderr, "PQF: %s\n", req->query.pqf);
66                     break;
67                 }
68             }
69             else if (sr->which == Z_SRW_searchRetrieve_response)
70             {
71                 Z_SRW_searchRetrieveResponse *res = sr->u.response;
72                 if (res->records && res->num_records)
73                 {
74                     int i;
75                     for (i = 0; i<res->num_records; i++)
76                     {
77                         fprintf (stderr, "%d\n", i);
78                         if (res->records[i].recordData_buf)
79                         {
80                             fprintf(stderr, "%.*s",
81                                     res->records[i].recordData_len,
82                                     res->records[i].recordData_buf);
83                         }
84                     }
85                 }
86             }
87
88         }
89     }
90     z_soap_codec(encode, &soap_package, &content_buf, &content_len, h);
91     if (content_buf && content_len)
92     {
93         printf("%.*s", content_len, content_buf);
94     }
95     else
96     {
97         fprintf(stderr, "No output!\n");
98         exit(1);
99     }
100     odr_destroy(decode);
101     odr_destroy(encode);
102     exit(0);
103 }
104 #else
105 int main(int argc, char **argv)
106 {
107     fprintf(stderr, "SOAP disabled\n");
108     exit(1);
109 }
110 #endif
111 /*
112  * Local variables:
113  * c-basic-offset: 4
114  * c-file-style: "Stroustrup"
115  * indent-tabs-mode: nil
116  * End:
117  * vim: shiftwidth=4 tabstop=8 expandtab
118  */
119