mirror of https://github.com/ecmwf/eccodes.git
105 lines
2.6 KiB
C
105 lines
2.6 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.
|
|
*/
|
|
|
|
/**
|
|
* Author: Enrico Fucile
|
|
* date: 14/06/2010
|
|
*
|
|
*/
|
|
|
|
#include "grib_api_internal.h"
|
|
|
|
|
|
grib_points* grib_box_get_points(grib_box *box,double north, double west,double south,double east, int *err)
|
|
{
|
|
grib_box_class *c = box->cclass;
|
|
while(c)
|
|
{
|
|
grib_box_class *s = c->super ? *(c->super) : NULL;
|
|
if(c->get_points) {
|
|
return c->get_points(box,north,west,south,east,err);
|
|
}
|
|
c = s;
|
|
}
|
|
Assert(0);
|
|
return 0;
|
|
}
|
|
|
|
|
|
/* For this one, ALL init are called */
|
|
|
|
static int init_box(grib_box_class* c,grib_box* i, grib_handle *h, grib_arguments* args)
|
|
{
|
|
|
|
if(c) {
|
|
int ret = GRIB_SUCCESS;
|
|
grib_box_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_box(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_box_init(grib_box* box, grib_handle *h, grib_arguments* args)
|
|
{
|
|
return init_box(box->cclass,box,h,args);
|
|
}
|
|
|
|
/* For this one, ALL destroy are called */
|
|
|
|
int grib_box_delete(grib_box *box)
|
|
{
|
|
grib_box_class *c = box->cclass;
|
|
while(c)
|
|
{
|
|
grib_box_class *s = c->super ? *(c->super) : NULL;
|
|
if(c->destroy) c->destroy(box);
|
|
c = s;
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
grib_points* grib_points_new(grib_context* c,size_t size) {
|
|
grib_points* points=(grib_points*)grib_context_malloc_clear(c,sizeof(grib_points));
|
|
|
|
points->latitudes =(double*)grib_context_malloc_clear(c,sizeof(double)*size);
|
|
points->longitudes =(double*)grib_context_malloc_clear(c,sizeof(double)*size);
|
|
points->indexes =(size_t*)grib_context_malloc_clear(c,sizeof(double)*size);
|
|
points->group_start=(size_t*)grib_context_malloc_clear(c,sizeof(double)*size);
|
|
points->group_len =(size_t*)grib_context_malloc_clear(c,sizeof(double)*size);
|
|
points->size=size;
|
|
points->context=c;
|
|
|
|
return points;
|
|
}
|
|
|
|
void grib_points_delete(grib_points *points) {
|
|
|
|
grib_context* c;
|
|
if (!points) return;
|
|
|
|
c=points->context;
|
|
grib_context_free(c,points->latitudes);
|
|
grib_context_free(c,points->longitudes);
|
|
grib_context_free(c,points->indexes);
|
|
grib_context_free(c,points->group_start);
|
|
grib_context_free(c,points->group_len);
|
|
grib_context_free(c,points);
|
|
|
|
}
|