#ifndef CORO_API_H
#define CORO_API_H

#include "EXTERN.h"
#include "perl.h"
#include "XSUB.h"

/* perl-related */
#define TRANSFER_SAVE_DEFAV	0x00000001
#define TRANSFER_SAVE_DEFSV	0x00000002
#define TRANSFER_SAVE_ERRSV	0x00000004
/* c-related */
#define TRANSFER_SAVE_CCTXT	0x00000008
#ifdef CORO_LAZY_STACK
# define TRANSFER_LAZY_STACK	0x00000010
#else
# define TRANSFER_LAZY_STACK	0x00000000
#endif

#define TRANSFER_SAVE_ALL	(TRANSFER_SAVE_DEFAV|TRANSFER_SAVE_DEFSV \
                                |TRANSFER_SAVE_ERRSV|TRANSFER_SAVE_CCTXT)

struct coro; /* opaque */

struct CoroAPI {
  I32 ver;
#define CORO_API_VERSION 1

  /* internal */
  /*struct coro *(*sv_to_coro)(SV *arg, const char *funcname, const char *varname);*/

  /* public, state */
  void (*transfer)(pTHX_ SV *prev, SV *next, int flags);

  /* public, coro */
  void (*schedule)(int cede);
  void (*ready)(SV *sv);
  int *nready;
  GV *current;
};

static struct CoroAPI *GCoroAPI;

#define CORO_TRANSFER(prev,next) GCoroAPI->transfer(aTHX_ (prev),(next))
#define CORO_SCHEDULE            GCoroAPI->schedule(0)
#define CORO_CEDE                GCoroAPI->schedule(1)
#define CORO_READY(coro)         GCoroAPI->ready(coro)
#define CORO_NREADY              (*GCoroAPI->nready)
#define CORO_CURRENT             GvSV(GCoroAPI->current)

#define I_CORO_API(YourName)                                               \
STMT_START {                                                               \
  SV *sv = perl_get_sv("Coro::API",0);                                     \
  if (!sv) croak("Coro::API not found");                                   \
  GCoroAPI = (struct CoroAPI*) SvIV(sv);                                   \
  if (GCoroAPI->ver != CORO_API_VERSION) {                                 \
    croak("Coro::API version mismatch (%d != %d) -- please recompile %s",  \
          GCoroAPI->ver, CORO_API_VERSION, YourName);                      \
  }                                                                        \
} STMT_END

#endif