#ifndef MRUBY_PROC_H
#define MRUBY_PROC_H

#include "mruby.h"
#include "irep.h"

struct REnv {
  MRUBY_OBJECT_HEADER;
  mrb_value *stack;
  mrb_sym mid;
  int cioff;
};

struct RProc {
  MRUBY_OBJECT_HEADER;
  union {
    mrb_irep *irep;
    mrb_func_t func;
  } body;
  struct RClass *target_class;
  struct REnv *env;
};

/* aspec access */
#define ARGS_GETREQ(a)		(((a) >> 19) & 0x1f)
#define ARGS_GETOPT(a)		(((a) >> 14) & 0x1f)
#define ARGS_GETREST(a)		((a) & (1<<13))
#define ARGS_GETPOST(a)		(((a) >> 8) & 0x1f)
#define ARGS_GETKEY(a)		(((a) >> 3) & 0x1f))
#define ARGS_GETKDICT(a)	((a) & (1<<2))
#define ARGS_GETBLOCK(a)	((a) & (1<<1))

#define MRB_PROC_CFUNC 128
#define MRB_PROC_CFUNC_P(p) ((p)->flags & MRB_PROC_CFUNC)
#define MRB_PROC_STRICT 256
#define MRB_PROC_STRICT_P(p) ((p)->flags & MRB_PROC_STRICT)

#define mrb_proc_ptr(v)    ((struct RProc*)((v).value.p))

struct RProc *mrb_proc_new(mrb_state*, mrb_irep*);
struct RProc *mrb_proc_new_cfunc(mrb_state*, mrb_func_t);
struct RProc *mrb_closure_new(mrb_state*, mrb_irep*);

#endif	/* MRUBY_STRING_H */