X-Git-Url: http://git.indexdata.com/?p=yaz-moved-to-github.git;a=blobdiff_plain;f=odr%2Fodr_cons.c;h=152134341f9a5f07db218cdf3d9d6b753581d9b1;hp=83231a3baddf4293fd4f73dd0d2263e24a9ce908;hb=ec1f815d5348cd21e393f76bc212c910c34bbc45;hpb=42d3d8a6486c495357574e5db0fc736834d8ba40

diff --git a/odr/odr_cons.c b/odr/odr_cons.c
index 83231a3..1521343 100644
--- a/odr/odr_cons.c
+++ b/odr/odr_cons.c
@@ -1,95 +1,95 @@
 /*
- * Copyright (c) 1995, Index Data
+ * Copyright (c) 1995-2003, Index Data
  * See the file LICENSE for details.
- * Sebastian Hammer, Adam Dickmeiss
  *
- * $Log: odr_cons.c,v $
- * Revision 1.12  1995-06-19 12:38:47  quinn
- * Added BER dumper.
- *
- * Revision 1.11  1995/05/16  08:50:53  quinn
- * License, documentation, and memory fixes
- *
- * Revision 1.10  1995/04/18  08:15:21  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/28  09:15:49  quinn
- * Fixed bug in the printing mode
- *
- * Revision 1.8  1995/03/15  11:18:04  quinn
- * Fixed serious bug in odr_cons
- *
- * Revision 1.7  1995/03/10  11:44:41  quinn
- * Fixed serious stack-bug in odr_cons_begin
- *
- * Revision 1.6  1995/03/08  12:12:23  quinn
- * Added better error checking.
- *
- * Revision 1.5  1995/02/10  18:57:25  quinn
- * More in the way of error-checking.
- *
- * Revision 1.4  1995/02/10  15:55:29  quinn
- * Bug fixes, mostly.
- *
- * Revision 1.3  1995/02/09  15:51:48  quinn
- * Works better now.
- *
- * Revision 1.2  1995/02/07  17:52:59  quinn
- * A damn mess, but now things work, I think.
- *
- * Revision 1.1  1995/02/02  16:21:53  quinn
- * First kick.
+ * $Id: odr_cons.c,v 1.26 2003-05-20 19:55:30 adam Exp $
  *
  */
+#if HAVE_CONFIG_H
+#include <config.h>
+#endif
 
-#include <odr.h>
+#include "odr-priv.h"
 
-int odr_constructed_begin(ODR o, void *p, int class, int tag)
+void odr_setlenlen(ODR o, int len)
+{
+    o->lenlen = len;
+}
+
+int odr_constructed_begin(ODR o, void *p, int zclass, int tag,
+			  const char *name)
 {
     int res;
     int cons = 1;
+    int lenlen = o->lenlen;
 
     if (o->error)
     	return 0;
+    o->lenlen = 1; /* reset lenlen */
     if (o->t_class < 0)
     {
-	o->t_class = class;
+	o->t_class = zclass;
 	o->t_tag = tag;
     }
-    if ((res = ber_tag(o, p, o->t_class, o->t_tag, &cons, 1)) < 0)
+    if ((res = ber_tag(o, p, o->t_class, o->t_tag, &cons, 1, name)) < 0)
     	return 0;
     if (!res || !cons)
     	return 0;
 
-    if (o->stackp == ODR_MAX_STACK - 1)
+    if (o->op->stackp == ODR_MAX_STACK - 1)
     {
-    	o->error = OSTACK;
+        odr_seterror(o, OSTACK, 30);
     	return 0;
     }
-    o->stack[++(o->stackp)].lenb = o->bp;
-    o->stack[o->stackp].len_offset = odr_tell(o);
+    o->op->stack[++(o->op->stackp)].lenb = o->bp;
+    o->op->stack[o->op->stackp].len_offset = odr_tell(o);
 #ifdef ODR_DEBUG
-    fprintf(stderr, "[cons_begin(%d)]", o->stackp);
+    fprintf(stderr, "[cons_begin(%d)]", o->op->stackp);
 #endif
-    if (o->direction == ODR_ENCODE || o->direction == ODR_PRINT)
+    if (o->direction == ODR_ENCODE)
     {
-	o->stack[o->stackp].lenlen = 1;
-	if (odr_putc(o, 0) < 0)     /* dummy */
+	static unsigned char dummy[sizeof(int)+1];
+
+	o->op->stack[o->op->stackp].lenlen = lenlen;
+
+	if (odr_write(o, dummy, lenlen) < 0)  /* dummy */
+        {
+            --(o->op->stackp);
 	    return 0;
+        }
     }
     else if (o->direction == ODR_DECODE)
     {
-    	if ((res = ber_declen(o->bp, &o->stack[o->stackp].len)) < 0)
+    	if ((res = ber_declen(o->bp, &o->op->stack[o->op->stackp].len,
+                              odr_max(o))) < 0)
+        {
+            odr_seterror(o, OOTHER, 31);
+            --(o->op->stackp);
 	    return 0;
-	o->stack[o->stackp].lenlen = res;
+        }
+	o->op->stack[o->op->stackp].lenlen = res;
 	o->bp += res;
-	o->left -= res;
+        if (o->op->stack[o->op->stackp].len > odr_max(o))
+        {
+            odr_seterror(o, OOTHER, 32);
+            --(o->op->stackp);
+	    return 0;
+        }
     }
-    else return 0;
-
-    o->stack[o->stackp].base = o->bp;
-    o->stack[o->stackp].base_offset = odr_tell(o);
+    else if (o->direction == ODR_PRINT)
+    {
+	odr_prname(o, name);
+    	fprintf(o->print, "{\n");
+	o->indent++;
+    }
+    else
+    {
+        odr_seterror(o, OOTHER, 33);
+        --(o->op->stackp);
+	return 0;
+    }
+    o->op->stack[o->op->stackp].base = o->bp;
+    o->op->stack[o->op->stackp].base_offset = odr_tell(o);
     return 1;
 }
 
