ruby2d 0.12.1 → 1.0.0

data/assets/include/mruby/error.h

@@ -1,147 +0,0 @@
-/**
-** @file mruby/error.h - Exception class
-**
-** See Copyright Notice in mruby.h
-*/
-
-#ifndef MRUBY_ERROR_H
-#define MRUBY_ERROR_H
-
-#include "common.h"
-
-/**
- * MRuby error handling.
- */
-MRB_BEGIN_DECL
-
-struct RException {
-  MRB_OBJECT_HEADER;
-  struct iv_tbl *iv;
-  struct RString *mesg;
-};
-
-#define mrb_exc_ptr(v) ((struct RException*)mrb_ptr(v))
-#define MRB_EXC_MESG_STRING_FLAG 0x100
-
-MRB_API void mrb_sys_fail(mrb_state *mrb, const char *mesg);
-MRB_API mrb_value mrb_exc_new_str(mrb_state *mrb, struct RClass* c, mrb_value str);
-#define mrb_exc_new_lit(mrb, c, lit) mrb_exc_new_str(mrb, c, mrb_str_new_lit(mrb, lit))
-#define mrb_exc_new_str_lit(mrb, c, lit) mrb_exc_new_lit(mrb, c, lit)
-MRB_API mrb_value mrb_make_exception(mrb_state *mrb, mrb_int argc, const mrb_value *argv);
-mrb_value mrb_exc_backtrace(mrb_state *mrb, mrb_value exc);
-mrb_value mrb_get_backtrace(mrb_state *mrb);
-
-MRB_API mrb_noreturn void mrb_no_method_error(mrb_state *mrb, mrb_sym id, mrb_value args, const char *fmt, ...);
-
-/* declaration for `fail` method */
-MRB_API mrb_value mrb_f_raise(mrb_state*, mrb_value);
-
-#if defined(MRB_64BIT) || defined(MRB_USE_FLOAT32) || defined(MRB_NAN_BOXING) || defined(MRB_WORD_BOXING)
-struct RBreak {
-  MRB_OBJECT_HEADER;
-  const struct RProc *proc;
-  mrb_value val;
-};
-#define mrb_break_value_get(brk) ((brk)->val)
-#define mrb_break_value_set(brk, v) ((brk)->val = v)
-#else
-struct RBreak {
-  MRB_OBJECT_HEADER;
-  const struct RProc *proc;
-  union mrb_value_union value;
-};
-#define RBREAK_VALUE_TT_MASK ((1 << 8) - 1)
-static inline mrb_value
-mrb_break_value_get(struct RBreak *brk)
-{
-  mrb_value val;
-  val.value = brk->value;
-  val.tt = (enum mrb_vtype)(brk->flags & RBREAK_VALUE_TT_MASK);
-  return val;
-}
-static inline void
-mrb_break_value_set(struct RBreak *brk, mrb_value val)
-{
-  brk->value = val.value;
-  brk->flags &= ~RBREAK_VALUE_TT_MASK;
-  brk->flags |= val.tt;
-}
-#endif  /* MRB_64BIT || MRB_USE_FLOAT32 || MRB_NAN_BOXING || MRB_WORD_BOXING */
-#define mrb_break_proc_get(brk) ((brk)->proc)
-#define mrb_break_proc_set(brk, p) ((brk)->proc = p)
-
-#define RBREAK_TAG_FOREACH(f) \
-  f(RBREAK_TAG_BREAK, 0) \
-  f(RBREAK_TAG_BREAK_UPPER, 1) \
-  f(RBREAK_TAG_BREAK_INTARGET, 2) \
-  f(RBREAK_TAG_RETURN_BLOCK, 3) \
-  f(RBREAK_TAG_RETURN, 4) \
-  f(RBREAK_TAG_RETURN_TOPLEVEL, 5) \
-  f(RBREAK_TAG_JUMP, 6) \
-  f(RBREAK_TAG_STOP, 7)
-
-#define RBREAK_TAG_DEFINE(tag, i) tag = i,
-enum {
-  RBREAK_TAG_FOREACH(RBREAK_TAG_DEFINE)
-};
-#undef RBREAK_TAG_DEFINE
-
-#define RBREAK_TAG_BIT          3
-#define RBREAK_TAG_BIT_OFF      8
-#define RBREAK_TAG_MASK         (~(~UINT32_C(0) << RBREAK_TAG_BIT))
-
-static inline uint32_t
-mrb_break_tag_get(struct RBreak *brk)
-{
-  return (brk->flags >> RBREAK_TAG_BIT_OFF) & RBREAK_TAG_MASK;
-}
-
-static inline void
-mrb_break_tag_set(struct RBreak *brk, uint32_t tag)
-{
-  brk->flags &= ~(RBREAK_TAG_MASK << RBREAK_TAG_BIT_OFF);
-  brk->flags |= (tag & RBREAK_TAG_MASK) << RBREAK_TAG_BIT_OFF;
-}
-
-/**
- * Protect
- *
- */
-typedef mrb_value mrb_protect_error_func(mrb_state *mrb, void *userdata);
-MRB_API mrb_value mrb_protect_error(mrb_state *mrb, mrb_protect_error_func *body, void *userdata, mrb_bool *error);
-
-/**
- * Protect (takes mrb_value for body argument)
- *
- * Implemented in the mruby-error mrbgem
- */
-MRB_API mrb_value mrb_protect(mrb_state *mrb, mrb_func_t body, mrb_value data, mrb_bool *state);
-
-/**
- * Ensure
- *
- * Implemented in the mruby-error mrbgem
- */
-MRB_API mrb_value mrb_ensure(mrb_state *mrb, mrb_func_t body, mrb_value b_data,
-                             mrb_func_t ensure, mrb_value e_data);
-
-/**
- * Rescue
- *
- * Implemented in the mruby-error mrbgem
- */
-MRB_API mrb_value mrb_rescue(mrb_state *mrb, mrb_func_t body, mrb_value b_data,
-                             mrb_func_t rescue, mrb_value r_data);
-
-/**
- * Rescue exception
- *
- * Implemented in the mruby-error mrbgem
- */
-MRB_API mrb_value mrb_rescue_exceptions(mrb_state *mrb, mrb_func_t body, mrb_value b_data,
-                                        mrb_func_t rescue, mrb_value r_data,
-                                        mrb_int len, struct RClass **classes);
-
-MRB_END_DECL
-
-#endif  /* MRUBY_ERROR_H */

