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

diff --git a/odr/ber_tag.c b/odr/ber_tag.c
index c5ec9eb..a0e39bb 100644
--- a/odr/ber_tag.c
+++ b/odr/ber_tag.c
@@ -4,7 +4,16 @@
  * Sebastian Hammer, Adam Dickmeiss
  *
  * $Log: ber_tag.c,v $
- * Revision 1.6  1995-02-14 11:54:33  quinn
+ * Revision 1.9  1995-03-15 08:37:18  quinn
+ * Fixed protocol bugs.
+ *
+ * Revision 1.8  1995/03/10  11:44:40  quinn
+ * Fixed serious stack-bug in odr_cons_begin
+ *
+ * Revision 1.7  1995/03/08  12:12:13  quinn
+ * Added better error checking.
+ *
+ * Revision 1.6  1995/02/14  11:54:33  quinn
  * Adjustments.
  *
  * Revision 1.5  1995/02/10  18:57:24  quinn
@@ -37,7 +46,7 @@
  *
  * Should perhaps be odr_tag?
 */
-int ber_tag(ODR o, void *p, int class, int tag, int *constructed)
+int ber_tag(ODR o, void *p, int class, int tag, int *constructed, int opt)
 {
     static int lclass = -1, ltag, br, lcons; /* save t&c rather than
 						decoding twice */
@@ -51,32 +60,48 @@ int ber_tag(ODR o, void *p, int class, int tag, int *constructed)
     {
     	o->bp = o->buf;
     	lclass = -1;
+	if (o->direction == ODR_ENCODE)
+	    o->left = o->buflen;
     }
     switch (o->direction)
     {
     	case ODR_ENCODE:
 	    if (!*pp)
+	    {
+	    	if (!opt)
+		    o->error = OREQUIRED;
 	    	return 0;
+	    }
 	    if ((rd = ber_enctag(o->bp, class, tag, *constructed, o->left))
 		<=0)
+	    {
+	    	o->error = OSPACE;
 		return -1;
+	    }
 	    o->bp += rd;
 	    o->left -= rd;
 #ifdef ODR_DEBUG
-	    fprintf(stderr, "\n[class=%d,tag=%d,cons=%d]", class, tag,
-		*constructed);
+	    fprintf(stderr, "\n[class=%d,tag=%d,cons=%d,stackp=%d,left=%d]", class, tag,
+		*constructed, o->stackp, o->left);
 #endif
 	    return 1;
     	case ODR_DECODE:
 	    if (o->stackp > -1 && !odr_constructed_more(o))
+	    {
+	    	if (!opt)
+		    o->error = OREQUIRED;
 	    	return 0;
+	    }
 	    if (lclass < 0)
 	    {
 	    	if ((br = ber_dectag(o->bp, &lclass, &ltag, &lcons)) <= 0)
+		{
+		    o->error = OPROTO;
 		    return 0;
+		}
 #ifdef ODR_DEBUG
-		fprintf(stderr, "\n[class=%d,tag=%d,cons=%d]", lclass, ltag,
-		    lcons);
+		fprintf(stderr, "\n[class=%d,tag=%d,cons=%d,stackp=%d]", lclass, ltag,
+		    lcons, o->stackp);
 #endif
 	    }
 	    if (class == lclass && tag == ltag)
@@ -88,9 +113,16 @@ int ber_tag(ODR o, void *p, int class, int tag, int *constructed)
 	    	return 1;
 	    }
 	    else
+	    {
+	    	if (!opt)
+		    o->error = OREQUIRED;
 	    	return 0;
-    	case ODR_PRINT: return *pp != 0;
-    	default: return 0;
+	    }
+    	case ODR_PRINT:
+		if (!*pp && !opt)
+		    o->error = OREQUIRED;
+		return *pp != 0;
+    	default: o->error = OOTHER; return 0;
     }
 }