Modified function heads & prototypes.
[yaz-moved-to-github.git] / odr / odr_oid.c
1 /*
2  * Copyright (c) 1995, Index Data
3  * See the file LICENSE for details.
4  * Sebastian Hammer, Adam Dickmeiss
5  *
6  * $Log: odr_oid.c,v $
7  * Revision 1.11  1995-09-27 15:03:00  quinn
8  * Modified function heads & prototypes.
9  *
10  * Revision 1.10  1995/05/29  08:11:44  quinn
11  * Moved oid from odr/asn to util.
12  *
13  * Revision 1.9  1995/05/16  08:50:57  quinn
14  * License, documentation, and memory fixes
15  *
16  * Revision 1.8  1995/03/17  10:17:55  quinn
17  * Added memory management.
18  *
19  * Revision 1.7  1995/03/08  12:12:29  quinn
20  * Added better error checking.
21  *
22  * Revision 1.6  1995/03/01  08:40:56  quinn
23  * Smallish changes.
24  *
25  * Revision 1.5  1995/02/10  18:57:26  quinn
26  * More in the way of error-checking.
27  *
28  * Revision 1.4  1995/02/10  15:55:29  quinn
29  * Bug fixes, mostly.
30  *
31  * Revision 1.3  1995/02/09  15:51:49  quinn
32  * Works better now.
33  *
34  * Revision 1.2  1995/02/07  14:13:46  quinn
35  * Bug fixes.
36  *
37  * Revision 1.1  1995/02/03  17:04:38  quinn
38  * Initial revision
39  *
40  *
41  */
42
43 #include <odr.h>
44 #include <oid.h>
45
46 /*
47  * Top level oid en/decoder.
48  * Returns 1 on success, 0 on error.
49  */
50 int MDF odr_oid(ODR o, Odr_oid **p, int opt)
51 {
52     int res, cons = 0;
53
54     if (o->error)
55         return 0;
56     if (o->t_class < 0)
57     {
58         o->t_class = ODR_UNIVERSAL;
59         o->t_tag = ODR_OID;
60     }
61     if ((res = ber_tag(o, p, o->t_class, o->t_tag, &cons, opt)) < 0)
62         return 0;
63     if (!res)
64         return opt;
65     if (cons)
66     {
67         o->error = OPROTO;
68         return 0;
69     }
70     if (o->direction == ODR_PRINT)
71     {
72         int i;
73
74         fprintf(o->print, "%sOID:", odr_indent(o));
75         for (i = 0; (*p)[i] > -1; i++)
76             fprintf(o->print, " %d", (*p)[i]);
77         fprintf(o->print, "\n");
78         return 1;
79     }
80     if (o->direction == ODR_DECODE)
81         *p = odr_malloc(o, OID_SIZE * sizeof(**p));
82     return ber_oidc(o, *p);
83 }