Source restructure. yaz-marcdump part of installation
[yaz-moved-to-github.git] / src / odr_int.c
1 /*
2  * Copyright (c) 1995-2003, Index Data
3  * See the file LICENSE for details.
4  * Sebastian Hammer, Adam Dickmeiss
5  *
6  * $Id: odr_int.c,v 1.1 2003-10-27 12:21:33 adam Exp $
7  */
8 #if HAVE_CONFIG_H
9 #include <config.h>
10 #endif
11
12 #include "odr-priv.h"
13
14 /*
15  * Top level integer en/decoder.
16  * Returns 1 on success, 0 on error.
17  */
18 int odr_integer(ODR o, int **p, int opt, const char *name)
19 {
20     int res, cons = 0;
21
22     if (o->error)
23         return 0;
24     if (o->t_class < 0)
25     {
26         o->t_class = ODR_UNIVERSAL;
27         o->t_tag = ODR_INTEGER;
28     }
29     if ((res = ber_tag(o, p, o->t_class, o->t_tag, &cons, opt, name)) < 0)
30         return 0;
31     if (!res)
32         return odr_missing(o, opt, name);
33     if (o->direction == ODR_PRINT)
34     {
35         odr_prname(o, name);
36         fprintf(o->print, "%d\n", **p);
37         return 1;
38     }
39     if (cons)
40     {
41         odr_seterror(o, OPROTO, 1);
42         return 0;
43     }
44     if (o->direction == ODR_DECODE)
45         *p = (int *)odr_malloc(o, sizeof(int));
46     return ber_integer(o, *p);
47 }