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.
140 lines
3.8 KiB
140 lines
3.8 KiB
5 years ago
|
#include <ruby.h>
|
||
|
|
|
||
|
|
/* Remove global macros defined in Ruby's win32.h */
|
||
|
|
#ifdef write
|
||
|
|
# undef write
|
||
|
|
#endif
|
||
|
|
#ifdef read
|
||
|
|
# undef read
|
||
|
|
#endif
|
||
|
|
|
||
|
|
|
||
|
|
/* Ruby 1.7 defines NUM2LL(), LL2NUM() and ULL2NUM() macros */
|
||
|
|
#ifndef NUM2LL
|
||
|
|
#define NUM2LL(x) NUM2LONG((x))
|
||
|
|
#endif
|
||
|
|
#ifndef LL2NUM
|
||
|
|
#define LL2NUM(x) INT2NUM((long) (x))
|
||
|
|
#endif
|
||
|
|
#ifndef ULL2NUM
|
||
|
|
#define ULL2NUM(x) UINT2NUM((unsigned long) (x))
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* Ruby 1.7 doesn't (yet) define NUM2ULL() */
|
||
|
|
#ifndef NUM2ULL
|
||
|
|
#ifdef HAVE_LONG_LONG
|
||
|
|
#define NUM2ULL(x) rb_num2ull((x))
|
||
|
|
#else
|
||
|
|
#define NUM2ULL(x) NUM2ULONG(x)
|
||
|
|
#endif
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* RSTRING_LEN, etc are new in Ruby 1.9, but ->ptr and ->len no longer work */
|
||
|
|
/* Define these for older versions so we can just write code the new way */
|
||
|
|
#ifndef RSTRING_LEN
|
||
|
|
# define RSTRING_LEN(x) RSTRING(x)->len
|
||
|
|
#endif
|
||
|
|
#ifndef RSTRING_PTR
|
||
|
|
# define RSTRING_PTR(x) RSTRING(x)->ptr
|
||
|
|
#endif
|
||
|
|
#ifndef RSTRING_END
|
||
|
|
# define RSTRING_END(x) (RSTRING_PTR(x) + RSTRING_LEN(x))
|
||
|
|
#endif
|
||
|
|
#ifndef RARRAY_LEN
|
||
|
|
# define RARRAY_LEN(x) RARRAY(x)->len
|
||
|
|
#endif
|
||
|
|
#ifndef RARRAY_PTR
|
||
|
|
# define RARRAY_PTR(x) RARRAY(x)->ptr
|
||
|
|
#endif
|
||
|
|
#ifndef RFLOAT_VALUE
|
||
|
|
# define RFLOAT_VALUE(x) RFLOAT(x)->value
|
||
|
|
#endif
|
||
|
|
#ifndef DOUBLE2NUM
|
||
|
|
# define DOUBLE2NUM(x) rb_float_new(x)
|
||
|
|
#endif
|
||
|
|
#ifndef RHASH_TBL
|
||
|
|
# define RHASH_TBL(x) (RHASH(x)->tbl)
|
||
|
|
#endif
|
||
|
|
#ifndef RHASH_ITER_LEV
|
||
|
|
# define RHASH_ITER_LEV(x) (RHASH(x)->iter_lev)
|
||
|
|
#endif
|
||
|
|
#ifndef RHASH_IFNONE
|
||
|
|
# define RHASH_IFNONE(x) (RHASH(x)->ifnone)
|
||
|
|
#endif
|
||
|
|
#ifndef RHASH_SIZE
|
||
|
|
# define RHASH_SIZE(x) (RHASH(x)->tbl->num_entries)
|
||
|
|
#endif
|
||
|
|
#ifndef RHASH_EMPTY_P
|
||
|
|
# define RHASH_EMPTY_P(x) (RHASH_SIZE(x) == 0)
|
||
|
|
#endif
|
||
|
|
#ifndef RSTRUCT_LEN
|
||
|
|
# define RSTRUCT_LEN(x) RSTRUCT(x)->len
|
||
|
|
#endif
|
||
|
|
#ifndef RSTRUCT_PTR
|
||
|
|
# define RSTRUCT_PTR(x) RSTRUCT(x)->ptr
|
||
|
|
#endif
|
||
|
|
|
||
|
|
|
||
|
|
|
||
|
|
/*
|
||
|
|
* Need to be very careful about how these macros are defined, especially
|
||
|
|
* when compiling C++ code or C code with an ANSI C compiler.
|
||
|
|
*
|
||
|
|
* VALUEFUNC(f) is a macro used to typecast a C function that implements
|
||
|
|
* a Ruby method so that it can be passed as an argument to API functions
|
||
|
|
* like rb_define_method() and rb_define_singleton_method().
|
||
|
|
*
|
||
|
|
* VOIDFUNC(f) is a macro used to typecast a C function that implements
|
||
|
|
* either the "mark" or "free" stuff for a Ruby Data object, so that it
|
||
|
|
* can be passed as an argument to API functions like Data_Wrap_Struct()
|
||
|
|
* and Data_Make_Struct().
|
||
|
|
*/
|
||
|
|
|
||
|
|
#ifdef __cplusplus
|
||
|
|
# ifndef RUBY_METHOD_FUNC /* These definitions should work for Ruby 1.4.6 */
|
||
|
|
# define PROTECTFUNC(f) ((VALUE (*)()) f)
|
||
|
|
# define VALUEFUNC(f) ((VALUE (*)()) f)
|
||
|
|
# define VOIDFUNC(f) ((void (*)()) f)
|
||
|
|
# else
|
||
|
|
# ifndef ANYARGS /* These definitions should work for Ruby 1.6 */
|
||
|
|
# define PROTECTFUNC(f) ((VALUE (*)()) f)
|
||
|
|
# define VALUEFUNC(f) ((VALUE (*)()) f)
|
||
|
|
# define VOIDFUNC(f) ((RUBY_DATA_FUNC) f)
|
||
|
|
# else /* These definitions should work for Ruby 1.7+ */
|
||
|
|
# define PROTECTFUNC(f) ((VALUE (*)(VALUE)) f)
|
||
|
|
# define VALUEFUNC(f) ((VALUE (*)(ANYARGS)) f)
|
||
|
|
# define VOIDFUNC(f) ((RUBY_DATA_FUNC) f)
|
||
|
|
# endif
|
||
|
|
# endif
|
||
|
|
#else
|
||
|
|
# define VALUEFUNC(f) (f)
|
||
|
|
# define VOIDFUNC(f) (f)
|
||
|
|
#endif
|
||
|
|
|
||
|
|
/* Don't use for expressions have side effect */
|
||
|
|
#ifndef RB_STRING_VALUE
|
||
|
|
#define RB_STRING_VALUE(s) (TYPE(s) == T_STRING ? (s) : (*(volatile VALUE *)&(s) = rb_str_to_str(s)))
|
||
|
|
#endif
|
||
|
|
#ifndef StringValue
|
||
|
|
#define StringValue(s) RB_STRING_VALUE(s)
|
||
|
|
#endif
|
||
|
|
#ifndef StringValuePtr
|
||
|
|
#define StringValuePtr(s) RSTRING_PTR(RB_STRING_VALUE(s))
|
||
|
|
#endif
|
||
|
|
#ifndef StringValueLen
|
||
|
|
#define StringValueLen(s) RSTRING_LEN(RB_STRING_VALUE(s))
|
||
|
|
#endif
|
||
|
|
#ifndef SafeStringValue
|
||
|
|
#define SafeStringValue(v) do {\
|
||
|
|
StringValue(v);\
|
||
|
|
rb_check_safe_str(v);\
|
||
|
|
} while (0)
|
||
|
|
#endif
|
||
|
|
|
||
|
|
#ifndef HAVE_RB_DEFINE_ALLOC_FUNC
|
||
|
|
#define rb_define_alloc_func(klass, func) rb_define_singleton_method((klass), "new", VALUEFUNC((func)), -1)
|
||
|
|
#define rb_undef_alloc_func(klass) rb_undef_method(CLASS_OF((klass)), "new")
|
||
|
|
#endif
|
||
|
|
|
||
|
|
static VALUE _mSWIG = Qnil;
|