+/* This file is part of the YAZ toolkit.
+ * Copyright (C) Index Data
+ * See the file LICENSE for details.
+ */
+/**
+ * \file facet.c
+ * \brief Facet utilities
+ */
+
+#if HAVE_CONFIG_H
+#include <config.h>
+#endif
#include <yaz/facet.h>
#include <yaz/diagbib1.h>
+#include <yaz/oid_db.h>
+#include <yaz/oid_std.h>
+#include <yaz/otherinfo.h>
+#include <yaz/pquery.h>
+#include <assert.h>
+
+void yaz_oi_set_facetlist(
+ Z_OtherInformation **otherInformation, ODR odr,
+ Z_FacetList *facet_list)
+{
+ int categoryValue = 1;
+ Z_External *z_external = 0;
+ Z_OtherInformationUnit *oi =
+ yaz_oi_update(otherInformation, odr, yaz_oid_userinfo_facet_1,
+ categoryValue, 0);
+ if (!oi)
+ return;
+ oi->which = Z_OtherInfo_externallyDefinedInfo;
+ z_external = odr_malloc(odr, sizeof(*z_external));
+ z_external->which = Z_External_userFacets;
+ z_external->direct_reference = odr_oiddup(odr, yaz_oid_userinfo_facet_1);
+ z_external->indirect_reference = 0;
+ z_external->descriptor = 0;
+ z_external->u.facetList = facet_list;
+ oi->information.externallyDefinedInfo = z_external;
+}
+
+Z_FacetList *yaz_oi_get_facetlist(Z_OtherInformation **otherInformation)
+{
+ Z_OtherInformation *oi = *otherInformation;
+ if (oi)
+ {
+ int i;
+ for (i = 0; i < oi->num_elements; i++)
+ {
+ Z_OtherInformationUnit *oiu = oi->list[i];
+ if (oiu->which == Z_OtherInfo_externallyDefinedInfo
+ && oiu->information.externallyDefinedInfo->which ==
+ Z_External_userFacets)
+ {
+ return oiu->information.externallyDefinedInfo->u.facetList;
+ }
+ }
+ }
+ return 0;
+}
/* Little helper to extract a string attribute */
/* Gets the first string, there is usually only one */
/* in case of errors, returns null */
-const char *stringattr( Z_ComplexAttribute *c ) {
+
+void yaz_facet_attr_init(struct yaz_facet_attr *attr_values)
+{
+ attr_values->errcode = 0;
+ attr_values->errstring = 0;
+ attr_values->sortorder = 0;
+ attr_values->useattr = 0;
+ attr_values->useattrbuff[0] = 0;
+ attr_values->limit = 0;
+ attr_values->start = 0;
+}
+
+static const char *stringattr(Z_ComplexAttribute *c)
+{
int i;
Z_StringOrNumeric *son;
- for ( i = 0; i < c->num_list; i++ ) {
+ for (i = 0; i < c->num_list; i++)
+ {
son = c->list[i];
- if ( son->which == Z_StringOrNumeric_string )
+ if ( son->which == Z_StringOrNumeric_string)
return son->u.string;
}
return 0;
}
/* Use attribute, @attr1, can be numeric or string */
-void useattr ( Z_AttributeElement *ae,
- struct attrvalues *av )
+static void useattr(Z_AttributeElement *ae, struct yaz_facet_attr *av)
{
const char *s;
- if ( ae->which == Z_AttributeValue_complex ) {
- s = stringattr( ae->value.complex );
- if (s) {
+ if (ae->which == Z_AttributeValue_complex)
+ {
+ s = stringattr(ae->value.complex);
+ if (s)
+ {
if (!av->useattr)
av->useattr = s;
- else { /* already seen one, can't have duplicates */
+ else
+ { /* already seen one, can't have duplicates */
av->errcode = YAZ_BIB1_UNSUPP_ATTRIBUTE_COMBI;
av->errstring = "multiple use attributes";
}
- } else { /* complex that did not return a string */
+ }
+ else
+ { /* complex that did not return a string */
av->errcode = YAZ_BIB1_UNSUPP_ATTRIBUTE_COMBI;
av->errstring = "non-string complex attribute";
}
- } else { /* numeric - could translate 4 to 'title' etc */
- sprintf(av->useattrbuff, ODR_INT_PRINTF, *ae->value.numeric );
+ }
+ else
+ { /* numeric - could translate 4 to 'title' etc */
+ sprintf(av->useattrbuff, ODR_INT_PRINTF, *ae->value.numeric);
av->useattr = av->useattrbuff;
}
-} /* useattr */
+}
-/* TODO rename to sortorder attr */
-void relationattr ( Z_AttributeElement *ae,
- struct attrvalues *av )
+static void numattr(Z_AttributeElement *ae, struct yaz_facet_attr *av,
+ int *v)
{
- if ( ae->which == Z_AttributeValue_numeric ) {
- if ( *ae->value.numeric == 0 )
- av->relation = "desc";
- else if ( *ae->value.numeric == 1 )
- av->relation = "asc";
- else
- if ( *ae->value.numeric == 3 ) {
- av->relation = "unknown/unordered";
- } else {
- av->errcode = YAZ_BIB1_UNSUPP_RELATION_ATTRIBUTE;
- sprintf(av->useattrbuff, ODR_INT_PRINTF,
- *ae-> attributeType);
- av->errstring = av->useattrbuff;
- }
- } else {
- av->errcode = YAZ_BIB1_UNSUPP_RELATION_ATTRIBUTE;
- av->errstring = "non-numeric relation attribute";
+ if (ae->which == Z_AttributeValue_numeric)
+ {
+ *v = *ae->value.numeric;
}
-} /* relationattr */
-
-void limitattr ( Z_AttributeElement *ae,
- struct attrvalues *av )
-{
- /* TODO - check numeric first, then value! */
- if ( ae->which == Z_AttributeValue_numeric ) {
- av->limit = *ae->value.numeric;
- } else {
+ else
+ {
av->errcode = YAZ_BIB1_UNSUPP_ATTRIBUTE;
- av->errstring = "non-numeric limit attribute";
+ av->errstring = "non-numeric limit/sort/start attribute";
}
-} /* relationattr */
+}
/* Get the index to be searched from the attributes.
@attr 1
so no need to free that string!
*/
-void facetattrs( Z_AttributeList *attributes,
- struct attrvalues *av )
+void yaz_facet_attr_get_z_attributes(const Z_AttributeList *attributes,
+ struct yaz_facet_attr *av)
{
int i;
Z_AttributeElement *ae;
- for ( i=0; i < attributes->num_attributes; i++ ) {
+ for (i = 0; i < attributes->num_attributes; i++)
+ {
ae = attributes->attributes[i];
/* ignoring the attributeSet here */
- if ( *ae->attributeType == 1 ) { /* use attribute */
+ if (*ae->attributeType == 1)
+ { /* use attribute */
useattr(ae, av);
- } else if ( *ae->attributeType == 2 ) { /* sortorder */
- relationattr(ae, av);
- } else if ( *ae->attributeType == 3 ) { /* limit */
- limitattr(ae, av);
- } else { /* unknown attribute */
+ }
+ else if (*ae->attributeType == 2)
+ {
+ numattr(ae, av, &av->sortorder);
+ }
+ else if (*ae->attributeType == 3)
+ {
+ numattr(ae, av, &av->limit);
+ }
+ else if (*ae->attributeType == 4)
+ {
+ numattr(ae, av, &av->start);
+ }
+ else
+ { /* unknown attribute */
av->errcode = YAZ_BIB1_UNSUPP_ATTRIBUTE_TYPE;
sprintf(av->useattrbuff, ODR_INT_PRINTF,
*ae-> attributeType);
av->errstring = av->useattrbuff;
- yaz_log(YLOG_DEBUG,"Unsupported attribute type %s",
- av->useattrbuff);
+ yaz_log(YLOG_WARN, "Unsupported attribute type %s",
+ av->useattrbuff);
/* would like to give a better message, but the standard */
/* tells me to return the attribute type */
}
- if ( av->errcode )
+ if (av->errcode)
return; /* no need to dig deeper, return on first error */
}
return;
-} /* facetattrs */
+}
+
+Z_FacetTerm *facet_term_create_cstr(ODR odr, const char *cstr, Odr_int freq)
+{
+ Z_FacetTerm *facet_term = odr_malloc(odr, sizeof(*facet_term));
+ Z_Term *term = z_Term_create(odr, Z_Term_general, cstr, strlen(cstr));
+ facet_term->term = term;
+ facet_term->count = odr_intdup(odr, freq);
+ return facet_term;
+}
+
+Z_FacetField* facet_field_create(ODR odr, Z_AttributeList *attributes,
+ int num_terms)
+{
+ Z_FacetField *facet_field = odr_malloc(odr, sizeof(*facet_field));
+ facet_field->attributes = attributes;
+ facet_field->num_terms = num_terms;
+ facet_field->terms = odr_malloc(odr, num_terms * sizeof(*facet_field->terms));
+ return facet_field;
+}
+
+void facet_field_term_set(ODR odr, Z_FacetField *field,
+ Z_FacetTerm *facet_term, int index)
+{
+ assert(0 <= index && index < field->num_terms);
+ field->terms[index] = facet_term;
+}
+
+Z_FacetList* facet_list_create(ODR odr, int num_facets)
+{
+ Z_FacetList *facet_list = odr_malloc(odr, sizeof(*facet_list));
+ facet_list->num = num_facets;
+ facet_list->elements =
+ odr_malloc(odr, facet_list->num * sizeof(*facet_list->elements));
+ return facet_list;
+}
+
+void facet_list_field_set(ODR odr, Z_FacetList *list, Z_FacetField *field,
+ int index)
+{
+ assert(0 <= index && index < list->num);
+ list->elements[index] = field;
+}
+
+/*
+ * Local variables:
+ * c-basic-offset: 4
+ * c-file-style: "Stroustrup"
+ * indent-tabs-mode: nil
+ * End:
+ * vim: shiftwidth=4 tabstop=8 expandtab
+ */