1 /* This file is part of the YAZ toolkit.
2 * Copyright (C) 1995-2008 Index Data
3 * See the file LICENSE for details.
8 * \brief Implements ODR constructed codec.
19 void odr_setlenlen(ODR o, int len)
24 int odr_constructed_begin(ODR o, void *xxp, int zclass, int tag,
29 int lenlen = o->op->lenlen;
33 o->op->lenlen = 1; /* reset lenlen */
34 if (o->op->t_class < 0)
36 o->op->t_class = zclass;
39 res = ber_tag(o, xxp, o->op->t_class, o->op->t_tag, &cons, 1, name);
45 /* push the odr_constack */
46 if (o->op->stack_top && o->op->stack_top->next)
49 o->op->stack_top = o->op->stack_top->next;
51 else if (o->op->stack_top && !o->op->stack_top->next)
53 /* must allocate new entry (not first) */
55 struct odr_constack *st;
56 /* check size first */
57 for (st = o->op->stack_top; st; st = st->prev)
60 if (sz >= ODR_MAX_STACK)
62 odr_seterror(o, OSTACK, 30);
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;
70 o->op->stack_top = o->op->stack_top->next;
72 else if (!o->op->stack_top)
75 if (!o->op->stack_first)
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;
83 o->op->stack_top = o->op->stack_first;
84 assert(o->op->stack_top->prev == 0);
86 o->op->stack_top->lenb = o->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)
91 static unsigned char dummy[sizeof(int)+1];
93 o->op->stack_top->lenlen = lenlen;
95 if (odr_write(o, dummy, lenlen) < 0) /* dummy */
101 else if (o->direction == ODR_DECODE)
103 if ((res = ber_declen(o->bp, &o->op->stack_top->len,
106 odr_seterror(o, OOTHER, 31);
110 o->op->stack_top->lenlen = res;
112 if (o->op->stack_top->len > odr_max(o))
114 odr_seterror(o, OOTHER, 32);
119 else if (o->direction == ODR_PRINT)
122 odr_printf(o, "{\n");
127 odr_seterror(o, OOTHER, 33);
131 o->op->stack_top->base = o->bp;
132 o->op->stack_top->base_offset = odr_tell(o);
136 int odr_constructed_more(ODR o)
140 if (ODR_STACK_EMPTY(o))
142 if (o->op->stack_top->len >= 0)
143 return o->bp - o->op->stack_top->base < o->op->stack_top->len;
145 return (!(*o->bp == 0 && *(o->bp + 1) == 0));
148 int odr_constructed_end(ODR o)
155 if (ODR_STACK_EMPTY(o))
157 odr_seterror(o, OOTHER, 34);
160 switch (o->direction)
163 if (o->op->stack_top->len < 0)
165 if (*o->bp++ == 0 && *(o->bp++) == 0)
172 odr_seterror(o, OOTHER, 35);
176 else if (o->bp - o->op->stack_top->base !=
177 o->op->stack_top->len)
179 odr_seterror(o, OCONLEN, 36);
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)
190 odr_seterror(o, OLENOV, 37);
193 odr_seek(o, ODR_S_END, 0);
194 if (res == 0) /* indefinite encoding */
196 if (odr_putc(o, 0) < 0 || odr_putc(o, 0) < 0)
205 odr_printf(o, "}\n");
208 odr_seterror(o, OOTHER, 38);
215 * indent-tabs-mode: nil
217 * vim: shiftwidth=4 tabstop=8 expandtab