/** * 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. */ /*************************************************************************** * Jean Baptiste Filippi - 01.11.2005 * * Enrico Fucile * * ***************************************************************************/ #include "grib_api_internal.h" /* This is used by make_class.pl START_CLASS_DEF CLASS = action SUPER = action_class_section IMPLEMENTS = create_accessor IMPLEMENTS = dump IMPLEMENTS = destroy IMPLEMENTS = reparse IMPLEMENTS = compile MEMBERS = int nofail MEMBERS = char* arg 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 "action.class" and rerun ./make_class.pl */ static void init_class (grib_action_class*); static void dump (grib_action* d, FILE*,int); static void compile (grib_action* a, grib_compiler* compiler); static void destroy (grib_context*,grib_action*); static int create_accessor(grib_section*,grib_action*,grib_loader*); static grib_action* reparse(grib_action* a,grib_accessor* acc,int *doit); typedef struct grib_action_template { grib_action act; /* Members defined in section */ /* Members defined in template */ int nofail; char* arg; } grib_action_template; extern grib_action_class* grib_action_class_section; static grib_action_class _grib_action_class_template = { &grib_action_class_section, /* super */ "action_class_template", /* name */ sizeof(grib_action_template), /* size */ 0, /* inited */ &init_class, /* init_class */ 0, /* init */ &destroy, /* destroy */ &dump, /* dump */ 0, /* xref */ &create_accessor, /* create_accessor*/ 0, /* notify_change */ &reparse, /* reparse */ 0, /* execute */ &compile, /* compile */ }; grib_action_class* grib_action_class_template = &_grib_action_class_template; static void init_class(grib_action_class* c) { c->xref = (*(c->super))->xref; c->notify_change = (*(c->super))->notify_change; c->execute = (*(c->super))->execute; } /* END_CLASS_IMP */ grib_action* grib_action_create_template( grib_context* context,int nofail,const char* name , const char* arg1) { grib_action_template* a ; grib_action_class* c = grib_action_class_template; grib_action* act = (grib_action*)grib_context_malloc_clear_persistent(context,c->size); act-> name = grib_context_strdup_persistent(context,name); act-> op = grib_context_strdup_persistent(context,"section"); act-> cclass = c; act-> next = NULL; act->context = context; a = (grib_action_template*)act; a->nofail=nofail; if (arg1) a->arg = grib_context_strdup_persistent(context,arg1); else a->arg = NULL; return act; } static void compile(grib_action* act, grib_compiler *compiler) { grib_action_template* a = (grib_action_template*)act; fprintf(compiler->out,"%s = grib_action_create_template(ctx,", compiler->var); fprintf(compiler->out,"%d,",a->nofail); fprintf(compiler->out,"\"%s\",",act->name); if(a->arg) { fprintf(compiler->out,"\"%s\");",a->arg); } else { fprintf(compiler->out,"NULL);"); } fprintf(compiler->out,"\n"); } static void dump( grib_action* act, FILE* f, int lvl) { grib_action_template* a = ( grib_action_template*)act; int i = 0; for (i=0;icontext,f," "); grib_context_print(act->context,f,"Template %s %s\n",act->name , a->arg ); } GRIB_INLINE grib_action* get_empty_template(grib_context* c,int *err) { char fname[]="empty_template.def"; char* path=0; path=grib_context_full_path(c,fname); if (path) { *err=GRIB_SUCCESS; return grib_parse_file(c, path); } else { *err=GRIB_INTERNAL_ERROR; grib_context_log(c,GRIB_LOG_ERROR,"get_empty_template: unable to get template %s",fname); return NULL; } } static int create_accessor(grib_section* p, grib_action* act, grib_loader *h ){ int ret = GRIB_SUCCESS; grib_action_template* a = ( grib_action_template*)act; grib_action* la = NULL; grib_action* next = NULL; grib_accessor* as = NULL; grib_section* gs = NULL; char fname[1024]={0,}; char *fpath=0; as = grib_accessor_factory(p, act,0,NULL); if(!as) return GRIB_INTERNAL_ERROR; if(a->arg){ ret = grib_recompose_name(p->h,as,a->arg,fname,1); if ((fpath=grib_context_full_path(p->h->context,fname))==NULL) { if (!a->nofail) { grib_context_log(p->h->context,GRIB_LOG_ERROR, "Unable to find template %s from %s ",act->name,fname); return GRIB_FILE_NOT_FOUND; } la = get_empty_template(p->h->context,&ret); if (ret) return ret; } else la = grib_parse_file(p->h->context, fpath); } as->flags |= GRIB_ACCESSOR_FLAG_HIDDEN; gs = as->sub_section; gs->branch = la; /* Will be used to prevent unecessary reparse */ grib_push_accessor(as,p->block); if(la){ next = la; while(next){ ret = grib_create_accessor(gs, next,h); if(ret != GRIB_SUCCESS) { if(p->h->context->debug) { grib_context_log(p->h->context,GRIB_LOG_ERROR, "Error processing template %s: %s [%s] %04lx", fname,grib_get_error_message(ret),next->name,next->flags); } return ret; } next= next->next; } } return GRIB_SUCCESS; } static grib_action* reparse(grib_action* a,grib_accessor* acc,int *doit) { grib_action_template* self = (grib_action_template*)a; char *fpath=0; if(self->arg){ char fname[1024]; grib_recompose_name(acc->parent->h,NULL,self->arg,fname,1); if ((fpath=grib_context_full_path(acc->parent->h->context,fname))==NULL) { if (!self->nofail) { grib_context_log(acc->parent->h->context,GRIB_LOG_ERROR, "Unable to find template %s from %s ",a->name,fname); return NULL; } return a; } /* printf("REPARSE %s\n",fpath); */ return grib_parse_file(acc->parent->h->context, fpath); } return NULL; } static void destroy(grib_context* context,grib_action* act) { grib_action_template* a = (grib_action_template*)act; grib_context_free_persistent(context, a->arg); grib_context_free_persistent(context, act->name); grib_context_free_persistent(context, act->op); }