-/*
- * Copyright (C) 1995-2007, Index Data ApS
+/* This file is part of the YAZ toolkit.
+ * Copyright (C) Index Data
* See the file LICENSE for details.
- *
- * $Id: zoomsh.c,v 1.47 2007-04-17 20:26:19 adam Exp $
*/
-
/** \file zoomsh.c
\brief ZOOM C command line tool (shell)
*/
+#if HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#if HAVE_UNISTD_H
+#include <unistd.h>
+#endif
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
-#include <ctype.h>
-
-#include <yaz/comstack.h>
+#include <yaz/wrbuf.h>
+#include <yaz/log.h>
+#include <yaz/backtrace.h>
+#include <yaz/options.h>
#if HAVE_READLINE_READLINE_H
-#include <readline/readline.h>
+#include <readline/readline.h>
#endif
#if HAVE_READLINE_HISTORY_H
#include <readline/history.h>
#endif
-#include <yaz/xmalloc.h>
-
#include <yaz/log.h>
-#include <yaz/nmem.h>
#include <yaz/zoom.h>
+struct zoom_sh {
+ WRBUF strategy;
+ WRBUF criteria;
+ ZOOM_options options;
+ struct zoom_db *list;
+};
+
+struct zoom_db {
+ ZOOM_connection con;
+ ZOOM_resultset res;
+ struct zoom_db *next;
+};
+
#define MAX_CON 100
-static int next_token (const char **cpp, const char **t_start)
+static void process_events(struct zoom_sh *sh)
+{
+ ZOOM_connection *c;
+ int i, number;
+ struct zoom_db *db;
+
+ for (number = 0, db = sh->list; db; db = db->next)
+ if (db->con)
+ number++;
+ c = xmalloc(sizeof(*c) * number);
+
+ for (i = 0, db = sh->list; db; db = db->next)
+ if (db->con)
+ c[i++] = db->con;
+
+ yaz_log(YLOG_DEBUG, "process_events");
+ while ((i = ZOOM_event(number, c)) != 0)
+ {
+ int peek = ZOOM_connection_peek_event(c[i-1]);
+ int event = ZOOM_connection_last_event(c[i-1]);
+ yaz_log(YLOG_DEBUG, "no = %d peek = %d event = %d %s", i-1,
+ peek,
+ event,
+ ZOOM_get_event_str(event));
+ }
+ xfree(c);
+}
+
+static int next_token_chars(const char **cpp, const char **t_start,
+ const char *tok_chars)
{
int len = 0;
const char *cp = *cpp;
else
{
*t_start = cp;
- while (*cp && *cp != ' ' && *cp != '\r' && *cp != '\n')
+ while (*cp && !strchr(tok_chars, *cp))
{
cp++;
len++;
return len; /* return -1 if no token was read .. */
}
-static int next_token_copy (const char **cpp, char *buf_out, int buf_max)
+static int next_token(const char **cpp, const char **t_start)
{
+ return next_token_chars(cpp, t_start, "\r\n ");
+}
+
+
+static WRBUF next_token_new_wrbuf(const char **cpp)
+{
+ WRBUF w = 0;
const char *start;
- int len = next_token (cpp, &start);
+ int len = next_token(cpp, &start);
if (len < 0)
- {
- *buf_out = 0;
- return len;
- }
- if (len >= buf_max)
- len = buf_max-1;
- memcpy (buf_out, start, len);
- buf_out[len] = '\0';
- return len;
+ return 0;
+ w = wrbuf_alloc();
+ if (len > 0)
+ wrbuf_write(w, start, len);
+ return w;
}
-static int is_command (const char *cmd_str, const char *this_str, int this_len)
+static int is_command(const char *cmd_str, const char *this_str, int this_len)
{
int cmd_len = strlen(cmd_str);
if (cmd_len != this_len)
return 0;
- if (memcmp (cmd_str, this_str, cmd_len))
+ if (memcmp(cmd_str, this_str, cmd_len))
return 0;
return 1;
}
-static void cmd_set (ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options,
- const char **args)
+static int cmd_set(struct zoom_sh *sh, const char **args)
{
- char key[40], val[80];
+ WRBUF key;
+ const char *val_buf;
+ int val_len;
- if (next_token_copy (args, key, sizeof(key)) < 0)
+ if (!(key = next_token_new_wrbuf(args)))
{
- printf ("missing argument for set\n");
- return ;
+ printf("missing argument for set\n");
+ return 1;
}
- if (next_token_copy (args, val, sizeof(val)) < 0)
- ZOOM_options_set(options, key, 0);
+ val_len = next_token_chars(args, &val_buf, "");
+ if (val_len != -1)
+ ZOOM_options_setl(sh->options, wrbuf_cstr(key), val_buf, val_len);
else
- ZOOM_options_set(options, key, val);
+ ZOOM_options_set(sh->options, wrbuf_cstr(key), 0);
+ wrbuf_destroy(key);
+ return 0;
}
-static void cmd_get (ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options,
- const char **args)
+static int cmd_get(struct zoom_sh *sh, const char **args)
{
- char key[40];
- if (next_token_copy (args, key, sizeof(key)) < 0)
+ WRBUF key;
+ if (!(key = next_token_new_wrbuf(args)))
{
- printf ("missing argument for get\n");
+ printf("missing argument for get\n");
+ return 1;
}
else
{
- const char *val = ZOOM_options_get(options, key);
- printf ("%s = %s\n", key, val ? val : "<null>");
+ const char *val = ZOOM_options_get(sh->options, wrbuf_cstr(key));
+ printf("%s = %s\n", wrbuf_cstr(key), val ? val : "<null>");
+ wrbuf_destroy(key);
}
+ return 0;
+}
+
+static int cmd_shell(struct zoom_sh *sh, const char **args)
+{
+ int ret = system(*args);
+ if (ret)
+ printf("system command returned %d\n", ret);
+ return 0;
}
-static void cmd_rget(ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options,
- const char **args)
+static int cmd_rget(struct zoom_sh *sh, const char **args)
{
- char key[40];
- if (next_token_copy (args, key, sizeof(key)) < 0)
+ WRBUF key;
+ if (!(key = next_token_new_wrbuf(args)))
{
- printf ("missing argument for get\n");
+ printf("missing argument for get\n");
+ return 1;
}
else
{
- int i;
- for (i = 0; i<MAX_CON; i++)
+ struct zoom_db *db = sh->list;
+ for (; db; db = db->next)
{
- const char *val;
- if (!r[i])
- continue;
-
- val = ZOOM_resultset_option_get(r[i], key);
- printf ("%s = %s\n", key, val ? val : "<null>");
+ if (db->res)
+ {
+ const char *val =
+ ZOOM_resultset_option_get(db->res, wrbuf_cstr(key));
+ printf("%s = %s\n", wrbuf_cstr(key), val ? val : "<null>");
+ }
}
+ wrbuf_destroy(key);
}
+ return 0;
}
-static void cmd_close (ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options,
- const char **args)
+static int cmd_close(struct zoom_sh *sh, const char **args)
{
- char host[60];
- int i;
- next_token_copy (args, host, sizeof(host));
- for (i = 0; i<MAX_CON; i++)
+ struct zoom_db **dbp;
+ WRBUF host;
+ host = next_token_new_wrbuf(args);
+
+ for (dbp = &sh->list; *dbp; )
{
const char *h;
- if (!c[i])
- continue;
- if ((h = ZOOM_connection_option_get(c[i], "host"))
- && !strcmp (h, host))
- {
- ZOOM_connection_destroy (c[i]);
- c[i] = 0;
- }
- else if (*host == '\0')
+ struct zoom_db *db = *dbp;
+ if (!db->con || !host ||
+ ((h = ZOOM_connection_option_get(db->con, "host"))
+ && !strcmp(h, wrbuf_cstr(host))))
{
- ZOOM_connection_destroy (c[i]);
- c[i] = 0;
+ *dbp = (*dbp)->next;
+ ZOOM_connection_destroy(db->con);
+ ZOOM_resultset_destroy(db->res);
+ xfree(db);
}
+ else
+ dbp = &(*dbp)->next;
}
+ if (host)
+ wrbuf_destroy(host);
+ return 0;
}
-static void display_records (ZOOM_connection c,
- ZOOM_resultset r,
- int start, int count)
+static void display_records(ZOOM_connection c,
+ ZOOM_resultset r,
+ size_t start, size_t count, const char *type)
{
- int i;
- for (i = 0; i<count; i++)
+ size_t i;
+ for (i = 0; i < count; i++)
{
- int pos = i + start;
- ZOOM_record rec = ZOOM_resultset_record (r, pos);
- const char *db = ZOOM_record_get (rec, "database", 0);
-
+ size_t pos = i + start;
+ ZOOM_record rec = ZOOM_resultset_record(r, pos);
+ const char *db = ZOOM_record_get(rec, "database", 0);
+
if (ZOOM_record_error(rec, 0, 0, 0))
{
const char *msg;
const char *addinfo;
const char *diagset;
int error = ZOOM_record_error(rec, &msg, &addinfo, &diagset);
-
- printf("%d %s: %s (%s:%d) %s\n", pos, (db ? db : "unknown"),
- msg, diagset, error, addinfo);
+
+ printf("%lld %s: %s (%s:%d) %s\n", (long long) pos,
+ (db ? db : "unknown"),
+ msg, diagset, error, addinfo ? addinfo : "none");
}
else
{
- int len, opac_len;
- const char *render = ZOOM_record_get (rec, "render", &len);
- const char *opac_render = ZOOM_record_get (rec, "opac", &opac_len);
- const char *syntax = ZOOM_record_get (rec, "syntax", 0);
+ int len;
+ const char *render = ZOOM_record_get(rec, type, &len);
+ const char *syntax = ZOOM_record_get(rec, "syntax", 0);
+ const char *schema = ZOOM_record_get(rec, "schema", 0);
/* if rec is non-null, we got a record for display */
if (rec)
{
- printf ("%d %s %s\n",
- pos, (db ? db : "unknown"), syntax);
+ printf("%lld database=%s syntax=%s schema=%s\n",
+ (long long) pos, (db ? db : "unknown"), syntax,
+ schema ? schema : "unknown");
if (render)
- fwrite (render, 1, len, stdout);
- printf ("\n");
- if (opac_render)
- fwrite (opac_render, 1, opac_len, stdout);
+ {
+ if (fwrite(render, 1, len, stdout) != (size_t) len)
+ {
+ printf("write to stdout failed\n");
+ }
+ }
+ printf("\n");
}
}
-
}
}
-static void cmd_show (ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options,
- const char **args)
+static int cmd_show(struct zoom_sh *sh, const char **args)
{
- int i;
- char start_str[10], count_str[10];
+ size_t start = 0, count = 1;
+ const char *type = "render";
+ WRBUF render_str = 0;
+ int ret = 0;
+ struct zoom_db *db;
- if (next_token_copy (args, start_str, sizeof(start_str)) >= 0)
- ZOOM_options_set (options, "start", start_str);
+ {
+ WRBUF tmp;
- if (next_token_copy (args, count_str, sizeof(count_str)) >= 0)
- ZOOM_options_set (options, "count", count_str);
+ if ((tmp = next_token_new_wrbuf(args)))
+ {
+ start = atoi(wrbuf_cstr(tmp));
+ wrbuf_destroy(tmp);
+ }
+
+ if ((tmp = next_token_new_wrbuf(args)))
+ {
+ count = atoi(wrbuf_cstr(tmp));
+ wrbuf_destroy(tmp);
+ }
+ render_str = next_token_new_wrbuf(args);
+ }
+ if (render_str)
+ type = wrbuf_cstr(render_str);
- for (i = 0; i<MAX_CON; i++)
- ZOOM_resultset_records (r[i], 0, atoi(start_str), atoi(count_str));
- while (ZOOM_event (MAX_CON, c))
- ;
+ for (db = sh->list; db; db = db->next)
+ if (db->res)
+ ZOOM_resultset_records(db->res, 0, start, count);
+ process_events(sh);
- for (i = 0; i<MAX_CON; i++)
+ for (db = sh->list; db; db = db->next)
{
int error;
const char *errmsg, *addinfo, *dset;
/* display errors if any */
- if (!c[i])
+ if (!db->con)
continue;
- if ((error = ZOOM_connection_error_x(c[i], &errmsg, &addinfo, &dset)))
- printf ("%s error: %s (%s:%d) %s\n",
- ZOOM_connection_option_get(c[i], "host"), errmsg,
- dset, error, addinfo);
- else if (r[i])
+ if ((error = ZOOM_connection_error_x(db->con, &errmsg, &addinfo, &dset)))
+ {
+ printf("%s error: %s (%s:%d) %s\n",
+ ZOOM_connection_option_get(db->con, "host"), errmsg,
+ dset, error, addinfo);
+ ret = 1;
+ }
+ else if (db->res)
{
/* OK, no major errors. Display records... */
- int start = ZOOM_options_get_int (options, "start", 0);
- int count = ZOOM_options_get_int (options, "count", 0);
- display_records (c[i], r[i], start, count);
+ display_records(db->con, db->res, start, count, type);
}
}
- ZOOM_options_set (options, "count", "0");
- ZOOM_options_set (options, "start", "0");
+ if (render_str)
+ wrbuf_destroy(render_str);
+ return ret;
}
-static void cmd_ext (ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options,
- const char **args)
+static void display_facets(ZOOM_facet_field *facets, int count)
{
- ZOOM_package p[MAX_CON];
- char ext_type_str[10];
-
int i;
+ printf("Facets: \n");
+ for (i = 0; i < count; i++)
+ {
+ int j;
+ const char *facet_name = ZOOM_facet_field_name(facets[i]);
+ printf(" %s: \n", facet_name);
+ for (j = 0; j < ZOOM_facet_field_term_count(facets[i]); j++)
+ {
+ int freq = 0;
+ const char *term = ZOOM_facet_field_get_term(facets[i], j, &freq);
+ printf(" %s(%d) \n", term, freq);
+ }
+ }
+}
- if (next_token_copy (args, ext_type_str, sizeof(ext_type_str)) < 0)
- return;
-
- for (i = 0; i<MAX_CON; i++)
+static int cmd_facets(struct zoom_sh *sh, const char **args)
+{
+ struct zoom_db *db;
+ int ret = 0;
+
+ process_events(sh);
+
+ for (db = sh->list; db; db = db->next)
{
- if (c[i])
+ int error;
+ const char *errmsg, *addinfo, *dset;
+ /* display errors if any */
+ if (!db->con)
+ continue;
+ if ((error = ZOOM_connection_error_x(db->con, &errmsg, &addinfo,
+ &dset)))
{
- p[i] = ZOOM_connection_package (c[i], 0);
- ZOOM_package_send(p[i], ext_type_str);
+ printf("%s error: %s (%s:%d) %s\n",
+ ZOOM_connection_option_get(db->con, "host"), errmsg,
+ dset, error, addinfo);
+ ret = 1;
+ }
+ else if (db->res)
+ {
+ int num_facets = ZOOM_resultset_facets_size(db->res);
+ if (num_facets) {
+ ZOOM_facet_field *facets = ZOOM_resultset_facets(db->res);
+ display_facets(facets, num_facets);
+ }
}
- else
- p[i] = 0;
}
+ return ret;
+}
+
+static int cmd_suggestions(struct zoom_sh *sh, const char **args)
+{
+ struct zoom_db *db;
+ int ret = 0;
- while (ZOOM_event (MAX_CON, c))
- ;
+ process_events(sh);
- for (i = 0; i<MAX_CON; i++)
+ for (db = sh->list; db; db = db->next)
{
int error;
const char *errmsg, *addinfo, *dset;
/* display errors if any */
- if (!p[i])
+ if (!db->con)
continue;
- if ((error = ZOOM_connection_error_x(c[i], &errmsg, &addinfo, &dset)))
- printf ("%s error: %s (%s:%d) %s\n",
- ZOOM_connection_option_get(c[i], "host"), errmsg,
- dset, error, addinfo);
+ if ((error = ZOOM_connection_error_x(db->con, &errmsg, &addinfo,
+ &dset)))
+ {
+ printf("%s error: %s (%s:%d) %s\n",
+ ZOOM_connection_option_get(db->con, "host"), errmsg,
+ dset, error, addinfo);
+ ret = 1;
+ }
+ else if (db->res)
+ {
+ const char *suggestions =
+ ZOOM_resultset_option_get(db->res, "suggestions");
+ if (suggestions)
+ printf("Suggestions: \n%s\n", suggestions);
+ }
+ }
+ return ret;
+}
+
+static int cmd_ext(struct zoom_sh *sh, const char **args)
+{
+ int ret = 0;
+ ZOOM_package *p = 0;
+ struct zoom_db *db;
+ int i, number;
+ WRBUF ext_type_str = next_token_new_wrbuf(args);
+
+ if (!ext_type_str)
+ {
+ printf("es: missing type "
+ "(itemorder, create, drop, commit, update, xmlupdate)\n");
+ return 1;
+ }
+ for (number = 0, db = sh->list; db; db = db->next)
+ if (db->con)
+ number++;
+
+ p = xmalloc(sizeof(*p) * number);
+
+ for (i = 0, db = sh->list; db; db = db->next)
+ if (db->con)
+ {
+ p[i] = ZOOM_connection_package(db->con, 0);
+ ZOOM_package_send(p[i], ext_type_str ? wrbuf_cstr(ext_type_str):0);
+ i++;
+ }
+
+ process_events(sh);
+
+ for (i = 0, db = sh->list; db; db = db->next)
+ {
+ int error;
+ const char *errmsg, *addinfo, *dset;
+ /* display errors if any */
+ if (!db->con)
+ continue;
+ if ((error = ZOOM_connection_error_x(db->con, &errmsg, &addinfo,
+ &dset)))
+ {
+ printf("%s error: %s (%s:%d) %s\n",
+ ZOOM_connection_option_get(db->con, "host"), errmsg,
+ dset, error, addinfo);
+ ret = 1;
+ }
else if (p[i])
{
const char *v;
- printf ("ok\n");
- v = ZOOM_package_option_get (p[i], "targetReference");
+ printf("ok\n");
+ v = ZOOM_package_option_get(p[i], "targetReference");
if (v)
printf("targetReference: %s\n", v);
- v = ZOOM_package_option_get (p[i], "xmlUpdateDoc");
+ v = ZOOM_package_option_get(p[i], "xmlUpdateDoc");
if (v)
printf("xmlUpdateDoc: %s\n", v);
}
- ZOOM_package_destroy (p[i]);
+ ZOOM_package_destroy(p[i]);
+ i++;
}
+ if (ext_type_str)
+ wrbuf_destroy(ext_type_str);
+ xfree(p);
+ return ret;
}
-static void cmd_debug (ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options,
- const char **args)
+static int cmd_debug(struct zoom_sh *sh, const char **args)
{
yaz_log_init_level(YLOG_ALL);
+ return 0;
+}
+
+static void display_search_result(struct zoom_db *db)
+{
+ const char *v;
+ int num;
+
+ v = ZOOM_resultset_option_get(db->res, "searchresult.size");
+ if (v && (num = atoi(v)))
+ {
+ int i;
+ printf("SearchResult-1:");
+ for (i = 0; i < num; i++)
+ {
+ const char *v;
+ char str[60];
+
+ if (i)
+ printf(",");
+
+ sprintf(str, "searchresult.%d.id", i);
+ v = ZOOM_resultset_option_get(db->res, str);
+ if (v)
+ printf(" id=%s", v);
+
+ sprintf(str, "searchresult.%d.subquery.term", i);
+ v = ZOOM_resultset_option_get(db->res, str);
+ if (v)
+ printf(" term=%s", v);
+
+ sprintf(str, "searchresult.%d.count", i);
+ v = ZOOM_resultset_option_get(db->res, str);
+ if (v)
+ printf(" cnt=%s", v);
+ }
+ printf("\n");
+ }
}
-static void cmd_search (ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options,
- const char **args)
+static int cmd_search(struct zoom_sh *sh, const char **args)
{
ZOOM_query s;
const char *query_str = *args;
- int i;
-
- s = ZOOM_query_create ();
+ int ret = 0;
+ struct zoom_db *db;
+
+ s = ZOOM_query_create();
while (*query_str == ' ')
query_str++;
if (memcmp(query_str, "cql:", 4) == 0)
{
- ZOOM_query_cql (s, query_str + 4);
+ ZOOM_query_cql(s, query_str + 4);
}
- else if (ZOOM_query_prefix (s, query_str))
+ else if (ZOOM_query_prefix(s, query_str))
{
- printf ("Bad PQF: %s\n", query_str);
- return;
+ printf("Bad PQF: %s\n", query_str);
+ ZOOM_query_destroy(s);
+ return 1;
}
- for (i = 0; i<MAX_CON; i++)
+ if (sh->strategy && wrbuf_len(sh->strategy) && wrbuf_len(sh->criteria))
{
- if (c[i])
+ int r = ZOOM_query_sortby2(s, wrbuf_cstr(sh->strategy),
+ wrbuf_cstr(sh->criteria));
+ if (r)
{
- ZOOM_resultset_destroy (r[i]);
- r[i] = 0;
+ if (r == -1)
+ printf("Bad sortby strategy: %s\n", wrbuf_cstr(sh->strategy));
+ else
+ printf("Bad sortby criteria: %s\n", wrbuf_cstr(sh->criteria));
+ ZOOM_query_destroy(s);
+ return 1;
}
- if (c[i])
- r[i] = ZOOM_connection_search (c[i], s);
+ printf("sortby added\n");
}
+ for (db = sh->list; db; db = db->next)
+ {
+ if (db->con)
+ {
+ ZOOM_resultset_destroy(db->res);
+ db->res = ZOOM_connection_search(db->con, s);
+ }
+ }
+ ZOOM_query_destroy(s);
- while (ZOOM_event (MAX_CON, c))
- ;
+ process_events(sh);
- for (i = 0; i<MAX_CON; i++)
+ for (db = sh->list; db; db = db->next)
{
int error;
const char *errmsg, *addinfo, *dset;
/* display errors if any */
- if (!c[i])
+ if (!db->con)
continue;
- if ((error = ZOOM_connection_error_x(c[i], &errmsg, &addinfo, &dset)))
- printf ("%s error: %s (%s:%d) %s\n",
- ZOOM_connection_option_get(c[i], "host"), errmsg,
- dset, error, addinfo);
- else if (r[i])
+ if ((error = ZOOM_connection_error_x(db->con, &errmsg, &addinfo,
+ &dset)))
+ {
+ printf("%s error: %s (%s:%d) %s\n",
+ ZOOM_connection_option_get(db->con, "host"), errmsg,
+ dset, error, addinfo);
+ ret = 1;
+ }
+ else if (db->res)
{
/* OK, no major errors. Look at the result count */
- int start = ZOOM_options_get_int (options, "start", 0);
- int count = ZOOM_options_get_int (options, "count", 0);
+ int start = ZOOM_options_get_int(sh->options, "start", 0);
+ int count = ZOOM_options_get_int(sh->options, "count", 0);
+ int facet_num;
- printf ("%s: %ld hits\n", ZOOM_connection_option_get(c[i], "host"),
- (long) ZOOM_resultset_size(r[i]));
+ printf("%s: %lld hits\n", ZOOM_connection_option_get(db->con,
+ "host"),
+ (long long int) ZOOM_resultset_size(db->res));
+
+ facet_num = ZOOM_resultset_facets_size(db->res);
+ if (facet_num)
+ {
+ ZOOM_facet_field *facets = ZOOM_resultset_facets(db->res);
+ int facet_idx;
+ for (facet_idx = 0; facet_idx < facet_num; facet_idx++)
+ {
+ const char *name = ZOOM_facet_field_name(facets[facet_idx]);
+ size_t term_idx;
+ size_t term_num = ZOOM_facet_field_term_count(facets[facet_idx]);
+ printf("facet: %s\n", name);
+ for (term_idx = 0; term_idx < term_num; term_idx++ )
+ {
+ int freq;
+ const char *term =
+ ZOOM_facet_field_get_term(facets[facet_idx], term_idx, &freq);
+ printf("term: %s %d\n", term, freq);
+ }
+ }
+ }
+ display_search_result(db);
/* and display */
- display_records (c[i], r[i], start, count);
+ display_records(db->con, db->res, start, count, "render");
}
}
- ZOOM_query_destroy (s);
+ return ret;
}
-static void cmd_scan (ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options,
- const char **args)
+static int cmd_scan(struct zoom_sh *sh, const char **args)
{
- const char *start_term = *args;
- int i;
- ZOOM_scanset s[MAX_CON];
-
- while (*start_term == ' ')
- start_term++;
+ const char *query_str = *args;
+ ZOOM_query query = ZOOM_query_create();
+ int i, number;
+ int ret = 0;
+ ZOOM_scanset *s = 0;
+ struct zoom_db *db;
+
+ while (*query_str == ' ')
+ query_str++;
- for (i = 0; i<MAX_CON; i++)
+ if (memcmp(query_str, "cql:", 4) == 0)
{
- if (c[i])
- s[i] = ZOOM_connection_scan(c[i], start_term);
- else
- s[i] = 0;
+ ZOOM_query_cql(query, query_str + 4);
+ }
+ else if (ZOOM_query_prefix(query, query_str))
+ {
+ printf("Bad PQF: %s\n", query_str);
+ ZOOM_query_destroy(query);
+ return 1;
}
- while (ZOOM_event(MAX_CON, c))
- ;
- for (i = 0; i<MAX_CON; i++)
+
+ for (number = 0, db = sh->list; db; db = db->next)
+ if (db->con)
+ number++;
+
+ s = xmalloc(sizeof(*s) * number);
+
+ for (i = 0, db = sh->list; db; db = db->next)
+ if (db->con)
+ s[i++] = ZOOM_connection_scan1(db->con, query);
+
+ ZOOM_query_destroy(query);
+
+ process_events(sh);
+
+ for (i = 0, db = sh->list; db; db = db->next)
{
- if (s[i]) {
+ int error;
+ const char *errmsg, *addinfo, *dset;
+ /* display errors if any */
+ if (!db->con)
+ continue;
+ if ((error = ZOOM_connection_error_x(db->con, &errmsg, &addinfo,
+ &dset)))
+ {
+ printf("%s error: %s (%s:%d) %s\n",
+ ZOOM_connection_option_get(db->con, "host"), errmsg,
+ dset, error, addinfo);
+ ret = 1;
+ }
+ if (s[i])
+ {
size_t p, sz = ZOOM_scanset_size(s[i]);
for (p = 0; p < sz; p++)
{
- int occ = 0;
- int len = 0;
+ size_t occ = 0;
+ size_t len = 0;
const char *term = ZOOM_scanset_display_term(s[i], p,
- &occ, &len);
- fwrite(term, 1, len, stdout);
- printf (" %d\n", occ);
- }
+ &occ, &len);
+ printf("%.*s %lld\n", (int) len, term, (long long int) occ);
+ }
ZOOM_scanset_destroy(s[i]);
}
+ i++;
}
+ xfree(s);
+ return ret;
}
-static void cmd_sort (ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options,
- const char **args)
+static int cmd_sortby(struct zoom_sh *sh, const char **args)
+{
+ WRBUF strategy;
+ const char *criteria;
+ if (!(strategy = next_token_new_wrbuf(args)))
+ {
+ printf("missing argument argument: strategy and criteria\n");
+ return 1;
+ }
+ criteria = *args;
+ while (*criteria == ' ')
+ criteria++;
+ wrbuf_destroy(sh->strategy);
+ sh->strategy = strategy;
+
+ wrbuf_rewind(sh->criteria);
+ wrbuf_puts(sh->criteria, criteria);
+ return 0;
+}
+
+static int cmd_sort(struct zoom_sh *sh, const char **args)
{
const char *sort_spec = *args;
- int i;
-
+ int ret = 0;
+ struct zoom_db *db;
+
while (*sort_spec == ' ')
sort_spec++;
-
- for (i = 0; i<MAX_CON; i++)
- {
- if (r[i])
- ZOOM_resultset_sort(r[i], "yaz", sort_spec);
- }
- while (ZOOM_event(MAX_CON, c))
- ;
+
+ for (db = sh->list; db; db = db->next)
+ if (db->res)
+ ZOOM_resultset_sort(db->res, "yaz", sort_spec);
+ process_events(sh);
+ return ret;
}
-static void cmd_help (ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options,
- const char **args)
+static int cmd_help(struct zoom_sh *sh, const char **args)
{
- printf ("connect <zurl>\n");
- printf ("search <pqf>\n");
- printf ("show [<start> [<count>]\n");
- printf ("scan <term>\n");
- printf ("quit\n");
- printf ("close <zurl>\n");
- printf ("ext <type>\n");
- printf ("set <option> [<value>]\n");
- printf ("get <option>\n");
- printf ("\n");
- printf ("options:\n");
- printf (" start\n");
- printf (" count\n");
- printf (" databaseName\n");
- printf (" preferredRecordSyntax\n");
- printf (" proxy\n");
- printf (" elementSetName\n");
- printf (" maximumRecordSize\n");
- printf (" preferredRecordSize\n");
- printf (" async\n");
- printf (" piggyback\n");
- printf (" group\n");
- printf (" user\n");
- printf (" password\n");
- printf (" implementationName\n");
- printf (" charset\n");
- printf (" lang\n");
+ printf("connect <zurl>\n");
+ printf("search <pqf>\n");
+ printf("sortby <strategy> <criteria>\n");
+ printf("show [<start> [<count> [<type]]]\n");
+ printf("facets\n");
+ printf("scan <term>\n");
+ printf("quit\n");
+ printf("close <zurl>\n");
+ printf("ext <type>\n");
+ printf("set <option> [<value>]\n");
+ printf("get <option>\n");
+ printf("shell cmdline\n");
+ printf("\n");
+ printf("options:\n");
+ printf(" start\n");
+ printf(" count\n");
+ printf(" databaseName\n");
+ printf(" preferredRecordSyntax\n");
+ printf(" proxy\n");
+ printf(" elementSetName\n");
+ printf(" maximumRecordSize\n");
+ printf(" preferredRecordSize\n");
+ printf(" async\n");
+ printf(" piggyback\n");
+ printf(" group\n");
+ printf(" user\n");
+ printf(" password\n");
+ printf(" implementationName\n");
+ printf(" charset\n");
+ printf(" lang\n");
+ printf(" timeout\n");
+ printf(" facets\n");
+ printf(" extraArgs\n");
+ printf(" suggestions\n");
+ return 0;
}
-static void cmd_connect (ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options,
- const char **args)
+static int cmd_connect(struct zoom_sh *sh, const char **args)
{
+ int ret = 0;
int error;
const char *errmsg, *addinfo, *dset;
- char host[60];
- int j, i;
- if (next_token_copy (args, host, sizeof(host)) < 0)
+ struct zoom_db *db;
+ WRBUF host = next_token_new_wrbuf(args);
+ if (!host)
{
- printf ("missing host after connect\n");
- return ;
+ printf("missing host after connect\n");
+ return 1;
}
- for (j = -1, i = 0; i<MAX_CON; i++)
+ for (db = sh->list; db; db = db->next)
{
const char *h;
- if (c[i] && (h = ZOOM_connection_option_get(c[i], "host")) &&
- !strcmp (h, host))
+ if (db->con && (h = ZOOM_connection_option_get(db->con, "host")) &&
+ !strcmp(h, wrbuf_cstr(host)))
{
- ZOOM_connection_destroy (c[i]);
+ ZOOM_connection_destroy(db->con);
break;
}
- else if (c[i] == 0 && j == -1)
- j = i;
}
- if (i == MAX_CON) /* no match .. */
+ if (!db) /* no match .. */
{
- if (j == -1)
- {
- printf ("no more connection available\n");
- return;
- }
- i = j; /* OK, use this one is available */
- }
- c[i] = ZOOM_connection_create (options);
- ZOOM_connection_connect (c[i], host, 0);
-
- if ((error = ZOOM_connection_error_x(c[i], &errmsg, &addinfo, &dset)))
- printf ("%s error: %s (%s:%d) %s\n",
- ZOOM_connection_option_get(c[i], "host"), errmsg,
- dset, error, addinfo);
+ db = xmalloc(sizeof(*db));
+ db->res = 0;
+ db->next = sh->list;
+ sh->list = db;
+ }
+ db->con = ZOOM_connection_create(sh->options);
+
+ ZOOM_connection_connect(db->con, wrbuf_cstr(host), 0);
+
+ process_events(sh);
+
+ if ((error = ZOOM_connection_error_x(db->con, &errmsg, &addinfo, &dset)))
+ {
+ printf("%s error: %s (%s:%d) %s\n",
+ ZOOM_connection_option_get(db->con, "host"), errmsg,
+ dset, error, addinfo);
+ ret = 1;
+ }
+ wrbuf_destroy(host);
+ return ret;
}
-static int cmd_parse (ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options,
- const char **buf)
+/** \brief parse and execute zoomsh command
+ \param sh ZOOM shell
+ \param buf command string and arguments
+ \retval 0 OK
+ \retval 1 failure to execute
+ \retval -1 EOF (no more commands or quit seen)
+*/
+static int cmd_parse(struct zoom_sh *sh, const char **buf)
{
int cmd_len;
const char *cmd_str;
+ int ret = 0;
- cmd_len = next_token (buf, &cmd_str);
+ cmd_len = next_token(buf, &cmd_str);
if (cmd_len < 0)
- return 1;
- if (is_command ("quit", cmd_str, cmd_len))
return 0;
- else if (is_command ("set", cmd_str, cmd_len))
- cmd_set (c, r, options, buf);
- else if (is_command ("get", cmd_str, cmd_len))
- cmd_get (c, r, options, buf);
- else if (is_command ("rget", cmd_str, cmd_len))
- cmd_rget (c, r, options, buf);
- else if (is_command ("connect", cmd_str, cmd_len))
- cmd_connect (c, r, options, buf);
- else if (is_command ("open", cmd_str, cmd_len))
- cmd_connect (c, r, options, buf);
- else if (is_command ("search", cmd_str, cmd_len))
- cmd_search (c, r, options, buf);
- else if (is_command ("find", cmd_str, cmd_len))
- cmd_search (c, r, options, buf);
- else if (is_command ("show", cmd_str, cmd_len))
- cmd_show (c, r, options, buf);
- else if (is_command ("close", cmd_str, cmd_len))
- cmd_close (c, r, options, buf);
- else if (is_command ("help", cmd_str, cmd_len))
- cmd_help(c, r, options, buf);
- else if (is_command ("ext", cmd_str, cmd_len))
- cmd_ext(c, r, options, buf);
- else if (is_command ("debug", cmd_str, cmd_len))
- cmd_debug(c, r, options, buf);
- else if (is_command ("scan", cmd_str, cmd_len))
- cmd_scan(c, r, options, buf);
- else if (is_command ("sort", cmd_str, cmd_len))
- cmd_sort(c, r, options, buf);
+ if (is_command("quit", cmd_str, cmd_len))
+ return -1;
+ else if (is_command("set", cmd_str, cmd_len))
+ ret = cmd_set(sh, buf);
+ else if (is_command("get", cmd_str, cmd_len))
+ ret = cmd_get(sh, buf);
+ else if (is_command("rget", cmd_str, cmd_len))
+ ret = cmd_rget(sh, buf);
+ else if (is_command("connect", cmd_str, cmd_len))
+ ret = cmd_connect(sh, buf);
+ else if (is_command("open", cmd_str, cmd_len))
+ ret = cmd_connect(sh, buf);
+ else if (is_command("search", cmd_str, cmd_len))
+ ret = cmd_search(sh, buf);
+ else if (is_command("sortby", cmd_str, cmd_len))
+ ret = cmd_sortby(sh, buf);
+ else if (is_command("facets", cmd_str, cmd_len))
+ ret = cmd_facets(sh, buf);
+ else if (is_command("find", cmd_str, cmd_len))
+ ret = cmd_search(sh, buf);
+ else if (is_command("show", cmd_str, cmd_len))
+ ret = cmd_show(sh, buf);
+ else if (is_command("suggestions", cmd_str, cmd_len))
+ ret = cmd_suggestions(sh, buf);
+ else if (is_command("close", cmd_str, cmd_len))
+ ret = cmd_close(sh, buf);
+ else if (is_command("help", cmd_str, cmd_len))
+ ret = cmd_help(sh, buf);
+ else if (is_command("ext", cmd_str, cmd_len))
+ ret = cmd_ext(sh, buf);
+ else if (is_command("debug", cmd_str, cmd_len))
+ ret = cmd_debug(sh, buf);
+ else if (is_command("scan", cmd_str, cmd_len))
+ ret = cmd_scan(sh, buf);
+ else if (is_command("sort", cmd_str, cmd_len))
+ ret = cmd_sort(sh, buf);
+ else if (is_command("shell", cmd_str, cmd_len))
+ ret = cmd_shell(sh, buf);
else
- printf ("unknown command %.*s\n", cmd_len, cmd_str);
- return 2;
+ {
+ printf("unknown command %.*s\n", cmd_len, cmd_str);
+ ret = 1;
+ }
+ return ret;
}
-void shell(ZOOM_connection *c, ZOOM_resultset *r,
- ZOOM_options options)
+static int shell(struct zoom_sh *sh, int exit_on_error)
{
- while (1)
+ int res = 0;
+ while (res == 0)
{
- char buf[1000];
+ char buf[100000];
char *cp;
const char *bp = buf;
+ char *line_in = 0;
#if HAVE_READLINE_READLINE_H
- char* line_in;
- line_in=readline("ZOOM>");
- if (!line_in)
- break;
+ if (isatty(0))
+ {
+ line_in = readline("ZOOM>");
+ if (!line_in)
+ {
+ putchar('\n');
+ res = -1;
+ break;
+ }
#if HAVE_READLINE_HISTORY_H
- if (*line_in)
- add_history(line_in);
+ if (*line_in)
+ add_history(line_in);
#endif
- if(strlen(line_in) > 999) {
- printf("Input line too long\n");
- break;
- };
- strcpy(buf,line_in);
- free (line_in);
-#else
- printf ("ZOOM>"); fflush (stdout);
- if (!fgets (buf, 999, stdin))
- break;
-#endif
+ if (strlen(line_in) > sizeof(buf)-1)
+ {
+ printf("Input line too long\n");
+ res = 1;
+ break;
+ }
+ strcpy(buf,line_in);
+ free(line_in);
+ }
+#endif
+ if (!line_in) /* no line buffer via readline or not enabled at all */
+ {
+ if (isatty(0))
+ {
+ printf("ZOOM>"); fflush(stdout);
+ }
+ if (!fgets(buf, sizeof(buf)-1, stdin))
+ {
+ res = -1;
+ break;
+ }
+ }
if ((cp = strchr(buf, '\n')))
*cp = '\0';
- if (!cmd_parse (c, r, options, &bp))
+ res = cmd_parse(sh, &bp);
+ if (res == -1)
break;
+ if (!exit_on_error && res > 0)
+ res = 0;
}
+ return res;
}
-static void zoomsh(int argc, char **argv)
+static int zoomsh(int argc, char **argv)
{
- ZOOM_options options = ZOOM_options_create();
- int i, res;
- ZOOM_connection z39_con[MAX_CON];
- ZOOM_resultset z39_res[MAX_CON];
-
- for (i = 0; i<MAX_CON; i++)
- {
- z39_con[i] = 0;
- z39_res[i] = 0;
- }
+ int res = 0; /* -1: EOF; 0 = OK, > 0 ERROR */
+ int exit_on_error = 0;
+ struct zoom_db *db;
+ struct zoom_sh sh;
- for (i = 0; i<MAX_CON; i++)
- z39_con[i] = 0;
+ sh.list = 0;
+ sh.options = ZOOM_options_create();
+ sh.strategy = 0;
+ sh.criteria = wrbuf_alloc();
- res = 1;
- for (i = 1; i<argc; i++)
+ while (res == 0)
{
- const char *bp = argv[i];
- res = cmd_parse(z39_con, z39_res, options, &bp);
- if (res == 0) /* received quit */
+ int mask;
+ char *arg = 0;
+ int option_ret = options("a:ev:", argv, argc, &arg);
+ const char *bp = arg;
+ switch (option_ret)
+ {
+ case 0:
+ res = cmd_parse(&sh, &bp);
+ /* returns res == -1 on quit */
+ if (!exit_on_error && res > 0)
+ res = 0; /* hide error */
break;
+ case YAZ_OPTIONS_EOF:
+ res = shell(&sh, exit_on_error);
+ break;
+ case 'a':
+ ZOOM_options_set(sh.options, "apdufile", arg);
+ break;
+ case 'e':
+ exit_on_error = 1;
+ break;
+ case 'v':
+ mask = yaz_log_mask_str(arg);
+ yaz_log_init_level(mask);
+ break;
+ default:
+ fprintf(stderr, "zoomsh: [-a apdulog] [-e] [-v level] [commands]\n");
+ res = 1;
+ }
}
- if (res) /* do cmdline shell only if not quitting */
- shell(z39_con, z39_res, options);
- ZOOM_options_destroy(options);
- for (i = 0; i<MAX_CON; i++)
+ for (db = sh.list; db; )
{
- ZOOM_connection_destroy(z39_con[i]);
- ZOOM_resultset_destroy(z39_res[i]);
+ struct zoom_db *n = db->next;
+ ZOOM_connection_destroy(db->con);
+ ZOOM_resultset_destroy(db->res);
+ xfree(db);
+ db = n;
}
+ ZOOM_options_destroy(sh.options);
+ wrbuf_destroy(sh.strategy);
+ wrbuf_destroy(sh.criteria);
+ if (res == -1) /* quit .. which is not an error */
+ res = 0;
+ return res;
}
int main(int argc, char **argv)
{
- const char *maskstr = 0;
- if (argc > 2 && !strcmp(argv[1], "-v"))
- {
- maskstr = argv[2];
- argv += 2;
- argc -= 2;
- }
- else if (argc > 1 && !strncmp(argv[1], "-v", 2))
- {
- maskstr = argv[1]+2;
- argv++;
- argc--;
- }
- if (maskstr)
- {
- int mask = yaz_log_mask_str(maskstr);
- yaz_log_init_level(mask);
- }
- zoomsh(argc, argv);
- exit (0);
+ int ret;
+
+ yaz_enable_panic_backtrace(*argv);
+ ret = zoomsh(argc, argv);
+ exit(ret);
}
/*
* Local variables:
* c-basic-offset: 4
+ * c-file-style: "Stroustrup"
* indent-tabs-mode: nil
* End:
* vim: shiftwidth=4 tabstop=8 expandtab