data/assets/include/mruby/gc.h

@@ -1,94 +0,0 @@
-/**
-** @file mruby/gc.h - garbage collector for mruby
-**
-** See Copyright Notice in mruby.h
-*/
-
-#ifndef MRUBY_GC_H
-#define MRUBY_GC_H
-
-#include "common.h"
-
-/**
- * Uncommon memory management stuffs.
- */
-MRB_BEGIN_DECL
-
-
-struct mrb_state;
-
-#define MRB_EACH_OBJ_OK 0
-#define MRB_EACH_OBJ_BREAK 1
-typedef int (mrb_each_object_callback)(struct mrb_state *mrb, struct RBasic *obj, void *data);
-void mrb_objspace_each_objects(struct mrb_state *mrb, mrb_each_object_callback *callback, void *data);
-size_t mrb_objspace_page_slot_size(void);
-MRB_API void mrb_free_context(struct mrb_state *mrb, struct mrb_context *c);
-
-#ifndef MRB_GC_ARENA_SIZE
-#define MRB_GC_ARENA_SIZE 100
-#endif
-
-typedef enum {
-  MRB_GC_STATE_ROOT = 0,
-  MRB_GC_STATE_MARK,
-  MRB_GC_STATE_SWEEP
-} mrb_gc_state;
-
-/* Disable MSVC warning "C4200: nonstandard extension used: zero-sized array
- * in struct/union" when in C++ mode */
-#ifdef _MSC_VER
-#pragma warning(push)
-#pragma warning(disable : 4200)
-#endif
-
-typedef struct mrb_heap_page {
-  struct RBasic *freelist;
-  struct mrb_heap_page *prev;
-  struct mrb_heap_page *next;
-  struct mrb_heap_page *free_next;
-  struct mrb_heap_page *free_prev;
-  mrb_bool old:1;
-  void *objects[];
-} mrb_heap_page;
-
-#ifdef _MSC_VER
-#pragma warning(pop)
-#endif
-
-typedef struct mrb_gc {
-  mrb_heap_page *heaps;                /* heaps for GC */
-  mrb_heap_page *sweeps;
-  mrb_heap_page *free_heaps;
-  size_t live; /* count of live objects */
-#ifdef MRB_GC_FIXED_ARENA
-  struct RBasic *arena[MRB_GC_ARENA_SIZE]; /* GC protection array */
-#else
-  struct RBasic **arena;                   /* GC protection array */
-  int arena_capa;
-#endif
-  int arena_idx;
-
-  mrb_gc_state state; /* state of gc */
-  int current_white_part; /* make white object by white_part */
-  struct RBasic *gray_list; /* list of gray objects to be traversed incrementally */
-  struct RBasic *atomic_gray_list; /* list of objects to be traversed atomically */
-  size_t live_after_mark;
-  size_t threshold;
-  int interval_ratio;
-  int step_ratio;
-  mrb_bool iterating     :1;
-  mrb_bool disabled      :1;
-  mrb_bool full          :1;
-  mrb_bool generational  :1;
-  mrb_bool out_of_memory :1;
-  size_t majorgc_old_threshold;
-} mrb_gc;
-
-MRB_API mrb_bool
-mrb_object_dead_p(struct mrb_state *mrb, struct RBasic *object);
-
-#define MRB_GC_RED 7
-
-MRB_END_DECL
-
-#endif  /* MRUBY_GC_H */

