You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
221 lines
5.3 KiB
221 lines
5.3 KiB
4 years ago
|
/* -----------------------------------------------------------------------------
|
||
|
* See the LICENSE file for information on copyright, usage and redistribution
|
||
|
* of SWIG, and the README file for authors - http://www.swig.org/release.html.
|
||
|
*
|
||
|
* 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, (type == T_FLOAT ? NUM2DBL(obj) : (type == T_FIXNUM ? (double) FIX2INT(obj) : rb_big2dbl(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;
|
||
|
}
|
||
|
}
|
||
|
|
||
|
|