1 /*
2 * (C) Copyright 2005- ECMWF.
3 *
4 * This software is licensed under the terms of the Apache Licence Version 2.0
5 * which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
6 *
7 * In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
8 * virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
9 */
10
11 /***************************************************************************
12 *
13 * Enrico Fucile
14 *
15 ***************************************************************************/
16
17 #include "grib_api_internal.h"
18
19 /* For debugging purposes */
grib_vdarray_print(const char * title,const grib_vdarray * vdarray)20 void grib_vdarray_print(const char* title, const grib_vdarray* vdarray)
21 {
22 size_t i;
23 char text[100] = {0,};
24 Assert(vdarray);
25 printf("%s: vdarray.n=%lu\n", title, (unsigned long)vdarray->n);
26 for (i = 0; i < vdarray->n; i++) {
27 sprintf(text, " vdarray->v[%lu]", (unsigned long)i);
28 grib_darray_print(text, vdarray->v[i]);
29 }
30 printf("\n");
31 }
32
grib_vdarray_new(grib_context * c,size_t size,size_t incsize)33 grib_vdarray* grib_vdarray_new(grib_context* c, size_t size, size_t incsize)
34 {
35 grib_vdarray* v = NULL;
36 if (!c)
37 c = grib_context_get_default();
38 v = (grib_vdarray*)grib_context_malloc_clear(c, sizeof(grib_vdarray));
39 if (!v) {
40 grib_context_log(c, GRIB_LOG_ERROR,
41 "grib_vdarray_new unable to allocate %ld bytes\n", sizeof(grib_vdarray));
42 return NULL;
43 }
44 v->size = size;
45 v->n = 0;
46 v->incsize = incsize;
47 v->context = c;
48 v->v = (grib_darray**)grib_context_malloc_clear(c, sizeof(grib_darray*) * size);
49 if (!v->v) {
50 grib_context_log(c, GRIB_LOG_ERROR,
51 "grib_vdarray_new unable to allocate %ld bytes\n", sizeof(grib_darray*) * size);
52 return NULL;
53 }
54 return v;
55 }
56
grib_vdarray_resize(grib_vdarray * v)57 static grib_vdarray* grib_vdarray_resize(grib_vdarray* v)
58 {
59 const size_t newsize = v->incsize + v->size;
60 grib_context* c = v->context;
61 if (!c)
62 c = grib_context_get_default();
63
64 v->v = (grib_darray**)grib_context_realloc(c, v->v, newsize * sizeof(grib_darray*));
65 v->size = newsize;
66 if (!v->v) {
67 grib_context_log(c, GRIB_LOG_ERROR,
68 "grib_vdarray_resize unable to allocate %ld bytes\n", sizeof(grib_darray*) * newsize);
69 return NULL;
70 }
71 return v;
72 }
73
grib_vdarray_push(grib_context * c,grib_vdarray * v,grib_darray * val)74 grib_vdarray* grib_vdarray_push(grib_context* c, grib_vdarray* v, grib_darray* val)
75 {
76 size_t start_size = 100;
77 size_t start_incsize = 100;
78 if (!v)
79 v = grib_vdarray_new(c, start_size, start_incsize);
80
81 if (v->n >= v->size)
82 v = grib_vdarray_resize(v);
83 v->v[v->n] = val;
84 v->n++;
85 return v;
86 }
87
grib_vdarray_delete(grib_context * c,grib_vdarray * v)88 void grib_vdarray_delete(grib_context* c, grib_vdarray* v)
89 {
90 if (!v)
91 return;
92 if (!c)
93 c = grib_context_get_default();
94 if (v->v)
95 grib_context_free(c, v->v);
96 grib_context_free(c, v);
97 }
98
grib_vdarray_delete_content(grib_context * c,grib_vdarray * v)99 void grib_vdarray_delete_content(grib_context* c, grib_vdarray* v)
100 {
101 int i;
102 if (!v || !v->v)
103 return;
104 if (!c)
105 c = grib_context_get_default();
106 for (i = 0; i < v->n; i++) {
107 grib_darray_delete(c, v->v[i]);
108 v->v[i] = 0;
109 }
110 v->n = 0;
111 }
112
grib_vdarray_get_array(grib_context * c,grib_vdarray * v)113 grib_darray** grib_vdarray_get_array(grib_context* c, grib_vdarray* v)
114 {
115 grib_darray** ret;
116 int i;
117 if (!v)
118 return NULL;
119 ret = (grib_darray**)grib_context_malloc_clear(c, sizeof(grib_darray*) * v->n);
120 for (i = 0; i < v->n; i++)
121 ret[i] = v->v[i];
122 return ret;
123 }
124
grib_vdarray_used_size(grib_vdarray * v)125 size_t grib_vdarray_used_size(grib_vdarray* v)
126 {
127 return v->n;
128 }
129