Source restructure. yaz-marcdump part of installation
[yaz-moved-to-github.git] / src / odr_oct.c
1 /*
2  * Copyright (c) 1995-2003, Index Data
3  * See the file LICENSE for details.
4  * Sebastian Hammer, Adam Dickmeiss
5  *
6  * $Id: odr_oct.c,v 1.1 2003-10-27 12:21:33 adam Exp $
7  */
8 #if HAVE_CONFIG_H
9 #include <config.h>
10 #endif
11
12 #include <yaz/log.h>
13 #include "odr-priv.h"
14
15 /*
16  * Top level octet string en/decoder.
17  * Returns 1 on success, 0 on error.
18  */
19 int odr_octetstring(ODR o, Odr_oct **p, int opt, const char *name)
20 {
21     int res, cons = 0;
22
23     if (o->error)
24         return 0;
25     if (o->t_class < 0)
26     {
27         o->t_class = ODR_UNIVERSAL;
28         o->t_tag = ODR_OCTETSTRING;
29     }
30     if ((res = ber_tag(o, p, o->t_class, o->t_tag, &cons, opt, name)) < 0)
31         return 0;
32     if (!res)
33         return odr_missing(o, opt, name);
34     if (o->direction == ODR_PRINT)
35     {
36         int i;
37         odr_prname(o, name);
38         fprintf(o->print, "OCTETSTRING(len=%d)", (*p)->len);
39         for (i = 0; i<(*p)->len; i++)
40         {
41             if (i < 5 || i > ((*p)->len - 4))
42             {
43                 fprintf (o->print, " %02X", (*p)->buf[i]);
44             }
45             else if (i == 5)
46                 fprintf (o->print, " .. ");
47         }
48         fprintf(o->print, "\n");
49         return 1;
50     }
51     if (o->direction == ODR_DECODE)
52     {
53         *p = (Odr_oct *)odr_malloc(o, sizeof(Odr_oct));
54         (*p)->size= 0;
55         (*p)->len = 0;
56         (*p)->buf = 0;
57     }
58     if (ber_octetstring(o, *p, cons))
59         return 1;
60     odr_seterror(o, OOTHER, 43);
61     return 0;
62 }
63
64 /*
65  * Friendlier interface to octetstring.
66  */
67 int odr_cstring(ODR o, char **p, int opt, const char *name)
68 {
69     int cons = 0, res;
70     Odr_oct *t;
71
72     if (o->error)
73         return 0;
74     if (o->t_class < 0)
75     {
76         o->t_class = ODR_UNIVERSAL;
77         o->t_tag = ODR_OCTETSTRING;
78     }
79     if ((res = ber_tag(o, p, o->t_class, o->t_tag, &cons, opt, name)) < 0)
80         return 0;
81     if (!res)
82         return odr_missing(o, opt, name);
83     if (o->direction == ODR_PRINT)
84     {
85         odr_prname(o, name);
86         fprintf(o->print, "'%s'\n", *p);
87         return 1;
88     }
89     t = (Odr_oct *)odr_malloc(o, sizeof(Odr_oct)); /* wrapper for octstring */
90     if (o->direction == ODR_ENCODE)
91     {
92         t->buf = (unsigned char *) *p;
93         t->size = t->len = strlen(*p);
94     }
95     else
96     {
97         t->size= 0;
98         t->len = 0;
99         t->buf = 0;
100     }
101     if (!ber_octetstring(o, t, cons))
102         return 0;
103     if (o->direction == ODR_DECODE)
104     {
105         *p = (char *) t->buf;
106         *(*p + t->len) = '\0';  /* ber_octs reserves space for this */
107     }
108     return 1;
109 }
110
111 /*
112  * iconv interface to octetstring.
113  */
114 int odr_iconv_string(ODR o, char **p, int opt, const char *name)
115 {
116     int cons = 0, res;
117     Odr_oct *t;
118
119     if (o->error)
120         return 0;
121     if (o->t_class < 0)
122     {
123         o->t_class = ODR_UNIVERSAL;
124         o->t_tag = ODR_OCTETSTRING;
125     }
126     if ((res = ber_tag(o, p, o->t_class, o->t_tag, &cons, opt, name)) < 0)
127         return 0;
128     if (!res)
129         return odr_missing(o, opt, name);
130     if (o->direction == ODR_PRINT)
131     {
132         odr_prname(o, name);
133         fprintf(o->print, "'%s'\n", *p);
134         return 1;
135     }
136     t = (Odr_oct *)odr_malloc(o, sizeof(Odr_oct)); /* wrapper for octstring */
137     if (o->direction == ODR_ENCODE)
138     {
139         t->buf = 0;
140
141         if (o->op->iconv_handle != 0)
142         {
143             size_t inleft = strlen(*p);
144             char *inbuf = *p;
145             size_t outleft = 4 * inleft + 2;
146             char *outbuf = (char *) odr_malloc (o, outleft);
147             size_t ret;
148             
149             t->buf = (unsigned char *) outbuf;
150             
151             ret = yaz_iconv (o->op->iconv_handle, &inbuf, &inleft,
152                              &outbuf, &outleft);
153             if (ret == (size_t)(-1))
154             {
155                 odr_seterror(o, ODATA, 44);
156                 return 0;
157             }
158             t->size = t->len = outbuf - (char*) t->buf;
159         }
160         if (!t->buf)
161         {
162             t->buf = (unsigned char *) *p;
163             t->size = t->len = strlen(*p);
164         }
165     }
166     else
167     {
168         t->size= 0;
169         t->len = 0;
170         t->buf = 0;
171     }
172     if (!ber_octetstring(o, t, cons))
173         return 0;
174     if (o->direction == ODR_DECODE)
175     {
176         *p = 0;
177
178         if (o->op->iconv_handle != 0)
179         {
180             size_t inleft = t->len;
181             char *inbuf = (char *) t->buf;
182             size_t outleft = 4 * inleft + 2;
183             char *outbuf = (char *) odr_malloc (o, outleft);
184             size_t ret;
185
186             *p = outbuf;
187             
188             ret = yaz_iconv (o->op->iconv_handle, &inbuf, &inleft,
189                              &outbuf, &outleft);
190             if (ret == (size_t)(-1))
191             {
192                 odr_seterror(o, ODATA, 45);
193                 return 0;
194             }
195             inleft = outbuf - (char*) *p;
196             
197             (*p)[inleft] = '\0';    /* null terminate it */
198         }
199         if (!*p)
200         {
201             *p = (char *) t->buf;
202             *(*p + t->len) = '\0';  /* ber_octs reserves space for this */
203         }
204     }
205     return 1;
206 }