mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
8f59ed795d
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@30871 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
41 lines
1.4 KiB
C
41 lines
1.4 KiB
C
#ifndef FIDDLE_CONVERSIONS_H
|
|
#define FIDDLE_CONVERSIONS_H
|
|
|
|
#include <fiddle.h>
|
|
|
|
typedef union
|
|
{
|
|
unsigned char uchar; /* ffi_type_uchar */
|
|
signed char schar; /* ffi_type_schar */
|
|
unsigned short ushort; /* ffi_type_sshort */
|
|
signed short sshort; /* ffi_type_ushort */
|
|
unsigned int uint; /* ffi_type_uint */
|
|
signed int sint; /* ffi_type_sint */
|
|
unsigned long ulong; /* ffi_type_ulong */
|
|
signed long slong; /* ffi_type_slong */
|
|
float ffloat; /* ffi_type_float */
|
|
double ddouble; /* ffi_type_double */
|
|
#if HAVE_LONG_LONG
|
|
unsigned LONG_LONG long_long; /* ffi_type_uint64 */
|
|
#endif
|
|
void * pointer; /* ffi_type_pointer */
|
|
} fiddle_generic;
|
|
|
|
ffi_type * int_to_ffi_type(int type);
|
|
void value_to_generic(int type, VALUE src, fiddle_generic * dst);
|
|
VALUE generic_to_value(VALUE rettype, fiddle_generic retval);
|
|
|
|
#define VALUE2GENERIC(_type, _src, _dst) value_to_generic((_type), (_src), (_dst))
|
|
#define INT2FFI_TYPE(_type) int_to_ffi_type(_type)
|
|
#define GENERIC2VALUE(_type, _retval) generic_to_value((_type), (_retval))
|
|
|
|
#if SIZEOF_VOIDP == SIZEOF_LONG
|
|
# define PTR2NUM(x) (ULONG2NUM((unsigned long)(x)))
|
|
# define NUM2PTR(x) ((void*)(NUM2ULONG(x)))
|
|
#else
|
|
/* # error --->> Ruby/DL2 requires sizeof(void*) == sizeof(long) to be compiled. <<--- */
|
|
# define PTR2NUM(x) (ULL2NUM((unsigned long long)(x)))
|
|
# define NUM2PTR(x) ((void*)(NUM2ULL(x)))
|
|
#endif
|
|
|
|
#endif
|