Ruby » Ruby master

return Qnil;

}

#include <windows.h>

static ID id_win32_last_error;

}

rb_dl_set_last_error(self, INT2NUM(errno));

rb_dl_set_win32_last_error(self, INT2NUM(GetLastError()));

#endif

Init_dlcfunc(void)

{

id_last_error = rb_intern("__DL2_LAST_ERROR__");

id_win32_last_error = rb_intern("__DL2_WIN32_LAST_ERROR__");

#endif

rb_cDLCFunc = rb_define_class_under(rb_mDL, "CFunc", rb_cObject);

rb_define_alloc_func(rb_cDLCFunc, rb_dlcfunc_s_allocate);

rb_define_module_function(rb_cDLCFunc, "last_error", rb_dl_get_last_error, 0);

rb_define_module_function(rb_cDLCFunc, "win32_last_error", rb_dl_get_win32_last_error, 0);

#endif

rb_define_method(rb_cDLCFunc, "initialize", rb_dlcfunc_initialize, -1);

#define RTLD_NOW 0

#endif

#else

# include <windows.h>

# define dlopen(name,flag) ((void*)LoadLibrary(name))

# define dlerror() strerror(rb_w32_map_errno(GetLastError()))

VALUE rb_cDLHandle;

# ifndef _WIN32_WCE

static void *

w32_coredll(void)

rb_secure(2);

if( !clib ){

HANDLE rb_libruby_handle(void);

ptr = rb_libruby_handle();

end

have_header 'sys/mman.h'

create_makefile 'fiddle'

rb_define_const(mFiddle, "TYPE_FLOAT", INT2NUM(TYPE_FLOAT));

rb_define_const(mFiddle, "TYPE_DOUBLE", INT2NUM(TYPE_DOUBLE));

rb_define_const(mFiddle, "WINDOWS", Qtrue);

#else

rb_define_const(mFiddle, "WINDOWS", Qfalse);

#include <ruby.h>

#include <errno.h>

#include <windows.h>

#endif

ffi_call(cif, NUM2PTR(rb_Integer(cfunc)), &retval, values);

rb_funcall(mFiddle, rb_intern("last_error="), 1, INT2NUM(errno));

rb_funcall(mFiddle, rb_intern("win32_last_error="), 1, INT2NUM(errno));

#endif