+
+int yaz_sort_spec_to_cql(Z_SortKeySpecList *sksl, WRBUF w)
+{
+ int i;
+ for (i = 0; i < sksl->num_specs; i++)
+ {
+ Z_SortKeySpec *sks = sksl->specs[i];
+ Z_SortKey *sk;
+
+ if (sks->sortElement->which != Z_SortElement_generic)
+ return -1;
+
+ sk = sks->sortElement->u.generic;
+ if (i)
+ wrbuf_puts(w, " ");
+ else
+ wrbuf_puts(w, " SORTBY ");
+ if (sk->which == Z_SortKey_sortAttributes)
+ return -1;
+ else if (sk->which == Z_SortKey_sortField)
+ wrbuf_puts(w, sk->u.sortField);
+ switch (*sks->sortRelation)
+ {
+ case Z_SortKeySpec_ascending:
+ wrbuf_puts(w, "/ascending");
+ break;
+ case Z_SortKeySpec_descending:
+ wrbuf_puts(w, "/descending");
+ break;
+ }
+ switch (*sks->caseSensitivity)
+ {
+ case Z_SortKeySpec_caseSensitive:
+ wrbuf_puts(w, "/respectCase");
+ break;
+ case Z_SortKeySpec_caseInsensitive:
+ wrbuf_puts(w, "/ignoreCase");
+ break;
+ }
+ switch (sks->which)
+ {
+ case Z_SortKeySpec_null:
+ break;
+ case Z_SortKeySpec_abort:
+ wrbuf_puts(w, "/missingFail");
+ break;
+ case Z_SortKeySpec_missingValueData:
+ wrbuf_puts(w, "/missingValue=");
+ wrbuf_write(w, (const char *) sks->u.missingValueData->buf,
+ sks->u.missingValueData->len);
+ }
+ }
+ return 0;
+}
+
+int yaz_sort_spec_to_type7(Z_SortKeySpecList *sksl, WRBUF pqf)
+{
+ int i;
+ for (i = 0; i < sksl->num_specs; i++)
+ {
+ Z_SortKeySpec *sks = sksl->specs[i];
+ Z_SortKey *sk;
+
+ if (sks->sortElement->which != Z_SortElement_generic)
+ return -1;
+
+ sk = sks->sortElement->u.generic;
+
+ wrbuf_insert(pqf, 0, "@or ", 4);
+
+ if (sk->which == Z_SortKey_sortAttributes)
+ {
+ int j;
+ for (j = 0; j < sk->u.sortAttributes->list->num_attributes; j++)
+ {
+ Z_AttributeElement *el =
+ sk->u.sortAttributes->list->attributes[j];
+ if (el->which != Z_AttributeValue_numeric)
+ return -1;
+ wrbuf_printf(pqf, " @attr " ODR_INT_PRINTF "=" ODR_INT_PRINTF,
+ *el->attributeType, *el->value.numeric);
+ }
+ }
+ else if (sk->which == Z_SortKey_sortField)
+ {
+ wrbuf_puts(pqf, " @attr 1=");
+ wrbuf_puts(pqf, sk->u.sortField);
+ }
+ switch (*sks->sortRelation)
+ {
+ case Z_SortKeySpec_ascending:
+ wrbuf_puts(pqf, " @attr 7=1 ");
+ break;
+ case Z_SortKeySpec_descending:
+ wrbuf_puts(pqf, " @attr 7=2 ");
+ break;
+ }
+ wrbuf_printf(pqf, "%d", i);
+ }
+ return 0;
+}
+
+