mirror of https://github.com/ecmwf/eccodes.git
ECC-320: Create bufr decode dump classes
This commit is contained in:
Shahram Najm
parent
05e352c534
commit
0d58794d55
|
|
@ -278,6 +278,10 @@ list( APPEND grib_api_srcs
|
|||
grib_dumper_class_bufr_encode_filter.c
|
||||
grib_dumper_class_bufr_encode_fortran.c
|
||||
grib_dumper_class_bufr_encode_python.c
|
||||
grib_dumper_class_bufr_decode_C.c
|
||||
grib_dumper_class_bufr_decode_filter.c
|
||||
grib_dumper_class_bufr_decode_fortran.c
|
||||
grib_dumper_class_bufr_decode_python.c
|
||||
grib_dumper_class_json.c
|
||||
grib_dumper_class_xml.c
|
||||
grib_dumper_class_c_code.c
|
||||
|
|
|
|||
|
|
@ -293,6 +293,10 @@ libeccodes_la_prototypes= \
|
|||
grib_dumper_class_bufr_encode_filter.c \
|
||||
grib_dumper_class_bufr_encode_fortran.c \
|
||||
grib_dumper_class_bufr_encode_python.c \
|
||||
grib_dumper_class_bufr_decode_C.c \
|
||||
grib_dumper_class_bufr_decode_filter.c \
|
||||
grib_dumper_class_bufr_decode_fortran.c \
|
||||
grib_dumper_class_bufr_decode_python.c \
|
||||
grib_dumper_class_json.c \
|
||||
grib_dumper_class_xml.c \
|
||||
grib_dumper_class_c_code.c \
|
||||
|
|
|
|||
|
|
@ -1,15 +1,19 @@
|
|||
/* This file is automatically generated by ./make_class.pl, do not edit */
|
||||
extern grib_dumper_class* grib_dumper_class_bufr_decode_C;
|
||||
extern grib_dumper_class* grib_dumper_class_bufr_decode_filter;
|
||||
extern grib_dumper_class* grib_dumper_class_bufr_decode_fortran;
|
||||
extern grib_dumper_class* grib_dumper_class_bufr_decode_python;
|
||||
extern grib_dumper_class* grib_dumper_class_bufr_encode_C;
|
||||
extern grib_dumper_class* grib_dumper_class_bufr_encode_filter;
|
||||
extern grib_dumper_class* grib_dumper_class_bufr_encode_fortran;
|
||||
extern grib_dumper_class* grib_dumper_class_bufr_encode_python;
|
||||
extern grib_dumper_class* grib_dumper_class_c_code;
|
||||
extern grib_dumper_class* grib_dumper_class_compare;
|
||||
extern grib_dumper_class* grib_dumper_class_debug;
|
||||
extern grib_dumper_class* grib_dumper_class_default;
|
||||
extern grib_dumper_class* grib_dumper_class_file;
|
||||
extern grib_dumper_class* grib_dumper_class_bufr_encode_filter;
|
||||
extern grib_dumper_class* grib_dumper_class_bufr_encode_fortran;
|
||||
extern grib_dumper_class* grib_dumper_class_json;
|
||||
extern grib_dumper_class* grib_dumper_class_keys;
|
||||
extern grib_dumper_class* grib_dumper_class_bufr_encode_python;
|
||||
extern grib_dumper_class* grib_dumper_class_serialize;
|
||||
extern grib_dumper_class* grib_dumper_class_string;
|
||||
extern grib_dumper_class* grib_dumper_class_wmo;
|
||||
|
|
|
|||
|
|
@ -0,0 +1,830 @@
|
|||
/*
|
||||
* Copyright 2005-2016 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
|
||||
IMPLEMENTS = header;footer
|
||||
MEMBERS = long section_offset
|
||||
MEMBERS = long empty
|
||||
MEMBERS = long end
|
||||
MEMBERS = long isLeaf
|
||||
MEMBERS = long isAttribute
|
||||
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);
|
||||
static void header (grib_dumper*,grib_handle*);
|
||||
static void footer (grib_dumper*,grib_handle*);
|
||||
|
||||
typedef struct grib_dumper_bufr_decode_C {
|
||||
grib_dumper dumper;
|
||||
/* Members defined in C */
|
||||
long section_offset;
|
||||
long empty;
|
||||
long end;
|
||||
long isLeaf;
|
||||
long isAttribute;
|
||||
grib_string_list* keys;
|
||||
} grib_dumper_bufr_decode_C;
|
||||
|
||||
|
||||
static grib_dumper_class _grib_dumper_class_bufr_decode_C = {
|
||||
0, /* super */
|
||||
"bufr_decode_C", /* name */
|
||||
sizeof(grib_dumper_bufr_decode_C), /* 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 */
|
||||
&header, /* header */
|
||||
&footer, /* footer */
|
||||
};
|
||||
|
||||
grib_dumper_class* grib_dumper_class_bufr_decode_C = &_grib_dumper_class_bufr_decode_C;
|
||||
|
||||
/* END_CLASS_IMP */
|
||||
static void dump_attributes(grib_dumper* d, grib_accessor* a, const char* prefix);
|
||||
|
||||
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 int depth=0;
|
||||
|
||||
static void init_class (grib_dumper_class* c){}
|
||||
|
||||
static int init(grib_dumper* d)
|
||||
{
|
||||
grib_dumper_bufr_decode_C *self = (grib_dumper_bufr_decode_C*)d;
|
||||
grib_context* c=d->handle->context;
|
||||
self->section_offset=0;
|
||||
self->empty=1;
|
||||
d->count=1;
|
||||
self->isLeaf=0;
|
||||
self->isAttribute=0;
|
||||
self->keys=grib_context_malloc_clear(c,sizeof(grib_string_list));
|
||||
|
||||
return GRIB_SUCCESS;
|
||||
}
|
||||
|
||||
static int destroy(grib_dumper* d)
|
||||
{
|
||||
grib_dumper_bufr_decode_C *self = (grib_dumper_bufr_decode_C*)d;
|
||||
grib_string_list* next=self->keys;
|
||||
grib_string_list* cur=self->keys;
|
||||
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 char* dval_to_string(grib_context* c, double v)
|
||||
{
|
||||
char* sval=grib_context_malloc_clear(c,sizeof(char)*40);
|
||||
sprintf(sval,"%.18e",v);
|
||||
return sval;
|
||||
}
|
||||
|
||||
static void dump_values(grib_dumper* d, grib_accessor* a)
|
||||
{
|
||||
grib_dumper_bufr_decode_C *self = (grib_dumper_bufr_decode_C*)d;
|
||||
double value; size_t size = 0;
|
||||
double *values=NULL;
|
||||
int err = 0;
|
||||
int i,r,icount;
|
||||
int cols=2;
|
||||
long count=0;
|
||||
char* sval;
|
||||
grib_context* c=a->context;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) !=0)
|
||||
return;
|
||||
|
||||
if (size>1) {
|
||||
values=(double*)grib_context_malloc_clear(c,sizeof(double)*size);
|
||||
err=grib_unpack_double(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_double(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
fprintf(self->dumper.out," free(rvalues); rvalues = NULL;\n\n");
|
||||
fprintf(self->dumper.out," rvalues = (double*)malloc(%lu*sizeof(double));\n", (unsigned long)size);
|
||||
fprintf(self->dumper.out," if (!rvalues) { fprintf(stderr, \"Failed to allocate memory (rvalues).\\n\"); return 1; }\n");
|
||||
fprintf(self->dumper.out," size = %lu;", size);
|
||||
|
||||
icount=0;
|
||||
for (i=0; i<size-1; ++i) {
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out,"\n ");icount=0;}
|
||||
sval=dval_to_string(c,values[i]);
|
||||
fprintf(self->dumper.out,"rvalues[%d]=%s; ", i, sval);
|
||||
grib_context_free(c,sval);
|
||||
icount++;
|
||||
}
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out,"\n ");icount=0;}
|
||||
sval=dval_to_string(c,values[i]);
|
||||
fprintf(self->dumper.out,"rvalues[%d]=%s;", i,sval);
|
||||
grib_context_free(c,sval);
|
||||
|
||||
depth-=2;
|
||||
fprintf(self->dumper.out,"\n");
|
||||
grib_context_free(c,values);
|
||||
|
||||
if ((r=compute_key_rank(h,self->keys,a->name))!=0)
|
||||
fprintf(self->dumper.out," CODES_CHECK(codes_set_double_array(h, \"#%d#%s\",rvalues, size), 0);\n", r, a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," CODES_CHECK(codes_set_double_array(h, \"%s\", rvalues, size), 0);\n",a->name);
|
||||
} else {
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if( !grib_is_missing_double(a,value) ) {
|
||||
|
||||
sval=dval_to_string(c,value);
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out," CODES_CHECK(codes_set_double(h, \"#%d#%s\", %s), 0);\n", r, a->name, sval);
|
||||
else
|
||||
fprintf(self->dumper.out," CODES_CHECK(codes_set_double(h, \"%s\", %s), 0);\n", a->name, sval);
|
||||
|
||||
grib_context_free(c,sval);
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_values_attribute(grib_dumper* d, grib_accessor* a, const char* prefix)
|
||||
{
|
||||
grib_dumper_bufr_decode_C *self = (grib_dumper_bufr_decode_C*)d;
|
||||
double value; size_t size = 0;
|
||||
double *values=NULL;
|
||||
int err = 0;
|
||||
int i,icount;
|
||||
int cols=2;
|
||||
long count=0;
|
||||
char* sval;
|
||||
grib_context* c=a->context;
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) !=0)
|
||||
return;
|
||||
|
||||
if (size>1) {
|
||||
values=(double*)grib_context_malloc_clear(c,sizeof(double)*size);
|
||||
err=grib_unpack_double(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_double(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
fprintf(self->dumper.out," free(rvalues); rvalues = NULL;\n");
|
||||
fprintf(self->dumper.out," rvalues = (double*)malloc(%lu*sizeof(double));\n", (unsigned long)size);
|
||||
fprintf(self->dumper.out," if (!rvalues) { fprintf(stderr, \"Failed to allocate memory (rvalues).\\n\"); return 1; }\n");
|
||||
fprintf(self->dumper.out," size = %lu;", size);
|
||||
|
||||
icount=0;
|
||||
for (i=0; i<size-1; ++i) {
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out,"\n ");icount=0;}
|
||||
sval=dval_to_string(c,values[i]);
|
||||
fprintf(self->dumper.out,"rvalues[%d]=%s; ", i, sval);
|
||||
grib_context_free(c,sval);
|
||||
icount++;
|
||||
}
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out,"\n ");icount=0;}
|
||||
sval=dval_to_string(c,values[i]);
|
||||
fprintf(self->dumper.out,"rvalues[%d]=%s;", i,sval);
|
||||
grib_context_free(c,sval);
|
||||
|
||||
depth-=2;
|
||||
fprintf(self->dumper.out,"\n");
|
||||
grib_context_free(c,values);
|
||||
|
||||
fprintf(self->dumper.out," CODES_CHECK(codes_set_double_array(h, \"%s->%s\", rvalues, size), 0);\n", prefix,a->name);
|
||||
} else {
|
||||
/* int r=compute_key_rank(h,self->keys,a->name); */
|
||||
if( !grib_is_missing_double(a,value) ) {
|
||||
|
||||
sval=dval_to_string(c,value);
|
||||
fprintf(self->dumper.out," CODES_CHECK(codes_set_double(h, \"%s->%s\", %s), 0);\n", prefix,a->name, sval);
|
||||
|
||||
grib_context_free(c,sval);
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix1;
|
||||
|
||||
prefix1=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_long(grib_dumper* d,grib_accessor* a, const char* comment)
|
||||
{
|
||||
grib_dumper_bufr_decode_C *self = (grib_dumper_bufr_decode_C*)d;
|
||||
long value; size_t size = 0;
|
||||
long *values=NULL;
|
||||
int err = 0;
|
||||
int i,r,icount;
|
||||
int cols=4;
|
||||
long count=0;
|
||||
grib_context* c=a->context;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 ) return;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0) {
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
if (size>1) {
|
||||
values=(long*)grib_context_malloc_clear(a->context,sizeof(long)*size);
|
||||
err=grib_unpack_long(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_long(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
fprintf(self->dumper.out," free(ivalues); ivalues = NULL;\n\n");
|
||||
fprintf(self->dumper.out," ivalues = (long*)malloc(%lu*sizeof(long));\n", (unsigned long)size);
|
||||
fprintf(self->dumper.out," if (!ivalues) { fprintf(stderr, \"Failed to allocate memory (ivalues).\\n\"); return 1; }\n");
|
||||
fprintf(self->dumper.out," size = %lu;", size);
|
||||
|
||||
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,"ivalues[%d]=%ld; ", i, values[i]);
|
||||
icount++;
|
||||
}
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out,"\n ");icount=0;}
|
||||
fprintf(self->dumper.out,"ivalues[%d]=%ld;", i, values[i]);
|
||||
|
||||
depth-=2;
|
||||
fprintf(self->dumper.out,"\n");
|
||||
grib_context_free(a->context,values);
|
||||
|
||||
if ((r=compute_key_rank(h,self->keys,a->name))!=0)
|
||||
fprintf(self->dumper.out," CODES_CHECK(codes_set_long_array(h, \"#%d#%s\", ivalues, size), 0);\n",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," CODES_CHECK(codes_set_long_array(h, \"%s\", ivalues, size), 0);\n",a->name);
|
||||
|
||||
} else {
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if( !grib_is_missing_long(a,value) ) {
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out," CODES_CHECK(codes_set_long(h, \"#%d#%s\", ", r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," CODES_CHECK(codes_set_long(h, \"%s\", ", a->name);
|
||||
|
||||
fprintf(self->dumper.out,"%ld), 0);\n",value);
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_long_attribute(grib_dumper* d, grib_accessor* a, const char* prefix)
|
||||
{
|
||||
grib_dumper_bufr_decode_C *self = (grib_dumper_bufr_decode_C*)d;
|
||||
long value; size_t size = 0;
|
||||
long *values=NULL;
|
||||
int err = 0;
|
||||
int i,icount;
|
||||
int cols=4;
|
||||
long count=0;
|
||||
grib_context* c=a->context;
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
|
||||
return;
|
||||
|
||||
if (size>1) {
|
||||
values=(long*)grib_context_malloc_clear(a->context,sizeof(long)*size);
|
||||
err=grib_unpack_long(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_long(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
fprintf(self->dumper.out," free(ivalues); ivalues = NULL;\n");
|
||||
fprintf(self->dumper.out," ivalues = (long*)malloc(%lu*sizeof(long));\n", (unsigned long)size);
|
||||
fprintf(self->dumper.out," if (!ivalues) { fprintf(stderr, \"Failed to allocate memory (ivalues).\\n\"); return 1; }\n");
|
||||
fprintf(self->dumper.out," size = %lu;", size);
|
||||
|
||||
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,"ivalues[%d]=%ld; ", i, values[i]);
|
||||
icount++;
|
||||
}
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out,"\n ");icount=0;}
|
||||
fprintf(self->dumper.out,"ivalues[%d]=%ld;", i, values[i]);
|
||||
|
||||
depth-=2;
|
||||
fprintf(self->dumper.out,"\n");
|
||||
grib_context_free(a->context,values);
|
||||
|
||||
fprintf(self->dumper.out," CODES_CHECK(codes_set_long_array(h, \"%s->%s\", ivalues, size), 0);\n", prefix,a->name);
|
||||
|
||||
} else {
|
||||
/* int r=compute_key_rank(h,self->keys,a->name); */
|
||||
if( !grib_is_missing_long(a,value) ) {
|
||||
fprintf(self->dumper.out," CODES_CHECK(codes_set_long(h, \"%s->%s\", ", prefix,a->name);
|
||||
fprintf(self->dumper.out,"%ld), 0);\n",value);
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix1;
|
||||
|
||||
prefix1=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);
|
||||
depth-=2;
|
||||
}
|
||||
(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_decode_C *self = (grib_dumper_bufr_decode_C*)d;
|
||||
double value; size_t size = 1;
|
||||
int r;
|
||||
char* sval;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
grib_context* c=h->context;
|
||||
|
||||
grib_unpack_double(a,&value,&size);
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
|
||||
return;
|
||||
|
||||
self->empty=0;
|
||||
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if( !grib_is_missing_double(a,value) ) {
|
||||
sval=dval_to_string(c,value);
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out," codes_set_double(h, \"#%d#%s\", %s);\n", r,a->name, sval);
|
||||
else
|
||||
fprintf(self->dumper.out," codes_set_double(h, \"%s\", %s);\n", a->name, sval);
|
||||
|
||||
grib_context_free(c,sval);
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
}
|
||||
|
||||
static void dump_string_array(grib_dumper* d, grib_accessor* a, const char* comment)
|
||||
{
|
||||
grib_dumper_bufr_decode_C *self = (grib_dumper_bufr_decode_C*)d;
|
||||
char **values;
|
||||
size_t size = 0,i=0;
|
||||
grib_context* c=NULL;
|
||||
int err = 0;
|
||||
long count=0;
|
||||
int r;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
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=count;
|
||||
if (size==1) {
|
||||
dump_string(d,a,comment);
|
||||
return;
|
||||
}
|
||||
|
||||
fprintf(self->dumper.out," free(svalues);\n");
|
||||
fprintf(self->dumper.out," svalues = (char**)malloc(%lu * sizeof(char*));\n", (unsigned long)size);
|
||||
fprintf(self->dumper.out," if (!svalues) { fprintf(stderr, \"Failed to allocate memory (svalues).\\n\"); return 1; }\n");
|
||||
fprintf(self->dumper.out," size = %lu;\n", size);
|
||||
|
||||
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);
|
||||
for (i=0;i<size-1;i++) {
|
||||
fprintf(self->dumper.out," svalues[%lu]=\"%s\"; \n", i, values[i]);
|
||||
}
|
||||
fprintf(self->dumper.out," svalues[%lu]=\"%s\";\n", i, values[i]);
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
if ((r=compute_key_rank(h,self->keys,a->name))!=0)
|
||||
fprintf(self->dumper.out," codes_set_string_array(h, \"#%d#%s\", (const char **)svalues, size);\n",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," codes_set_string_array(h, \"%s\", (const char **)svalues, size);\n",a->name);
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
grib_context_free(c,values);
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_string(grib_dumper* d, grib_accessor* a, const char* comment)
|
||||
{
|
||||
grib_dumper_bufr_decode_C *self = (grib_dumper_bufr_decode_C*)d;
|
||||
char *value=NULL;
|
||||
char *p = NULL;
|
||||
size_t size = 0;
|
||||
grib_context* c=NULL;
|
||||
int r;
|
||||
int err = _grib_get_string_length(a,&size);
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
c=a->context;
|
||||
if (size==0) return;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
|
||||
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_key_rank(h,self->keys,a->name);
|
||||
if (grib_is_missing_string(a,(unsigned char *)value,size))
|
||||
return;
|
||||
|
||||
while(*p) { if(!isprint(*p)) *p = '.'; p++; }
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
depth+=2;
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out," codes_set_string(h, \"#%d#%s\", ", r, a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," codes_set_string(h, \"%s\", ", a->name);
|
||||
}
|
||||
fprintf(self->dumper.out,"\"%s\", &size);\n",value);
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
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, const char* print_key)
|
||||
{
|
||||
long* val;
|
||||
size_t size=0,i;
|
||||
int cols=9,icount=0;
|
||||
|
||||
if (grib_get_size(h,key,&size)==GRIB_NOT_FOUND) return;
|
||||
|
||||
fprintf(f," free(ivalues); ivalues = NULL;\n");
|
||||
fprintf(f," ivalues = (long*)malloc(%lu*sizeof(long));\n", (unsigned long)size);
|
||||
fprintf(f," if (!ivalues) { fprintf(stderr, \"Failed to allocate memory (ivalues).\\n\"); return 1; }\n");
|
||||
fprintf(f," size = %lu;", size);
|
||||
|
||||
val=grib_context_malloc_clear(h->context,sizeof(long)*size);
|
||||
grib_get_long_array(h,key,val,&size);
|
||||
for (i=0;i<size-1;i++) {
|
||||
if (icount>cols || i==0) {fprintf(f,"\n ");icount=0;}
|
||||
fprintf(f,"ivalues[%lu]=%ld; ", i, val[i]);
|
||||
icount++;
|
||||
}
|
||||
if (icount>cols) {fprintf(f,"\n ");}
|
||||
fprintf(f,"ivalues[%lu]=%ld;\n", size-1, val[size-1]);
|
||||
|
||||
grib_context_free(h->context,val);
|
||||
fprintf(f," CODES_CHECK(codes_set_long_array(h, \"%s\", ivalues, size), 0);\n",print_key);
|
||||
}
|
||||
|
||||
static void dump_section(grib_dumper* d, grib_accessor* a, grib_block_of_accessors* block)
|
||||
{
|
||||
grib_dumper_bufr_decode_C *self = (grib_dumper_bufr_decode_C*)d;
|
||||
if (!grib_inline_strcmp(a->name,"BUFR") ||
|
||||
!grib_inline_strcmp(a->name,"GRIB") ||
|
||||
!grib_inline_strcmp(a->name,"META")
|
||||
) {
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
depth=2;
|
||||
self->empty=1;
|
||||
depth+=2;
|
||||
_dump_long_array(h,self->dumper.out,"dataPresentIndicator","inputDataPresentIndicator");
|
||||
_dump_long_array(h,self->dumper.out,"delayedDescriptorReplicationFactor","inputDelayedDescriptorReplicationFactor");
|
||||
_dump_long_array(h,self->dumper.out,"shortDelayedDescriptorReplicationFactor","inputShortDelayedDescriptorReplicationFactor");
|
||||
_dump_long_array(h,self->dumper.out,"extendedDelayedDescriptorReplicationFactor","inputExtendedDelayedDescriptorReplicationFactor");
|
||||
grib_dump_accessors_block(d,block);
|
||||
depth-=2;
|
||||
} else if (!grib_inline_strcmp(a->name,"groupNumber")) {
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0)
|
||||
return;
|
||||
self->empty=1;
|
||||
depth+=2;
|
||||
grib_dump_accessors_block(d,block);
|
||||
depth-=2;
|
||||
} 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_decode_C *self = (grib_dumper_bufr_decode_C*)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;
|
||||
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;
|
||||
}
|
||||
|
||||
static void header(grib_dumper* d, grib_handle* h)
|
||||
{
|
||||
grib_dumper_bufr_decode_C *self = (grib_dumper_bufr_decode_C*)d;
|
||||
char sampleName[200]={0};
|
||||
long localSectionPresent,edition,bufrHeaderCentre,isSatellite;
|
||||
|
||||
Assert(h->product_kind == PRODUCT_BUFR);
|
||||
|
||||
grib_get_long(h,"localSectionPresent",&localSectionPresent);
|
||||
grib_get_long(h,"bufrHeaderCentre",&bufrHeaderCentre);
|
||||
grib_get_long(h,"edition",&edition);
|
||||
|
||||
if (localSectionPresent && bufrHeaderCentre==98 ) {
|
||||
grib_get_long(h,"isSatellite",&isSatellite);
|
||||
if (isSatellite)
|
||||
sprintf(sampleName,"BUFR%ld_local_satellite",edition);
|
||||
else
|
||||
sprintf(sampleName,"BUFR%ld_local",edition);
|
||||
} else {
|
||||
sprintf(sampleName,"BUFR%ld",edition);
|
||||
}
|
||||
|
||||
if (d->count<2) {
|
||||
fprintf(self->dumper.out,"/* This program has been automatically generated with bufr_dump -DC */\n");
|
||||
fprintf(self->dumper.out,"/* Using ecCodes version: ");
|
||||
grib_print_api_version(self->dumper.out);
|
||||
fprintf(self->dumper.out, " */\n\n");
|
||||
fprintf(self->dumper.out,"#include \"eccodes.h\"\n");
|
||||
fprintf(self->dumper.out,"int main()\n");
|
||||
fprintf(self->dumper.out,"{\n");
|
||||
fprintf(self->dumper.out," size_t size=0;\n");
|
||||
fprintf(self->dumper.out," const void* buffer = NULL;\n");
|
||||
fprintf(self->dumper.out," FILE* fout = NULL;\n");
|
||||
fprintf(self->dumper.out," codes_handle* h = NULL;\n");
|
||||
fprintf(self->dumper.out," long* ivalues = NULL;\n");
|
||||
fprintf(self->dumper.out," char** svalues = NULL;\n");
|
||||
fprintf(self->dumper.out," double* rvalues = NULL;\n");
|
||||
fprintf(self->dumper.out," const char* sampleName = \"%s\";\n\n", sampleName);
|
||||
}
|
||||
|
||||
fprintf(self->dumper.out," h = codes_bufr_handle_new_from_samples(NULL, sampleName);\n");
|
||||
fprintf(self->dumper.out," if (h == NULL) {\n");
|
||||
fprintf(self->dumper.out," fprintf(stderr, \"ERROR creating BUFR from %%s\\n\", sampleName);\n");
|
||||
fprintf(self->dumper.out," return 1;\n");
|
||||
fprintf(self->dumper.out," }\n");
|
||||
}
|
||||
|
||||
static void footer(grib_dumper* d, grib_handle* h)
|
||||
{
|
||||
grib_dumper_bufr_decode_C *self = (grib_dumper_bufr_decode_C*)d;
|
||||
fprintf(self->dumper.out,"\n codes_set_long(h, \"pack\", 1);\n");
|
||||
if (d->count==1)
|
||||
fprintf(self->dumper.out," fout = fopen(\"outfile.bufr\", \"w\");\n");
|
||||
else
|
||||
fprintf(self->dumper.out," fout = fopen(\"outfile.bufr\", \"a\");\n");
|
||||
|
||||
/*fprintf(self->dumper.out," fout = fopen(\"outfile.bufr\", \"w\");");*/
|
||||
fprintf(self->dumper.out," if (!fout) {\n");
|
||||
fprintf(self->dumper.out," fprintf(stderr, \"Failed to open output file.\\n\");\n");
|
||||
fprintf(self->dumper.out," return 1;\n");
|
||||
fprintf(self->dumper.out," }\n");
|
||||
fprintf(self->dumper.out," CODES_CHECK(codes_get_message(h,&buffer,&size),0);\n");
|
||||
fprintf(self->dumper.out," if (fwrite(buffer,1,size,fout) != size) {\n");
|
||||
fprintf(self->dumper.out," fprintf(stderr, \"Failed to write data.\\n\");\n");
|
||||
fprintf(self->dumper.out," return 1;\n");
|
||||
fprintf(self->dumper.out," }\n");
|
||||
fprintf(self->dumper.out," if (fclose(fout)) {\n");
|
||||
fprintf(self->dumper.out," fprintf(stderr, \"Failed to close file handle.\\n\");\n");
|
||||
fprintf(self->dumper.out," return 1;\n");
|
||||
fprintf(self->dumper.out," }\n");
|
||||
fprintf(self->dumper.out," \n");
|
||||
fprintf(self->dumper.out," codes_handle_delete(h);\n");
|
||||
fprintf(self->dumper.out," free(ivalues); ivalues = NULL;\n");
|
||||
fprintf(self->dumper.out," free(rvalues); rvalues = NULL;\n");
|
||||
fprintf(self->dumper.out," free(svalues); svalues = NULL;\n\n");
|
||||
}
|
||||
|
|
@ -0,0 +1,719 @@
|
|||
/*
|
||||
* Copyright 2005-2016 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 begin
|
||||
MEMBERS = long empty
|
||||
MEMBERS = long end
|
||||
MEMBERS = long isLeaf
|
||||
MEMBERS = long isAttribute
|
||||
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_decode_filter {
|
||||
grib_dumper dumper;
|
||||
/* Members defined in filter */
|
||||
long section_offset;
|
||||
long begin;
|
||||
long empty;
|
||||
long end;
|
||||
long isLeaf;
|
||||
long isAttribute;
|
||||
grib_string_list* keys;
|
||||
} grib_dumper_bufr_decode_filter;
|
||||
|
||||
|
||||
static grib_dumper_class _grib_dumper_class_bufr_decode_filter = {
|
||||
0, /* super */
|
||||
"bufr_decode_filter", /* name */
|
||||
sizeof(grib_dumper_bufr_decode_filter), /* 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_decode_filter = &_grib_dumper_class_bufr_decode_filter;
|
||||
|
||||
/* END_CLASS_IMP */
|
||||
static void dump_attributes(grib_dumper* d,grib_accessor* a, const char* prefix);
|
||||
|
||||
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 int depth=0;
|
||||
|
||||
static void init_class (grib_dumper_class* c){}
|
||||
|
||||
static int init(grib_dumper* d)
|
||||
{
|
||||
grib_dumper_bufr_decode_filter *self = (grib_dumper_bufr_decode_filter*)d;
|
||||
grib_context* c=d->handle->context;
|
||||
self->section_offset=0;
|
||||
self->empty=1;
|
||||
self->isLeaf=0;
|
||||
self->isAttribute=0;
|
||||
self->keys=grib_context_malloc_clear(c,sizeof(grib_string_list));
|
||||
|
||||
return GRIB_SUCCESS;
|
||||
}
|
||||
|
||||
static int destroy(grib_dumper* d)
|
||||
{
|
||||
grib_dumper_bufr_decode_filter *self = (grib_dumper_bufr_decode_filter*)d;
|
||||
grib_string_list* next=self->keys;
|
||||
grib_string_list* cur=self->keys;
|
||||
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_decode_filter *self = (grib_dumper_bufr_decode_filter*)d;
|
||||
double value; size_t size = 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);
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) !=0)
|
||||
return;
|
||||
|
||||
if (size>1) {
|
||||
values=(double*)grib_context_malloc_clear(c,sizeof(double)*size);
|
||||
err=grib_unpack_double(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_double(a,&value,&size);
|
||||
}
|
||||
|
||||
self->begin=0;
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
int icount=0;
|
||||
|
||||
if ((r=compute_key_rank(h,self->keys,a->name))!=0)
|
||||
fprintf(self->dumper.out,"set #%d#%s=",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out,"set %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,"%.18e, ", values[i]);
|
||||
icount++;
|
||||
}
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out,"\n ");icount=0;}
|
||||
fprintf(self->dumper.out, "%.18e",values[i]);
|
||||
|
||||
depth-=2;
|
||||
fprintf(self->dumper.out,"};\n");
|
||||
grib_context_free(c,values);
|
||||
} else {
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if( !grib_is_missing_double(a,value) ) {
|
||||
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out,"set #%d#%s=",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out,"set %s=",a->name);
|
||||
|
||||
fprintf(self->dumper.out,"%.18e;\n",value);
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_values_attribute(grib_dumper* d,grib_accessor* a, const char* prefix)
|
||||
{
|
||||
grib_dumper_bufr_decode_filter *self = (grib_dumper_bufr_decode_filter*)d;
|
||||
double value; size_t size = 0;
|
||||
double *values=NULL;
|
||||
int err = 0;
|
||||
int i,icount;
|
||||
int cols=2;
|
||||
long count=0;
|
||||
grib_context* c=a->context;
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) !=0)
|
||||
return;
|
||||
|
||||
if (size>1) {
|
||||
values=(double*)grib_context_malloc_clear(c,sizeof(double)*size);
|
||||
err=grib_unpack_double(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_double(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
fprintf(self->dumper.out,"set %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,"%.18e, ", values[i]);
|
||||
icount++;
|
||||
}
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out,"\n ");icount=0;}
|
||||
fprintf(self->dumper.out,"%.18e", values[i]);
|
||||
|
||||
depth-=2;
|
||||
fprintf(self->dumper.out,"};\n");
|
||||
grib_context_free(c,values);
|
||||
} else {
|
||||
/* int r=compute_key_rank(h,self->keys,a->name); */
|
||||
if( !grib_is_missing_double(a,value) ) {
|
||||
fprintf(self->dumper.out,"set %s->%s = %.18e;\n", prefix, a->name, value);
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix1;
|
||||
|
||||
prefix1=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_long(grib_dumper* d, grib_accessor* a, const char* comment)
|
||||
{
|
||||
grib_dumper_bufr_decode_filter *self = (grib_dumper_bufr_decode_filter*)d;
|
||||
long value; size_t size = 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);
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 ) return;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0) {
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
if (size>1) {
|
||||
values=(long*)grib_context_malloc_clear(a->context,sizeof(long)*size);
|
||||
err=grib_unpack_long(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_long(a,&value,&size);
|
||||
}
|
||||
|
||||
self->begin=0;
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
icount=0;
|
||||
if ((r=compute_key_rank(h,self->keys,a->name))!=0)
|
||||
fprintf(self->dumper.out,"set #%d#%s=",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out,"set %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,"%ld, ",values[i]);
|
||||
icount++;
|
||||
}
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out,"\n ");icount=0;}
|
||||
fprintf(self->dumper.out,"%ld ",values[i]);
|
||||
|
||||
depth-=2;
|
||||
fprintf(self->dumper.out,"};\n");
|
||||
grib_context_free(a->context,values);
|
||||
} else {
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if( !grib_is_missing_long(a,value) ) {
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out,"set #%d#%s=",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out,"set %s=",a->name);
|
||||
|
||||
fprintf(self->dumper.out,"%ld;\n",value);
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_long_attribute(grib_dumper* d, grib_accessor* a, const char* prefix)
|
||||
{
|
||||
grib_dumper_bufr_decode_filter *self = (grib_dumper_bufr_decode_filter*)d;
|
||||
long value; size_t size = 0;
|
||||
long *values=NULL;
|
||||
int err = 0;
|
||||
int i,icount;
|
||||
int cols=4;
|
||||
long count=0;
|
||||
grib_context* c=a->context;
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
|
||||
return;
|
||||
|
||||
if (size>1) {
|
||||
values=(long*)grib_context_malloc_clear(a->context,sizeof(long)*size);
|
||||
err=grib_unpack_long(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_long(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
fprintf(self->dumper.out,"set %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 ");icount=0;}
|
||||
fprintf(self->dumper.out,"%ld ",values[i]);
|
||||
depth-=2;
|
||||
fprintf(self->dumper.out,"};\n");
|
||||
grib_context_free(a->context,values);
|
||||
|
||||
} else {
|
||||
/* int r=compute_key_rank(h,self->keys,a->name); */
|
||||
if( !grib_is_missing_long(a,value) ) {
|
||||
fprintf(self->dumper.out,"set %s->%s = ",prefix,a->name);
|
||||
fprintf(self->dumper.out,"%ld ;\n",value);
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix1;
|
||||
|
||||
prefix1=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);
|
||||
depth-=2;
|
||||
}
|
||||
(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_decode_filter *self = (grib_dumper_bufr_decode_filter*)d;
|
||||
double value; size_t size = 1;
|
||||
int r;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
grib_context* c=h->context;
|
||||
|
||||
grib_unpack_double(a,&value,&size);
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
|
||||
return;
|
||||
|
||||
self->begin=0;
|
||||
self->empty=0;
|
||||
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if( !grib_is_missing_double(a,value) ) {
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out,"set #%d#%s=",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out,"set %s=",a->name);
|
||||
|
||||
fprintf(self->dumper.out,"%.18e;\n",value);
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
}
|
||||
|
||||
static void dump_string_array(grib_dumper* d, grib_accessor* a, const char* comment)
|
||||
{
|
||||
grib_dumper_bufr_decode_filter *self = (grib_dumper_bufr_decode_filter*)d;
|
||||
char **values;
|
||||
size_t size = 0,i=0;
|
||||
grib_context* c=NULL;
|
||||
int err = 0;
|
||||
long count=0;
|
||||
int r=0;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
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=count;
|
||||
if (size==1) {
|
||||
dump_string(d,a,comment);
|
||||
return;
|
||||
}
|
||||
|
||||
self->begin=0;
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
depth+=2;
|
||||
if ((r=compute_key_rank(h,self->keys,a->name))!=0)
|
||||
fprintf(self->dumper.out,"set #%d#%s=",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out,"set %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, "{");
|
||||
depth+=2;
|
||||
for (i=0;i<size-1;i++) {
|
||||
fprintf(self->dumper.out," \"%s\",\n",values[i]);
|
||||
}
|
||||
fprintf(self->dumper.out," \"%s\"\n",values[i]);
|
||||
|
||||
depth-=2;
|
||||
|
||||
fprintf(self->dumper.out, "};\n");
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
grib_context_free(c,values);
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_string(grib_dumper* d, grib_accessor* a, const char* comment)
|
||||
{
|
||||
grib_dumper_bufr_decode_filter *self = (grib_dumper_bufr_decode_filter*)d;
|
||||
char *value=NULL;
|
||||
char *p = NULL;
|
||||
size_t size = 0;
|
||||
grib_context* c=NULL;
|
||||
int r;
|
||||
int err = _grib_get_string_length(a,&size);
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
c=a->context;
|
||||
if (size==0) return;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
|
||||
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;
|
||||
}
|
||||
|
||||
else self->begin=0;
|
||||
|
||||
self->empty=0;
|
||||
|
||||
err = grib_unpack_string(a,value,&size);
|
||||
p=value;
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if (grib_is_missing_string(a,(unsigned char *)value,size))
|
||||
return;
|
||||
|
||||
while(*p) { if(!isprint(*p)) *p = '.'; p++; }
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
depth+=2;
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out,"set #%d#%s=",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out,"set %s=",a->name);
|
||||
}
|
||||
fprintf(self->dumper.out,"\"%s\";\n",value);
|
||||
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
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, const char* print_key)
|
||||
{
|
||||
long* val;
|
||||
size_t size=0,i;
|
||||
int cols=9,icount=0;
|
||||
|
||||
if (grib_get_size(h,key,&size)==GRIB_NOT_FOUND) return;
|
||||
|
||||
val=grib_context_malloc_clear(h->context,sizeof(long)*size);
|
||||
grib_get_long_array(h,key,val,&size);
|
||||
fprintf(f,"set %s= {",print_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_decode_filter *self = (grib_dumper_bufr_decode_filter*)d;
|
||||
if (!grib_inline_strcmp(a->name,"BUFR") ||
|
||||
!grib_inline_strcmp(a->name,"GRIB") ||
|
||||
!grib_inline_strcmp(a->name,"META")
|
||||
) {
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
depth=2;
|
||||
self->begin=1;
|
||||
self->empty=1;
|
||||
depth+=2;
|
||||
_dump_long_array(h,self->dumper.out,"dataPresentIndicator","inputDataPresentIndicator");
|
||||
_dump_long_array(h,self->dumper.out,"delayedDescriptorReplicationFactor","inputDelayedDescriptorReplicationFactor");
|
||||
_dump_long_array(h,self->dumper.out,"shortDelayedDescriptorReplicationFactor","inputShortDelayedDescriptorReplicationFactor");
|
||||
_dump_long_array(h,self->dumper.out,"extendedDelayedDescriptorReplicationFactor","inputExtendedDelayedDescriptorReplicationFactor");
|
||||
grib_dump_accessors_block(d,block);
|
||||
depth-=2;
|
||||
} else if (!grib_inline_strcmp(a->name,"groupNumber")) {
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0)
|
||||
return;
|
||||
self->begin=1;
|
||||
self->empty=1;
|
||||
depth+=2;
|
||||
grib_dump_accessors_block(d,block);
|
||||
depth-=2;
|
||||
} 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_decode_filter *self = (grib_dumper_bufr_decode_filter*)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;
|
||||
}
|
||||
|
|
@ -0,0 +1,823 @@
|
|||
/*
|
||||
* Copyright 2005-2016 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
|
||||
IMPLEMENTS = header;footer
|
||||
MEMBERS = long section_offset
|
||||
MEMBERS = long empty
|
||||
MEMBERS = long end
|
||||
MEMBERS = long isLeaf
|
||||
MEMBERS = long isAttribute
|
||||
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);
|
||||
static void header (grib_dumper*,grib_handle*);
|
||||
static void footer (grib_dumper*,grib_handle*);
|
||||
|
||||
typedef struct grib_dumper_bufr_decode_fortran {
|
||||
grib_dumper dumper;
|
||||
/* Members defined in fortran */
|
||||
long section_offset;
|
||||
long empty;
|
||||
long end;
|
||||
long isLeaf;
|
||||
long isAttribute;
|
||||
grib_string_list* keys;
|
||||
} grib_dumper_bufr_decode_fortran;
|
||||
|
||||
|
||||
static grib_dumper_class _grib_dumper_class_bufr_decode_fortran = {
|
||||
0, /* super */
|
||||
"bufr_decode_fortran", /* name */
|
||||
sizeof(grib_dumper_bufr_decode_fortran), /* 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 */
|
||||
&header, /* header */
|
||||
&footer, /* footer */
|
||||
};
|
||||
|
||||
grib_dumper_class* grib_dumper_class_bufr_decode_fortran = &_grib_dumper_class_bufr_decode_fortran;
|
||||
|
||||
/* END_CLASS_IMP */
|
||||
static void dump_attributes(grib_dumper* d, grib_accessor* a, const char* prefix);
|
||||
|
||||
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 int depth=0;
|
||||
|
||||
static void init_class (grib_dumper_class* c){}
|
||||
|
||||
static int init(grib_dumper* d)
|
||||
{
|
||||
grib_dumper_bufr_decode_fortran *self = (grib_dumper_bufr_decode_fortran*)d;
|
||||
grib_context* c=d->handle->context;
|
||||
self->section_offset=0;
|
||||
self->empty=1;
|
||||
d->count=1;
|
||||
self->isLeaf=0;
|
||||
self->isAttribute=0;
|
||||
self->keys=grib_context_malloc_clear(c,sizeof(grib_string_list));
|
||||
|
||||
return GRIB_SUCCESS;
|
||||
}
|
||||
|
||||
static int destroy(grib_dumper* d)
|
||||
{
|
||||
grib_dumper_bufr_decode_fortran *self = (grib_dumper_bufr_decode_fortran*)d;
|
||||
grib_string_list* next=self->keys;
|
||||
grib_string_list* cur=self->keys;
|
||||
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 char* dval_to_string(grib_context* c, double v)
|
||||
{
|
||||
char* sval=grib_context_malloc_clear(c,sizeof(char)*40);
|
||||
char* p;
|
||||
sprintf(sval,"%.18e",v);
|
||||
p=sval;
|
||||
while (*p !=0 ) {
|
||||
if (*p == 'e') *p='d';
|
||||
p++;
|
||||
}
|
||||
return sval;
|
||||
}
|
||||
|
||||
static void dump_values(grib_dumper* d, grib_accessor* a)
|
||||
{
|
||||
grib_dumper_bufr_decode_fortran *self = (grib_dumper_bufr_decode_fortran*)d;
|
||||
double value; size_t size = 0;
|
||||
double *values=NULL;
|
||||
int err = 0;
|
||||
int i,r,icount;
|
||||
int cols=2;
|
||||
long count=0;
|
||||
char* sval;
|
||||
grib_context* c=a->context;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) !=0)
|
||||
return;
|
||||
|
||||
if (size>1) {
|
||||
values=(double*)grib_context_malloc_clear(c,sizeof(double)*size);
|
||||
err=grib_unpack_double(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_double(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
|
||||
fprintf(self->dumper.out," if(allocated(rvalues)) deallocate(rvalues)\n");
|
||||
fprintf(self->dumper.out," allocate(rvalues(%lu))\n", (unsigned long)size);
|
||||
|
||||
fprintf(self->dumper.out," rvalues=(/");
|
||||
|
||||
icount=0;
|
||||
for (i=0; i<size-1; ++i) {
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out," &\n ");icount=0;}
|
||||
sval=dval_to_string(c,values[i]);
|
||||
fprintf(self->dumper.out,"%s, ", sval);
|
||||
grib_context_free(c,sval);
|
||||
icount++;
|
||||
}
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out," &\n ");icount=0;}
|
||||
sval=dval_to_string(c,values[i]);
|
||||
fprintf(self->dumper.out,"%s", sval);
|
||||
grib_context_free(c,sval);
|
||||
|
||||
depth-=2;
|
||||
fprintf(self->dumper.out,"/)\n");
|
||||
grib_context_free(c,values);
|
||||
|
||||
if ((r=compute_key_rank(h,self->keys,a->name))!=0)
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'#%d#%s',rvalues)\n",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'%s',rvalues)\n",a->name);
|
||||
} else {
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if( !grib_is_missing_double(a,value) ) {
|
||||
|
||||
sval=dval_to_string(c,value);
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'#%d#%s',%s)\n",r,a->name,sval);
|
||||
else
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'%s',%s)\n",a->name,sval);
|
||||
|
||||
grib_context_free(c,sval);
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_values_attribute(grib_dumper* d, grib_accessor* a, const char* prefix)
|
||||
{
|
||||
grib_dumper_bufr_decode_fortran *self = (grib_dumper_bufr_decode_fortran*)d;
|
||||
double value; size_t size = 0;
|
||||
double *values=NULL;
|
||||
int err = 0;
|
||||
int i,icount;
|
||||
int cols=2;
|
||||
long count=0;
|
||||
char* sval;
|
||||
grib_context* c=a->context;
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) !=0)
|
||||
return;
|
||||
|
||||
if (size>1) {
|
||||
values=(double*)grib_context_malloc_clear(c,sizeof(double)*size);
|
||||
err=grib_unpack_double(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_double(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
|
||||
fprintf(self->dumper.out," if(allocated(rvalues)) deallocate(rvalues)\n");
|
||||
fprintf(self->dumper.out," allocate(rvalues(%lu))\n", (unsigned long)size);
|
||||
|
||||
fprintf(self->dumper.out," rvalues=(/");
|
||||
|
||||
icount=0;
|
||||
for (i=0; i<size-1; ++i) {
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out," &\n ");icount=0;}
|
||||
sval=dval_to_string(c,values[i]);
|
||||
fprintf(self->dumper.out,"%s, ", sval);
|
||||
grib_context_free(c,sval);
|
||||
icount++;
|
||||
}
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out," &\n ");icount=0;}
|
||||
sval=dval_to_string(c,values[i]);
|
||||
fprintf(self->dumper.out,"%s", sval);
|
||||
grib_context_free(c,sval);
|
||||
|
||||
depth-=2;
|
||||
fprintf(self->dumper.out,"/)\n");
|
||||
grib_context_free(c,values);
|
||||
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'%s->%s' &\n,rvalues)\n",prefix,a->name);
|
||||
} else {
|
||||
/* int r=compute_key_rank(h,self->keys,a->name); */
|
||||
if( !grib_is_missing_double(a,value) ) {
|
||||
|
||||
sval=dval_to_string(c,value);
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'%s->%s' &\n,%s)\n",prefix,a->name,sval);
|
||||
|
||||
grib_context_free(c,sval);
|
||||
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix1;
|
||||
|
||||
prefix1=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_long(grib_dumper* d,grib_accessor* a, const char* comment)
|
||||
{
|
||||
grib_dumper_bufr_decode_fortran *self = (grib_dumper_bufr_decode_fortran*)d;
|
||||
long value; size_t size = 0;
|
||||
long *values=NULL;
|
||||
int err = 0;
|
||||
int i,r,icount;
|
||||
int cols=4;
|
||||
long count=0;
|
||||
grib_context* c=a->context;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 ) return;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0) {
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
if (size>1) {
|
||||
values=(long*)grib_context_malloc_clear(a->context,sizeof(long)*size);
|
||||
err=grib_unpack_long(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_long(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
fprintf(self->dumper.out," if(allocated(ivalues)) deallocate(ivalues)\n");
|
||||
fprintf(self->dumper.out," allocate(ivalues(%lu))\n", (unsigned long)size);
|
||||
|
||||
fprintf(self->dumper.out," ivalues=(/");
|
||||
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 ");icount=0;}
|
||||
fprintf(self->dumper.out,"%ld ",values[i]);
|
||||
|
||||
depth-=2;
|
||||
fprintf(self->dumper.out,"/)\n");
|
||||
grib_context_free(a->context,values);
|
||||
|
||||
if ((r=compute_key_rank(h,self->keys,a->name))!=0)
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'#%d#%s',ivalues)\n",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'%s',ivalues)\n",a->name);
|
||||
|
||||
} else {
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if( !grib_is_missing_long(a,value) ) {
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'#%d#%s',",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'%s',",a->name);
|
||||
|
||||
fprintf(self->dumper.out,"%ld)\n",value);
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_long_attribute(grib_dumper* d, grib_accessor* a, const char* prefix)
|
||||
{
|
||||
grib_dumper_bufr_decode_fortran *self = (grib_dumper_bufr_decode_fortran*)d;
|
||||
long value; size_t size = 0;
|
||||
long *values=NULL;
|
||||
int err = 0;
|
||||
int i,icount;
|
||||
int cols=4;
|
||||
long count=0;
|
||||
grib_context* c=a->context;
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
|
||||
return;
|
||||
|
||||
if (size>1) {
|
||||
values=(long*)grib_context_malloc_clear(a->context,sizeof(long)*size);
|
||||
err=grib_unpack_long(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_long(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
fprintf(self->dumper.out," if(allocated(ivalues)) deallocate(ivalues)\n");
|
||||
fprintf(self->dumper.out," allocate(ivalues(%lu))\n", (unsigned long)size);
|
||||
|
||||
fprintf(self->dumper.out," ivalues=(/");
|
||||
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 ");icount=0;}
|
||||
fprintf(self->dumper.out,"%ld ",values[i]);
|
||||
|
||||
depth-=2;
|
||||
fprintf(self->dumper.out,"/)\n");
|
||||
grib_context_free(a->context,values);
|
||||
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'%s->%s' &\n,ivalues)\n",prefix,a->name);
|
||||
|
||||
} else {
|
||||
/* int r=compute_key_rank(h,self->keys,a->name); */
|
||||
if( !grib_is_missing_long(a,value) ) {
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'%s->%s'&\n,",prefix,a->name);
|
||||
fprintf(self->dumper.out,"%ld)\n",value);
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix1;
|
||||
|
||||
prefix1=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);
|
||||
depth-=2;
|
||||
}
|
||||
(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_decode_fortran *self = (grib_dumper_bufr_decode_fortran*)d;
|
||||
double value; size_t size = 1;
|
||||
int r;
|
||||
char* sval;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
grib_context* c=h->context;
|
||||
|
||||
grib_unpack_double(a,&value,&size);
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
|
||||
return;
|
||||
|
||||
self->empty=0;
|
||||
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if( !grib_is_missing_double(a,value) ) {
|
||||
sval=dval_to_string(c,value);
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'#%d#%s',%s)\n",r,a->name,sval);
|
||||
else
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'%s',%s)\n",a->name,sval);
|
||||
|
||||
grib_context_free(c,sval);
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
}
|
||||
|
||||
static void dump_string_array(grib_dumper* d, grib_accessor* a, const char* comment)
|
||||
{
|
||||
grib_dumper_bufr_decode_fortran *self = (grib_dumper_bufr_decode_fortran*)d;
|
||||
char **values;
|
||||
size_t size = 0,i=0;
|
||||
grib_context* c=NULL;
|
||||
int err = 0;
|
||||
long count=0;
|
||||
int r;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
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=count;
|
||||
if (size==1) {
|
||||
dump_string(d,a,comment);
|
||||
return;
|
||||
}
|
||||
|
||||
fprintf(self->dumper.out," if(allocated(svalues)) deallocate(svalues)\n");
|
||||
fprintf(self->dumper.out," allocate(svalues(%lu))\n", (unsigned long)size);
|
||||
|
||||
fprintf(self->dumper.out," svalues=(/");
|
||||
|
||||
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);
|
||||
|
||||
for (i=0;i<size-1;i++) {
|
||||
fprintf(self->dumper.out," \"%s\", &\n",values[i]);
|
||||
}
|
||||
fprintf(self->dumper.out," \"%s\" /)\n",values[i]);
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
if ((r=compute_key_rank(h,self->keys,a->name))!=0)
|
||||
fprintf(self->dumper.out," call codes_set_string_array(ibufr,'#%d#%s',svalues)\n",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," call codes_set_string_array(ibufr,'%s',svalues)\n",a->name);
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
grib_context_free(c,values);
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_string(grib_dumper* d, grib_accessor* a, const char* comment)
|
||||
{
|
||||
grib_dumper_bufr_decode_fortran *self = (grib_dumper_bufr_decode_fortran*)d;
|
||||
char *value=NULL;
|
||||
char *p = NULL;
|
||||
size_t size = 0;
|
||||
grib_context* c=NULL;
|
||||
int r;
|
||||
int err = _grib_get_string_length(a,&size);
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
c=a->context;
|
||||
if (size==0) return;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
|
||||
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_key_rank(h,self->keys,a->name);
|
||||
if (grib_is_missing_string(a,(unsigned char *)value,size))
|
||||
return;
|
||||
|
||||
while(*p) { if(!isprint(*p)) *p = '.'; p++; }
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
depth+=2;
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'#%d#%s',",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'%s',",a->name);
|
||||
}
|
||||
fprintf(self->dumper.out,"\'%s\')\n",value);
|
||||
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
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, const char* print_key)
|
||||
{
|
||||
long* val;
|
||||
size_t size=0,i;
|
||||
int cols=9,icount=0;
|
||||
|
||||
if (grib_get_size(h,key,&size)==GRIB_NOT_FOUND) return;
|
||||
|
||||
fprintf(f," if(allocated(ivalues)) deallocate(ivalues)\n");
|
||||
fprintf(f," allocate(ivalues(%lu))\n", (unsigned long)size);
|
||||
|
||||
fprintf(f," ivalues=(/ ");
|
||||
|
||||
val=grib_context_malloc_clear(h->context,sizeof(long)*size);
|
||||
grib_get_long_array(h,key,val,&size);
|
||||
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);
|
||||
fprintf(f," call codes_set(ibufr,'%s',ivalues)\n",print_key);
|
||||
}
|
||||
|
||||
static void dump_section(grib_dumper* d, grib_accessor* a, grib_block_of_accessors* block)
|
||||
{
|
||||
grib_dumper_bufr_decode_fortran *self = (grib_dumper_bufr_decode_fortran*)d;
|
||||
if (!grib_inline_strcmp(a->name,"BUFR") ||
|
||||
!grib_inline_strcmp(a->name,"GRIB") ||
|
||||
!grib_inline_strcmp(a->name,"META")
|
||||
) {
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
depth=2;
|
||||
self->empty=1;
|
||||
depth+=2;
|
||||
_dump_long_array(h,self->dumper.out,"dataPresentIndicator","inputDataPresentIndicator");
|
||||
_dump_long_array(h,self->dumper.out,"delayedDescriptorReplicationFactor","inputDelayedDescriptorReplicationFactor");
|
||||
_dump_long_array(h,self->dumper.out,"shortDelayedDescriptorReplicationFactor","inputShortDelayedDescriptorReplicationFactor");
|
||||
_dump_long_array(h,self->dumper.out,"extendedDelayedDescriptorReplicationFactor","inputExtendedDelayedDescriptorReplicationFactor");
|
||||
grib_dump_accessors_block(d,block);
|
||||
depth-=2;
|
||||
} else if (!grib_inline_strcmp(a->name,"groupNumber")) {
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0)
|
||||
return;
|
||||
self->empty=1;
|
||||
depth+=2;
|
||||
grib_dump_accessors_block(d,block);
|
||||
depth-=2;
|
||||
} 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_decode_fortran *self = (grib_dumper_bufr_decode_fortran*)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;
|
||||
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;
|
||||
}
|
||||
|
||||
static void header(grib_dumper* d, grib_handle* h)
|
||||
{
|
||||
grib_dumper_bufr_decode_fortran *self = (grib_dumper_bufr_decode_fortran*)d;
|
||||
char sampleName[200]={0};
|
||||
long localSectionPresent,edition,bufrHeaderCentre,isSatellite;
|
||||
|
||||
grib_get_long(h,"localSectionPresent",&localSectionPresent);
|
||||
grib_get_long(h,"bufrHeaderCentre",&bufrHeaderCentre);
|
||||
grib_get_long(h,"edition",&edition);
|
||||
|
||||
if (localSectionPresent && bufrHeaderCentre==98 ) {
|
||||
grib_get_long(h,"isSatellite",&isSatellite);
|
||||
if (isSatellite)
|
||||
sprintf(sampleName,"BUFR%ld_local_satellite",edition);
|
||||
else
|
||||
sprintf(sampleName,"BUFR%ld_local",edition);
|
||||
} else {
|
||||
sprintf(sampleName,"BUFR%ld",edition);
|
||||
}
|
||||
|
||||
if (d->count<2) {
|
||||
fprintf(self->dumper.out,"! This program has been automatically generated with bufr_dump -Dfortran\n");
|
||||
fprintf(self->dumper.out,"! Using ecCodes version: ");
|
||||
grib_print_api_version(self->dumper.out);
|
||||
fprintf(self->dumper.out, "\n\n");
|
||||
fprintf(self->dumper.out,"program bufr_create_message\n");
|
||||
fprintf(self->dumper.out," use eccodes\n");
|
||||
fprintf(self->dumper.out," implicit none\n");
|
||||
fprintf(self->dumper.out," integer :: iret\n");
|
||||
fprintf(self->dumper.out," integer :: outfile\n");
|
||||
fprintf(self->dumper.out," integer :: ibufr\n");
|
||||
fprintf(self->dumper.out," integer(kind=4), dimension(:), allocatable :: ivalues\n");
|
||||
fprintf(self->dumper.out," integer, parameter :: max_strsize = 100\n");
|
||||
fprintf(self->dumper.out," character(len=max_strsize) , dimension(:),allocatable :: svalues\n");
|
||||
fprintf(self->dumper.out," real(kind=8), dimension(:), allocatable :: rvalues\n");
|
||||
}
|
||||
fprintf(self->dumper.out," call codes_bufr_new_from_samples(ibufr,'%s',iret)\n",sampleName);
|
||||
fprintf(self->dumper.out," if (iret/=CODES_SUCCESS) then\n");
|
||||
fprintf(self->dumper.out," print *,'ERROR creating BUFR from %s'\n",sampleName);
|
||||
fprintf(self->dumper.out," stop 1\n");
|
||||
fprintf(self->dumper.out," endif\n");
|
||||
}
|
||||
|
||||
static void footer(grib_dumper* d, grib_handle* h)
|
||||
{
|
||||
grib_dumper_bufr_decode_fortran *self = (grib_dumper_bufr_decode_fortran*)d;
|
||||
fprintf(self->dumper.out," call codes_set(ibufr,'pack',1)\n");
|
||||
if (d->count==1)
|
||||
fprintf(self->dumper.out," call codes_open_file(outfile,'outfile.bufr','w')\n");
|
||||
else
|
||||
fprintf(self->dumper.out," call codes_open_file(outfile,'outfile.bufr','a')\n");
|
||||
|
||||
fprintf(self->dumper.out," call codes_write(ibufr,outfile)\n");
|
||||
fprintf(self->dumper.out," call codes_close_file(outfile)\n");
|
||||
fprintf(self->dumper.out," call codes_release(ibufr)\n");
|
||||
fprintf(self->dumper.out," if(allocated(ivalues)) deallocate(ivalues)\n");
|
||||
fprintf(self->dumper.out," if(allocated(rvalues)) deallocate(rvalues)\n");
|
||||
fprintf(self->dumper.out," if(allocated(svalues)) deallocate(svalues)\n");
|
||||
}
|
||||
|
|
@ -0,0 +1,789 @@
|
|||
/*
|
||||
* Copyright 2005-2016 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
|
||||
IMPLEMENTS = header;footer
|
||||
MEMBERS = long section_offset
|
||||
MEMBERS = long empty
|
||||
MEMBERS = long end
|
||||
MEMBERS = long isLeaf
|
||||
MEMBERS = long isAttribute
|
||||
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);
|
||||
static void header (grib_dumper*,grib_handle*);
|
||||
static void footer (grib_dumper*,grib_handle*);
|
||||
|
||||
typedef struct grib_dumper_bufr_decode_python {
|
||||
grib_dumper dumper;
|
||||
/* Members defined in python */
|
||||
long section_offset;
|
||||
long empty;
|
||||
long end;
|
||||
long isLeaf;
|
||||
long isAttribute;
|
||||
grib_string_list* keys;
|
||||
} grib_dumper_bufr_decode_python;
|
||||
|
||||
|
||||
static grib_dumper_class _grib_dumper_class_bufr_decode_python = {
|
||||
0, /* super */
|
||||
"bufr_decode_python", /* name */
|
||||
sizeof(grib_dumper_bufr_decode_python), /* 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 */
|
||||
&header, /* header */
|
||||
&footer, /* footer */
|
||||
};
|
||||
|
||||
grib_dumper_class* grib_dumper_class_bufr_decode_python = &_grib_dumper_class_bufr_decode_python;
|
||||
|
||||
/* END_CLASS_IMP */
|
||||
static void dump_attributes(grib_dumper* d,grib_accessor* a, const char* prefix);
|
||||
|
||||
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 int depth=0;
|
||||
|
||||
static void init_class (grib_dumper_class* c){}
|
||||
|
||||
static int init(grib_dumper* d)
|
||||
{
|
||||
grib_dumper_bufr_decode_python *self = (grib_dumper_bufr_decode_python*)d;
|
||||
grib_context* c=d->handle->context;
|
||||
self->section_offset=0;
|
||||
self->empty=1;
|
||||
d->count=1;
|
||||
self->isLeaf=0;
|
||||
self->isAttribute=0;
|
||||
self->keys=grib_context_malloc_clear(c,sizeof(grib_string_list));
|
||||
|
||||
return GRIB_SUCCESS;
|
||||
}
|
||||
|
||||
static int destroy(grib_dumper* d)
|
||||
{
|
||||
grib_dumper_bufr_decode_python *self = (grib_dumper_bufr_decode_python*)d;
|
||||
grib_string_list* next=self->keys;
|
||||
grib_string_list* cur=self->keys;
|
||||
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 char* dval_to_string(const grib_context* c,double v)
|
||||
{
|
||||
char* sval=grib_context_malloc_clear(c,sizeof(char)*40);
|
||||
sprintf(sval,"%.18e",v);
|
||||
return sval;
|
||||
}
|
||||
|
||||
static void dump_values(grib_dumper* d,grib_accessor* a)
|
||||
{
|
||||
grib_dumper_bufr_decode_python *self = (grib_dumper_bufr_decode_python*)d;
|
||||
double value; size_t size = 0;
|
||||
double *values=NULL;
|
||||
int err = 0;
|
||||
int i,r,icount;
|
||||
int cols=2;
|
||||
long count=0;
|
||||
char* sval;
|
||||
grib_context* c=a->context;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) !=0)
|
||||
return;
|
||||
|
||||
if (size>1) {
|
||||
values=(double*)grib_context_malloc_clear(c,sizeof(double)*size);
|
||||
err=grib_unpack_double(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_double(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
fprintf(self->dumper.out," rvalues = (");
|
||||
|
||||
icount=0;
|
||||
for (i=0; i<size-1; ++i) {
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out,"\n ");icount=0;}
|
||||
sval=dval_to_string(c,values[i]);
|
||||
fprintf(self->dumper.out,"%s, ", sval);
|
||||
grib_context_free(c,sval);
|
||||
icount++;
|
||||
}
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out,"\n ");icount=0;}
|
||||
sval=dval_to_string(c,values[i]);
|
||||
fprintf(self->dumper.out,"%s", sval);
|
||||
grib_context_free(c,sval);
|
||||
|
||||
depth-=2;
|
||||
/* Note: In python to make a tuple with one element, you need the trailing comma */
|
||||
fprintf(self->dumper.out,",)\n");
|
||||
grib_context_free(c,values);
|
||||
|
||||
if ((r=compute_key_rank(h,self->keys,a->name))!=0)
|
||||
fprintf(self->dumper.out," codes_set_array(ibufr, '#%d#%s', rvalues)\n",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," codes_set_array(ibufr, '%s', rvalues)\n",a->name);
|
||||
} else {
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if( !grib_is_missing_double(a,value) ) {
|
||||
|
||||
sval=dval_to_string(c,value);
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out," codes_set(ibufr, '#%d#%s', %s)\n",r,a->name,sval);
|
||||
else
|
||||
fprintf(self->dumper.out," codes_set(ibufr, '%s', %s)\n",a->name,sval);
|
||||
|
||||
grib_context_free(c,sval);
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_values_attribute(grib_dumper* d,grib_accessor* a, const char* prefix)
|
||||
{
|
||||
grib_dumper_bufr_decode_python *self = (grib_dumper_bufr_decode_python*)d;
|
||||
double value; size_t size = 0;
|
||||
double *values=NULL;
|
||||
int err = 0;
|
||||
int i,icount;
|
||||
int cols=2;
|
||||
long count=0;
|
||||
char* sval;
|
||||
grib_context* c=a->context;
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) !=0)
|
||||
return;
|
||||
|
||||
if (size>1) {
|
||||
values=(double*)grib_context_malloc_clear(c,sizeof(double)*size);
|
||||
err=grib_unpack_double(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_double(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
|
||||
fprintf(self->dumper.out," rvalues = (");
|
||||
|
||||
icount=0;
|
||||
for (i=0; i<size-1; ++i) {
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out,"\n ");icount=0;}
|
||||
sval=dval_to_string(c,values[i]);
|
||||
fprintf(self->dumper.out,"%s, ", sval);
|
||||
grib_context_free(c,sval);
|
||||
icount++;
|
||||
}
|
||||
if (icount>cols || i==0) {fprintf(self->dumper.out,"\n ");icount=0;}
|
||||
sval=dval_to_string(c,values[i]);
|
||||
fprintf(self->dumper.out,"%s", sval);
|
||||
grib_context_free(c,sval);
|
||||
|
||||
depth-=2;
|
||||
/* Note: In python to make a tuple with one element, you need the trailing comma */
|
||||
fprintf(self->dumper.out,",)\n");
|
||||
grib_context_free(c,values);
|
||||
|
||||
fprintf(self->dumper.out," codes_set_array(ibufr, '%s->%s' \n, rvalues)\n",prefix,a->name);
|
||||
} else {
|
||||
/* int r=compute_key_rank(h,self->keys,a->name); */
|
||||
if( !grib_is_missing_double(a,value) ) {
|
||||
|
||||
sval=dval_to_string(c,value);
|
||||
fprintf(self->dumper.out," codes_set(ibufr, '%s->%s' \n,%s)\n",prefix,a->name,sval);
|
||||
|
||||
grib_context_free(c,sval);
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix1;
|
||||
|
||||
prefix1=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_long(grib_dumper* d, grib_accessor* a, const char* comment)
|
||||
{
|
||||
grib_dumper_bufr_decode_python *self = (grib_dumper_bufr_decode_python*)d;
|
||||
long value; size_t size = 0;
|
||||
long *values=NULL;
|
||||
int err = 0;
|
||||
int i,r,icount;
|
||||
int cols=4;
|
||||
long count=0;
|
||||
grib_context* c=a->context;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 ) return;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0) {
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
return;
|
||||
}
|
||||
|
||||
if (size>1) {
|
||||
values=(long*)grib_context_malloc_clear(a->context,sizeof(long)*size);
|
||||
err=grib_unpack_long(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_long(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
fprintf(self->dumper.out," ivalues = (");
|
||||
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 ");icount=0;}
|
||||
fprintf(self->dumper.out,"%ld",values[i]);
|
||||
|
||||
depth-=2;
|
||||
/* Note: In python to make a tuple with one element, you need the trailing comma */
|
||||
fprintf(self->dumper.out,",)\n");
|
||||
grib_context_free(a->context,values);
|
||||
|
||||
if ((r=compute_key_rank(h,self->keys,a->name))!=0)
|
||||
fprintf(self->dumper.out," codes_set_array(ibufr, '#%d#%s', ivalues)\n",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," codes_set_array(ibufr, '%s', ivalues)\n",a->name);
|
||||
|
||||
} else {
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if( !grib_is_missing_long(a,value) ) {
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out," codes_set(ibufr, '#%d#%s', ",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," codes_set(ibufr, '%s', ",a->name);
|
||||
|
||||
fprintf(self->dumper.out,"%ld)\n",value);
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_long_attribute(grib_dumper* d, grib_accessor* a, const char* prefix)
|
||||
{
|
||||
grib_dumper_bufr_decode_python *self = (grib_dumper_bufr_decode_python*)d;
|
||||
long value; size_t size = 0;
|
||||
long *values=NULL;
|
||||
int err = 0;
|
||||
int i,icount;
|
||||
int cols=4;
|
||||
long count=0;
|
||||
grib_context* c=a->context;
|
||||
|
||||
grib_value_count(a,&count);
|
||||
size=count;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
|
||||
return;
|
||||
|
||||
if (size>1) {
|
||||
values=(long*)grib_context_malloc_clear(a->context,sizeof(long)*size);
|
||||
err=grib_unpack_long(a,values,&size);
|
||||
} else {
|
||||
err=grib_unpack_long(a,&value,&size);
|
||||
}
|
||||
|
||||
self->empty=0;
|
||||
|
||||
if (size>1) {
|
||||
fprintf(self->dumper.out," ivalues = (");
|
||||
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 ");icount=0;}
|
||||
fprintf(self->dumper.out,"%ld ",values[i]);
|
||||
|
||||
depth-=2;
|
||||
/* Note: In python to make a tuple with one element, you need the trailing comma */
|
||||
fprintf(self->dumper.out,",)\n");
|
||||
grib_context_free(a->context,values);
|
||||
|
||||
fprintf(self->dumper.out," codes_set_array(ibufr, '%s->%s' \n,ivalues)\n",prefix,a->name);
|
||||
|
||||
} else {
|
||||
/* int r=compute_key_rank(h,self->keys,a->name); */
|
||||
if( !grib_is_missing_long(a,value) ) {
|
||||
fprintf(self->dumper.out," codes_set(ibufr, '%s->%s'\n,",prefix,a->name);
|
||||
fprintf(self->dumper.out,"%ld)\n",value);
|
||||
}
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix1;
|
||||
|
||||
prefix1=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);
|
||||
depth-=2;
|
||||
}
|
||||
(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_decode_python *self = (grib_dumper_bufr_decode_python*)d;
|
||||
double value; size_t size = 1;
|
||||
int r;
|
||||
char* sval;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
grib_context* c=h->context;
|
||||
|
||||
grib_unpack_double(a,&value,&size);
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
|
||||
return;
|
||||
|
||||
self->empty=0;
|
||||
|
||||
r=compute_key_rank(h,self->keys,a->name);
|
||||
if( !grib_is_missing_double(a,value) ) {
|
||||
sval=dval_to_string(c,value);
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out," codes_set(ibufr, '#%d#%s', %s)\n",r,a->name,sval);
|
||||
else
|
||||
fprintf(self->dumper.out," codes_set(ibufr, '%s', %s)\n",a->name,sval);
|
||||
|
||||
grib_context_free(c,sval);
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
}
|
||||
|
||||
static void dump_string_array(grib_dumper* d,grib_accessor* a,const char* comment)
|
||||
{
|
||||
grib_dumper_bufr_decode_python *self = (grib_dumper_bufr_decode_python*)d;
|
||||
char **values;
|
||||
size_t size = 0,i=0;
|
||||
grib_context* c=NULL;
|
||||
int err = 0;
|
||||
long count=0;
|
||||
int r=0;
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
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=count;
|
||||
if (size==1) {
|
||||
dump_string(d,a,comment);
|
||||
return;
|
||||
}
|
||||
|
||||
fprintf(self->dumper.out," svalues = (");
|
||||
|
||||
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);
|
||||
|
||||
for (i=0;i<size-1;i++) {
|
||||
fprintf(self->dumper.out," \"%s\", \n",values[i]);
|
||||
}
|
||||
fprintf(self->dumper.out," \"%s\", )\n",values[i]);
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
if ((r=compute_key_rank(h,self->keys,a->name))!=0)
|
||||
fprintf(self->dumper.out," codes_set_string_array(ibufr, '#%d#%s', svalues)\n",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," codes_set_string_array(ibufr, '%s', svalues)\n",a->name);
|
||||
}
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
grib_context_free(c,values);
|
||||
(void)err; /* TODO */
|
||||
}
|
||||
|
||||
static void dump_string(grib_dumper* d,grib_accessor* a,const char* comment)
|
||||
{
|
||||
grib_dumper_bufr_decode_python *self = (grib_dumper_bufr_decode_python*)d;
|
||||
char *value=NULL;
|
||||
char *p = NULL;
|
||||
size_t size = 0;
|
||||
grib_context* c=NULL;
|
||||
int r;
|
||||
int err = _grib_get_string_length(a,&size);
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
|
||||
c=a->context;
|
||||
if (size==0) return;
|
||||
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0 || (a->flags & GRIB_ACCESSOR_FLAG_READ_ONLY) != 0)
|
||||
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_key_rank(h,self->keys,a->name);
|
||||
if (grib_is_missing_string(a,(unsigned char *)value,size))
|
||||
return;
|
||||
|
||||
while(*p) { if(!isprint(*p)) *p = '.'; p++; }
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
depth+=2;
|
||||
if (r!=0)
|
||||
fprintf(self->dumper.out," codes_set(ibufr, '#%d#%s',",r,a->name);
|
||||
else
|
||||
fprintf(self->dumper.out," codes_set(ibufr, '%s',",a->name);
|
||||
}
|
||||
fprintf(self->dumper.out,"\'%s\')\n",value);
|
||||
|
||||
|
||||
if (self->isLeaf==0) {
|
||||
char* prefix;
|
||||
int dofree=0;
|
||||
|
||||
if (r!=0) {
|
||||
prefix=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);
|
||||
depth-=2;
|
||||
}
|
||||
|
||||
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, const char* print_key)
|
||||
{
|
||||
long* val;
|
||||
size_t size=0,i;
|
||||
int cols=9,icount=0;
|
||||
|
||||
if (grib_get_size(h,key,&size)==GRIB_NOT_FOUND) return;
|
||||
|
||||
fprintf(f," ivalues = (");
|
||||
|
||||
val=grib_context_malloc_clear(h->context,sizeof(long)*size);
|
||||
grib_get_long_array(h,key,val,&size);
|
||||
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 ");}
|
||||
/* Note: In python to make a tuple with one element, you need the trailing comma */
|
||||
fprintf(f,"%ld ,)\n",val[size-1]);
|
||||
|
||||
grib_context_free(h->context,val);
|
||||
fprintf(f," codes_set_array(ibufr, '%s', ivalues)\n",print_key);
|
||||
}
|
||||
|
||||
static void dump_section(grib_dumper* d, grib_accessor* a, grib_block_of_accessors* block)
|
||||
{
|
||||
grib_dumper_bufr_decode_python *self = (grib_dumper_bufr_decode_python*)d;
|
||||
if (!grib_inline_strcmp(a->name,"BUFR") ||
|
||||
!grib_inline_strcmp(a->name,"GRIB") ||
|
||||
!grib_inline_strcmp(a->name,"META")
|
||||
) {
|
||||
grib_handle* h=grib_handle_of_accessor(a);
|
||||
depth=2;
|
||||
self->empty=1;
|
||||
depth+=2;
|
||||
_dump_long_array(h,self->dumper.out,"dataPresentIndicator","inputDataPresentIndicator");
|
||||
_dump_long_array(h,self->dumper.out,"delayedDescriptorReplicationFactor","inputDelayedDescriptorReplicationFactor");
|
||||
_dump_long_array(h,self->dumper.out,"shortDelayedDescriptorReplicationFactor","inputShortDelayedDescriptorReplicationFactor");
|
||||
_dump_long_array(h,self->dumper.out,"extendedDelayedDescriptorReplicationFactor","inputExtendedDelayedDescriptorReplicationFactor");
|
||||
grib_dump_accessors_block(d,block);
|
||||
depth-=2;
|
||||
} else if (!grib_inline_strcmp(a->name,"groupNumber")) {
|
||||
if ( (a->flags & GRIB_ACCESSOR_FLAG_DUMP) == 0)
|
||||
return;
|
||||
self->empty=1;
|
||||
depth+=2;
|
||||
grib_dump_accessors_block(d,block);
|
||||
depth-=2;
|
||||
} 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_decode_python *self = (grib_dumper_bufr_decode_python*)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;
|
||||
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;
|
||||
}
|
||||
|
||||
static void header(grib_dumper* d, grib_handle* h)
|
||||
{
|
||||
grib_dumper_bufr_decode_python *self = (grib_dumper_bufr_decode_python*)d;
|
||||
char sampleName[200]={0};
|
||||
long localSectionPresent,edition,bufrHeaderCentre,isSatellite;
|
||||
|
||||
grib_get_long(h,"localSectionPresent",&localSectionPresent);
|
||||
grib_get_long(h,"bufrHeaderCentre",&bufrHeaderCentre);
|
||||
grib_get_long(h,"edition",&edition);
|
||||
|
||||
if (localSectionPresent && bufrHeaderCentre==98 ) {
|
||||
grib_get_long(h,"isSatellite",&isSatellite);
|
||||
if (isSatellite)
|
||||
sprintf(sampleName,"BUFR%ld_local_satellite",edition);
|
||||
else
|
||||
sprintf(sampleName,"BUFR%ld_local",edition);
|
||||
} else {
|
||||
sprintf(sampleName,"BUFR%ld",edition);
|
||||
}
|
||||
|
||||
if (d->count<2) {
|
||||
/* This is the first message being processed */
|
||||
fprintf(self->dumper.out, "# This program has been automatically generated with bufr_dump -Dpython\n");
|
||||
fprintf(self->dumper.out, "# Using ecCodes version: ");
|
||||
grib_print_api_version(self->dumper.out);
|
||||
fprintf(self->dumper.out, "\n\n");
|
||||
fprintf(self->dumper.out,"import traceback\n");
|
||||
fprintf(self->dumper.out,"import sys\n");
|
||||
fprintf(self->dumper.out,"from eccodes import *\n\n\n");
|
||||
fprintf(self->dumper.out,"def bufr_create_message():\n");
|
||||
}
|
||||
fprintf(self->dumper.out," ibufr = codes_bufr_new_from_samples('%s')\n",sampleName);
|
||||
}
|
||||
|
||||
static void footer(grib_dumper* d, grib_handle* h)
|
||||
{
|
||||
grib_dumper_bufr_decode_python *self = (grib_dumper_bufr_decode_python*)d;
|
||||
fprintf(self->dumper.out," codes_set(ibufr, 'pack', 1)\n");
|
||||
if (d->count==1)
|
||||
fprintf(self->dumper.out," outfile = open('outfile.bufr', 'w')\n");
|
||||
else
|
||||
fprintf(self->dumper.out," outfile = open('outfile.bufr', 'a')\n");
|
||||
|
||||
fprintf(self->dumper.out," codes_write(ibufr, outfile)\n");
|
||||
/*fprintf(self->dumper.out," codes_close_file(outfile)\n");*/
|
||||
fprintf(self->dumper.out," codes_release(ibufr)\n");
|
||||
}
|
||||
|
|
@ -1,13 +1,17 @@
|
|||
/* This file is automatically generated by ./make_class.pl, do not edit */
|
||||
{ "bufr_encode_C", &grib_dumper_class_bufr_encode_C, },
|
||||
{ "c_code", &grib_dumper_class_c_code, },
|
||||
{ "debug", &grib_dumper_class_debug, },
|
||||
{ "default", &grib_dumper_class_default, },
|
||||
{ "bufr_encode_filter", &grib_dumper_class_bufr_encode_filter, },
|
||||
{ "bufr_decode_C", &grib_dumper_class_bufr_decode_C, },
|
||||
{ "bufr_decode_filter", &grib_dumper_class_bufr_decode_filter, },
|
||||
{ "bufr_decode_fortran", &grib_dumper_class_bufr_decode_fortran, },
|
||||
{ "bufr_decode_python", &grib_dumper_class_bufr_decode_python, },
|
||||
{ "bufr_encode_C", &grib_dumper_class_bufr_encode_C, },
|
||||
{ "bufr_encode_filter", &grib_dumper_class_bufr_encode_filter, },
|
||||
{ "bufr_encode_fortran", &grib_dumper_class_bufr_encode_fortran, },
|
||||
{ "json", &grib_dumper_class_json, },
|
||||
{ "keys", &grib_dumper_class_keys, },
|
||||
{ "bufr_encode_python", &grib_dumper_class_bufr_encode_python, },
|
||||
{ "serialize", &grib_dumper_class_serialize, },
|
||||
{ "wmo", &grib_dumper_class_wmo, },
|
||||
{ "xml", &grib_dumper_class_xml, },
|
||||
{ "bufr_encode_python", &grib_dumper_class_bufr_encode_python, },
|
||||
{ "c_code", &grib_dumper_class_c_code, },
|
||||
{ "debug", &grib_dumper_class_debug, },
|
||||
{ "default", &grib_dumper_class_default, },
|
||||
{ "json", &grib_dumper_class_json, },
|
||||
{ "keys", &grib_dumper_class_keys, },
|
||||
{ "serialize", &grib_dumper_class_serialize, },
|
||||
{ "wmo", &grib_dumper_class_wmo, },
|
||||
{ "xml", &grib_dumper_class_xml, },
|
||||
|
|
|
|||
|
|
@ -21,6 +21,13 @@ grib_option grib_options[]={
|
|||
"\n\t\tOptions: s->structure, f->flat (only data), a->all attributes"
|
||||
"\n\t\tDefault mode is structure.\n",
|
||||
1,1,"s"},
|
||||
{"D:","filter/fortran/python/C","\n\t\tDecoding dump. Provides instructions to decode the input message."
|
||||
"\n\t\tOptions: filter -> filter instructions file to decode input BUFR"
|
||||
"\n\t\t fortran -> fortran program to decode the input BUFR"
|
||||
"\n\t\t python -> python script to decode the input BUFR"
|
||||
"\n\t\t C -> C program to decode the input BUFR"
|
||||
"\n\t\tDefault mode is filter.\n",
|
||||
0,1,"filter"},
|
||||
{"E:","filter/fortran/python/C","\n\t\tEncoding dump. Provides instructions to create the input message."
|
||||
"\n\t\tOptions: filter -> filter instructions file to encode input BUFR"
|
||||
"\n\t\t fortran -> fortran program to encode the input BUFR"
|
||||
|
|
@ -103,6 +110,10 @@ int grib_tool_init(grib_runtime_options* options)
|
|||
| GRIB_DUMP_FLAG_READ_ONLY;
|
||||
}
|
||||
|
||||
if (grib_options_on("D:")) {
|
||||
options->dump_mode = grib_options_get_option("D:");
|
||||
json=0;
|
||||
}
|
||||
if (grib_options_on("E:")) {
|
||||
options->dump_mode = grib_options_get_option("E:");
|
||||
json=0;
|
||||
|
|
@ -143,7 +154,7 @@ int grib_tool_new_file_action(grib_runtime_options* options,grib_tools_file* fil
|
|||
if (!options->current_infile->name) return 0;
|
||||
if (json) return 0;
|
||||
|
||||
if (grib_options_on("E:")) {
|
||||
if (grib_options_on("E:") || grib_options_on("D:")) {
|
||||
if (!strcmp(options->dump_mode, "filter")) {
|
||||
/* Dump filter for one message only. Multi-message BUFR files will not work! */
|
||||
int err = 0, numMessages=0;
|
||||
|
|
|
|||
Loading…
Reference in New Issue