/** * Copyright 2005-2007 ECMWF * * Licensed under the GNU Lesser General Public License which * incorporates the terms and conditions of version 3 of the GNU * General Public License. * See LICENSE and gpl-3.0.txt for details. */ /**************************************** * Enrico Fucile **************************************/ #include "grib_api_internal.h" /* This is used by make_class.pl START_CLASS_DEF CLASS = accessor SUPER = grib_accessor_class_unsigned IMPLEMENTS = init;dump IMPLEMENTS = value_count MEMBERS = const char* tablename 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 "accessor.class" and rerun ./make_class.pl */ static long value_count(grib_accessor*); static void dump(grib_accessor*, grib_dumper*); static void init(grib_accessor*,const long, grib_arguments* ); static void init_class(grib_accessor_class*); typedef struct grib_accessor_codeflag { grib_accessor att; /* Members defined in gen */ /* Members defined in long */ /* Members defined in unsigned */ long nbytes; grib_arguments* arg; /* Members defined in codeflag */ const char* tablename; } grib_accessor_codeflag; extern grib_accessor_class* grib_accessor_class_unsigned; static grib_accessor_class _grib_accessor_class_codeflag = { &grib_accessor_class_unsigned, /* super */ "codeflag", /* name */ sizeof(grib_accessor_codeflag), /* size */ 0, /* inited */ &init_class, /* init_class */ &init, /* init */ 0, /* post_init */ 0, /* free mem */ &dump, /* describes himself */ 0, /* get length of section */ &value_count, /* get number of values */ 0, /* get number of bytes */ 0, /* get offset to bytes */ 0, /* get native type */ 0, /* get sub_section */ 0, /* grib_pack procedures long */ 0, /* grib_pack procedures long */ 0, /* grib_pack procedures long */ 0, /* grib_unpack procedures long */ 0, /* grib_pack procedures double */ 0, /* grib_unpack procedures double */ 0, /* grib_pack procedures string */ 0, /* grib_unpack procedures string */ 0, /* grib_pack procedures bytes */ 0, /* grib_unpack procedures bytes */ 0, /* pack_expression */ 0, /* notify_change */ 0, /* update_size */ 0, /* preferred_size */ 0, /* resize */ 0, /* nearest_smaller_value */ 0, /* next accessor */ 0, /* compare vs. another accessor */ 0, /* unpack only ith value */ 0, /* unpack a subarray */ 0, /* clear */ }; grib_accessor_class* grib_accessor_class_codeflag = &_grib_accessor_class_codeflag; static void init_class(grib_accessor_class* c) { c->next_offset = (*(c->super))->next_offset; c->byte_count = (*(c->super))->byte_count; c->byte_offset = (*(c->super))->byte_offset; c->get_native_type = (*(c->super))->get_native_type; c->sub_section = (*(c->super))->sub_section; c->pack_missing = (*(c->super))->pack_missing; c->is_missing = (*(c->super))->is_missing; c->pack_long = (*(c->super))->pack_long; c->unpack_long = (*(c->super))->unpack_long; c->pack_double = (*(c->super))->pack_double; c->unpack_double = (*(c->super))->unpack_double; c->pack_string = (*(c->super))->pack_string; c->unpack_string = (*(c->super))->unpack_string; c->pack_bytes = (*(c->super))->pack_bytes; c->unpack_bytes = (*(c->super))->unpack_bytes; c->pack_expression = (*(c->super))->pack_expression; c->notify_change = (*(c->super))->notify_change; c->update_size = (*(c->super))->update_size; c->preferred_size = (*(c->super))->preferred_size; c->resize = (*(c->super))->resize; c->nearest_smaller_value = (*(c->super))->nearest_smaller_value; c->next = (*(c->super))->next; c->compare = (*(c->super))->compare; c->unpack_double_element = (*(c->super))->unpack_double_element; c->unpack_double_subarray = (*(c->super))->unpack_double_subarray; c->clear = (*(c->super))->clear; } /* END_CLASS_IMP */ static void init (grib_accessor* a,const long len, grib_arguments* param) { grib_accessor_codeflag* self = (grib_accessor_codeflag*)a; a->length = len; self->tablename = grib_arguments_get_string(a->parent->h,param,0); Assert(a->length>=0); } static int test_bit(long a, long b) { return a&(1<parent->h,NULL, self->tablename, fname,1); if ((filename=grib_context_full_path(a->parent->h->context,fname))==NULL) { grib_context_log(a->parent->h->context,GRIB_LOG_WARNING,"Cannot open flag table %s",filename); strcpy(codename, "Cannot open flag table"); return GRIB_FILE_NOT_FOUND; } f=fopen(filename, "r"); if (!f) { grib_context_log(a->parent->h->context,(GRIB_LOG_WARNING)|(GRIB_LOG_PERROR),"Cannot open flag table %s",filename); strcpy(codename, "Cannot open flag table"); return GRIB_FILE_NOT_FOUND; } #if 0 strcpy(codename, self->tablename); strcat(codename,": "); j = strlen(codename); #endif while(fgets(line,sizeof(line)-1,f)) { sscanf(line,"%s %s", num, bval); if(num[0] != '#') if((test_bit(code, a->length*8-atol(num))>0) == atol(bval)) { #if 1 codename[j++] = '('; codename[j++] = num[0]; codename[j++] = '='; codename[j++] = bval[0]; codename[j++] = ')'; codename[j++] = ' '; if(j) codename[j++] = ' '; #endif for(i=(strlen(num)+strlen(bval)+2); i < strlen(line)-1;i++) codename[j++] = line[i]; if(line[i]!='\n') codename[j++] = line[i]; codename[j++] = ';'; } } if(j>1 && codename[j-1] == ';') j--; codename[j] = 0; strcat(codename,":"); strcat(codename,self->tablename); fclose(f); return GRIB_SUCCESS; } static long value_count(grib_accessor* a) { return 1; } static void dump(grib_accessor* a, grib_dumper* dumper) { grib_accessor_codeflag* self = (grib_accessor_codeflag*)a; long v; char flagname[1024]; char fname[1024]; size_t llen = 1; grib_recompose_name(a->parent->h,NULL, self->tablename, fname,1); grib_unpack_long(a, &v, &llen); grib_get_codeflag(a, v, flagname); grib_dump_bits(dumper,a,flagname); }