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