X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=asn%2Fprt-exd.c;h=d32228b3dbbe7c6e08f04ba022fc22eeed9f18d6;hb=1f6254e4d56700f2862a549a77daeb6c22d1f8d4;hp=0508f179a811321218d80526c853f7d8c6f918bc;hpb=657fb99115b87a5244e9a33bbe4ca3d9d18849c4;p=yaz-moved-to-github.git

diff --git a/asn/prt-exd.c b/asn/prt-exd.c
index 0508f17..d32228b 100644
--- a/asn/prt-exd.c
+++ b/asn/prt-exd.c
@@ -1,10 +1,22 @@
 /*
- * Copyright (c) 1995, Index Data.
+ * Copyright (c) 1995-1998, Index Data.
  * See the file LICENSE for details.
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: prt-exd.c,v $
- * Revision 1.2  1995-09-27 15:02:41  quinn
+ * Revision 1.6  1998-01-05 09:04:57  adam
+ * Fixed bugs in encoders/decoders - Not operator (!) missing.
+ *
+ * Revision 1.5  1997/04/30 08:52:02  quinn
+ * Null
+ *
+ * Revision 1.4  1996/10/10  12:35:12  quinn
+ * Added Update extended service.
+ *
+ * Revision 1.3  1995/09/29  17:11:54  quinn
+ * Smallish
+ *
+ * Revision 1.2  1995/09/27  15:02:41  quinn
  * Modified function heads & prototypes.
  *
  * Revision 1.1  1995/08/21  09:16:32  quinn
@@ -15,7 +27,7 @@
 
 #include <proto.h>
 
-int MDF z_TaskPackage(ODR o, Z_TaskPackage **p, int opt)
+int z_TaskPackage(ODR o, Z_TaskPackage **p, int opt)
 {
     if (!odr_sequence_begin(o, p, sizeof(**p)))
         return opt && odr_ok(o);
@@ -175,7 +187,7 @@ int z_IOTaskPackage(ODR o, Z_IOTaskPackage **p, int opt)
 	odr_sequence_end(o);
 }
 
-int MDF z_ItemOrder(ODR o, Z_ItemOrder **p, int opt)
+int z_ItemOrder(ODR o, Z_ItemOrder **p, int opt)
 {
     static Odr_arm arm[] =
     {
@@ -194,3 +206,169 @@ int MDF z_ItemOrder(ODR o, Z_ItemOrder **p, int opt)
     *p = 0;
     return opt && odr_ok(o);
 }
+
+/* ----------------------- ITEM UPDATE -------------------- */
+
+int z_IUSuppliedRecordsId (ODR o, Z_IUSuppliedRecordsId **p, int opt)
+{
+    static Odr_arm arm[] = {
+        {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_IUSuppliedRecordsId_timeStamp,
+         odr_generalizedtime},
+        {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_IUSuppliedRecordsId_versionNumber,
+         z_InternationalString},
+        {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_IUSuppliedRecordsId_previousVersion,
+         odr_external},
+        {-1, -1, -1, -1, 0}
+    };
+    if (!odr_initmember(o, p, sizeof(**p)))
+        return opt && odr_ok(o);
+    if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
+        return 1;
+    *p = 0;
+    return opt && odr_ok(o);
+}
+
+int z_IUCorrelationInfo (ODR o, Z_IUCorrelationInfo **p, int opt)
+{
+    if (!odr_sequence_begin (o, p, sizeof(**p)))
+        return opt && odr_ok (o);
+    return
+        odr_implicit (o, z_InternationalString,
+            &(*p)->note, ODR_CONTEXT, 1, 1) &&
+        odr_implicit (o, odr_integer,
+            &(*p)->id, ODR_CONTEXT, 2, 1) &&
+        odr_sequence_end (o);
+}
+
+int z_IUSuppliedRecords_elem (ODR o, Z_IUSuppliedRecords_elem **p, int opt)
+{
+    static Odr_arm arm[] = {
+        {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_IUSuppliedRecords_number,
+         odr_integer},
+        {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_IUSuppliedRecords_string,
+         z_InternationalString},
+        {ODR_IMPLICIT, ODR_CONTEXT, 3, Z_IUSuppliedRecords_opaque,
+         odr_octetstring},
+        {-1, -1, -1, -1, 0}
+    };
+    if (!odr_sequence_begin (o, p, sizeof(**p)))
+        return opt && odr_ok (o);
+    return
+        ((odr_constructed_begin (o, &(*p)->u, ODR_CONTEXT, 1) &&
+        odr_choice (o, arm, &(*p)->u, &(*p)->which) &&
+        odr_constructed_end (o)) || odr_ok(o)) &&
+        odr_explicit (o, z_IUSuppliedRecordsId,
+            &(*p)->supplementalId, ODR_CONTEXT, 2, 1) &&
+        odr_implicit (o, z_IUCorrelationInfo,
+            &(*p)->correlationInfo, ODR_CONTEXT, 3, 1) &&
+        odr_implicit (o, odr_external,
+            &(*p)->record, ODR_CONTEXT, 4, 0) &&
+        odr_sequence_end (o);
+}
+
+int z_IUSuppliedRecords (ODR o, Z_IUSuppliedRecords **p, int opt)
+{
+    if (!odr_initmember (o, p, sizeof(**p)))
+        return opt && odr_ok(o);
+    if (odr_sequence_of (o, z_IUSuppliedRecords_elem, &(*p)->elements,
+        &(*p)->num))
+        return 1;
+    *p = 0;
+    return opt && odr_ok(o);
+}
+
+int z_IUTaskPackageRecordStructure (ODR o, Z_IUTaskPackageRecordStructure **p,
+    int opt)
+{
+    static Odr_arm arm[] = {
+        {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_IUTaskPackageRecordStructure_record,
+         odr_external},
+        {ODR_EXPLICIT, ODR_CONTEXT, 2, Z_IUTaskPackageRecordStructure_diagnostic,
+         z_DiagRec},
+        {-1, -1, -1, -1, 0}
+    };
+    if (!odr_sequence_begin (o, p, sizeof(**p)))
+        return opt && odr_ok (o);
+    return
+        ((odr_constructed_begin (o, &(*p)->u, ODR_CONTEXT, 1) &&
+        odr_choice (o, arm, &(*p)->u, &(*p)->which) &&
+        odr_constructed_end (o)) || odr_ok(o)) &&
+        odr_implicit (o, z_IUCorrelationInfo,
+            &(*p)->correlationInfo, ODR_CONTEXT, 2, 1) &&
+        odr_implicit (o, odr_integer,
+            &(*p)->recordStatus, ODR_CONTEXT, 3, 0) &&
+        odr_sequence_end (o);
+}
+
+int z_IUOriginPartToKeep (ODR o, Z_IUOriginPartToKeep **p, int opt)
+{
+    if (!odr_sequence_begin (o, p, sizeof(**p)))
+        return opt && odr_ok (o);
+    return
+        odr_implicit (o, odr_integer,
+            &(*p)->action, ODR_CONTEXT, 1, 0) &&
+        odr_implicit (o, z_InternationalString,
+            &(*p)->databaseName, ODR_CONTEXT, 2, 0) &&
+        odr_implicit (o, odr_oid,
+            &(*p)->schema, ODR_CONTEXT, 3, 1) &&
+        odr_implicit (o, z_InternationalString,
+            &(*p)->elementSetName, ODR_CONTEXT, 4, 1) &&
+        odr_sequence_end (o);
+}
+
+int z_IUTargetPart (ODR o, Z_IUTargetPart **p, int opt)
+{
+    if (!odr_sequence_begin (o, p, sizeof(**p)))
+        return opt && odr_ok (o);
+    return
+        odr_implicit (o, odr_integer,
+            &(*p)->updateStatus, ODR_CONTEXT, 1, 0) &&
+        odr_implicit_settag (o, ODR_CONTEXT, 2) &&
+        (odr_sequence_of(o, z_DiagRec, &(*p)->globalDiagnostics,
+          &(*p)->num_globalDiagnostics) || odr_ok(o)) &&
+        odr_implicit_settag (o, ODR_CONTEXT, 3) &&
+        odr_sequence_of(o, z_IUTaskPackageRecordStructure, &(*p)->taskPackageRecords,
+          &(*p)->num_taskPackageRecords) &&
+        odr_sequence_end (o);
+}
+
+int z_IUUpdateEsRequest (ODR o, Z_IUUpdateEsRequest **p, int opt)
+{
+    if (!odr_sequence_begin (o, p, sizeof(**p)))
+        return opt && odr_ok (o);
+    return
+        odr_explicit (o, z_IUOriginPartToKeep,
+            &(*p)->toKeep, ODR_CONTEXT, 1, 0) &&
+        odr_explicit (o, z_IUSuppliedRecords,
+            &(*p)->notToKeep, ODR_CONTEXT, 2, 0) &&
+        odr_sequence_end (o);
+}
+
+int z_IUUpdateTaskPackage (ODR o, Z_IUUpdateTaskPackage **p, int opt)
+{
+    if (!odr_sequence_begin (o, p, sizeof(**p)))
+        return opt && odr_ok (o);
+    return
+        odr_explicit (o, z_IUOriginPartToKeep,
+            &(*p)->originPart, ODR_CONTEXT, 1, 0) &&
+        odr_explicit (o, z_IUTargetPart,
+            &(*p)->targetPart, ODR_CONTEXT, 2, 0) &&
+        odr_sequence_end (o);
+}
+
+int z_IUUpdate (ODR o, Z_IUUpdate **p, int opt)
+{
+    static Odr_arm arm[] = {
+        {ODR_IMPLICIT, ODR_CONTEXT, 1, Z_IUUpdate_esRequest,
+         z_IUUpdateEsRequest},
+        {ODR_IMPLICIT, ODR_CONTEXT, 2, Z_IUUpdate_taskPackage,
+         z_IUUpdateTaskPackage},
+        {-1, -1, -1, -1, 0}
+    };
+    if (!odr_initmember(o, p, sizeof(**p)))
+        return opt && odr_ok(o);
+    if (odr_choice(o, arm, &(*p)->u, &(*p)->which))
+        return 1;
+    *p = 0;
+    return opt && odr_ok(o);
+}