1 /* This file is part of the YAZ toolkit.
2 * Copyright (C) Index Data
3 * See the file LICENSE for details.
7 * \brief Implements ODR memory management
16 #include <yaz/xmalloc.h>
18 /* ------------------------ NIBBLE MEMORY ---------------------- */
21 * Extract the memory control block from o.
23 NMEM odr_extract_mem(ODR o)
27 o->mem = nmem_create();
31 void *odr_malloc(ODR o, size_t size)
33 return nmem_malloc(o->mem, size);
36 char *odr_strdup(ODR o, const char *str)
38 return nmem_strdup(o->mem, str);
41 char *odr_strdup_null(ODR o, const char *str)
43 return nmem_strdup_null(o->mem, str);
46 char *odr_strdupn(ODR o, const char *str, size_t n)
48 return nmem_strdupn(o->mem, str, n);
51 Odr_int *odr_intdup(ODR o, Odr_int v)
53 return nmem_intdup(o->mem, v);
56 Odr_bool *odr_booldup(ODR o, Odr_bool v)
58 return nmem_booldup(o->mem, v);
61 size_t odr_total(ODR o)
63 return nmem_total(o->mem);
66 Odr_oct *odr_create_Odr_oct(ODR o, const char *buf, int sz)
68 Odr_oct *p = (Odr_oct *) odr_malloc(o, sizeof(Odr_oct));
69 p->buf = odr_strdupn(o, buf, sz);
74 /* ---------- memory management for data encoding ----------*/
77 int odr_grow_block(ODR b, int min_bytes)
87 if (togrow < min_bytes)
89 if (b->op->size && !(b->op->buf =
90 (char *) xrealloc(b->op->buf, b->op->size += togrow)))
92 else if (!b->op->size && !(b->op->buf = (char *)
93 xmalloc(b->op->size = togrow)))
98 int odr_write(ODR o, const char *buf, int bytes)
100 if (bytes < 0 || o->op->pos > INT_MAX - bytes)
102 odr_seterror(o, OSPACE, 40);
105 if (o->op->pos + bytes >= o->op->size && odr_grow_block(o, bytes))
107 odr_seterror(o, OSPACE, 40);
110 memcpy(o->op->buf + o->op->pos, buf, bytes);
112 if (o->op->pos > o->op->top)
113 o->op->top = o->op->pos;
117 int odr_seek(ODR o, int whence, int offset)
119 if (whence == ODR_S_CUR)
120 offset += o->op->pos;
121 else if (whence == ODR_S_END)
122 offset += o->op->top;
123 if (offset > o->op->size && odr_grow_block(o, offset - o->op->size))
125 odr_seterror(o, OSPACE, 41);
132 Odr_int odr_strtol(const char *nptr, char **endptr, int base)
136 return _strtoui64(nptr, endptr, base);
138 return strtoll(nptr, endptr, base);
142 return strtol(nptr, endptr, base);
146 Odr_int odr_atoi(const char *s)
149 return odr_strtol(s, &endptr, 10);
155 * c-file-style: "Stroustrup"
156 * indent-tabs-mode: nil
158 * vim: shiftwidth=4 tabstop=8 expandtab