Report SRU diagnostic 12 (too many chars in query) when rendering the
[yaz-moved-to-github.git] / src / dumpber.c
1 /*
2  * Copyright (C) 1995-2005, Index Data ApS
3  * See the file LICENSE for details.
4  *
5  * $Id: dumpber.c,v 1.4 2005-06-25 15:46:04 adam Exp $
6  */
7
8 /**
9  * \file dumpber.c
10  * \brief Implements BER dumping
11  */
12
13 #if HAVE_CONFIG_H
14 #include <config.h>
15 #endif
16
17 #include <stdio.h>
18 #include "odr-priv.h"
19
20 static int do_dumpBER(FILE *f, const char *buf, int len, int level, int offset)
21 {
22     int res, ll, zclass, tag, cons, lenlen, taglen;
23     const char *b = buf, *bp = buf;
24     
25     if (!len)
26         return 0;
27     if (!buf[0] && !buf[1])
28         return 0;
29     if ((res = ber_dectag((unsigned char*)b, &zclass, &tag, &cons, len)) <= 0)
30         return 0;
31     if (res > len)
32     {
33         fprintf(stderr, "Unexpected end of buffer\n");
34         return 0;
35     }
36     fprintf(f, "%5d: %*s", offset, level * 4, "");
37     if (zclass == ODR_UNIVERSAL)
38     {
39         static char *nl[] =
40         {
41             "[Univ 0]", "BOOLEAN", "INTEGER", "BIT STRING", "OCTET STRING",
42             "NULL", "OID", "OBJECT DESCIPTOR", "EXTERNAL", "REAL",
43             "ENUM", "[UNIV 11]", "[UNIV 12]", "[UNIV 13]", "[UNIV 14]",
44             "[UNIV 15]", "SEQUENCE", "SET", "NUMERICSTRING", "PRINTABLESTRING",
45             "[UNIV 20]", "[UNIV 21]", "[UNIV 22]", "[UNIV 23]", "[UNIV 24]",
46             "GRAPHICSTRING", "VISIBLESTRING", "GENERALSTRING", "[UNIV 28]"
47         };
48
49         if (tag >= 0 && tag < 28)
50             fprintf(f, "%s", nl[tag]);
51         else
52             fprintf(f, "[UNIV %d]", tag);
53     }
54     else if (zclass == ODR_CONTEXT)
55         fprintf(f, "[%d]", tag);
56     else
57         fprintf(f, "[%d:%d]", zclass, tag);
58     b += res;
59     taglen = res;
60     len -= res;
61     bp = b;
62     if ((res = ber_declen((unsigned char*)b, &ll, len)) <= 0)
63     {
64         fprintf(f, "\n%*sBad length\n", level*4+5, "");
65         return 0;
66     }
67     lenlen = res;
68     b += res;
69     len -= res;
70     if (ll >= 0)
71         fprintf(f, " len=%d", ll);
72     else
73         fprintf(f, " len=?");
74     fprintf(f, "       tl=%d, ll=%d cons=%d\n", taglen, lenlen, cons);
75     if (!cons)
76     {
77         if (ll < 0 || ll > len)
78         {
79             fprintf(f, "%*sBad length on primitive type. ll=%d len=%d\n",
80                     level*4+5, "", ll, len);
81             return 0;
82         }
83         return ll + (b - buf);
84     }
85     if (ll >= 0)
86     {
87         if (ll > len)
88         {
89             fprintf(f, "%*sBad length of constructed type ll=%d len=%d.\n",
90                     level*4+5, "", ll, len);
91             return 0;
92         }
93         len = ll;
94     }
95     /* constructed - cycle through children */
96     while ((ll == -1 && len >= 2) || (ll >= 0 && len))
97     {
98         if (ll == -1 && *b == 0 && *(b + 1) == 0)
99             break;
100         if (!(res = do_dumpBER(f, b, len, level + 1, offset + (b - buf))))
101         {
102             fprintf(f, "%*sDump of content element failed.\n", level*4+5, "");
103             return 0;
104         }
105         b += res;
106         len -= res;
107         if (len < 0)
108         {
109             fprintf(f, "%*sBad length\n", level*4+5, "");
110             return 0;
111         }
112     }
113     if (ll == -1)
114     {
115         if (len < 2)
116         {
117             fprintf(f, "%*sBuffer too short in indefinite length.\n",
118                     level*4+5, "");
119             return 0;
120         }
121         return (b - buf) + 2;
122     }
123     return b - buf;
124 }
125
126 int odr_dumpBER(FILE *f, const char *buf, int len)
127 {
128     return do_dumpBER(f, buf, len, 0, 0);
129 }
130 /*
131  * Local variables:
132  * c-basic-offset: 4
133  * indent-tabs-mode: nil
134  * End:
135  * vim: shiftwidth=4 tabstop=8 expandtab
136  */
137