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.
139 lines
3.8 KiB
139 lines
3.8 KiB
#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;
|
|
|