1 /* This file is part of the YAZ toolkit.
2 * Copyright (C) Index Data
3 * See the file LICENSE for details.
4 */
5
6 /**
7 * \file odr_cons.c
8 * \brief Implements ODR constructed codec.
9 */
10
11 #if HAVE_CONFIG_H
12 #include <config.h>
13 #endif
14
15 #include <assert.h>
16
17 #include "odr-priv.h"
18
odr_setlenlen(ODR o,int len)19 void odr_setlenlen(ODR o, int len)
20 {
21 o->op->lenlen = len;
22 }
23
odr_constructed_begin(ODR o,void * xxp,int zclass,int tag,const char * name)24 int odr_constructed_begin(ODR o, void *xxp, int zclass, int tag,
25 const char *name)
26 {
27 int res;
28 int cons = 1;
29 int lenlen = o->op->lenlen;
30
31 if (o->error)
32 return 0;
33 o->op->lenlen = 1; /* reset lenlen */
34 if (o->op->t_class < 0)
35 {
36 o->op->t_class = zclass;
37 o->op->t_tag = tag;
38 }
39 res = ber_tag(o, xxp, o->op->t_class, o->op->t_tag, &cons, 1, name);
40 if (res < 0)
41 return 0;
42 if (!res || !cons)
43 return 0;
44
45 /* push the odr_constack */
46 if (o->op->stack_top && o->op->stack_top->next)
47 {
48 /* reuse old entry */
49 o->op->stack_top = o->op->stack_top->next;
50 }
51 else if (o->op->stack_top && !o->op->stack_top->next)
52 {
53 /* must allocate new entry (not first) */
54 int sz = 0;
55 struct odr_constack *st;
56 /* check size first */
57 for (st = o->op->stack_top; st; st = st->prev)
58 sz++;
59
60 if (sz >= ODR_MAX_STACK)
61 {
62 odr_seterror(o, OSTACK, 30);
63 return 0;
64 }
65 o->op->stack_top->next = (struct odr_constack *)
66 odr_malloc(o, sizeof(*o->op->stack_top));
67 o->op->stack_top->next->prev = o->op->stack_top;
68 o->op->stack_top->next->next = 0;
69
70 o->op->stack_top = o->op->stack_top->next;
71 }
72 else if (!o->op->stack_top)
73 {
74 /* stack empty */
75 if (!o->op->stack_first)
76 {
77 /* first item must be allocated */
78 o->op->stack_first = (struct odr_constack *)
79 odr_malloc(o, sizeof(*o->op->stack_top));
80 o->op->stack_first->prev = 0;
81 o->op->stack_first->next = 0;
82 }
83 o->op->stack_top = o->op->stack_first;
84 assert(o->op->stack_top->prev == 0);
85 }
86 o->op->stack_top->lenb = o->op->bp;
87 o->op->stack_top->len_offset = odr_tell(o);
88 o->op->stack_top->name = name ? name : "?";
89 if (o->direction == ODR_ENCODE)
90 {
91 static char dummy[sizeof(int)+1];
92
93 o->op->stack_top->lenlen = lenlen;
94
95 if (odr_write(o, dummy, lenlen) < 0) /* dummy */
96 {
97 ODR_STACK_POP(o);
98 return 0;
99 }
100 }
101 else if (o->direction == ODR_DECODE)
102 {
103 if ((res = ber_declen(o->op->bp, &o->op->stack_top->len,
104 odr_max(o))) < 0)
105 {
106 odr_seterror(o, OOTHER, 31);
107 ODR_STACK_POP(o);
108 return 0;
109 }
110 o->op->stack_top->lenlen = res;
111 o->op->bp += res;
112 if (o->op->stack_top->len > odr_max(o))
113 {
114 odr_seterror(o, OOTHER, 32);
115 ODR_STACK_POP(o);
116 return 0;
117 }
118 }
119 else if (o->direction == ODR_PRINT)
120 {
121 odr_prname(o, name);
122 odr_printf(o, "{\n");
123 o->op->indent++;
124 }
125 else
126 {
127 odr_seterror(o, OOTHER, 33);
128 ODR_STACK_POP(o);
129 return 0;
130 }
131 o->op->stack_top->base = o->op->bp;
132 o->op->stack_top->base_offset = odr_tell(o);
133 return 1;
134 }
135
odr_constructed_more(ODR o)136 int odr_constructed_more(ODR o)
137 {
138 if (o->error)
139 return 0;
140 if (ODR_STACK_EMPTY(o))
141 return 0;
142 if (o->op->stack_top->len >= 0)
143 return o->op->bp - o->op->stack_top->base < o->op->stack_top->len;
144 else
145 return (!(*o->op->bp == 0 && *(o->op->bp + 1) == 0));
146 }
147
odr_constructed_end(ODR o)148 int odr_constructed_end(ODR o)
149 {
150 int res;
151 int pos;
152
153 if (o->error)
154 return 0;
155 if (ODR_STACK_EMPTY(o))
156 {
157 odr_seterror(o, OOTHER, 34);
158 return 0;
159 }
160 switch (o->direction)
161 {
162 case ODR_DECODE:
163 if (o->op->stack_top->len < 0)
164 {
165 if (*o->op->bp++ == 0 && *(o->op->bp++) == 0)
166 {
167 ODR_STACK_POP(o);
168 return 1;
169 }
170 else
171 {
172 odr_seterror(o, OOTHER, 35);
173 return 0;
174 }
175 }
176 else if (o->op->bp - o->op->stack_top->base !=
177 o->op->stack_top->len)
178 {
179 odr_seterror(o, OCONLEN, 36);
180 return 0;
181 }
182 ODR_STACK_POP(o);
183 return 1;
184 case ODR_ENCODE:
185 pos = odr_tell(o);
186 odr_seek(o, ODR_S_SET, o->op->stack_top->len_offset);
187 if ((res = ber_enclen(o, pos - o->op->stack_top->base_offset,
188 o->op->stack_top->lenlen, 1)) < 0)
189 {
190 odr_seterror(o, OLENOV, 37);
191 return 0;
192 }
193 odr_seek(o, ODR_S_END, 0);
194 if (res == 0) /* indefinite encoding */
195 {
196 if (odr_putc(o, 0) < 0 || odr_putc(o, 0) < 0)
197 return 0;
198 }
199 ODR_STACK_POP(o);
200 return 1;
201 case ODR_PRINT:
202 ODR_STACK_POP(o);
203 o->op->indent--;
204 odr_prname(o, 0);
205 odr_printf(o, "}\n");
206 return 1;
207 default:
208 odr_seterror(o, OOTHER, 38);
209 return 0;
210 }
211 }
212 /*
213 * Local variables:
214 * c-basic-offset: 4
215 * c-file-style: "Stroustrup"
216 * indent-tabs-mode: nil
217 * End:
218 * vim: shiftwidth=4 tabstop=8 expandtab
219 */
220
221