mirror of
https://github.com/ruby/ruby.git
synced 2022-11-09 12:17:21 -05:00
42 lines
1.4 KiB
C
42 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
|