/**
* 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.
*/

/***************************************************************************
 *   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,size_t* size) {
  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;

  if (iter) {
    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;
}