mirror of https://github.com/ecmwf/eccodes.git
131 lines
3.3 KiB
C
131 lines
3.3 KiB
C
/*
|
|
* Copyright 2005-2018 ECMWF.
|
|
*
|
|
* This software is licensed under the terms of the Apache Licence Version 2.0
|
|
* which can be obtained at http://www.apache.org/licenses/LICENSE-2.0.
|
|
*
|
|
* In applying this licence, ECMWF does not waive the privileges and immunities granted to it by
|
|
* virtue of its status as an intergovernmental organisation nor does it submit to any jurisdiction.
|
|
*/
|
|
|
|
/***************************************************************************
|
|
* Enrico Fucile
|
|
* Jean Baptiste Filippi - 01.11.2005 *
|
|
* *
|
|
***************************************************************************/
|
|
#include "grib_api_internal.h"
|
|
|
|
int grib_get_data(grib_handle* h,double* lats, double* lons,double* values)
|
|
{
|
|
int err=0;
|
|
grib_iterator* iter=NULL;
|
|
double *lat,*lon,*val;
|
|
|
|
iter=grib_iterator_new(h,0,&err);
|
|
if (!iter || err!=GRIB_SUCCESS) return err;
|
|
|
|
lat=lats; lon=lons; val=values;
|
|
while(grib_iterator_next(iter,lat++,lon++,val++)) {}
|
|
|
|
grib_iterator_delete( iter);
|
|
|
|
return err;
|
|
}
|
|
|
|
int grib_iterator_next(grib_iterator *i,double* lat,double* lon,double* value)
|
|
{
|
|
grib_iterator_class *c = i->cclass;
|
|
while(c)
|
|
{
|
|
grib_iterator_class *s = c->super ? *(c->super) : NULL;
|
|
if(c->next) return c->next(i, lat, lon, value);
|
|
c = s;
|
|
}
|
|
Assert(0);
|
|
return 0;
|
|
}
|
|
|
|
int grib_iterator_has_next(grib_iterator *i)
|
|
{
|
|
grib_iterator_class *c = i->cclass;
|
|
while(c)
|
|
{
|
|
grib_iterator_class *s = c->super ? *(c->super) : NULL;
|
|
if(c->has_next) return c->has_next(i);
|
|
c = s;
|
|
}
|
|
Assert(0);
|
|
return 0;
|
|
}
|
|
|
|
int grib_iterator_previous(grib_iterator *i,double* lat,double* lon,double* value)
|
|
{
|
|
grib_iterator_class *c = i->cclass;
|
|
while(c)
|
|
{
|
|
grib_iterator_class *s = c->super ? *(c->super) : NULL;
|
|
if(c->previous) return c->previous(i, lat, lon, value);
|
|
c = s;
|
|
}
|
|
Assert(0);
|
|
return 0;
|
|
}
|
|
|
|
|
|
int grib_iterator_reset(grib_iterator *i)
|
|
{
|
|
grib_iterator_class *c = i->cclass;
|
|
while(c)
|
|
{
|
|
grib_iterator_class *s = c->super ? *(c->super) : NULL;
|
|
if(c->reset) return c->reset(i);
|
|
c = s;
|
|
}
|
|
Assert(0);
|
|
return 0;
|
|
}
|
|
|
|
|
|
/* For this one, ALL init are called */
|
|
|
|
static int init_iterator(grib_iterator_class* c,grib_iterator* i, grib_handle *h, grib_arguments* args)
|
|
{
|
|
|
|
if(c) {
|
|
int ret = GRIB_SUCCESS;
|
|
grib_iterator_class *s = c->super ? *(c->super) : NULL;
|
|
if(!c->inited)
|
|
{
|
|
if(c->init_class) c->init_class(c);
|
|
c->inited = 1;
|
|
}
|
|
if(s) ret = init_iterator(s,i,h,args);
|
|
|
|
if(ret != GRIB_SUCCESS) return ret;
|
|
|
|
if(c->init) return c->init(i,h, args);
|
|
}
|
|
return GRIB_INTERNAL_ERROR;
|
|
}
|
|
|
|
int grib_iterator_init(grib_iterator* i, grib_handle *h, grib_arguments* args)
|
|
{
|
|
return init_iterator(i->cclass,i,h,args);
|
|
}
|
|
|
|
/* For this one, ALL destroy are called */
|
|
|
|
int grib_iterator_delete(grib_iterator *i)
|
|
{
|
|
grib_iterator_class *c = i->cclass;
|
|
while(c)
|
|
{
|
|
grib_iterator_class *s = c->super ? *(c->super) : NULL;
|
|
if(c->destroy) c->destroy(i);
|
|
c = s;
|
|
}
|
|
/* This should go in a top class */
|
|
grib_context_free(i->h->context,i);
|
|
return 0;
|
|
}
|