2 * $Id: zoomtst6.c,v 1.5 2001-11-15 21:59:40 adam Exp $
4 * Asynchronous multi-target client doing two searches
9 #include <yaz/xmalloc.h>
13 static void display_records (const char *tname, Z3950_resultset r)
15 /* OK, no major errors. Look at the result count */
17 printf ("%s: %d hits\n", tname, Z3950_resultset_size(r));
18 /* go through all records at target */
19 for (pos = 0; pos < 2; pos++)
21 Z3950_record rec = Z3950_resultset_record (r, pos);
23 /* get database for record and record itself at pos */
24 const char *db = Z3950_record_get (rec, "database", 0);
26 const char *render = Z3950_record_get (rec, "render", &len);
27 /* if rec is non-null, we got a record for display */
30 printf ("%d %s\n", pos+1, (db ? db : "unknown"));
32 fwrite (render, 1, len, stdout);
38 int main(int argc, char **argv)
42 Z3950_connection z[500]; /* allow at most 500 connections */
43 Z3950_resultset r1[500]; /* and result sets .. */
44 Z3950_resultset r2[500]; /* and result sets .. */
48 o = Z3950_options_create ();
51 fprintf (stderr, "usage:\n%s target1 .. targetN query1 query2\n",
58 Z3950_options_set (o, "async", "1");
60 /* get 3 (at most) records from beginning */
61 Z3950_options_set (o, "count", "3");
63 Z3950_options_set (o, "preferredRecordSyntax", "sutrs");
64 Z3950_options_set (o, "elementSetName", "B");
67 q = Z3950_query_create ();
68 if (Z3950_query_prefix (q, argv[argc-2]))
70 printf ("bad PQF: %s\n", argv[argc-2]);
73 /* connect - and search all */
74 for (i = 0; i<no; i++)
76 z[i] = Z3950_connection_create (o);
77 Z3950_connection_connect (z[i], argv[i+1], 0);
78 r1[i] = Z3950_connection_search (z[i], q);
80 if (Z3950_query_prefix (q, argv[argc-1]))
82 printf ("bad sort spec: %s\n", argv[argc-1]);
85 /* queue second search */
86 for (i = 0; i<no; i++)
87 r2[i] = Z3950_connection_search (z[i], q);
91 while (Z3950_event (no, z))
94 for (i = 0; i<no; i++)
95 Z3950_resultset_records (r1[i], 0, 4, 1);
98 while (Z3950_event (no, z))
102 for (i = 0; i<no; i++)
105 const char *errmsg, *addinfo;
106 if ((error = Z3950_connection_error(z[i], &errmsg, &addinfo)))
107 fprintf (stderr, "%s error: %s (%d) %s\n",
108 Z3950_connection_host(z[i]),
109 errmsg, error, addinfo);
112 display_records (Z3950_connection_host(z[i]), r1[i]);
113 display_records (Z3950_connection_host(z[i]), r2[i]);
116 /* destroy stuff and exit */
117 Z3950_query_destroy (q);
118 for (i = 0; i<no; i++)
120 Z3950_connection_destroy (z[i]);
121 Z3950_resultset_destroy (r1[i]);
122 Z3950_resultset_destroy (r2[i]);
124 Z3950_options_destroy(o);