diff options
Diffstat (limited to 'share/swig/2.0.11/ruby/rubyprimtypes.swg')
-rw-r--r-- | share/swig/2.0.11/ruby/rubyprimtypes.swg | 216 |
1 files changed, 0 insertions, 216 deletions
diff --git a/share/swig/2.0.11/ruby/rubyprimtypes.swg b/share/swig/2.0.11/ruby/rubyprimtypes.swg deleted file mode 100644 index df72e97..0000000 --- a/share/swig/2.0.11/ruby/rubyprimtypes.swg +++ /dev/null @@ -1,216 +0,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; -} -} - - |