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