2010-05-06 02:59:24 -04:00
|
|
|
#ifndef FIDDLE_H
|
|
|
|
#define FIDDLE_H
|
|
|
|
|
|
|
|
#include <ruby.h>
|
|
|
|
#include <errno.h>
|
|
|
|
|
2011-01-04 22:13:18 -05:00
|
|
|
#if defined(_WIN32)
|
2010-05-06 02:59:24 -04:00
|
|
|
#include <windows.h>
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifdef HAVE_SYS_MMAN_H
|
|
|
|
#include <sys/mman.h>
|
|
|
|
#endif
|
|
|
|
|
2012-11-27 14:54:50 -05:00
|
|
|
#if defined(HAVE_DLFCN_H)
|
|
|
|
# include <dlfcn.h>
|
|
|
|
# /* some stranger systems may not define all of these */
|
|
|
|
#ifndef RTLD_LAZY
|
|
|
|
#define RTLD_LAZY 0
|
|
|
|
#endif
|
|
|
|
#ifndef RTLD_GLOBAL
|
|
|
|
#define RTLD_GLOBAL 0
|
|
|
|
#endif
|
|
|
|
#ifndef RTLD_NOW
|
|
|
|
#define RTLD_NOW 0
|
|
|
|
#endif
|
|
|
|
#else
|
|
|
|
# if defined(_WIN32)
|
|
|
|
# include <windows.h>
|
|
|
|
# define dlopen(name,flag) ((void*)LoadLibrary(name))
|
|
|
|
# define dlerror() strerror(rb_w32_map_errno(GetLastError()))
|
|
|
|
# define dlsym(handle,name) ((void*)GetProcAddress((handle),(name)))
|
|
|
|
# define RTLD_LAZY -1
|
|
|
|
# define RTLD_NOW -1
|
|
|
|
# define RTLD_GLOBAL -1
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
|
2010-05-06 02:59:24 -04:00
|
|
|
#ifdef USE_HEADER_HACKS
|
|
|
|
#include <ffi/ffi.h>
|
|
|
|
#else
|
|
|
|
#include <ffi.h>
|
|
|
|
#endif
|
|
|
|
|
2010-06-28 12:26:59 -04:00
|
|
|
#undef ffi_type_uchar
|
|
|
|
#undef ffi_type_schar
|
|
|
|
#undef ffi_type_ushort
|
|
|
|
#undef ffi_type_sshort
|
|
|
|
#undef ffi_type_uint
|
|
|
|
#undef ffi_type_sint
|
|
|
|
#undef ffi_type_ulong
|
|
|
|
#undef ffi_type_slong
|
|
|
|
|
2010-06-28 17:22:57 -04:00
|
|
|
#if CHAR_BIT == 8
|
2010-06-28 12:26:59 -04:00
|
|
|
# define ffi_type_uchar ffi_type_uint8
|
|
|
|
# define ffi_type_schar ffi_type_sint8
|
|
|
|
#else
|
|
|
|
# error "CHAR_BIT not supported"
|
|
|
|
#endif
|
|
|
|
|
2010-06-28 17:22:57 -04:00
|
|
|
# if SIZEOF_SHORT == 2
|
2010-06-28 12:26:59 -04:00
|
|
|
# define ffi_type_ushort ffi_type_uint16
|
|
|
|
# define ffi_type_sshort ffi_type_sint16
|
|
|
|
# elif SIZEOF_SHORT == 4
|
|
|
|
# define ffi_type_ushort ffi_type_uint32
|
|
|
|
# define ffi_type_sshort ffi_type_sint32
|
|
|
|
# else
|
|
|
|
# error "short size not supported"
|
|
|
|
# endif
|
|
|
|
|
|
|
|
# if SIZEOF_INT == 2
|
|
|
|
# define ffi_type_uint ffi_type_uint16
|
|
|
|
# define ffi_type_sint ffi_type_sint16
|
|
|
|
# elif SIZEOF_INT == 4
|
|
|
|
# define ffi_type_uint ffi_type_uint32
|
|
|
|
# define ffi_type_sint ffi_type_sint32
|
|
|
|
# elif SIZEOF_INT == 8
|
|
|
|
# define ffi_type_uint ffi_type_uint64
|
|
|
|
# define ffi_type_sint ffi_type_sint64
|
|
|
|
# else
|
|
|
|
# error "int size not supported"
|
|
|
|
# endif
|
|
|
|
|
|
|
|
# if SIZEOF_LONG == 4
|
|
|
|
# define ffi_type_ulong ffi_type_uint32
|
|
|
|
# define ffi_type_slong ffi_type_sint32
|
|
|
|
# elif SIZEOF_LONG == 8
|
|
|
|
# define ffi_type_ulong ffi_type_uint64
|
|
|
|
# define ffi_type_slong ffi_type_sint64
|
|
|
|
# else
|
|
|
|
# error "long size not supported"
|
|
|
|
# endif
|
|
|
|
|
2012-02-15 05:57:05 -05:00
|
|
|
#if HAVE_LONG_LONG
|
|
|
|
# if SIZEOF_LONG_LONG == 8
|
|
|
|
# define ffi_type_slong_long ffi_type_sint64
|
|
|
|
# define ffi_type_ulong_long ffi_type_uint64
|
|
|
|
# else
|
|
|
|
# error "long long size not supported"
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
|
2010-05-06 02:59:24 -04:00
|
|
|
#include <closure.h>
|
|
|
|
#include <conversions.h>
|
|
|
|
#include <function.h>
|
|
|
|
|
|
|
|
#define TYPE_VOID 0
|
|
|
|
#define TYPE_VOIDP 1
|
|
|
|
#define TYPE_CHAR 2
|
|
|
|
#define TYPE_SHORT 3
|
|
|
|
#define TYPE_INT 4
|
|
|
|
#define TYPE_LONG 5
|
|
|
|
#if HAVE_LONG_LONG
|
|
|
|
#define TYPE_LONG_LONG 6
|
|
|
|
#endif
|
|
|
|
#define TYPE_FLOAT 7
|
|
|
|
#define TYPE_DOUBLE 8
|
2020-06-26 18:25:47 -04:00
|
|
|
#define TYPE_VARIADIC 9
|
2020-07-09 07:19:20 -04:00
|
|
|
#define TYPE_CONST_STRING 10
|
2010-05-06 02:59:24 -04:00
|
|
|
|
2020-07-09 08:39:51 -04:00
|
|
|
#ifndef TYPE_SSIZE_T
|
|
|
|
# if SIZEOF_SIZE_T == SIZEOF_INT
|
|
|
|
# define TYPE_SSIZE_T TYPE_INT
|
|
|
|
# elif SIZEOF_SIZE_T == SIZEOF_LONG
|
|
|
|
# define TYPE_SSIZE_T TYPE_LONG
|
|
|
|
# elif defined HAVE_LONG_LONG && SIZEOF_SIZE_T == SIZEOF_LONG_LONG
|
|
|
|
# define TYPE_SSIZE_T TYPE_LONG_LONG
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
#define TYPE_SIZE_T (-1*SIGNEDNESS_OF_SIZE_T*TYPE_SSIZE_T)
|
|
|
|
|
|
|
|
#ifndef TYPE_PTRDIFF_T
|
|
|
|
# if SIZEOF_PTRDIFF_T == SIZEOF_INT
|
|
|
|
# define TYPE_PTRDIFF_T TYPE_INT
|
|
|
|
# elif SIZEOF_PTRDIFF_T == SIZEOF_LONG
|
|
|
|
# define TYPE_PTRDIFF_T TYPE_LONG
|
|
|
|
# elif defined HAVE_LONG_LONG && SIZEOF_PTRDIFF_T == SIZEOF_LONG_LONG
|
|
|
|
# define TYPE_PTRDIFF_T TYPE_LONG_LONG
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
|
|
|
|
#ifndef TYPE_INTPTR_T
|
|
|
|
# if SIZEOF_INTPTR_T == SIZEOF_INT
|
|
|
|
# define TYPE_INTPTR_T TYPE_INT
|
|
|
|
# elif SIZEOF_INTPTR_T == SIZEOF_LONG
|
|
|
|
# define TYPE_INTPTR_T TYPE_LONG
|
|
|
|
# elif defined HAVE_LONG_LONG && SIZEOF_INTPTR_T == SIZEOF_LONG_LONG
|
|
|
|
# define TYPE_INTPTR_T TYPE_LONG_LONG
|
|
|
|
# endif
|
|
|
|
#endif
|
|
|
|
#define TYPE_UINTPTR_T (-TYPE_INTPTR_T)
|
|
|
|
|
2012-11-27 19:02:49 -05:00
|
|
|
#define ALIGN_OF(type) offsetof(struct {char align_c; type align_x;}, align_x)
|
|
|
|
|
|
|
|
#define ALIGN_VOIDP ALIGN_OF(void*)
|
|
|
|
#define ALIGN_SHORT ALIGN_OF(short)
|
|
|
|
#define ALIGN_CHAR ALIGN_OF(char)
|
|
|
|
#define ALIGN_INT ALIGN_OF(int)
|
|
|
|
#define ALIGN_LONG ALIGN_OF(long)
|
|
|
|
#if HAVE_LONG_LONG
|
|
|
|
#define ALIGN_LONG_LONG ALIGN_OF(LONG_LONG)
|
|
|
|
#endif
|
|
|
|
#define ALIGN_FLOAT ALIGN_OF(float)
|
|
|
|
#define ALIGN_DOUBLE ALIGN_OF(double)
|
|
|
|
|
2010-05-06 02:59:24 -04:00
|
|
|
extern VALUE mFiddle;
|
2012-11-27 14:54:50 -05:00
|
|
|
extern VALUE rb_eFiddleError;
|
|
|
|
|
|
|
|
VALUE rb_fiddle_new_function(VALUE address, VALUE arg_types, VALUE ret_type);
|
2010-05-06 02:59:24 -04:00
|
|
|
|
|
|
|
#endif
|
|
|
|
/* vim: set noet sws=4 sw=4: */
|