/** * 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_gen IMPLEMENTS = get_native_type;unpack_string IMPLEMENTS = pack_missing; IMPLEMENTS = dump IMPLEMENTS = compare 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 int get_native_type(grib_accessor*); static int pack_missing(grib_accessor*); static int unpack_string (grib_accessor*, char*, size_t *len); static void dump(grib_accessor*, grib_dumper*); static void init_class(grib_accessor_class*); static int compare(grib_accessor*, grib_accessor*); typedef struct grib_accessor_double { grib_accessor att; /* Members defined in gen */ /* Members defined in double */ } grib_accessor_double; extern grib_accessor_class* grib_accessor_class_gen; static grib_accessor_class _grib_accessor_class_double = { &grib_accessor_class_gen, /* super */ "double", /* name */ sizeof(grib_accessor_double), /* size */ 0, /* inited */ &init_class, /* init_class */ 0, /* init */ 0, /* post_init */ 0, /* free mem */ &dump, /* describes himself */ 0, /* get length of section */ 0, /* get number of values */ 0, /* get number of bytes */ 0, /* get offset to bytes */ &get_native_type, /* get native type */ 0, /* get sub_section */ &pack_missing, /* 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 */ &unpack_string, /* 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 */ &compare, /* compare vs. another accessor */ 0, /* unpack only ith value */ 0, /* unpack a subarray */ 0, /* clear */ }; grib_accessor_class* grib_accessor_class_double = &_grib_accessor_class_double; static void init_class(grib_accessor_class* c) { c->next_offset = (*(c->super))->next_offset; c->value_count = (*(c->super))->value_count; c->byte_count = (*(c->super))->byte_count; c->byte_offset = (*(c->super))->byte_offset; c->sub_section = (*(c->super))->sub_section; 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->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->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 int get_native_type(grib_accessor* a){ return GRIB_TYPE_DOUBLE; } static int unpack_string(grib_accessor*a , char* v, size_t *len){ double val = 0; size_t l = 1; char repres[1024]; grib_unpack_double (a , &val, &l); if ((val == GRIB_MISSING_DOUBLE) && ((a->flags & GRIB_ACCESSOR_FLAG_CAN_BE_MISSING) != 0) ) sprintf(repres,"MISSING"); else sprintf(repres,"%g", val); l = strlen(repres)+1; if(l >*len ){ grib_context_log(a->parent->h->context, GRIB_LOG_ERROR, "grib_accessor_long : unpack_string : Buffer too small for %s ", a->name ); *len = l; return GRIB_BUFFER_TOO_SMALL; } grib_context_log(a->parent->h->context,GRIB_LOG_DEBUG, "grib_accessor_long: Casting double %s to string ", a->name); *len = l; strcpy(v,repres); return GRIB_SUCCESS; } static void dump(grib_accessor* a, grib_dumper* dumper) { grib_dump_values(dumper,a); } static int compare(grib_accessor* a, grib_accessor* b) { int retval=0; double *aval=0; double *bval=0; size_t alen = (size_t)grib_value_count(a); size_t blen = (size_t)grib_value_count(b); if (alen != blen) return GRIB_COUNT_MISMATCH; aval=grib_context_malloc(a->parent->h->context,alen*sizeof(double)); bval=grib_context_malloc(b->parent->h->context,blen*sizeof(double)); grib_unpack_double(a,aval,&alen); grib_unpack_double(b,bval,&blen); retval = GRIB_SUCCESS; while (alen != 0) { if (*bval != *aval) retval = GRIB_DOUBLE_VALUE_MISMATCH; alen--; } grib_context_free(a->parent->h->context,aval); grib_context_free(b->parent->h->context,bval); return retval; } static int pack_missing(grib_accessor* a){ size_t one = 1; double value = GRIB_MISSING_DOUBLE; if(a->flags & GRIB_ACCESSOR_FLAG_CAN_BE_MISSING) return grib_pack_double(a,&value,&one); return GRIB_VALUE_CANNOT_BE_MISSING; } /* static int is_missing(grib_accessor* a){ size_t one = 1; double value = GRIB_MISSING_DOUBLE; if(a->flags & GRIB_ACCESSOR_FLAG_CAN_BE_MISSING) { int e=grib_unpack_double(a,&value,&one); Assert(e == 0); return value == GRIB_MISSING_DOUBLE; } return 0; } */