Old versions of GILS tables
[yaz-moved-to-github.git] / odr / odr_any.c
1 /*
2  * Copyright (c) 1995, Index Data
3  * See the file LICENSE for details.
4  * Sebastian Hammer, Adam Dickmeiss
5  *
6  * $Log: odr_any.c,v $
7  * Revision 1.6  1995-09-29 17:12:22  quinn
8  * Smallish
9  *
10  * Revision 1.5  1995/09/27  15:02:58  quinn
11  * Modified function heads & prototypes.
12  *
13  * Revision 1.4  1995/05/16  08:50:50  quinn
14  * License, documentation, and memory fixes
15  *
16  * Revision 1.3  1995/03/17  10:17:46  quinn
17  * Added memory management.
18  *
19  * Revision 1.2  1995/03/08  12:12:18  quinn
20  * Added better error checking.
21  *
22  * Revision 1.1  1995/02/09  15:51:47  quinn
23  * Works better now.
24  *
25  */
26
27 #include <odr.h>
28
29 /*
30  * This is a catch-all type. It stuffs a random ostring (assumed to be properly
31  * encoded) into the stream, or reads a full data element. Implicit tagging
32  * does not work, and neither does the optional flag, unless the element
33  * is the last in a sequence.
34  */
35 int odr_any(ODR o, Odr_any **p, int opt)
36 {
37     if (o->error)
38         return 0;
39     if (o->direction == ODR_PRINT)
40     {
41         fprintf(o->print, "%sANY (len=%d)\n", odr_indent(o), (*p)->len);
42         return 1;
43     }
44     if (o->direction == ODR_DECODE)
45         *p = odr_malloc(o, sizeof(**p));
46     if (ber_any(o, p))
47         return 1;
48     *p = 0;
49     if (!opt)
50         o->error = OREQUIRED;
51     return opt;
52 }