+static SV *f_FacetField_to_SV(Z_FacetField *facet_field)
+{
+ HV *hv;
+ AV *av;
+ SV *terms;
+ int i;
+ SV *sv = newObject("Net::Z3950::FacetField", (SV *) (hv = newHV()));
+ if (facet_field->attributes) {
+ setMember(hv, "attributes",
+ attributes2perl(facet_field->attributes));
+ }
+ terms = newObject("Net::Z3950::FacetTerms", (SV *) (av = newAV()));
+
+ for (i = 0; i < facet_field->num_terms; i++) {
+ SV *sv_count = newSViv(*facet_field->terms[i]->count);
+ SV *sv_term = f_Term_to_SV(facet_field->terms[i]->term, 0);
+ SV *tmp = newObject("Net::Z3950::FacetTerm", (SV *) (hv = newHV()));
+
+ setMember(hv, "count", sv_count);
+ setMember(hv, "term", sv_term);
+
+ av_push(av, tmp);
+ }
+ setMember(hv, "terms", terms);
+ return sv;
+}
+
+static SV *f_FacetList_to_SV(Z_FacetList *facet_list)
+{
+ SV *sv = 0;
+ if (facet_list) {
+ AV *av;
+ int i;
+ sv = newObject("Net::Z3950::FacetList", (SV *) (av = newAV()));
+
+ for (i = 0; i < facet_list->num; i++) {
+ SV *sv = f_FacetField_to_SV(facet_list->elements[i]);
+ av_push(av, sv);
+ }
+ }
+ return sv;
+}
+
+
+static void f_SV_to_FacetField(HV *facet_field_hv, Z_FacetField **fl, ODR odr)
+{
+ int i;
+ int num_terms, num_attributes;
+ SV **temp;
+ Z_AttributeList *attributes = odr_malloc(odr, sizeof(*attributes));
+
+ AV *sv_terms, *sv_attributes;
+ printf("facet_field=%p\n", facet_field_hv);
+
+ temp = hv_fetch(facet_field_hv, "attributes", 10, 1);
+ sv_attributes = (AV *) SvRV(*temp);
+ num_attributes = av_len(sv_attributes) + 1;
+ printf(" attributes length=%d\n", num_attributes);
+ attributes->num_attributes = num_attributes;
+ attributes->attributes = (Z_AttributeElement **)
+ odr_malloc(odr, sizeof(*attributes->attributes) * num_attributes);
+
+ for (i = 0; i < num_attributes; i++) {
+ HV *hv_elem = (HV*) SvRV(sv_2mortal(av_shift(sv_attributes)));
+ Z_AttributeElement *elem;
+ elem = (Z_AttributeElement *) odr_malloc(odr, sizeof(*elem));
+ attributes->attributes[i] = elem;
+
+ elem->attributeSet = 0;
+
+ temp = hv_fetch(hv_elem, "attributeType", 13, 1);
+ elem->attributeType = odr_intdup(odr, SvIV(*temp));
+
+ temp = hv_fetch(hv_elem, "attributeValue", 14, 1);
+
+ if (SvIOK(*temp)) {
+ elem->which = Z_AttributeValue_numeric;
+ elem->value.numeric = odr_intdup(odr, SvIV(*temp));
+ } else {
+ STRLEN s_len;
+ char *s_buf = SvPV(*temp, s_len);
+ Z_ComplexAttribute *c = odr_malloc(odr, sizeof *c);
+ elem->which = Z_AttributeValue_complex;
+ elem->value.complex = c;
+
+ c->num_list = 1;
+ c->list = (Z_StringOrNumeric **) odr_malloc(odr,
+ sizeof(*c->list));
+ c->list[0] = (Z_StringOrNumeric *) odr_malloc(odr,
+ sizeof(**c->list));
+ c->list[0]->which = Z_StringOrNumeric_string;
+ c->list[0]->u.string = odr_malloc(odr, s_len + 1);
+ memcpy(c->list[0]->u.string, s_buf, s_len);
+ c->list[0]->u.string[s_len] = '\0';
+ c->num_semanticAction = 0;
+ c->semanticAction = 0;
+ }
+ hv_undef(hv_elem);
+ }
+
+ temp = hv_fetch(facet_field_hv, "terms", 5, 1);
+ sv_terms = (AV *) SvRV(*temp);
+ num_terms = av_len(sv_terms) + 1;
+ printf(" terms length=%d\n", num_terms);
+ *fl = facet_field_create(odr, attributes, num_terms);
+ for (i = 0; i < num_terms; i++) {
+ STRLEN s_len;
+ char *s_buf;
+ HV *hv_elem = (HV*) SvRV(sv_2mortal(av_shift(sv_terms)));
+
+ Z_FacetTerm *facet_term =
+ (Z_FacetTerm *) odr_malloc(odr, sizeof(*facet_term));
+ (*fl)->terms[i] = facet_term;
+
+ temp = hv_fetch(hv_elem, "count", 5, 1);
+ facet_term->count = odr_intdup(odr, SvIV(*temp));
+
+
+
+ temp = hv_fetch(hv_elem, "term", 4, 1);
+
+ s_buf = SvPV(*temp, s_len);
+ facet_term->term = z_Term_create(odr, Z_Term_general, s_buf, s_len);
+ hv_under(hv_elem);
+ }
+
+}
+
+static void f_SV_to_FacetList(SV *sv, Z_OtherInformation **oip, ODR odr)
+{
+ AV *entries = (AV *) SvRV(sv);
+ int num_facets;
+ if (SvTYPE(entries) == SVt_PVAV && (num_facets = av_len(entries) + 1) > 0)
+ {
+ int i;
+ Z_FacetList *facet_list = facet_list_create(odr, num_facets);
+ for (; i < num_facets; i++) {
+ HV *facet_field = (HV*) SvRV(sv_2mortal(av_shift(entries)));
+ f_SV_to_FacetField(facet_field, &facet_list->elements[i], odr);
+
+ hv_undef(facet_field);
+ }
+ Z_OtherInformation *oi = odr_malloc(odr, sizeof(*oi));
+ Z_OtherInformationUnit *oiu = odr_malloc(odr, sizeof(*oiu));
+ oi->num_elements = 1;
+ oi->list = odr_malloc(odr, oi->num_elements * sizeof(*oi->list));
+ oiu->category = 0;
+ oiu->which = Z_OtherInfo_externallyDefinedInfo;
+ oiu->information.externallyDefinedInfo = odr_malloc(odr, sizeof(*oiu->information.externallyDefinedInfo));
+ oiu->information.externallyDefinedInfo->direct_reference = odr_oiddup(odr, yaz_oid_userinfo_facet_1);
+ oiu->information.externallyDefinedInfo->descriptor = 0;
+ oiu->information.externallyDefinedInfo->indirect_reference = 0;
+ oiu->information.externallyDefinedInfo->which = Z_External_userFacets;
+ oiu->information.externallyDefinedInfo->u.facetList = facet_list;
+ oi->list[0] = oiu;
+ *oip = oi;
+ }
+}