/** * 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. */ #include "grib_api_internal.h" /* This is used by make_class.pl START_CLASS_DEF CLASS = accessor SUPER = grib_accessor_class_gen IMPLEMENTS = init;get_native_type;unpack_string IMPLEMENTS = byte_count; byte_offset MEMBERS = const char* sectionOffset MEMBERS = const char* sectionLength MEMBERS = long sectionNumber 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 unpack_string (grib_accessor*, char*, size_t *len); static long byte_count(grib_accessor*); static long byte_offset(grib_accessor*); static void init(grib_accessor*,const long, grib_arguments* ); static void init_class(grib_accessor_class*); typedef struct grib_accessor_section_pointer { grib_accessor att; /* Members defined in gen */ /* Members defined in section_pointer */ const char* sectionOffset; const char* sectionLength; long sectionNumber; } grib_accessor_section_pointer; extern grib_accessor_class* grib_accessor_class_gen; static grib_accessor_class _grib_accessor_class_section_pointer = { &grib_accessor_class_gen, /* super */ "section_pointer", /* name */ sizeof(grib_accessor_section_pointer), /* size */ 0, /* inited */ &init_class, /* init_class */ &init, /* init */ 0, /* post_init */ 0, /* free mem */ 0, /* describes himself */ 0, /* get length of section */ 0, /* get number of values */ &byte_count, /* get number of bytes */ &byte_offset, /* get offset to bytes */ &get_native_type, /* 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 */ &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 */ 0, /* compare vs. another accessor */ 0, /* unpack only ith value */ 0, /* unpack a subarray */ 0, /* clear */ }; grib_accessor_class* grib_accessor_class_section_pointer = &_grib_accessor_class_section_pointer; static void init_class(grib_accessor_class* c) { c->dump = (*(c->super))->dump; c->next_offset = (*(c->super))->next_offset; c->value_count = (*(c->super))->value_count; 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->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* arg) { int n=0; grib_accessor_section_pointer* self=(grib_accessor_section_pointer*)a; self->sectionOffset = grib_arguments_get_name(a->parent->h,arg,n++); self->sectionLength = grib_arguments_get_name(a->parent->h,arg,n++); self->sectionNumber = grib_arguments_get_long(a->parent->h,arg,n++); Assert (self->sectionNumber < MAX_NUM_SECTIONS ); a->parent->h->section_offset[self->sectionNumber]=(char*)self->sectionOffset; a->parent->h->section_length[self->sectionNumber]=(char*)self->sectionLength; /* printf("++++++++++++++ GRIB_API: creating section_pointer%d %s %s\n", */ /* self->sectionNumber,self->sectionLength,self->sectionLength); */ if( a->parent->h->sections_count < self->sectionNumber) a->parent->h->sections_count=self->sectionNumber; a->flags |= GRIB_ACCESSOR_FLAG_READ_ONLY; a->flags |= GRIB_ACCESSOR_FLAG_HIDDEN; a->flags |= GRIB_ACCESSOR_FLAG_FUNCTION; a->flags |= GRIB_ACCESSOR_FLAG_EDITION_SPECIFIC; a->length = 0; } static int get_native_type(grib_accessor* a) { return GRIB_TYPE_BYTES; } static int unpack_string(grib_accessor *a , char* v, size_t *len){ /* unsigned char* p=NULL; char* s=v; int i; long length=grib_byte_count(a); if (*len < length) return GRIB_ARRAY_TOO_SMALL; p = a->parent->h->buffer->data + grib_byte_offset(a); for (i = 0; i < length; i++) { sprintf (s,"%02x", *(p++)); s+=2; } *len=length; */ sprintf(v,"%ld_%ld",grib_byte_offset(a),grib_byte_count(a)); return GRIB_SUCCESS; } static long byte_count(grib_accessor* a){ grib_accessor_section_pointer* self=(grib_accessor_section_pointer*)a; long sectionLength=0; int ret=0; ret=grib_get_long(a->parent->h,self->sectionLength,§ionLength); if (ret) { grib_context_log(a->parent->h->context,GRIB_LOG_ERROR, "unable to get %s %s", self->sectionLength,grib_get_error_message(ret)); return -1; } return sectionLength; } static long byte_offset(grib_accessor* a){ grib_accessor_section_pointer* self=(grib_accessor_section_pointer*)a; long sectionOffset=0; int ret=0; ret=grib_get_long(a->parent->h,self->sectionOffset,§ionOffset); if (ret) { grib_context_log(a->parent->h->context,GRIB_LOG_ERROR, "unable to get %s %s", self->sectionOffset,grib_get_error_message(ret)); return -1; } return sectionOffset; }