+
+
+ZEBRA_RES zebra_attr_list_get_ord(ZebraHandle zh,
+ Z_AttributeList *attr_list,
+ int index_type,
+ oid_value curAttributeSet,
+ int *ord)
+{
+ int use_value = -1;
+ const char *use_string = 0;
+ AttrType use;
+
+ attr_init_AttrList(&use, attr_list, 1);
+ use_value = attr_find_ex(&use, &curAttributeSet, &use_string);
+
+ if (use_value < 0)
+ {
+ if (!use_string)
+ use_string = "any";
+ }
+ else
+ {
+ /* we have a use attribute and attribute set */
+ int r;
+
+ r = att_getentbyatt(zh, curAttributeSet, use_value, &use_string);
+ if (r == -2)
+ {
+ zebra_setError_zint(zh, YAZ_BIB1_UNSUPP_ATTRIBUTE_SET, 0);
+ return ZEBRA_FAIL;
+ }
+ if (r == -1)
+ {
+ zebra_setError_zint(zh, YAZ_BIB1_UNSUPP_USE_ATTRIBUTE, use_value);
+ return ZEBRA_FAIL;
+ }
+ }
+ if (!use_string)
+ {
+ zebra_setError(zh, YAZ_BIB1_UNSUPP_USE_ATTRIBUTE, 0);
+ return ZEBRA_FAIL;
+ }
+ *ord = zebraExplain_lookup_attr_str(zh->reg->zei, index_type, use_string);
+ if (*ord == -1)
+ {
+ if (use_value < 0)
+ zebra_setError(zh, YAZ_BIB1_UNSUPP_USE_ATTRIBUTE, use_string);
+ else
+ zebra_setError_zint(zh, YAZ_BIB1_UNSUPP_USE_ATTRIBUTE, use_value);
+ return ZEBRA_FAIL;
+ }
+ return ZEBRA_OK;
+}
+
+ZEBRA_RES zebra_apt_get_ord(ZebraHandle zh,
+ Z_AttributesPlusTerm *zapt,
+ int index_type,
+ const char *xpath_use,
+ oid_value curAttributeSet,
+ int *ord)
+{
+ if (!xpath_use)
+ return zebra_attr_list_get_ord(zh, zapt->attributes,
+ index_type, curAttributeSet, ord);
+ else
+ {
+ *ord = zebraExplain_lookup_attr_str(zh->reg->zei, index_type,
+ xpath_use);
+ if (*ord == -1)
+ {
+ yaz_log(YLOG_LOG, "zebra_apt_get_ord FAILED xpath=%s index_type=%c",
+ xpath_use, index_type);
+ zebra_setError(zh, YAZ_BIB1_UNSUPP_USE_ATTRIBUTE, 0);
+ return ZEBRA_FAIL;
+ }
+ else
+ {
+ yaz_log(YLOG_LOG, "zebra_apt_get_ord OK xpath=%s index_type=%c",
+ xpath_use, index_type);
+ }
+ return ZEBRA_OK;
+ }
+}
+
+ZEBRA_RES zebra_sort_get_ord(ZebraHandle zh,
+ Z_SortAttributes *sortAttributes,
+ int *ord,
+ int *numerical)
+{
+ AttrType structure;
+ int structure_value;
+ attr_init_AttrList(&structure, sortAttributes->list, 4);
+
+ *numerical = 0;
+ structure_value = attr_find(&structure, 0);
+ if (structure_value == 109)
+ *numerical = 1;
+
+ if (zebra_attr_list_get_ord(zh, sortAttributes->list,
+ 's', VAL_BIB1, ord)== ZEBRA_OK)
+ return ZEBRA_OK;
+ if (zebra_attr_list_get_ord(zh, sortAttributes->list,
+ 'S', VAL_BIB1, ord)== ZEBRA_OK)
+ return ZEBRA_OK;
+ return ZEBRA_FAIL;
+}
+
+
+/*
+ * Local variables:
+ * c-basic-offset: 4
+ * indent-tabs-mode: nil
+ * End:
+ * vim: shiftwidth=4 tabstop=8 expandtab
+ */
+