mirror of https://github.com/ecmwf/eccodes.git
117 lines
3.1 KiB
C
117 lines
3.1 KiB
C
/*
|
|
* (C) Copyright 2005- 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"
|
|
|
|
|
|
#if 0
|
|
grib_points* grib_box_get_points(grib_box* box, double north, double west, double south, double east, int* err)
|
|
{
|
|
grib_context_log(grib_context_get_default(), GRIB_LOG_ERROR,
|
|
"The grib_box_get_points function is deprecated.");
|
|
*err = GRIB_INTERNAL_ERROR;
|
|
return NULL;
|
|
|
|
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;
|
|
}
|
|
#endif
|
|
|
|
|
|
/* 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 */
|
|
#if 0
|
|
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;
|
|
}
|
|
#endif
|
|
|
|
#if 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;
|
|
}
|
|
#endif
|
|
|
|
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);
|
|
}
|