woe/include/tr_macro.h

/*
 * This file contains macros to help generate the bindings
 * of functionality to MRuby.
 */

#ifndef TR_MACRO_H_INCLUDED
#define TR_MACRO_H_INCLUDED

#define RH_WRAP(RUBY, TYPE, OBJECT)                         \
mrb_obj_value(Data_Wrap_Struct(RUBY,                        \
              RUBY->object_class, &toruby_##TYPE, OBJECT));

#define TR_NAME(NAME)               tr_##NAME
#define TR_PAIR_HELPER(NAME)        TR_NAME(NAME), NAME
#define TR_PAIR(NAME)               TR_PAIR_HELPER(NAME)
#define TR_MACRO_AID(MACRO, ARGS)   MACRO ARGS        
#define TR_PAIR_DO_AID(MACRO, NAME) TR_MACRO_AID(MACRO, (TR_PAIR(NAME)))
#define TR_PAIR_DO(MACRO, NAME)     TR_PAIR_DO_AID(MACRO, NAME)

#define TORUBY_0_ICALLER(NAME, TOCALL)                                         \
  static mrb_value NAME(mrb_state * mrb, mrb_value self) {                     \
  (void) self; (void) mrb;                                                     \
  return mrb_fixnum_value(TOCALL());                                           \
}

#define TORUBY_0_FGETTER(NAME, TOCALL)                                         \
  static mrb_value NAME(mrb_state * mrb, mrb_value self) {                     \
  (void) self;                                                                 \
  return mrb_float_value(mrb, TOCALL());                                       \
}

#define TR_WRAP_NOARG_BOOL(NAME, TOCALL)                                       \
static mrb_value NAME(mrb_state * mrb, mrb_value self) {                       \
  (void) self; (void) mrb;                                                     \
  return rh_bool_value(TOCALL());                                              \
}

#define TR_WRAP_I_BOOL(NAME, TOCALL)                                           \
static mrb_value NAME(mrb_state * mrb, mrb_value self) {                       \
  mrb_int i1;                                                                  \
  (void) self;                                                                 \
  mrb_get_args(mrb, "i", &i1);                                                 \
  return rh_bool_value(TOCALL(i1));                                            \
}

#define TR_WRAP_B_BOOL(NAME, TOCALL)                                           \
static mrb_value NAME(mrb_state * mrb, mrb_value self) {                       \
  mrb_value b1;                                                                \
  (void) self;                                                                 \
  mrb_get_args(mrb, "o", &b1);                                                 \
  return rh_bool_value(TOCALL(rh_tobool(b1)));                                 \
}

#define TR_WRAP_IZ_INT(NAME, TOCALL)                                           \
static mrb_value NAME(mrb_state * mrb, mrb_value self) {                       \
  mrb_int i1 = -1;                                                             \
  char * str = NULL;                                                           \
  (void) self;                                                                 \
  mrb_get_args(mrb, "iz", &i1, &str);                                          \
  return mrb_fixnum_value(TOCALL(i1, str));                                    \
}


#define TR_WRAP_I_INT(NAME, TOCALL)                                            \
static mrb_value NAME(mrb_state * mrb, mrb_value self) {                       \
  mrb_int i1;                                                                  \
  mrb_get_args(mrb, "i", &i1);                                                 \
  (void) self;                                                                 \
  return mrb_fixnum_value(TOCALL(i1));                                         \
}

#define TR_WRAP_II_INT(NAME, TOCALL)                                           \
static mrb_value NAME(mrb_state * mrb, mrb_value self) {                       \
  mrb_int i1, i2;                                                              \
  mrb_get_args(mrb, "ii", &i1, &i2);                                           \
  (void) self;                                                                 \
  return mrb_fixnum_value(TOCALL(i1, i2));                                     \
}

#define TR_WRAP_III_INT(NAME, TOCALL)                                          \
static mrb_value NAME(mrb_state * mrb, mrb_value self) {                       \
  mrb_int i1, i2, i3;                                                          \
  mrb_get_args(mrb, "iii", &i1, &i2, &i3)                                      \
  (void) self;                                                                 \
  return mrb_fixnum_value(TOCALL(i1, i2, i3));                                 \
}


#define TR_WRAP_IIII_INT(NAME, TOCALL)                                         \
static mrb_value NAME(mrb_state * mrb, mrb_value self) {                       \
  mrb_int i1, i2, i3, i4;                                                      \
  mrb_get_args(mrb, "iiii", &i1, &i2, &i3, &i4);                               \
  (void) self;                                                                 \
  return mrb_fixnum_value(TOCALL(i1, i2, i3, i4));                             \
}

#define TR_WRAP_IIIIB_INT(NAME, TOCALL)                                        \
static mrb_value NAME(mrb_state * mrb, mrb_value self) {                       \
  mrb_int i1, i2, i3, i4;                                                      \
  mrb_value b5;                                                                \
  (void) self;                                                                 \
  mrb_get_args(mrb, "iiiib", &i1, &i2, &i3, &i4, &b5);                         \
  return mrb_fixnum_value(TOCALL(i1, i2, i3, i4, rh_tobool(b5)));              \
}


#define TR_WRAP_NOARG_INT(NAME, TOCALL)                                        \
static mrb_value NAME(mrb_state * mrb, mrb_value self) {                       \
  (void) self; (void) mrb;                                                     \
  return mrb_fixnum_value(TOCALL());                                           \
}



#define TR_METHOD(MRB, CLASS, NAME, IMPL, FLAGS)                               \
        mrb_define_method((MRB), (CLASS), (NAME), (IMPL), (FLAGS))

#define TR_METHOD_ARGC(MRB, CLASS, NAME, IMPL, ARGC)\
        mrb_define_method((MRB), (CLASS), (NAME), (IMPL), ARGS_REQ(ARGC))

#define TR_METHOD_NOARG(MRB, CLASS, NAME, IMPL)\
        mrb_define_method((MRB), (CLASS), (NAME), (IMPL), ARGS_NONE())

#define TR_METHOD_OPTARG(MRB, CLASS, NAME, IMPL, ARGC, OPTC) \
mrb_define_method((MRB), (CLASS), (NAME), (IMPL), ARGS_REQ(ARGC) | ARGS_OPT(OPTC))

#define TR_CLASS_METHOD(MRB, CLASS, NAME, IMPL, FLAGS)\
        mrb_define_class_method((MRB), (CLASS), (NAME), (IMPL), (FLAGS))

#define TR_CLASS_METHOD_ARGC(MRB, CLASS, NAME, IMPL, ARGC)\
        mrb_define_class_method((MRB), (CLASS), (NAME), (IMPL), ARGS_REQ(ARGC))

#define TR_CLASS_METHOD_NOARG(MRB, CLASS, NAME, IMPL)\
        mrb_define_class_method((MRB), (CLASS), (NAME), (IMPL), ARGS_NONE())

#define TR_CLASS_METHOD_OPTARG(MRB, CLASS, NAME, IMPL, ARGC, OPTC) \
mrb_define_class_method((MRB), (CLASS), (NAME), (IMPL), ARGS_REQ(ARGC) | ARGS_OPT(OPTC))



#define TR_CONST_INT(MRB, CLASS, NAME, VALUE) \
      mrb_define_const((MRB), (CLASS), (NAME), mrb_fixnum_value(VALUE))

#define TR_CONST_INT_EASY(MRB, CLASS, PREFIX, NAME) \
        TR_CONST_INT(MRB, CLASS, #NAME, PREFIX##NAME)

#define TR_CONST_INT_VALUE(MRB, CLASS, VALUE) \
        TR_CONST_INT(MRB, CLASS, #VALUE, VALUE)


#endif // TR_H_INCLUDED