/* This file is part of the YAZ toolkit.
- * Copyright (C) 1995-2010 Index Data
+ * Copyright (C) 1995-2013 Index Data
* See the file LICENSE for details.
*/
-
/** \file querytowrbuf.c
\brief Convert Z39.50 Z_Query to PQF (as WRBUF string)
*/
+#if HAVE_CONFIG_H
+#include <config.h>
+#endif
#include <stdio.h>
#include <assert.h>
for (i = 0; i < len; i++)
if (strchr(" \"{", term[i]))
break;
- if (i == len && i)
- wrbuf_printf(b, "%.*s ", len, term);
+ if (len > 0 && i == len)
+ {
+ if (term[0] == '@')
+ wrbuf_putc(b, '\\');
+ for (i = 0; i < len; i++)
+ {
+ if (term[i] == '\\')
+ wrbuf_putc(b, '\\');
+ wrbuf_putc(b, term[i]);
+ }
+ }
else
{
wrbuf_putc(b, '"');
- for (i = 0; i<len; i++)
+ for (i = 0; i < len; i++)
{
- if (term[i] == '"')
+ if (term[i] == '"' || term[i] == '\\')
wrbuf_putc(b, '\\');
wrbuf_putc(b, term[i]);
}
- wrbuf_printf(b, "\" ");
+ wrbuf_putc(b, '"');
}
+ wrbuf_putc(b, ' ');
}
static void yaz_attribute_element_to_wrbuf(WRBUF b,
const Z_AttributeElement *element)
{
int i;
- char oid_name_str[OID_STR_MAX];
- const char *setname = 0;
- char *sep = " "; /* optional space after attrset name */
+
+ wrbuf_puts(b, "@attr ");
if (element->attributeSet)
{
- setname = yaz_oid_to_string_buf(element->attributeSet,
- 0, oid_name_str);
- }
- if (!setname)
- {
- setname = "";
- sep = "";
+ char oid_name_str[OID_STR_MAX];
+ const char *setname = yaz_oid_to_string_buf(element->attributeSet,
+ 0, oid_name_str);
+ if (setname)
+ {
+ wrbuf_puts(b, setname);
+ wrbuf_puts(b, " ");
+ }
}
- switch (element->which)
+ wrbuf_printf(b, ODR_INT_PRINTF "=", *element->attributeType);
+ switch (element->which)
{
case Z_AttributeValue_numeric:
- wrbuf_printf(b,"@attr %s%s" ODR_INT_PRINTF "=" ODR_INT_PRINTF " ",
- setname, sep,
- *element->attributeType, *element->value.numeric);
+ wrbuf_printf(b, ODR_INT_PRINTF, *element->value.numeric);
break;
case Z_AttributeValue_complex:
- wrbuf_printf(b,"@attr %s%s\""ODR_INT_PRINTF "=", setname, sep,
- *element->attributeType);
- for (i = 0; i<element->value.complex->num_list; i++)
+ for (i = 0; i < element->value.complex->num_list; i++)
{
if (i)
- wrbuf_printf(b,",");
+ wrbuf_puts(b, ",");
if (element->value.complex->list[i]->which ==
Z_StringOrNumeric_string)
- wrbuf_printf (b, "%s",
- element->value.complex->list[i]->u.string);
+ wrbuf_puts(b, element->value.complex->list[i]->u.string);
else if (element->value.complex->list[i]->which ==
Z_StringOrNumeric_numeric)
- wrbuf_printf (b, ODR_INT_PRINTF,
- *element->value.complex->list[i]->u.numeric);
+ wrbuf_printf(b, ODR_INT_PRINTF,
+ *element->value.complex->list[i]->u.numeric);
}
- wrbuf_printf(b, "\" ");
break;
default:
- wrbuf_printf (b, "@attr 1=unknown ");
+ wrbuf_puts(b, "@attr 1=unknown");
}
+ wrbuf_puts(b, " ");
}
static const char *complex_op_name(const Z_Operator *op)
{
int num_attributes = zapt->attributes->num_attributes;
int i;
- for (i = 0; i<num_attributes; i++)
+ for (i = 0; i < num_attributes; i++)
yaz_attribute_element_to_wrbuf(b,zapt->attributes->attributes[i]);
-
+
switch (zapt->term->which)
{
case Z_Term_general:
zapt->term->u.general->len);
break;
case Z_Term_characterString:
- wrbuf_printf(b, "@term string ");
+ wrbuf_puts(b, "@term string ");
yaz_encode_pqf_term(b, zapt->term->u.characterString,
strlen(zapt->term->u.characterString));
break;
*zapt->term->u.numeric);
break;
case Z_Term_null:
- wrbuf_printf(b, "@term null x");
+ wrbuf_puts(b, "@term null x");
break;
default:
wrbuf_printf(b, "@term null unknown%d ", zapt->term->which);
else
wrbuf_putc(b, '0');
- wrbuf_printf(b, " " ODR_INT_PRINTF " %d "
+ wrbuf_printf(b, " " ODR_INT_PRINTF " %d "
ODR_INT_PRINTF " ", *op->u.prox->distance,
*op->u.prox->ordered,
*op->u.prox->relationType);
strlen(zs->u.simple->u.resultSetId));
}
else
- wrbuf_printf (b, "(unknown simple structure)");
+ wrbuf_puts(b, "(unknown simple structure)");
}
else
wrbuf_puts(b, "(unknown structure)");
0, oid_name_str);
if (oid_name)
wrbuf_printf(b, "@attrset %s ", oid_name);
- }
+ }
yaz_rpnstructure_to_wrbuf(b, rpn->RPNStructure);
wrbuf_chop_right(b);
}
assert(b);
switch (q->which)
{
- case Z_Query_type_1:
+ case Z_Query_type_1:
case Z_Query_type_101:
- wrbuf_printf(b,"RPN ");
+ wrbuf_puts(b,"RPN ");
yaz_rpnquery_to_wrbuf(b, q->u.type_1);
break;
case Z_Query_type_2:
- wrbuf_printf(b, "CCL %.*s", q->u.type_2->len, q->u.type_2->buf);
+ wrbuf_puts(b, "CCL ");
+ wrbuf_write(b, (const char *) q->u.type_2->buf, q->u.type_2->len);
break;
case Z_Query_type_100:
- wrbuf_printf(b, "Z39.58 %.*s", q->u.type_100->len,
- q->u.type_100->buf);
+ wrbuf_puts(b, "Z39.58 ");
+ wrbuf_write(b, (const char *) q->u.type_100->buf, q->u.type_100->len);
break;
case Z_Query_type_104:
if (q->u.type_104->which == Z_External_CQL)
- wrbuf_printf(b, "CQL %s", q->u.type_104->u.cql);
+ {
+ wrbuf_puts(b, "CQL ");
+ wrbuf_puts(b, q->u.type_104->u.cql);
+ }
else
wrbuf_printf(b,"UNKNOWN type 104 query %d", q->u.type_104->which);
}
const Odr_oid *attrbute_set)
{
/* should print attr set here */
- wrbuf_printf(b, "RPN ");
+ wrbuf_puts(b, "RPN ");
yaz_apt_to_wrbuf(b, zapt);
}
void wrbuf_diags(WRBUF b, int num_diagnostics, Z_DiagRec **diags)
{
/* we only dump the first diag - that keeps the log cleaner. */
- wrbuf_printf(b," ERROR ");
+ wrbuf_puts(b," ERROR ");
if (diags[0]->which != Z_DiagRec_defaultFormat)
- wrbuf_printf(b,"(diag not in default format?)");
+ wrbuf_puts(b,"(diag not in default format?)");
else
{
- Z_DefaultDiagFormat *e=diags[0]->u.defaultFormat;
+ Z_DefaultDiagFormat *e = diags[0]->u.defaultFormat;
if (e->condition)
wrbuf_printf(b, ODR_INT_PRINTF " ",*e->condition);
else
- wrbuf_printf(b, "?? ");
+ wrbuf_puts(b, "?? ");
if ((e->which==Z_DefaultDiagFormat_v2Addinfo) && (e->u.v2Addinfo))
- wrbuf_printf(b,"%s ",e->u.v2Addinfo);
+ wrbuf_puts(b, e->u.v2Addinfo);
else if ((e->which==Z_DefaultDiagFormat_v3Addinfo) && (e->u.v3Addinfo))
- wrbuf_printf(b,"%s ",e->u.v3Addinfo);
+ wrbuf_puts(b, e->u.v3Addinfo);
+ wrbuf_puts(b, " ");
}
}