6beac3b92b9c3e95c7d883206c4a45ddf61b4d6a
[yaz-moved-to-github.git] / src / odr_util.c
1 /*
2  * Copyright (C) 1995-2005, Index Data ApS
3  * See the file LICENSE for details.
4  *
5  * $Id: odr_util.c,v 1.7 2005-01-15 19:47:14 adam Exp $
6  */
7 /**
8  * \file odr_util.c
9  * \brief Implements various ODR utilities
10  */
11 #if HAVE_CONFIG_H
12 #include <config.h>
13 #endif
14
15 #include <stdlib.h>
16 #include <string.h>
17 #include <ctype.h>
18 #include "odr-priv.h"
19 #include <yaz/oid.h>
20
21 void odr_prname(ODR o, const char *name)
22 {
23     if (name)
24         odr_printf(o, "%*s%s ", o->indent*4, "", name);
25     else
26         odr_printf(o, "%*s", o->indent*4, "");
27 }
28
29 int odp_more_chunks(ODR o, const unsigned char *base, int len)
30 {
31     if (!len)
32         return 0;
33     if (len < 0) /* indefinite length */
34     {
35         if (*o->bp == 0 && *(o->bp + 1) == 0)
36         {
37             o->bp += 2;
38             return 0;
39         }
40         else
41             return 1;
42     }
43     else
44         return o->bp - base < len;
45 }
46
47 Odr_oid *odr_oiddup_nmem(NMEM nmem, Odr_oid *o)
48 {
49     Odr_oid *r;
50
51     if (!o)
52         return 0;
53     if (!(r = (int *)nmem_malloc(nmem, (oid_oidlen(o) + 1) * sizeof(int))))
54         return 0;
55     oid_oidcpy(r, o);
56     return r;
57 }
58
59 Odr_oid *odr_oiddup(ODR odr, Odr_oid *o)
60 {
61     if (!odr->mem)
62         odr->mem = nmem_create();
63     return odr_oiddup_nmem (odr->mem, o);
64 }
65
66 Odr_oid *odr_getoidbystr_nmem(NMEM nmem, const char *str)
67 {
68     int num = 1, i = 0;
69     const char *p = str;
70     Odr_oid *ret;
71
72     if (!isdigit(*(const unsigned char *) str))
73         return 0;
74     while ((p = strchr(p, '.')))
75         num++, p++;
76     ret = (int *)nmem_malloc(nmem, sizeof(*ret)*(num + 1));
77     p = str;
78     do
79         ret[i++] = atoi(p);
80     while ((p = strchr(p, '.')) && *++p);
81     ret[i] = -1;
82     return ret;
83 }
84
85 Odr_oid *odr_getoidbystr(ODR o, const char *str)
86 {
87     if (!o->mem)
88         o->mem = nmem_create();
89     return odr_getoidbystr_nmem (o->mem, str);
90 }
91
92 int odr_missing(ODR o, int opt, const char *name)
93 {
94     if (o->error)
95         return 0;
96     if (!opt)
97     {
98         odr_seterror(o, OREQUIRED, 53);
99         odr_setelement(o, name);
100     }
101     return opt;
102 }
103
104 /*
105  * Reallocate the buffer `old', using the ODR memory pool `o' to be
106  * big enough to hold its existing value (if any) plus `prefix' (if
107  * any) and a separator character.  Copy `prefix', a forward slash and
108  * the old value into the new area and return its address.  Can be
109  * used as follows:
110  *      initRequest->implementationName = odr_prepend(o,
111  *              initRequest->implementationName, "ZOOM-C");
112  */
113 char *odr_prepend(ODR o, const char *prefix, const char *old)
114 {
115     int plen = (prefix == 0) ? 0 : strlen(prefix);
116     int olen = (old == 0) ? 0 : strlen(old);
117     char *res = (char*) odr_malloc (o, olen + plen + 2);
118
119     *res = '\0';
120     if (prefix != 0)
121         strcpy (res, prefix);
122     if (prefix != 0 && old != 0)
123         strcat (res, "/");
124     if (old !=0)
125         strcat (res, old);
126
127     return res;
128 }