data/assets/include/mruby/irep.h

@@ -1,147 +0,0 @@
-/**
-** @file mruby/irep.h - mrb_irep structure
-**
-** See Copyright Notice in mruby.h
-*/
-
-#ifndef MRUBY_IREP_H
-#define MRUBY_IREP_H
-
-#include "common.h"
-#include <mruby/compile.h>
-
-/**
- * Compiled mruby scripts.
- */
-MRB_BEGIN_DECL
-
-enum irep_pool_type {
-  IREP_TT_STR   = 0,          /* string (need free) */
-  IREP_TT_SSTR  = 2,          /* string (static) */
-  IREP_TT_INT32 = 1,          /* 32bit integer */
-  IREP_TT_INT64 = 3,          /* 64bit integer */
-  IREP_TT_BIGINT = 7,         /* big integer (not yet supported) */
-  IREP_TT_FLOAT = 5,          /* float (double/float) */
-};
-
-#define IREP_TT_NFLAG 1       /* number (non string) flag */
-#define IREP_TT_SFLAG 2       /* static string flag */
-
-typedef struct mrb_pool_value {
-  uint32_t tt;     /* packed type and length (for string) */
-  union {
-    const char *str;
-    int32_t i32;
-    int64_t i64;
-#ifndef MRB_NO_FLOAT
-    mrb_float f;
-#endif
-  } u;
-} mrb_pool_value;
-
-enum mrb_catch_type {
-  MRB_CATCH_RESCUE = 0,
-  MRB_CATCH_ENSURE = 1,
-};
-
-struct mrb_irep_catch_handler {
-  uint8_t type;         /* enum mrb_catch_type */
-  uint8_t begin[4];     /* The starting address to match the handler. Includes this. */
-  uint8_t end[4];       /* The endpoint address that matches the handler. Not Includes this. */
-  uint8_t target[4];    /* The address to jump to if a match is made. */
-};
-
-/* Program data array struct */
-typedef struct mrb_irep {
-  uint16_t nlocals;        /* Number of local variables */
-  uint16_t nregs;          /* Number of register variables */
-  uint16_t clen;           /* Number of catch handlers */
-  uint8_t flags;
-
-  const mrb_code *iseq;
-  /*
-   * A catch handler table is placed after the iseq entity.
-   * The reason it doesn't add fields to the structure is to keep the mrb_irep structure from bloating.
-   * The catch handler table can be obtained with `mrb_irep_catch_handler_table(irep)`.
-   */
-  const mrb_pool_value *pool;
-  const mrb_sym *syms;
-  const struct mrb_irep * const *reps;
-
-  const mrb_sym *lv;
-  /* debug info */
-  struct mrb_irep_debug_info* debug_info;
-
-  uint32_t ilen;
-  uint16_t plen, slen;
-  uint16_t rlen;
-  uint16_t refcnt;
-} mrb_irep;
-
-#define MRB_ISEQ_NO_FREE 1
-#define MRB_IREP_NO_FREE 2
-#define MRB_IREP_STATIC  (MRB_ISEQ_NO_FREE | MRB_IREP_NO_FREE)
-
-MRB_API mrb_irep *mrb_add_irep(mrb_state *mrb);
-
-/** load mruby bytecode functions
-* Please note! Currently due to interactions with the GC calling these functions will
-* leak one RProc object per function call.
-* To prevent this save the current memory arena before calling and restore the arena
-* right after, like so
-* int ai = mrb_gc_arena_save(mrb);
-* mrb_value status = mrb_load_irep(mrb, buffer);
-* mrb_gc_arena_restore(mrb, ai);
-*/
-
-/* @param [const uint8_t*] irep code, expected as a literal */
-MRB_API mrb_value mrb_load_irep(mrb_state*, const uint8_t*);
-
-/*
- * @param [const void*] irep code
- * @param [size_t] size of irep buffer. If -1 is given, it is considered unrestricted.
- */
-MRB_API mrb_value mrb_load_irep_buf(mrb_state*, const void*, size_t);
-
-/* @param [const uint8_t*] irep code, expected as a literal */
-MRB_API mrb_value mrb_load_irep_cxt(mrb_state*, const uint8_t*, mrbc_context*);
-
-/*
- * @param [const void*] irep code
- * @param [size_t] size of irep buffer. If -1 is given, it is considered unrestricted.
- */
-MRB_API mrb_value mrb_load_irep_buf_cxt(mrb_state*, const void*, size_t, mrbc_context*);
-
-void mrb_irep_free(mrb_state*, struct mrb_irep*);
-void mrb_irep_incref(mrb_state*, struct mrb_irep*);
-void mrb_irep_decref(mrb_state*, struct mrb_irep*);
-void mrb_irep_cutref(mrb_state*, struct mrb_irep*);
-void mrb_irep_remove_lv(mrb_state *mrb, mrb_irep *irep);
-
-struct mrb_insn_data {
-  uint8_t insn;
-  uint16_t a;
-  uint16_t b;
-  uint16_t c;
-  const mrb_code *addr;
-};
-
-struct mrb_insn_data mrb_decode_insn(const mrb_code *pc);
-
-static inline const struct mrb_irep_catch_handler *
-mrb_irep_catch_handler_table(const struct mrb_irep *irep)
-{
-  if (irep->clen > 0) {
-    return (const struct mrb_irep_catch_handler*)(irep->iseq + irep->ilen);
-  }
-  else {
-    return (const struct mrb_irep_catch_handler*)NULL;
-  }
-}
-
-#define mrb_irep_catch_handler_pack(n, v)   uint32_to_bin(n, v)
-#define mrb_irep_catch_handler_unpack(v)    bin_to_uint32(v)
-
-MRB_END_DECL
-
-#endif  /* MRUBY_IREP_H */