@@ -97,10 +97,10 @@ int odr_constructed_more(ODR o)
 {
     if (o->error)
     	return 0;
-    if (o->stackp < 0)
+    if (o->op->stackp < 0)
     	return 0;
-    if (o->stack[o->stackp].len >= 0)
-    	return o->bp - o->stack[o->stackp].base < o->stack[o->stackp].len;
+    if (o->op->stack[o->op->stackp].len >= 0)
+    	return o->bp - o->op->stack[o->op->stackp].base < o->op->stack[o->op->stackp].len;
     else
     	return (!(*o->bp == 0 && *(o->bp + 1) == 0));
 }
@@ -112,62 +112,69 @@ int odr_constructed_end(ODR o)
 
     if (o->error)
     	return 0;
-    if (o->stackp < 0)
+    if (o->op->stackp < 0)
     {
-    	o->error = OOTHER;
+        odr_seterror(o, OOTHER, 34);
     	return 0;
     }
     switch (o->direction)
     {
-    	case ODR_DECODE:
-	    if (o->stack[o->stackp].len < 0)
-	    {
-	    	if (*o->bp++ == 0 && *(o->bp++) == 0)
-	    	{
-		    o->left -= 2;
-		    o->stackp--;
+    case ODR_DECODE:
+        if (o->op->stack[o->op->stackp].len < 0)
+        {
+            if (*o->bp++ == 0 && *(o->bp++) == 0)
+            {
+		    o->op->stackp--;
 		    return 1;
-		}
-		else
-		{
-		    o->error = OOTHER;
-		    return 0;
-		}
-	    }
-	    else if (o->bp - o->stack[o->stackp].base !=
-		o->stack[o->stackp].len)
-	    {
-	    	o->error = OCONLEN;
-	    	return 0;
-	    }
-	    o->stackp--;
-	    return 1;
-    	case ODR_ENCODE:
-	    pos = odr_tell(o);
-	    odr_seek(o, ODR_S_SET, o->stack[o->stackp].len_offset);
-	    if ((res = ber_enclen(o, pos - o->stack[o->stackp].base_offset,
-		o->stack[o->stackp].lenlen, 1)) < 0)
-		return 0;
-	    odr_seek(o, ODR_S_END, 0);
-	    if (res == 0)   /* indefinite encoding */
-	    {
+            }
+            else
+            {
+                odr_seterror(o, OOTHER, 35);
+                return 0;
+            }
+        }
+        else if (o->bp - o->op->stack[o->op->stackp].base !=
+                 o->op->stack[o->op->stackp].len)
+        {
+            odr_seterror(o, OCONLEN, 36);
+            return 0;
+        }
+        o->op->stackp--;
+        return 1;
+    case ODR_ENCODE:
+        pos = odr_tell(o);
+        odr_seek(o, ODR_S_SET, o->op->stack[o->op->stackp].len_offset);
+        if ((res = ber_enclen(o, pos - o->op->stack[o->op->stackp].base_offset,
+                              o->op->stack[o->op->stackp].lenlen, 1)) < 0)
+        {
+            odr_seterror(o, OLENOV, 37);
+            return 0;
+        }
+        odr_seek(o, ODR_S_END, 0);
+        if (res == 0)   /* indefinite encoding */
+        {
 #ifdef ODR_DEBUG
-		fprintf(stderr, "[cons_end(%d): indefinite]", o->stackp);
+            fprintf(stderr, "[cons_end(%d): indefinite]", o->op->stackp);
 #endif
-		if (odr_putc(o, 0) < 0 || odr_putc(o, 0) < 0)
-		    return 0;
-	    }
+            if (odr_putc(o, 0) < 0 || odr_putc(o, 0) < 0)
+                return 0;
+        }
 #ifdef ODR_DEBUG
-	    else
-	    {
-	    	fprintf(stderr, "[cons_end(%d): definite]", o->stackp);
-	    }
+        else
+        {
+            fprintf(stderr, "[cons_end(%d): definite]", o->op->stackp);
+        }
 #endif
-	    o->stackp--;
-	    return 1;
-    	case ODR_PRINT: o->stackp--;  return 1;
-    	default:
-	    o->error = OOTHER;
-	    return 0;
+        o->op->stackp--;
+        return 1;
+    case ODR_PRINT:
+        o->op->stackp--;
+        o->indent--;
+        odr_prname(o, 0);
+        fprintf(o->print, "}\n");
+        return 1;
+    default:
+        odr_seterror(o, OOTHER, 38);
+        return 0;
     }
 }