Works better now.
[yaz-moved-to-github.git] / odr / odr_oid.c
1 /*
2  * Copyright (C) 1994, Index Data I/S 
3  * All rights reserved.
4  * Sebastian Hammer, Adam Dickmeiss
5  *
6  * $Log: odr_oid.c,v $
7  * Revision 1.3  1995-02-09 15:51:49  quinn
8  * Works better now.
9  *
10  * Revision 1.2  1995/02/07  14:13:46  quinn
11  * Bug fixes.
12  *
13  * Revision 1.1  1995/02/03  17:04:38  quinn
14  * Initial revision
15  *
16  *
17  */
18
19 #include <odr.h>
20
21 /*
22  * Top level oid en/decoder.
23  * Returns 1 on success, 0 on error.
24  */
25 int odr_oid(ODR o, Odr_oid **p, int opt)
26 {
27     int res, cons = 0;
28
29     if (o->t_class < 0)
30     {
31         o->t_class = ODR_UNIVERSAL;
32         o->t_tag = ODR_OID;
33     }
34     if (o->direction == ODR_DECODE)
35         *p =0;
36     if ((res = ber_tag(o, *p, o->t_class, o->t_tag, &cons)) < 0)
37     {
38         *p = 0;
39         return 0;
40     }
41     if (!res || cons)
42     {
43         *p = 0;
44         return opt;
45     }
46     if (o->direction == ODR_PRINT)
47     {
48         fprintf(o->print, "%sOID\n", odr_indent(o));
49         return 1;
50     }
51     if (o->direction == ODR_DECODE)
52         *p = nalloc(o, ODR_OID_SIZE);
53     return ber_oid(o, *p);
54 }