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

ECC-320: bufr_dump -DC (part 2)

This commit is contained in:
Shahram Najm 2016-09-14 18:09:23 +01:00
parent c8200f6167
commit 4d8eea5c3b
2 changed files with 4 additions and 7 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
src/grib_dumper_class_bufr_decode_C.c
View File

@ -506,16 +506,12 @@ static void dump_string_array(grib_dumper* d, grib_accessor* a, const char* comm
}
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_get_string_array(h, \"#%d#%s\", (const char **)svalues, size);\n",r,a->name);
fprintf(self->dumper.out," codes_get_string_array(h, \"#%d#%s\", svalues, &size);\n",r,a->name);
else
fprintf(self->dumper.out," codes_get_string_array(h, \"%s\", (const char **)svalues, size);\n",a->name);
fprintf(self->dumper.out," codes_get_string_array(h, \"%s\", svalues, &size);\n",a->name);
}
if (self->isLeaf==0) {

3
tests/bufr_dump_decode_C.sh
View File

@ -60,7 +60,8 @@ do
# Generate C code from BUFR file
${tools_dir}bufr_dump -DC $filePath > $tempSrc
if [ "$file" = "pgps_110.bufr" ]; then
# Too large
if [ "$file" = "ias1_240.bufr" ]; then
continue
fi