From: Sebastian Hammer <quinn@indexdata.com>
Date: Mon, 6 Feb 1995 16:44:47 +0000 (+0000)
Subject: First hack at Z/SR protocol
X-Git-Tag: YAZ.1.8~1169
X-Git-Url: http://jsfdemo.indexdata.com/?a=commitdiff_plain;h=d092115aeed58ef669c42c9b6d013c424b26684c;p=yaz-moved-to-github.git

First hack at Z/SR protocol
---

diff --git a/asn/proto.c b/asn/proto.c
new file mode 100644
index 0000000..dd40eb6
--- /dev/null
+++ b/asn/proto.c
@@ -0,0 +1,128 @@
+/*
+ * Copyright (C) 1994, Index Data I/S 
+ * All rights reserved.
+ * Sebastian Hammer, Adam Dickmeiss
+ *
+ * $Log: proto.c,v $
+ * Revision 1.1  1995-02-06 16:44:47  quinn
+ * First hack at Z/SR protocol
+ *
+ */
+
+#include <odr.h>
+
+#include <proto.h>
+
+int z_ReferenceId(ODR o, Z_ReferenceId **p, int opt)
+{
+    return odr_implicit(o, odr_octetstring, (Odr_oct**) p, ODR_CONTEXT, 2, opt);
+}
+
+int z_DatabaseName(Odr o, Z_DatabaseName **p, int opt)
+{
+    return odr_implicit(o, odr_visiblestring, (char **) p, ODR_CONTEXT, 105,
+	opt);
+}
+
+int z_InitRequest(ODR o, Z_InitRequest **p, int opt)
+{
+    Z_InitRequest *pp;
+
+    if (!odr_sequence_begin(o, p, sizeof(**p)))
+    	return opt;
+    pp = *p;
+    return
+    	z_ReferenceId(o, &pp->referenceId, 1) &&
+    	odr_implicit(o, odr_bitstring, &pp->protocolVersion, ODR_CONTEXT, 
+	    3, 0) &&
+	odr_implicit(o, odr_bitstring, &pp->options, ODR_CONTEXT, 4, 0) &&
+	odr_implicit(o, odr_integer, &pp->preferredMessageSize, ODR_CONTEXT,
+	    5, 0) &&
+	odr_implicit(o, odr_integer, &pp->maximumRecordSize, ODR_CONTEXT,
+	    6, 0) &&
+	odr_implicit(o, odr_visiblestring, &pp->idAuthentication, ODR_CONTEXT,
+	    7, 1) &&
+	odr_implicit(o, odr_visiblestring, &pp->implementationId, ODR_CONTEXT,
+	    110, 1) &&
+	odr_implicit(o, odr_visiblestring, &pp->implementationName, ODR_CONTEXT,
+	    111, 1) &&
+	odr_implicit(o, odr_visiblestring, &pp->implementationVersion,
+	    ODR_CONTEXT, 112, 1) &&
+	odr_sequence_end(o);
+}
+
+int z_InitResponse(ODR o, Z_InitResponse **p, int opt)
+{
+    Z_InitResponse *pp;
+
+    if (!odr_sequence_begin(o, p, sizeof(**p)))
+    	return opt;
+    pp = *p;
+    return
+    	z_ReferenceId(o, &pp->referenceId, 1) &&
+    	odr_implicit(o, odr_bitstring, &pp->protocolVersion, ODR_CONTEXT, 
+	    3, 0) &&
+	odr_implicit(o, odr_bitstring, &pp->options, ODR_CONTEXT, 4, 0) &&
+	odr_implicit(o, odr_integer, &pp->preferredMessageSize, ODR_CONTEXT,
+	    5, 0) &&
+	odr_implicit(o, odr_integer, &pp->maximumRecordSize, ODR_CONTEXT,
+	    6, 0) &&
+	odr_implicit(o, odr_bool, &pp->result, ODR_CONTEXT, 12, 0) &&
+	odr_implicit(o, odr_visiblestring, &pp->idAuthentication, ODR_CONTEXT,
+	    7, 1) &&
+	odr_implicit(o, odr_visiblestring, &pp->implementationId, ODR_CONTEXT,
+	    110, 1) &&
+	odr_implicit(o, odr_visiblestring, &pp->implementationName, ODR_CONTEXT,
+	    111, 1) &&
+	odr_implicit(o, odr_visiblestring, &pp->implementationVersion,
+	    ODR_CONTEXT, 112, 1) &&
+	odr_sequence_end(o);
+}
+
+int z_SearchRequest(ODR o, Z_SearchRequest **p, int opt)
+{
+    Z_SearchRequest *pp;
+
+    if (!odr_sequence_begin(o, p, sizeof(**p)))
+    	return opt;
+    pp = *p;
+    return
+    	z_ReferenceId(o, &pp->referenceId, 1) &&
+    	odr_implicit(o, odr_integer, &pp->smallSetUpperBound, ODR_CONTEXT,
+	    13, 0) &&
+	odr_implicit(o, odr_integer, &pp->largeSetLowerBound, ODR_CONTEXT,
+	    14, 0) &&
+	odr_implicit(o, odr_integer, &pp->mediumSetPresentNumber, ODR_CONTEXT,
+	    15, 0) &&
+	odr_implicit(o, odr_bool, &pp->replaceIndicator, ODR_CONTEXT, 16, 1) &&
+	odr_implicit(o, odr_visiblestring, &pp->resultSetName, ODR_CONTEXT,
+	    17, 9) &&
+
+        /* MORE */
+
+	odr_sequence_end(o);
+}
+
+int z_APDU(ODR o, Z_APDU **p, int opt)
+{
+    static Odr_arm arm[] =
+    {
+    	{ODR_IMPLICIT, ODR_CONTEXT, 20, Z_APDU_InitRequest, z_InitRequest},
+    	{ODR_IMPLICIT, ODR_CONTEXT, 21, Z_APDU_InitResponse, z_InitResponse},
+    	{ODR_IMPLICIT, ODR_CONTEXT, 22, Z_APDU_SearchRequest, z_SearchRequest},
+
+    	{-1, -1, -1, -1, 0}
+    };
+
+    if (o->direction == ODR_DECODE && !*p)
+    	*p = nalloc(o, sizeof(**p));
+    if (!odr_choice(o, arm, &(*p)->u, &(*p)->which))
+    {
+    	if (o->direction == ODR_DECODE)
+    	{
+	    *p = 0;
+	    return opt;
+	}
+    }
+    return 1;
+}