New sub directory zutil. Moved YAZ Compiler to be part of YAZ tree.

[yaz-moved-to-github.git] / zutil / otherinfo.c

diff --git a/zutil/otherinfo.c b/zutil/otherinfo.c
new file mode 100644 (file)
index 0000000..29aa036
--- /dev/null
+++ b/zutil/otherinfo.c
@@ -0,0 +1,180 @@
+/*
+ * Copyright (c) 1999, Index Data
+ * See the file LICENSE for details.
+ * Sebastian Hammer, Adam Dickmeiss
+ *
+ * $Log: otherinfo.c,v $
+ * Revision 1.1  1999-06-08 10:10:16  adam
+ * New sub directory zutil. Moved YAZ Compiler to be part of YAZ tree.
+ *
+ * Revision 1.1  1999/04/26 07:25:25  adam
+ * Implemented OtherInfo utility.
+ *
+ */
+
+#include <stdio.h>
+#include <string.h>
+
+#include <otherinfo.h>
+
+void yaz_oi_APDU(Z_APDU *apdu, Z_OtherInformation ***oip)
+{
+    switch (apdu->which)
+    {
+    case Z_APDU_initRequest:
+       *oip = &apdu->u.initRequest->otherInfo;
+       break;
+    case Z_APDU_searchRequest:
+       *oip = &apdu->u.searchRequest->otherInfo;
+       break;
+    case Z_APDU_presentRequest:
+       *oip = &apdu->u.presentRequest->otherInfo;
+       break;
+    case Z_APDU_sortRequest:
+       *oip = &apdu->u.sortRequest->otherInfo;
+       break;
+    case Z_APDU_scanRequest:
+       *oip = &apdu->u.scanRequest->otherInfo;
+       break;
+    case Z_APDU_initResponse:
+       *oip = &apdu->u.initResponse->otherInfo;
+       break;
+    case Z_APDU_searchResponse:
+       *oip = &apdu->u.searchResponse->otherInfo;
+       break;
+    case Z_APDU_presentResponse:
+       *oip = &apdu->u.presentResponse->otherInfo;
+       break;
+    case Z_APDU_sortResponse:
+       *oip = &apdu->u.sortResponse->otherInfo;
+       break;
+    case Z_APDU_scanResponse:
+       *oip = &apdu->u.scanResponse->otherInfo;
+       break;
+    default:
+       *oip = 0;
+       break;
+    }
+}
+
+Z_OtherInformationUnit *yaz_oi_update (
+    Z_OtherInformation **otherInformationP, ODR odr,
+    int *oid, int categoryValue)
+{
+    int i;
+    Z_OtherInformation *otherInformation = *otherInformationP;
+    if (!otherInformation)
+    {
+       if (!odr)
+           return 0;
+       otherInformation = *otherInformationP = (Z_OtherInformation *)
+           odr_malloc (odr, sizeof(*otherInformation));
+       otherInformation->num_elements = 0;
+       otherInformation->list = 0;
+    }
+    for (i = 0; i<otherInformation->num_elements; i++)
+    {
+       if (!oid)
+       {
+           if (!otherInformation->list[i]->category)
+               return otherInformation->list[i];
+       }
+       else
+       {
+           if (otherInformation->list[i]->category &&
+               categoryValue ==
+               *otherInformation->list[i]->category->categoryValue &&
+               !oid_oidcmp (oid, otherInformation->list[i]->category->
+                            categoryTypeId))
+               return otherInformation->list[i];
+       }
+    }
+    if (!odr)
+       return 0;
+    else
+    {
+       Z_OtherInformationUnit **newlist = (Z_OtherInformationUnit**)
+           odr_malloc(odr, otherInformation->num_elements+1 *
+                      sizeof(*newlist));
+       for (i = 0; i<otherInformation->num_elements; i++)
+           newlist[i] = otherInformation->list[i];
+       otherInformation->list = newlist;
+       
+       otherInformation->list[i] = (Z_OtherInformationUnit*)
+           odr_malloc (odr, sizeof(Z_OtherInformationUnit));
+       if (oid)
+       {
+           otherInformation->list[i]->category = (Z_InfoCategory*)
+               odr_malloc (odr, sizeof(Z_InfoCategory));
+           otherInformation->list[i]->category->categoryTypeId = (int*)
+               odr_oiddup (odr, oid);
+           otherInformation->list[i]->category->categoryValue = (int*)
+               odr_malloc (odr, sizeof(int));
+           *otherInformation->list[i]->category->categoryValue =
+               categoryValue;
+       }
+       else
+           otherInformation->list[i]->category = 0;
+       otherInformation->list[i]->which = Z_OtherInfo_characterInfo;
+       otherInformation->list[i]->information.characterInfo = 0;
+       
+       otherInformation->num_elements = i+1;
+       return otherInformation->list[i];
+    }
+}
+
+void yaz_oi_set_string_oid (
+    Z_OtherInformation **otherInformation, ODR odr,
+    int *oid, int categoryValue,
+    const char *str)
+{
+    Z_OtherInformationUnit *oi =
+       yaz_oi_update(otherInformation, odr, oid, categoryValue);
+    if (!oi)
+       return;
+    oi->which = Z_OtherInfo_characterInfo;
+    oi->information.characterInfo = odr_strdup (odr, str);
+}
+
+void yaz_oi_set_string_oidval (
+    Z_OtherInformation **otherInformation, ODR odr,
+    int oidval, int categoryValue,
+    const char *str)
+{
+    int oid[OID_SIZE];
+    struct oident ent;
+    ent.proto = PROTO_Z3950;
+    ent.oclass = CLASS_USERINFO;
+    ent.value = (oid_value) oidval;
+    if (!oid_ent_to_oid (&ent, oid))
+       return ;
+    yaz_oi_set_string_oid(otherInformation,
+                         odr, oid, categoryValue, str);
+}
+
+char *yaz_oi_get_string_oid (
+    Z_OtherInformation **otherInformation,
+    int *oid, int categoryValue)
+{
+    Z_OtherInformationUnit *oi;
+    
+    if ((oi = yaz_oi_update(otherInformation, 0, oid, 1)) &&
+       oi->which == Z_OtherInfo_characterInfo)
+       return oi->information.characterInfo;
+    return 0;
+}
+
+char *yaz_oi_get_string_oidval(Z_OtherInformation **otherInformation,
+                               int oidval, int categoryValue)    
+{
+    int oid[OID_SIZE];
+    struct oident ent;
+    ent.proto = PROTO_Z3950;
+    ent.oclass = CLASS_USERINFO;
+    ent.value = (oid_value) oidval;
+
+    if (!oid_ent_to_oid (&ent, oid))
+       return 0;
+    return yaz_oi_get_string_oid (otherInformation, oid, categoryValue);
+}
+