X-Git-Url: http://git.indexdata.com/?a=blobdiff_plain;f=odr%2Fber_tag.c;h=de1ad361af83513eef89803749fe0b25e68b46b8;hb=5e46e56c425c46bad6cef226669767de3a990f9e;hp=a0e39bbdc072a53ccd87223f2374b1dc23c43586;hpb=adc5e45a46d9ce4f73370332f6e4c2f81c1d36fe;p=yaz-moved-to-github.git

diff --git a/odr/ber_tag.c b/odr/ber_tag.c
index a0e39bb..de1ad36 100644
--- a/odr/ber_tag.c
+++ b/odr/ber_tag.c
@@ -1,10 +1,26 @@
 /*
- * Copyright (C) 1994, Index Data I/S 
- * All rights reserved.
+ * Copyright (c) 1995, Index Data
+ * See the file LICENSE for details.
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: ber_tag.c,v $
- * Revision 1.9  1995-03-15 08:37:18  quinn
+ * Revision 1.14  1997-05-14 06:53:56  adam
+ * C++ support.
+ *
+ * Revision 1.13  1995/09/29 17:12:21  quinn
+ * Smallish
+ *
+ * Revision 1.12  1995/09/27  15:02:57  quinn
+ * Modified function heads & prototypes.
+ *
+ * Revision 1.11  1995/05/16  08:50:48  quinn
+ * License, documentation, and memory fixes
+ *
+ * Revision 1.10  1995/04/18  08:15:18  quinn
+ * Added dynamic memory allocation on encoding (whew). Code is now somewhat
+ * neater. We'll make the same change for decoding one day.
+ *
+ * Revision 1.9  1995/03/15  08:37:18  quinn
  * Fixed protocol bugs.
  *
  * Revision 1.8  1995/03/10  11:44:40  quinn
@@ -41,12 +57,12 @@
  *	if  p: write tag. return 1 (success) or -1 (error).
  *	if !p: return 0.
  * On decoding:
- *      if tag && class match up, advance pointer and return 1. set cons.
+ *      if tag && zclass match up, advance pointer and return 1. set cons.
  *      else leave pointer unchanged. Return 0.
  *
  * Should perhaps be odr_tag?
 */
-int ber_tag(ODR o, void *p, int class, int tag, int *constructed, int opt)
+int ber_tag(ODR o, void *p, int zclass, int tag, int *constructed, int opt)
 {
     static int lclass = -1, ltag, br, lcons; /* save t&c rather than
 						decoding twice */
@@ -58,10 +74,10 @@ int ber_tag(ODR o, void *p, int class, int tag, int *constructed, int opt)
     o->t_class = -1;
     if (o->stackp < 0)
     {
+    	odr_seek(o, ODR_S_SET, 0);
+	o->ecb.top = 0;
     	o->bp = o->buf;
     	lclass = -1;
-	if (o->direction == ODR_ENCODE)
-	    o->left = o->buflen;
     }
     switch (o->direction)
     {
@@ -72,17 +88,11 @@ int ber_tag(ODR o, void *p, int class, int tag, int *constructed, int opt)
 		    o->error = OREQUIRED;
 	    	return 0;
 	    }
-	    if ((rd = ber_enctag(o->bp, class, tag, *constructed, o->left))
-		<=0)
-	    {
-	    	o->error = OSPACE;
+	    if ((rd = ber_enctag(o, zclass, tag, *constructed)) < 0)
 		return -1;
-	    }
-	    o->bp += rd;
-	    o->left -= rd;
 #ifdef ODR_DEBUG
-	    fprintf(stderr, "\n[class=%d,tag=%d,cons=%d,stackp=%d,left=%d]", class, tag,
-		*constructed, o->stackp, o->left);
+	    fprintf(stderr, "\n[class=%d,tag=%d,cons=%d,stackp=%d]", zclass, tag,
+		*constructed, o->stackp);
 #endif
 	    return 1;
     	case ODR_DECODE:
@@ -104,7 +114,7 @@ int ber_tag(ODR o, void *p, int class, int tag, int *constructed, int opt)
 		    lcons, o->stackp);
 #endif
 	    }
-	    if (class == lclass && tag == ltag)
+	    if (zclass == lclass && tag == ltag)
 	    {
 	    	o->bp += br;
 	    	o->left -= br;
@@ -127,46 +137,54 @@ int ber_tag(ODR o, void *p, int class, int tag, int *constructed, int opt)
 }
 
 /* ber_enctag
- * BER-encode a class/tag/constructed package (identifier octets). Return
+ * BER-encode a zclass/tag/constructed package (identifier octets). Return
  * number of bytes encoded, or -1 if out of bounds.
  */
-int ber_enctag(unsigned char *buf, int class, int tag, int constructed, int len)
+int ber_enctag(ODR o, int zclass, int tag, int constructed)
 {
     int cons = (constructed ? 1 : 0), n = 0;
-    unsigned char octs[sizeof(int)], *b = buf;
+    unsigned char octs[sizeof(int)], b;
 
-    *b = (class << 6) & 0XC0;
-    *b |= (cons << 5) & 0X20;
+    b = (zclass << 6) & 0XC0;
+    b |= (cons << 5) & 0X20;
     if (tag <= 30)
     {
-    	*b |= tag & 0X1F;
+    	b |= tag & 0X1F;
+	if (odr_putc(o, b) < 0)
+	    return -1;
     	return 1;
     }
     else
     {
-	*(b++) |= 0x1F;
+	b |= 0X1F;
+	if (odr_putc(o, b) < 0)
+	    return -1;
 	do
     	{
 	    octs[n++] = tag & 0X7F;
 	    tag >>= 7;
-	    if (n >= len) /* bounds check */
-	    	return -1;
 	}
 	while (tag);
 	while (n--)
-	    *(b++) = octs[n] | ((n > 0) << 7);
-	return b - buf;
+	{
+	    unsigned char oo;
+
+	    oo = octs[n] | ((n > 0) << 7);
+	    if (odr_putc(o, oo) < 0)
+	    	return -1;
+	}
+	return 0;
     }
 }
 
 /* ber_dectag
  * Decode BER identifier octets. Return number of bytes read or -1 for error.
  */
-int ber_dectag(unsigned char *buf, int *class, int *tag, int *constructed)
+int ber_dectag(unsigned char *buf, int *zclass, int *tag, int *constructed)
 {
     unsigned char *b = buf;
 
-    *class = *b >> 6;
+    *zclass = *b >> 6;
     *constructed = (*b >> 5) & 0X01;
     if ((*tag = *b & 0x1F) <= 30)
     	return 1;