Added RTF version of YAZ doc
[yaz-moved-to-github.git] / odr / odr_seq.c
1 /*
2  * Copyright (c) 1995, Index Data
3  * See the file LICENSE for details.
4  * Sebastian Hammer, Adam Dickmeiss
5  *
6  * $Log: odr_seq.c,v $
7  * Revision 1.19  1997-06-23 10:31:11  adam
8  * Added RVDM's SEQUENCE OF patch again!
9  *
10  * Revision 1.18  1997/05/14 06:53:58  adam
11  * C++ support.
12  *
13  * Revision 1.17  1997/05/05 11:21:09  adam
14  * In handling of SEQUENCE OF: Counter set to zero when SEQUENCE
15  * OF isn't there at all.
16  *
17  * Revision 1.16  1995/09/29 17:12:26  quinn
18  * Smallish
19  *
20  * Revision 1.15  1995/09/27  15:03:00  quinn
21  * Modified function heads & prototypes.
22  *
23  * Revision 1.14  1995/08/15  11:16:39  quinn
24  * Fixed pretty-printers.
25  * CV:e ----------------------------------------------------------------------
26  * CV:e ----------------------------------------------------------------------
27  *
28  * Revision 1.13  1995/05/22  14:56:57  quinn
29  * Fixed problem in decoding empty sequence.
30  *
31  * Revision 1.12  1995/05/18  13:06:32  quinn
32  * Smallish.
33  *
34  * Revision 1.11  1995/05/17  08:41:54  quinn
35  * Small, hopefully insignificant change.
36  *
37  * Revision 1.10  1995/05/16  08:50:59  quinn
38  * License, documentation, and memory fixes
39  *
40  * Revision 1.9  1995/03/17  10:17:57  quinn
41  * Added memory management.
42  *
43  * Revision 1.8  1995/03/15  11:18:05  quinn
44  * Fixed serious bug in odr_cons
45  *
46  * Revision 1.7  1995/03/08  12:12:30  quinn
47  * Added better error checking.
48  *
49  * Revision 1.6  1995/02/10  15:55:29  quinn
50  * Bug fixes, mostly.
51  *
52  * Revision 1.5  1995/02/09  15:51:49  quinn
53  * Works better now.
54  *
55  * Revision 1.4  1995/02/07  17:53:00  quinn
56  * A damn mess, but now things work, I think.
57  *
58  * Revision 1.3  1995/02/07  14:13:46  quinn
59  * Bug fixes.
60  *
61  * Revision 1.2  1995/02/06  16:45:03  quinn
62  * Small mods.
63  *
64  * Revision 1.1  1995/02/02  16:21:54  quinn
65  * First kick.
66  *
67  */
68
69 #include <odr.h>
70 #include <assert.h>
71
72 int odr_sequence_begin(ODR o, void *p, int size)
73 {
74     char **pp = (char**) p;
75
76     if (o->error)
77         return 0;
78     if (o->t_class < 0)
79     {
80         o->t_class = ODR_UNIVERSAL;
81         o->t_tag = ODR_SEQUENCE;
82     }
83     if (o->direction == ODR_DECODE)
84         *pp = 0;
85     if (odr_constructed_begin(o, p, o->t_class, o->t_tag))
86     {
87         if (o->direction == ODR_DECODE && size)
88             *pp = odr_malloc(o, size);
89         return 1;
90     }
91     else
92         return 0;
93 }
94
95 int odr_sequence_end(ODR o)
96 {
97     return odr_constructed_end(o);    
98 }
99
100 int odr_sequence_more(ODR o)
101 {
102     return odr_constructed_more(o);
103 }
104
105 int odr_sequence_of(ODR o, Odr_fun type, void *p, int *num)
106 {
107     char ***pp = (char***) p;  /* for dereferencing */
108     char **tmp = 0;
109     int size = 0, i;
110
111     if (!odr_sequence_begin(o, p, 0)) {
112         if (o->direction == ODR_DECODE)
113             *num = 0;
114         return 0;
115     }
116
117     switch (o->direction)
118     {
119         case ODR_DECODE:
120             *num = 0;
121             *pp = ODR_NULLVAL;
122             while (odr_sequence_more(o))
123             {
124                 /* outgrown array? */
125                 if (*num * sizeof(void*) >= size)
126                 {
127                     /* double the buffer size */
128                     tmp = odr_malloc(o, sizeof(void*) * (size += size ? size :
129                         128));
130                     if (*num)
131                     {
132                         memcpy(tmp, *pp, *num * sizeof(void*));
133                         /*
134                          * For now, we just throw the old *p away, since we use
135                          * nibble memory anyway (disgusting, isn't it?).
136                          */
137                     }
138                     *pp = tmp;
139                 }
140                 if (!(*type)(o, (*pp) + *num, 0))
141                     return 0;
142                 (*num)++;
143             }
144             break;
145         case ODR_ENCODE: case ODR_PRINT:
146 #ifdef ODR_DEBUG
147             fprintf(stderr, "[seqof: num=%d]", *num);
148 #endif
149             for (i = 0; i < *num; i++)
150             {
151 #ifdef ODR_DEBUG
152                 fprintf(stderr, "[seqof: elem #%d]", i);
153 #endif
154                 if (!(*type)(o, *pp + i, 0))
155                     return 0;
156             }
157             break;
158         default:
159             o->error = OOTHER;
160             return 0;
161     }
162     return odr_sequence_end(o);
163 }