/trunk/Lib/ruby/rubyprimtypes.swg
Unknown | 216 lines | 187 code | 29 blank | 0 comment | 0 complexity | 6be2e62eccc63d5ac2442427d2a88c3a MD5 | raw file
Possible License(s): LGPL-2.1, Cube, GPL-3.0, 0BSD, GPL-2.0
- /* -----------------------------------------------------------------------------
- * rubyprimtypes.swg
- * ----------------------------------------------------------------------------- */
- /* ------------------------------------------------------------
- * Primitive Types
- * ------------------------------------------------------------ */
- /* auxiliary ruby fail method */
- %fragment("SWIG_ruby_failed","header")
- {
- SWIGINTERN VALUE
- SWIG_ruby_failed(void)
- {
- return Qnil;
- }
- }
- %define %ruby_aux_method(Type, Method, Action)
- SWIGINTERN VALUE SWIG_AUX_##Method##(VALUE *args)
- {
- VALUE obj = args[0];
- VALUE type = TYPE(obj);
- Type *res = (Type *)(args[1]);
- *res = Action;
- return obj;
- }
- %enddef
- /* boolean */
- %fragment(SWIG_From_frag(bool),"header") {
- SWIGINTERNINLINE VALUE
- SWIG_From_dec(bool)(bool value)
- {
- return value ? Qtrue : Qfalse;
- }
- }
- %fragment(SWIG_AsVal_frag(bool),"header",
- fragment=SWIG_AsVal_frag(int)) {
- SWIGINTERN int
- SWIG_AsVal_dec(bool)(VALUE obj, bool *val)
- {
- if (obj == Qtrue) {
- if (val) *val = true;
- return SWIG_OK;
- } else if (obj == Qfalse) {
- if (val) *val = false;
- return SWIG_OK;
- } else {
- int res = 0;
- if (SWIG_AsVal(int)(obj, &res) == SWIG_OK) {
- if (val) *val = res ? true : false;
- return SWIG_OK;
- }
- }
- return SWIG_TypeError;
- }
- }
- /* long */
- %fragment(SWIG_From_frag(long),"header",
- fragment="<limits.h>") {
- %define_as(SWIG_From_dec(long), LONG2NUM)
- }
- %fragment(SWIG_AsVal_frag(long),"header",fragment="SWIG_ruby_failed") {
- %ruby_aux_method(long, NUM2LONG, type == T_FIXNUM ? NUM2LONG(obj) : rb_big2long(obj))
- SWIGINTERN int
- SWIG_AsVal_dec(long)(VALUE obj, long* val)
- {
- VALUE type = TYPE(obj);
- if ((type == T_FIXNUM) || (type == T_BIGNUM)) {
- long v;
- VALUE a[2];
- a[0] = obj;
- a[1] = (VALUE)(&v);
- if (rb_rescue(RUBY_METHOD_FUNC(SWIG_AUX_NUM2LONG), (VALUE)a, RUBY_METHOD_FUNC(SWIG_ruby_failed), 0) != Qnil) {
- if (val) *val = v;
- return SWIG_OK;
- }
- }
- return SWIG_TypeError;
- }
- }
- /* unsigned long */
- %fragment(SWIG_From_frag(unsigned long),"header",
- fragment=SWIG_From_frag(long)) {
- SWIGINTERNINLINE VALUE
- SWIG_From_dec(unsigned long)(unsigned long value)
- {
- return ULONG2NUM(value);
- }
- }
- %fragment(SWIG_AsVal_frag(unsigned long),"header",fragment="SWIG_ruby_failed") {
- %ruby_aux_method(unsigned long, NUM2ULONG, type == T_FIXNUM ? NUM2ULONG(obj) : rb_big2ulong(obj))
- SWIGINTERN int
- SWIG_AsVal_dec(unsigned long)(VALUE obj, unsigned long *val)
- {
- VALUE type = TYPE(obj);
- if ((type == T_FIXNUM) || (type == T_BIGNUM)) {
- unsigned long v;
- VALUE a[2];
- a[0] = obj;
- a[1] = (VALUE)(&v);
- if (rb_rescue(RUBY_METHOD_FUNC(SWIG_AUX_NUM2ULONG), (VALUE)a, RUBY_METHOD_FUNC(SWIG_ruby_failed), 0) != Qnil) {
- if (val) *val = v;
- return SWIG_OK;
- }
- }
- return SWIG_TypeError;
- }
- }
- /* long long */
- %fragment(SWIG_From_frag(long long),"header",
- fragment=SWIG_From_frag(long),
- fragment="<limits.h>") {
- SWIGINTERNINLINE VALUE
- SWIG_From_dec(long long)(long long value)
- {
- return LL2NUM(value);
- }
- }
- %fragment(SWIG_AsVal_frag(long long),"header",fragment="SWIG_ruby_failed") {
- %ruby_aux_method(long long, NUM2LL, type == T_FIXNUM ? NUM2LL(obj) : rb_big2ll(obj))
- SWIGINTERN int
- SWIG_AsVal_dec(long long)(VALUE obj, long long *val)
- {
- VALUE type = TYPE(obj);
- if ((type == T_FIXNUM) || (type == T_BIGNUM)) {
- long long v;
- VALUE a[2];
- a[0] = obj;
- a[1] = (VALUE)(&v);
- if (rb_rescue(RUBY_METHOD_FUNC(SWIG_AUX_NUM2LL), (VALUE)a, RUBY_METHOD_FUNC(SWIG_ruby_failed), 0) != Qnil) {
- if (val) *val = v;
- return SWIG_OK;
- }
- }
- return SWIG_TypeError;
- }
- }
- /* unsigned long long */
- %fragment(SWIG_From_frag(unsigned long long),"header",
- fragment=SWIG_From_frag(long long),
- fragment="<limits.h>") {
- SWIGINTERNINLINE VALUE
- SWIG_From_dec(unsigned long long)(unsigned long long value)
- {
- return ULL2NUM(value);
- }
- }
- %fragment(SWIG_AsVal_frag(unsigned long long),"header",fragment="SWIG_ruby_failed") {
- %ruby_aux_method(long long, NUM2ULL, type == T_FIXNUM ? NUM2ULL(obj) : rb_big2ull(obj))
- SWIGINTERN int
- SWIG_AsVal_dec(unsigned long long)(VALUE obj, unsigned long long *val)
- {
- VALUE type = TYPE(obj);
- if ((type == T_FIXNUM) || (type == T_BIGNUM)) {
- unsigned long long v;
- VALUE a[2];
- a[0] = obj;
- a[1] = (VALUE)(&v);
- if (rb_rescue(RUBY_METHOD_FUNC(SWIG_AUX_NUM2ULL), (VALUE)a, RUBY_METHOD_FUNC(SWIG_ruby_failed), 0) != Qnil) {
- if (val) *val = v;
- return SWIG_OK;
- }
- }
- return SWIG_TypeError;
- }
- }
- /* double */
- %fragment(SWIG_From_frag(double),"header") {
- %define_as(SWIG_From_dec(double), rb_float_new)
- }
- %fragment(SWIG_AsVal_frag(double),"header",fragment="SWIG_ruby_failed") {
- %ruby_aux_method(double, NUM2DBL, NUM2DBL(obj))
- SWIGINTERN int
- SWIG_AsVal_dec(double)(VALUE obj, double *val)
- {
- VALUE type = TYPE(obj);
- if ((type == T_FLOAT) || (type == T_FIXNUM) || (type == T_BIGNUM)) {
- double v;
- VALUE a[2];
- a[0] = obj;
- a[1] = (VALUE)(&v);
- if (rb_rescue(RUBY_METHOD_FUNC(SWIG_AUX_NUM2DBL), (VALUE)a, RUBY_METHOD_FUNC(SWIG_ruby_failed), 0) != Qnil) {
- if (val) *val = v;
- return SWIG_OK;
- }
- }
- return SWIG_TypeError;
- }
- }