data/assets/include/mruby/khash.h

@@ -1,284 +0,0 @@
-/**
-** @file mruby/khash.h - Hash for mruby
-**
-** See Copyright Notice in mruby.h
-*/
-
-#ifndef MRUBY_KHASH_H
-#define MRUBY_KHASH_H
-
-#include <string.h>
-
-#include <mruby.h>
-#include "common.h"
-
-/**
- * khash definitions used in mruby's hash table.
- */
-MRB_BEGIN_DECL
-
-typedef uint32_t khint_t;
-typedef khint_t khiter_t;
-
-#ifndef KHASH_DEFAULT_SIZE
-# define KHASH_DEFAULT_SIZE 32
-#endif
-#define KHASH_MIN_SIZE 8
-
-#define UPPER_BOUND(x) ((x)>>2|(x)>>1)
-
-/* extern uint8_t __m[]; */
-
-/* mask for flags */
-static const uint8_t __m_empty[]  = {0x02, 0x08, 0x20, 0x80};
-static const uint8_t __m_del[]    = {0x01, 0x04, 0x10, 0x40};
-static const uint8_t __m_either[] = {0x03, 0x0c, 0x30, 0xc0};
-
-
-#define __ac_isempty(ed_flag, i) (ed_flag[(i)/4]&__m_empty[(i)%4])
-#define __ac_isdel(ed_flag, i) (ed_flag[(i)/4]&__m_del[(i)%4])
-#define __ac_iseither(ed_flag, i) (ed_flag[(i)/4]&__m_either[(i)%4])
-#define khash_power2(v) do { \
-  v--;\
-  v |= v >> 1;\
-  v |= v >> 2;\
-  v |= v >> 4;\
-  v |= v >> 8;\
-  v |= v >> 16;\
-  v++;\
-} while (0)
-#define khash_mask(h) ((h)->n_buckets-1)
-#define khash_upper_bound(h) (UPPER_BOUND((h)->n_buckets))
-
-/* declare struct kh_xxx and kh_xxx_funcs
-
-   name: hash name
-   khkey_t: key data type
-   khval_t: value data type
-   kh_is_map: (0: hash set / 1: hash map)
-*/
-#define KHASH_DECLARE(name, khkey_t, khval_t, kh_is_map)                \
-  typedef struct kh_##name {                                            \
-    khint_t n_buckets;                                                  \
-    khint_t size;                                                       \
-    uint8_t *ed_flags;                                                  \
-    khkey_t *keys;                                                      \
-    khval_t *vals;                                                      \
-  } kh_##name##_t;                                                      \
-  void kh_alloc_##name(mrb_state *mrb, kh_##name##_t *h);               \
-  kh_##name##_t *kh_init_##name##_size(mrb_state *mrb, khint_t size);   \
-  kh_##name##_t *kh_init_##name(mrb_state *mrb);                        \
-  void kh_destroy_##name(mrb_state *mrb, kh_##name##_t *h);             \
-  void kh_clear_##name(mrb_state *mrb, kh_##name##_t *h);               \
-  khint_t kh_get_##name(mrb_state *mrb, kh_##name##_t *h, khkey_t key);           \
-  khint_t kh_put_##name(mrb_state *mrb, kh_##name##_t *h, khkey_t key, int *ret); \
-  void kh_resize_##name(mrb_state *mrb, kh_##name##_t *h, khint_t new_n_buckets); \
-  void kh_del_##name(mrb_state *mrb, kh_##name##_t *h, khint_t x);                \
-  kh_##name##_t *kh_copy_##name(mrb_state *mrb, kh_##name##_t *h);
-
-static inline void
-kh_fill_flags(uint8_t *p, uint8_t c, size_t len)
-{
-  while (len-- > 0) {
-    *p++ = c;
-  }
-}
-
-/* define kh_xxx_funcs
-
-   name: hash name
-   khkey_t: key data type
-   khval_t: value data type
-   kh_is_map: (0: hash set / 1: hash map)
-   __hash_func: hash function
-   __hash_equal: hash comparison function
-*/
-#define KHASH_DEFINE(name, khkey_t, khval_t, kh_is_map, __hash_func, __hash_equal) \
-  mrb_noreturn void mrb_raise_nomemory(mrb_state *mrb);                 \
-  int kh_alloc_simple_##name(mrb_state *mrb, kh_##name##_t *h)          \
-  {                                                                     \
-    khint_t sz = h->n_buckets;                                          \
-    size_t len = sizeof(khkey_t) + (kh_is_map ? sizeof(khval_t) : 0);   \
-    uint8_t *p = (uint8_t*)mrb_malloc_simple(mrb, sizeof(uint8_t)*sz/4+len*sz); \
-    if (!p) { return 1; }                                               \
-    h->size = 0;                                                        \
-    h->keys = (khkey_t *)p;                                             \
-    h->vals = kh_is_map ? (khval_t *)(p+sizeof(khkey_t)*sz) : NULL;     \
-    h->ed_flags = p+len*sz;                                             \
-    kh_fill_flags(h->ed_flags, 0xaa, sz/4);                             \
-    return 0;                                                           \
-  }                                                                     \
-  void kh_alloc_##name(mrb_state *mrb, kh_##name##_t *h)                \
-  {                                                                     \
-    if (kh_alloc_simple_##name(mrb, h)) {                               \
-      mrb_raise_nomemory(mrb);                                          \
-    }                                                                   \
-  }                                                                     \
-  kh_##name##_t *kh_init_##name##_size(mrb_state *mrb, khint_t size) {  \
-    kh_##name##_t *h = (kh_##name##_t*)mrb_calloc(mrb, 1, sizeof(kh_##name##_t)); \
-    if (size < KHASH_MIN_SIZE)                                          \
-      size = KHASH_MIN_SIZE;                                            \
-    khash_power2(size);                                                 \
-    h->n_buckets = size;                                                \
-    if (kh_alloc_simple_##name(mrb, h)) {                               \
-      mrb_free(mrb, h);                                                 \
-      mrb_raise_nomemory(mrb);                                          \
-    }                                                                   \
-    return h;                                                           \
-  }                                                                     \
-  kh_##name##_t *kh_init_##name(mrb_state *mrb) {                       \
-    return kh_init_##name##_size(mrb, KHASH_DEFAULT_SIZE);              \
-  }                                                                     \
-  void kh_destroy_##name(mrb_state *mrb, kh_##name##_t *h)              \
-  {                                                                     \
-    if (h) {                                                            \
-      mrb_free(mrb, h->keys);                                           \
-      mrb_free(mrb, h);                                                 \
-    }                                                                   \
-  }                                                                     \
-  void kh_clear_##name(mrb_state *mrb, kh_##name##_t *h)                \
-  {                                                                     \
-    (void)mrb;                                                          \
-    if (h && h->ed_flags) {                                             \
-      kh_fill_flags(h->ed_flags, 0xaa, h->n_buckets/4);                 \
-      h->size = 0;                                                      \
-    }                                                                   \
-  }                                                                     \
-  khint_t kh_get_##name(mrb_state *mrb, kh_##name##_t *h, khkey_t key)  \
-  {                                                                     \
-    khint_t k = __hash_func(mrb,key) & khash_mask(h), step = 0;         \
-    (void)mrb;                                                          \
-    while (!__ac_isempty(h->ed_flags, k)) {                             \
-      if (!__ac_isdel(h->ed_flags, k)) {                                \
-        if (__hash_equal(mrb,h->keys[k], key)) return k;                \
-      }                                                                 \
-      k = (k+(++step)) & khash_mask(h);                                 \
-    }                                                                   \
-    return kh_end(h);                                                   \
-  }                                                                     \
-  void kh_resize_##name(mrb_state *mrb, kh_##name##_t *h, khint_t new_n_buckets) \
-  {                                                                     \
-    if (new_n_buckets < KHASH_MIN_SIZE)                                 \
-      new_n_buckets = KHASH_MIN_SIZE;                                   \
-    khash_power2(new_n_buckets);                                        \
-    {                                                                   \
-      kh_##name##_t hh;                                                 \
-      uint8_t *old_ed_flags = h->ed_flags;                              \
-      khkey_t *old_keys = h->keys;                                      \
-      khval_t *old_vals = h->vals;                                      \
-      khint_t old_n_buckets = h->n_buckets;                             \
-      khint_t i;                                                        \
-      hh.n_buckets = new_n_buckets;                                     \
-      kh_alloc_##name(mrb, &hh);                                        \
-      /* relocate */                                                    \
-      for (i=0 ; i<old_n_buckets ; i++) {                               \
-        if (!__ac_iseither(old_ed_flags, i)) {                          \
-          khint_t k = kh_put_##name(mrb, &hh, old_keys[i], NULL);       \
-          if (kh_is_map) kh_value(&hh,k) = old_vals[i];                 \
-        }                                                               \
-      }                                                                 \
-      /* copy hh to h */                                                \
-      *h = hh;                                                          \
-      mrb_free(mrb, old_keys);                                          \
-    }                                                                   \
-  }                                                                     \
-  khint_t kh_put_##name(mrb_state *mrb, kh_##name##_t *h, khkey_t key, int *ret) \
-  {                                                                     \
-    khint_t k, del_k, step = 0;                                         \
-    if (h->size >= khash_upper_bound(h)) {                              \
-      kh_resize_##name(mrb, h, h->n_buckets*2);                         \
-    }                                                                   \
-    k = __hash_func(mrb,key) & khash_mask(h);                           \
-    del_k = kh_end(h);                                                  \
-    while (!__ac_isempty(h->ed_flags, k)) {                             \
-      if (!__ac_isdel(h->ed_flags, k)) {                                \
-        if (__hash_equal(mrb,h->keys[k], key)) {                        \
-          if (ret) *ret = 0;                                            \
-          return k;                                                     \
-        }                                                               \
-      }                                                                 \
-      else if (del_k == kh_end(h)) {                                    \
-        del_k = k;                                                      \
-      }                                                                 \
-      k = (k+(++step)) & khash_mask(h);                                 \
-    }                                                                   \
-    if (del_k != kh_end(h)) {                                           \
-      /* put at del */                                                  \
-      h->keys[del_k] = key;                                             \
-      h->ed_flags[del_k/4] &= ~__m_del[del_k%4];                        \
-      h->size++;                                                        \
-      if (ret) *ret = 2;                                                \
-      return del_k;                                                     \
-    }                                                                   \
-    else {                                                              \
-      /* put at empty */                                                \
-      h->keys[k] = key;                                                 \
-      h->ed_flags[k/4] &= ~__m_empty[k%4];                              \
-      h->size++;                                                        \
-      if (ret) *ret = 1;                                                \
-      return k;                                                         \
-    }                                                                   \
-  }                                                                     \
-  void kh_del_##name(mrb_state *mrb, kh_##name##_t *h, khint_t x)       \
-  {                                                                     \
-    (void)mrb;                                                          \
-    mrb_assert(x != h->n_buckets && !__ac_iseither(h->ed_flags, x));    \
-    h->ed_flags[x/4] |= __m_del[x%4];                                   \
-    h->size--;                                                          \
-  }                                                                     \
-  kh_##name##_t *kh_copy_##name(mrb_state *mrb, kh_##name##_t *h)       \
-  {                                                                     \
-    kh_##name##_t *h2;                                                  \
-    khiter_t k, k2;                                                     \
-                                                                        \
-    h2 = kh_init_##name(mrb);                                           \
-    for (k = kh_begin(h); k != kh_end(h); k++) {                        \
-      if (kh_exist(h, k)) {                                             \
-        k2 = kh_put_##name(mrb, h2, kh_key(h, k), NULL);                \
-        if (kh_is_map) kh_value(h2, k2) = kh_value(h, k);               \
-      }                                                                 \
-    }                                                                   \
-    return h2;                                                          \
-  }
-
-
-#define khash_t(name) kh_##name##_t
-
-#define kh_init_size(name,mrb,size) kh_init_##name##_size(mrb,size)
-#define kh_init(name,mrb) kh_init_##name(mrb)
-#define kh_destroy(name, mrb, h) kh_destroy_##name(mrb, h)
-#define kh_clear(name, mrb, h) kh_clear_##name(mrb, h)
-#define kh_resize(name, mrb, h, s) kh_resize_##name(mrb, h, s)
-#define kh_put(name, mrb, h, k) kh_put_##name(mrb, h, k, NULL)
-#define kh_put2(name, mrb, h, k, r) kh_put_##name(mrb, h, k, r)
-#define kh_get(name, mrb, h, k) kh_get_##name(mrb, h, k)
-#define kh_del(name, mrb, h, k) kh_del_##name(mrb, h, k)
-#define kh_copy(name, mrb, h) kh_copy_##name(mrb, h)
-
-#define kh_exist(h, x) (!__ac_iseither((h)->ed_flags, (x)))
-#define kh_key(h, x) ((h)->keys[x])
-#define kh_val(h, x) ((h)->vals[x])
-#define kh_value(h, x) ((h)->vals[x])
-#define kh_begin(h) (khint_t)(0)
-#define kh_end(h) ((h)->n_buckets)
-#define kh_size(h) ((h)->size)
-#define kh_n_buckets(h) ((h)->n_buckets)
-
-#define kh_int_hash_func(mrb,key) (khint_t)((key)^((key)<<2)^((key)>>2))
-#define kh_int_hash_equal(mrb,a, b) (a == b)
-#define kh_int64_hash_func(mrb,key) (khint_t)((key)>>33^(key)^(key)<<11)
-#define kh_int64_hash_equal(mrb,a, b) (a == b)
-static inline khint_t __ac_X31_hash_string(const char *s)
-{
-    khint_t h = *s;
-    if (h) for (++s ; *s; ++s) h = (h << 5) - h + *s;
-    return h;
-}
-#define kh_str_hash_func(mrb,key) __ac_X31_hash_string(key)
-#define kh_str_hash_equal(mrb,a, b) (strcmp(a, b) == 0)
-
-typedef const char *kh_cstr_t;
-
-MRB_END_DECL
-
-#endif  /* MRUBY_KHASH_H */