core
/
eccodes
mirror of https://github.com/ecmwf/eccodes.git
1
0
Fork 0
Code Issues Packages Projects Releases Wiki Activity
eccodes/src/grib_dumper_class_bufr_simp...

816 lines
25 KiB
C
Raw Blame History

/*
* (C) Copyright 2005- ECMWF.
*
* This software is licensed under the terms of the Apache Licence Version 2.0
* which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
*
* In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
* virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
*/
#include "grib_api_internal.h"
#include <ctype.h>
/*
This is used by make_class.pl
START_CLASS_DEF
CLASS = dumper
IMPLEMENTS = dump_long;dump_bits
IMPLEMENTS = dump_double;dump_string;dump_string_array
IMPLEMENTS = dump_bytes;dump_values
IMPLEMENTS = dump_label;dump_section
IMPLEMENTS = init;destroy
MEMBERS = long section_offset
MEMBERS = long empty
MEMBERS = long end
MEMBERS = long isLeaf
MEMBERS = long isAttribute
MEMBERS = long numberOfSubsets
MEMBERS = grib_string_list* keys
END_CLASS_DEF
*/
/* START_CLASS_IMP */
/*
Don't edit anything between START_CLASS_IMP and END_CLASS_IMP
Instead edit values between START_CLASS_DEF and END_CLASS_DEF
or edit "dumper.class" and rerun ./make_class.pl
*/
static void init_class(grib_dumper_class*);
static int init(grib_dumper* d);
static int destroy(grib_dumper*);
static void dump_long(grib_dumper* d, grib_accessor* a, const char* comment);
static void dump_bits(grib_dumper* d, grib_accessor* a, const char* comment);
static void dump_double(grib_dumper* d, grib_accessor* a, const char* comment);
static void dump_string(grib_dumper* d, grib_accessor* a, const char* comment);
static void dump_string_array(grib_dumper* d, grib_accessor* a, const char* comment);
static void dump_bytes(grib_dumper* d, grib_accessor* a, const char* comment);
static void dump_values(grib_dumper* d, grib_accessor* a);
static void dump_label(grib_dumper* d, grib_accessor* a, const char* comment);
static void dump_section(grib_dumper* d, grib_accessor* a, grib_block_of_accessors* block);
typedef struct grib_dumper_bufr_simple
{
grib_dumper dumper;
/* Members defined in bufr_simple */
long section_offset;
long empty;
long end;
long isLeaf;
long isAttribute;
long numberOfSubsets;
grib_string_list* keys;
} grib_dumper_bufr_simple;
static grib_dumper_class _grib_dumper_class_bufr_simple = {
0, /* super */
"bufr_simple", /* name */
sizeof(grib_dumper_bufr_simple), /* size */
0, /* inited */
&init_class, /* init_class */
&init, /* init */
&destroy, /* free mem */
&dump_long, /* dump long */
&dump_double, /* dump double */
&dump_string, /* dump string */
&dump_string_array, /* dump string array */
&dump_label, /* dump labels */
&dump_bytes, /* dump bytes */
&dump_bits, /* dump bits */
&dump_section, /* dump section */
&dump_values, /* dump values */
0, /* header */
0, /* footer */
};
grib_dumper_class* grib_dumper_class_bufr_simple = &_grib_dumper_class_bufr_simple;
/* END_CLASS_IMP */
static void dump_attributes(grib_dumper* d, grib_accessor* a, const char* prefix);
/* Note: A fast cut-down version of strcmp which does NOT return -1 */
/* 0 means input strings are equal and 1 means not equal */
GRIB_INLINE static int grib_inline_strcmp(const char* a, const char* b)
{
if (*a != *b)
return 1;
while ((*a != 0 && *b != 0) && *(a) == *(b)) {
a++;
b++;
}
return (*a == 0 && *b == 0) ? 0 : 1;
}
typedef struct string_count string_count;
struct string_count
{
char* value;
int count;
string_count* next;
};
static void init_class(grib_dumper_class* c) {}
static int init(grib_dumper* d)
{
grib_dumper_bufr_simple* self = (grib_dumper_bufr_simple*)d;
grib_context* c = d->handle->context;
self->section_offset = 0;
self->empty = 1;
self->isLeaf = 0;
self->isAttribute = 0;
self->numberOfSubsets = 0;
self->keys = (grib_string_list*)grib_context_malloc_clear(c, sizeof(grib_string_list));
return GRIB_SUCCESS;
}
static int destroy(grib_dumper* d)
{
grib_dumper_bufr_simple* self = (grib_dumper_bufr_simple*)d;
grib_string_list* next = self->keys;
grib_string_list* cur = NULL;
grib_context* c = d->handle->context;
while (next) {
cur = next;
next = next->next;
grib_context_free(c, cur->value);
grib_context_free(c, cur);
}
return GRIB_SUCCESS;
}
static void dump_values(grib_dumper* d, grib_accessor* a)
{
grib_dumper_bufr_simple* self = (grib_dumper_bufr_simple*)d;
double value = 0;
size_t size = 0, size2 = 0;
double* values = NULL;
int err = 0;
int i, r;
int cols = 9;
long count = 0;
grib_context* c = a->context;
grib_handle* h = grib_handle_of_accessor(a);
if ((a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
return;
grib_value_count(a, &count);
size = size2 = count;
if (size > 1) {
values = (double*)grib_context_malloc_clear(c, sizeof(double) * size);
err = grib_unpack_double(a, values, &size2);
}
else {
err = grib_unpack_double(a, &value, &size2);
}
Assert(size2 == size);
self->empty = 0;
if (size > 1) {
int icount = 0;
if ((r = compute_bufr_key_rank(h, self->keys, a->name)) != 0)
fprintf(self->dumper.out, "#%d#%s=", r, a->name);
else
fprintf(self->dumper.out, "%s=", a->name);
fprintf(self->dumper.out, "{");
for (i = 0; i < size - 1; ++i) {
if (icount > cols || i == 0) {
fprintf(self->dumper.out, "\n ");
icount = 0;
}
fprintf(self->dumper.out, "%g, ", values[i]);
icount++;
}
if (icount > cols || i == 0) {
fprintf(self->dumper.out, "\n ");
}
fprintf(self->dumper.out, "%g", values[i]);
fprintf(self->dumper.out, "}\n");
grib_context_free(c, values);
}
else {
r = compute_bufr_key_rank(h, self->keys, a->name);
if (r != 0)
fprintf(self->dumper.out, "#%d#%s=", r, a->name);
else
fprintf(self->dumper.out, "%s=", a->name);
if (!grib_is_missing_double(a, value)) {
fprintf(self->dumper.out, "%g\n", value);
}
else {
fprintf(self->dumper.out, "MISSING\n");
}
}
if (self->isLeaf == 0) {
char* prefix;
int dofree = 0;
if (r != 0) {
prefix = (char*)grib_context_malloc_clear(c, sizeof(char) * (strlen(a->name) + 10));
dofree = 1;
sprintf(prefix, "#%d#%s", r, a->name);
}
else
prefix = (char*)a->name;
dump_attributes(d, a, prefix);
if (dofree)
grib_context_free(c, prefix);
}
(void)err; /* TODO */
}
static void dump_values_attribute(grib_dumper* d, grib_accessor* a, const char* prefix)
{
grib_dumper_bufr_simple* self = (grib_dumper_bufr_simple*)d;
double value = 0;
size_t size = 0, size2 = 0;
double* values = NULL;
int err = 0;
int i, icount;
int cols = 9;
long count = 0;
grib_context* c = a->context;
if ((a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
return;
grib_value_count(a, &count);
size = size2 = count;
if (size > 1) {
values = (double*)grib_context_malloc_clear(c, sizeof(double) * size);
err = grib_unpack_double(a, values, &size2);
}
else {
err = grib_unpack_double(a, &value, &size2);
}
Assert(size2 == size);
self->empty = 0;
if (size > 1) {
fprintf(self->dumper.out, "%s->%s = {", prefix, a->name);
icount = 0;
for (i = 0; i < size - 1; ++i) {
if (icount > cols || i == 0) {
fprintf(self->dumper.out, "\n ");
icount = 0;
}
fprintf(self->dumper.out, "%g, ", values[i]);
icount++;
}
if (icount > cols || i == 0) {
fprintf(self->dumper.out, "\n ");
}
fprintf(self->dumper.out, "%g", values[i]);
fprintf(self->dumper.out, "}\n");
grib_context_free(c, values);
}
else {
/* int r=compute_bufr_key_rank(h,self->keys,a->name); */
if (!grib_is_missing_double(a, value)) {
fprintf(self->dumper.out, "%s->%s = %g\n", prefix, a->name, value);
}
else {
fprintf(self->dumper.out, "%s->%s = MISSING\n", prefix, a->name);
}
}
if (self->isLeaf == 0) {
char* prefix1;
prefix1 = (char*)grib_context_malloc_clear(c, sizeof(char) * (strlen(a->name) + strlen(prefix) + 5));
sprintf(prefix1, "%s->%s", prefix, a->name);
dump_attributes(d, a, prefix1);
grib_context_free(c, prefix1);
}
(void)err; /* TODO */
}
static void dump_long(grib_dumper* d, grib_accessor* a, const char* comment)
{
grib_dumper_bufr_simple* self = (grib_dumper_bufr_simple*)d;
long value = 0;
size_t size = 0, size2 = 0;
long* values = NULL;
int err = 0;
int i, r, icount;
int cols = 9;
long count = 0;
grib_context* c = a->context;
grib_handle* h = grib_handle_of_accessor(a);
if ((a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0)
return;
grib_value_count(a, &count);
size = size2 = count;
if ((a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0) {
if (self->isLeaf == 0) {
char* prefix;
int dofree = 0;
/* Note: the "subsetNumber" key is only there for UNCOMPRESSED BUFR messages */
if (self->numberOfSubsets > 1 && strcmp(a->name, "subsetNumber") == 0) {
err = grib_unpack_long(a, &value, &size);
DebugAssert(!err);
fprintf(self->dumper.out, "%s=%ld\n", a->name, value);
DebugAssert(!grib_is_missing_long(a, value));
(void)err;
return;
}
r = compute_bufr_key_rank(h, self->keys, a->name);
if (r != 0) {
prefix = (char*)grib_context_malloc_clear(c, sizeof(char) * (strlen(a->name) + 10));
dofree = 1;
sprintf(prefix, "#%d#%s", r, a->name);
}
else
prefix = (char*)a->name;
dump_attributes(d, a, prefix);
if (dofree)
grib_context_free(c, prefix);
}
return;
}
if (size > 1) {
values = (long*)grib_context_malloc_clear(a->context, sizeof(long) * size);
err = grib_unpack_long(a, values, &size2);
}
else {
err = grib_unpack_long(a, &value, &size2);
}
Assert(size2 == size);
self->empty = 0;
if (size > 1) {
int doing_unexpandedDescriptors = 0;
icount = 0;
if ((r = compute_bufr_key_rank(h, self->keys, a->name)) != 0)
fprintf(self->dumper.out, "#%d#%s=", r, a->name);
else
fprintf(self->dumper.out, "%s=", a->name);
fprintf(self->dumper.out, "{");
if (strcmp(a->name, "unexpandedDescriptors") == 0)
doing_unexpandedDescriptors = 1;
for (i = 0; i < size - 1; i++) {
if (icount > cols || i == 0) {
fprintf(self->dumper.out, "\n ");
icount = 0;
}
if (doing_unexpandedDescriptors)
fprintf(self->dumper.out, "%06ld, ", values[i]);
else
fprintf(self->dumper.out, "%ld, ", values[i]);
icount++;
}
if (icount > cols || i == 0) {
fprintf(self->dumper.out, "\n ");
}
if (doing_unexpandedDescriptors)
fprintf(self->dumper.out, "%06ld ", values[i]);
else
fprintf(self->dumper.out, "%ld ", values[i]);
fprintf(self->dumper.out, "}\n");
grib_context_free(a->context, values);
}
else {
r = compute_bufr_key_rank(h, self->keys, a->name);
if (r != 0)
fprintf(self->dumper.out, "#%d#%s=", r, a->name);
else
fprintf(self->dumper.out, "%s=", a->name);
if (!grib_is_missing_long(a, value)) {
fprintf(self->dumper.out, "%ld\n", value);
}
else {
fprintf(self->dumper.out, "MISSING\n");
}
}
if (self->isLeaf == 0) {
char* prefix;
int dofree = 0;
if (r != 0) {
prefix = (char*)grib_context_malloc_clear(c, sizeof(char) * (strlen(a->name) + 10));
dofree = 1;
sprintf(prefix, "#%d#%s", r, a->name);
}
else
prefix = (char*)a->name;
dump_attributes(d, a, prefix);
if (dofree)
grib_context_free(c, prefix);
}
(void)err; /* TODO */
}
static void dump_long_attribute(grib_dumper* d, grib_accessor* a, const char* prefix)
{
grib_dumper_bufr_simple* self = (grib_dumper_bufr_simple*)d;
long value = 0;
size_t size = 0, size2 = 0;
long* values = NULL;
int err = 0;
int i, icount;
int cols = 9;
long count = 0;
grib_context* c = a->context;
if ((a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
return;
grib_value_count(a, &count);
size = size2 = count;
if (size > 1) {
values = (long*)grib_context_malloc_clear(a->context, sizeof(long) * size);
err = grib_unpack_long(a, values, &size2);
}
else {
err = grib_unpack_long(a, &value, &size2);
}
Assert(size2 == size);
self->empty = 0;
if (size > 1) {
fprintf(self->dumper.out, "%s->%s = {", prefix, a->name);
icount = 0;
for (i = 0; i < size - 1; i++) {
if (icount > cols || i == 0) {
fprintf(self->dumper.out, "\n ");
icount = 0;
}
fprintf(self->dumper.out, "%ld, ", values[i]);
icount++;
}
if (icount > cols || i == 0) {
fprintf(self->dumper.out, "\n ");
}
fprintf(self->dumper.out, "%ld ", values[i]);
fprintf(self->dumper.out, "}\n");
grib_context_free(a->context, values);
}
else {
/* int r=compute_bufr_key_rank(h,self->keys,a->name); */
if (!grib_is_missing_long(a, value)) {
fprintf(self->dumper.out, "%s->%s = ", prefix, a->name);
fprintf(self->dumper.out, "%ld\n", value);
}
else {
fprintf(self->dumper.out, "%s->%s = MISSING\n", prefix, a->name);
}
}
if (self->isLeaf == 0) {
char* prefix1;
prefix1 = (char*)grib_context_malloc_clear(c, sizeof(char) * (strlen(a->name) + strlen(prefix) + 5));
sprintf(prefix1, "%s->%s", prefix, a->name);
dump_attributes(d, a, prefix1);
grib_context_free(c, prefix1);
}
(void)err; /* TODO */
}
static void dump_bits(grib_dumper* d, grib_accessor* a, const char* comment)
{
}
static void dump_double(grib_dumper* d, grib_accessor* a, const char* comment)
{
grib_dumper_bufr_simple* self = (grib_dumper_bufr_simple*)d;
double value = 0;
size_t size = 1;
int r;
grib_handle* h = grib_handle_of_accessor(a);
grib_context* c = h->context;
if ((a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
return;
grib_unpack_double(a, &value, &size);
self->empty = 0;
r = compute_bufr_key_rank(h, self->keys, a->name);
if (r != 0)
fprintf(self->dumper.out, "#%d#%s=", r, a->name);
else
fprintf(self->dumper.out, "%s=", a->name);
if (!grib_is_missing_double(a, value)) {
fprintf(self->dumper.out, "%g\n", value);
}
else {
fprintf(self->dumper.out, "MISSING\n");
}
if (self->isLeaf == 0) {
char* prefix;
int dofree = 0;
if (r != 0) {
prefix = (char*)grib_context_malloc_clear(c, sizeof(char) * (strlen(a->name) + 10));
dofree = 1;
sprintf(prefix, "#%d#%s", r, a->name);
}
else
prefix = (char*)a->name;
dump_attributes(d, a, prefix);
if (dofree)
grib_context_free(c, prefix);
}
}
static void dump_string_array(grib_dumper* d, grib_accessor* a, const char* comment)
{
grib_dumper_bufr_simple* self = (grib_dumper_bufr_simple*)d;
char** values = NULL;
size_t size = 0, i = 0;
grib_context* c = a->context;
int err = 0;
long count = 0;
int r = 0;
grib_handle* h = grib_handle_of_accessor(a);
if ((a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
return;
grib_value_count(a, &count);
size = count;
if (size == 1) {
dump_string(d, a, comment);
return;
}
if (self->isLeaf == 0) {
if ((r = compute_bufr_key_rank(h, self->keys, a->name)) != 0)
fprintf(self->dumper.out, "#%d#%s=", r, a->name);
else
fprintf(self->dumper.out, "%s=", a->name);
}
self->empty = 0;
values = (char**)grib_context_malloc_clear(c, size * sizeof(char*));
if (!values) {
grib_context_log(c, GRIB_LOG_FATAL, "unable to allocate %d bytes", (int)size);
return;
}
err = grib_unpack_string_array(a, values, &size);
fprintf(self->dumper.out, "{");
for (i = 0; i < size - 1; i++) {
fprintf(self->dumper.out, " \"%s\",\n", values[i]);
}
fprintf(self->dumper.out, " \"%s\"\n", values[i]);
fprintf(self->dumper.out, "}\n");
if (self->isLeaf == 0) {
char* prefix;
int dofree = 0;
if (r != 0) {
prefix = (char*)grib_context_malloc_clear(c, sizeof(char) * (strlen(a->name) + 10));
dofree = 1;
sprintf(prefix, "#%d#%s", r, a->name);
}
else
prefix = (char*)a->name;
dump_attributes(d, a, prefix);
if (dofree)
grib_context_free(c, prefix);
}
grib_context_free(c, values);
(void)err; /* TODO */
}
static void dump_string(grib_dumper* d, grib_accessor* a, const char* comment)
{
grib_dumper_bufr_simple* self = (grib_dumper_bufr_simple*)d;
char* value = NULL;
char* p = NULL;
size_t size = 0;
grib_context* c = a->context;
int r = 0;
int is_missing = 0;
int err = 0;
grib_handle* h = grib_handle_of_accessor(a);
const char* acc_name = a->name;
_grib_get_string_length(a, &size);
if (size == 0)
return;
if ((a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0) {
/* ECC-356: Solution for the special local section key 'keyMore' and its alias 'ident' */
int skip = 1;
if ((a->flags & GRIB_ACCESSOR_FLAG_HIDDEN) != 0) {
if (strcmp(a->name, "keyMore") == 0 && grib_is_defined(h, "ls.ident")) {
skip = 0;
acc_name = "ident";
}
}
if (skip)
return;
}
value = (char*)grib_context_malloc_clear(c, size);
if (!value) {
grib_context_log(c, GRIB_LOG_FATAL, "unable to allocate %d bytes", (int)size);
return;
}
self->empty = 0;
err = grib_unpack_string(a, value, &size);
p = value;
r = compute_bufr_key_rank(h, self->keys, acc_name);
if (grib_is_missing_string(a, (unsigned char*)value, size)) {
is_missing = 1;
}
while (*p) {
if (!isprint(*p))
*p = '.';
p++;
}
if (self->isLeaf == 0) {
if (r != 0)
fprintf(self->dumper.out, "#%d#%s=", r, acc_name);
else
fprintf(self->dumper.out, "%s=", acc_name);
}
if (is_missing)
fprintf(self->dumper.out, "%s\n", "MISSING");
else
fprintf(self->dumper.out, "\"%s\"\n", value);
if (self->isLeaf == 0) {
char* prefix;
int dofree = 0;
if (r != 0) {
prefix = (char*)grib_context_malloc_clear(c, sizeof(char) * (strlen(acc_name) + 10));
dofree = 1;
sprintf(prefix, "#%d#%s", r, acc_name);
}
else
prefix = (char*)acc_name;
dump_attributes(d, a, prefix);
if (dofree)
grib_context_free(c, prefix);
}
grib_context_free(c, value);
(void)err; /* TODO */
}
static void dump_bytes(grib_dumper* d, grib_accessor* a, const char* comment)
{
}
static void dump_label(grib_dumper* d, grib_accessor* a, const char* comment)
{
}
static void _dump_long_array(grib_handle* h, FILE* f, const char* key)
{
long* val;
size_t size = 0, i;
int cols = 9, icount = 0;
if (grib_get_size(h, key, &size) == GRIB_NOT_FOUND)
return;
if (size == 0)
return;
val = (long*)grib_context_malloc_clear(h->context, sizeof(long) * size);
grib_get_long_array(h, key, val, &size);
fprintf(f, "%s= {", key);
for (i = 0; i < size - 1; i++) {
if (icount > cols || i == 0) {
fprintf(f, "\n ");
icount = 0;
}
fprintf(f, "%ld, ", val[i]);
icount++;
}
if (icount > cols) {
fprintf(f, "\n ");
}
fprintf(f, "%ld}\n", val[size - 1]);
grib_context_free(h->context, val);
}
static void dump_section(grib_dumper* d, grib_accessor* a, grib_block_of_accessors* block)
{
grib_dumper_bufr_simple* self = (grib_dumper_bufr_simple*)d;
if (!grib_inline_strcmp(a->name, "BUFR") ||
!grib_inline_strcmp(a->name, "GRIB") ||
!grib_inline_strcmp(a->name, "META")) {
int err = 0;
grib_handle* h = grib_handle_of_accessor(a);
self->empty = 1;
err = grib_get_long(h, "numberOfSubsets", &(self->numberOfSubsets));
Assert(!err);
_dump_long_array(h, self->dumper.out, "dataPresentIndicator");
_dump_long_array(h, self->dumper.out, "delayedDescriptorReplicationFactor");
_dump_long_array(h, self->dumper.out, "shortDelayedDescriptorReplicationFactor");
_dump_long_array(h, self->dumper.out, "extendedDelayedDescriptorReplicationFactor");
/* Do not show the inputOverriddenReferenceValues array. That's more for ENCODING */
/*_dump_long_array(h,self->dumper.out,"inputOverriddenReferenceValues","inputOverriddenReferenceValues");*/
grib_dump_accessors_block(d, block);
}
else if (!grib_inline_strcmp(a->name, "groupNumber")) {
if ((a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0)
return;
self->empty = 1;
grib_dump_accessors_block(d, block);
}
else {
grib_dump_accessors_block(d, block);
}
}
static void dump_attributes(grib_dumper* d, grib_accessor* a, const char* prefix)
{
int i = 0;
grib_dumper_bufr_simple* self = (grib_dumper_bufr_simple*)d;
unsigned long flags;
while (i < MAX_ACCESSOR_ATTRIBUTES && a->attributes[i]) {
self->isAttribute = 1;
if ((d->option_flags & GRIB_DUMP_FLAG_ALL_ATTRIBUTES) == 0 && (a->attributes[i]->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0) {
i++;
continue;
}
self->isLeaf = a->attributes[i]->attributes[0] == NULL ? 1 : 0;
/* fprintf(self->dumper.out,","); */
/* fprintf(self->dumper.out,"\n%-*s",depth," "); */
/* fprintf(out,"\"%s\" : ",a->attributes[i]->name); */
flags = a->attributes[i]->flags;
a->attributes[i]->flags |= GRIB_ACCESSOR_FLAG_DUMP;
switch (grib_accessor_get_native_type(a->attributes[i])) {
case GRIB_TYPE_LONG:
dump_long_attribute(d, a->attributes[i], prefix);
break;
case GRIB_TYPE_DOUBLE:
dump_values_attribute(d, a->attributes[i], prefix);
break;
case GRIB_TYPE_STRING:
break;
}
a->attributes[i]->flags = flags;
i++;
}
self->isLeaf = 0;
self->isAttribute = 0;
}
Reference in New Issue View Git Blame Copy Permalink