2005-02-04 08:35:37 -05:00
|
|
|
/* -*- C -*-
|
|
|
|
* $Id$
|
|
|
|
*/
|
|
|
|
|
|
|
|
#include <ruby.h>
|
|
|
|
#include <errno.h>
|
|
|
|
#include "dl.h"
|
|
|
|
|
|
|
|
VALUE rb_cDLCFunc;
|
|
|
|
|
|
|
|
static ID id_last_error;
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
rb_dl_get_last_error(VALUE self)
|
|
|
|
{
|
|
|
|
return rb_thread_local_aref(rb_thread_current(), id_last_error);
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
rb_dl_set_last_error(VALUE self, VALUE val)
|
|
|
|
{
|
|
|
|
rb_thread_local_aset(rb_thread_current(), id_last_error, val);
|
|
|
|
return Qnil;
|
|
|
|
}
|
|
|
|
|
|
|
|
#if defined(HAVE_WINDOWS_H)
|
|
|
|
#include <windows.h>
|
|
|
|
static ID id_win32_last_error;
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
rb_dl_get_win32_last_error(VALUE self)
|
|
|
|
{
|
|
|
|
return rb_thread_local_aref(rb_thread_current(), id_win32_last_error);
|
|
|
|
}
|
|
|
|
|
|
|
|
static VALUE
|
|
|
|
rb_dl_set_win32_last_error(VALUE self, VALUE val)
|
|
|
|
{
|
|
|
|
rb_thread_local_aset(rb_thread_current(), id_win32_last_error, val);
|
|
|
|
return Qnil;
|
|
|
|
}
|
|
|
|
#endif
|
|
|
|
|
|
|
|
|
|
|
|
void
|
|
|
|
dlcfunc_free(struct cfunc_data *data)
|
|
|
|
{
|
2009-03-16 21:15:35 -04:00
|
|
|
if( data->name ){
|
|
|
|
xfree(data->name);
|
|
|
|
}
|
|
|
|
xfree(data);
|
2005-02-04 08:35:37 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_dlcfunc_new(void (*func)(), int type, const char *name, ID calltype)
|
|
|
|
{
|
2009-03-16 21:15:35 -04:00
|
|
|
VALUE val;
|
|
|
|
struct cfunc_data *data;
|
|
|
|
|
|
|
|
rb_secure(4);
|
|
|
|
if( func ){
|
|
|
|
val = Data_Make_Struct(rb_cDLCFunc, struct cfunc_data, 0, dlcfunc_free, data);
|
|
|
|
data->ptr = func;
|
|
|
|
data->name = name ? strdup(name) : NULL;
|
|
|
|
data->type = type;
|
|
|
|
data->calltype = calltype;
|
|
|
|
}
|
|
|
|
else{
|
|
|
|
val = Qnil;
|
|
|
|
}
|
|
|
|
|
|
|
|
return val;
|
2005-02-04 08:35:37 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
void *
|
|
|
|
rb_dlcfunc2ptr(VALUE val)
|
|
|
|
{
|
2009-03-16 21:15:35 -04:00
|
|
|
struct cfunc_data *data;
|
|
|
|
void * func;
|
|
|
|
|
|
|
|
if( rb_obj_is_kind_of(val, rb_cDLCFunc) ){
|
|
|
|
Data_Get_Struct(val, struct cfunc_data, data);
|
|
|
|
func = data->ptr;
|
|
|
|
}
|
|
|
|
else if( val == Qnil ){
|
|
|
|
func = NULL;
|
|
|
|
}
|
|
|
|
else{
|
|
|
|
rb_raise(rb_eTypeError, "DL::CFunc was expected");
|
|
|
|
}
|
|
|
|
|
|
|
|
return func;
|
2005-02-04 08:35:37 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_dlcfunc_s_allocate(VALUE klass)
|
|
|
|
{
|
2009-03-16 21:15:35 -04:00
|
|
|
VALUE obj;
|
|
|
|
struct cfunc_data *data;
|
2005-02-04 08:35:37 -05:00
|
|
|
|
2009-03-16 21:15:35 -04:00
|
|
|
obj = Data_Make_Struct(klass, struct cfunc_data, 0, dlcfunc_free, data);
|
|
|
|
data->ptr = 0;
|
|
|
|
data->name = 0;
|
|
|
|
data->type = 0;
|
|
|
|
data->calltype = CFUNC_CDECL;
|
2005-02-04 08:35:37 -05:00
|
|
|
|
2009-03-16 21:15:35 -04:00
|
|
|
return obj;
|
2005-02-04 08:35:37 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_dlcfunc_initialize(int argc, VALUE argv[], VALUE self)
|
|
|
|
{
|
|
|
|
VALUE addr, name, type, calltype;
|
|
|
|
struct cfunc_data *data;
|
|
|
|
void *saddr;
|
|
|
|
const char *sname;
|
|
|
|
|
|
|
|
rb_scan_args(argc, argv, "13", &addr, &type, &name, &calltype);
|
|
|
|
|
|
|
|
saddr = (void*)(NUM2PTR(rb_Integer(addr)));
|
|
|
|
sname = NIL_P(name) ? NULL : StringValuePtr(name);
|
|
|
|
|
|
|
|
Data_Get_Struct(self, struct cfunc_data, data);
|
|
|
|
if( data->name ) xfree(data->name);
|
|
|
|
data->ptr = saddr;
|
|
|
|
data->name = sname ? strdup(sname) : 0;
|
|
|
|
data->type = (type == Qnil) ? DLTYPE_VOID : NUM2INT(type);
|
|
|
|
data->calltype = (calltype == Qnil) ? CFUNC_CDECL : SYM2ID(calltype);
|
|
|
|
|
|
|
|
return Qnil;
|
|
|
|
}
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_dlcfunc_name(VALUE self)
|
|
|
|
{
|
|
|
|
struct cfunc_data *cfunc;
|
|
|
|
|
|
|
|
Data_Get_Struct(self, struct cfunc_data, cfunc);
|
|
|
|
return cfunc->name ? rb_tainted_str_new2(cfunc->name) : Qnil;
|
|
|
|
}
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_dlcfunc_ctype(VALUE self)
|
|
|
|
{
|
|
|
|
struct cfunc_data *cfunc;
|
|
|
|
|
|
|
|
Data_Get_Struct(self, struct cfunc_data, cfunc);
|
|
|
|
return INT2NUM(cfunc->type);
|
|
|
|
}
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_dlcfunc_set_ctype(VALUE self, VALUE ctype)
|
|
|
|
{
|
|
|
|
struct cfunc_data *cfunc;
|
|
|
|
|
|
|
|
Data_Get_Struct(self, struct cfunc_data, cfunc);
|
|
|
|
cfunc->type = NUM2INT(ctype);
|
|
|
|
return ctype;
|
|
|
|
}
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_dlcfunc_calltype(VALUE self)
|
|
|
|
{
|
|
|
|
struct cfunc_data *cfunc;
|
|
|
|
|
|
|
|
Data_Get_Struct(self, struct cfunc_data, cfunc);
|
|
|
|
return ID2SYM(cfunc->calltype);
|
|
|
|
}
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_dlcfunc_set_calltype(VALUE self, VALUE sym)
|
|
|
|
{
|
|
|
|
struct cfunc_data *cfunc;
|
|
|
|
|
|
|
|
Data_Get_Struct(self, struct cfunc_data, cfunc);
|
|
|
|
cfunc->calltype = SYM2ID(sym);
|
|
|
|
return sym;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_dlcfunc_ptr(VALUE self)
|
|
|
|
{
|
|
|
|
struct cfunc_data *cfunc;
|
|
|
|
|
|
|
|
Data_Get_Struct(self, struct cfunc_data, cfunc);
|
|
|
|
return PTR2NUM(cfunc->ptr);
|
|
|
|
}
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_dlcfunc_set_ptr(VALUE self, VALUE addr)
|
|
|
|
{
|
|
|
|
struct cfunc_data *cfunc;
|
|
|
|
|
|
|
|
Data_Get_Struct(self, struct cfunc_data, cfunc);
|
|
|
|
cfunc->ptr = NUM2PTR(addr);
|
|
|
|
|
|
|
|
return Qnil;
|
|
|
|
}
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_dlcfunc_inspect(VALUE self)
|
|
|
|
{
|
|
|
|
VALUE val;
|
|
|
|
char *str;
|
|
|
|
int str_size;
|
|
|
|
struct cfunc_data *cfunc;
|
|
|
|
|
|
|
|
Data_Get_Struct(self, struct cfunc_data, cfunc);
|
|
|
|
|
|
|
|
str_size = (cfunc->name ? strlen(cfunc->name) : 0) + 100;
|
|
|
|
str = ruby_xmalloc(str_size);
|
|
|
|
snprintf(str, str_size - 1,
|
|
|
|
"#<DL::CFunc:%p ptr=%p type=%d name='%s'>",
|
|
|
|
cfunc,
|
|
|
|
cfunc->ptr,
|
|
|
|
cfunc->type,
|
|
|
|
cfunc->name ? cfunc->name : "");
|
|
|
|
val = rb_tainted_str_new2(str);
|
|
|
|
ruby_xfree(str);
|
|
|
|
|
|
|
|
return val;
|
|
|
|
}
|
|
|
|
|
2006-07-06 15:59:31 -04:00
|
|
|
|
|
|
|
# define DECL_FUNC_CDECL(f,ret,args) ret (FUNC_CDECL(*f))(args)
|
2009-03-01 05:02:06 -05:00
|
|
|
#ifdef FUNC_STDCALL
|
2006-07-06 15:59:31 -04:00
|
|
|
# define DECL_FUNC_STDCALL(f,ret,args) ret (FUNC_STDCALL(*f))(args)
|
2009-03-01 05:02:06 -05:00
|
|
|
#endif
|
2005-02-04 08:35:37 -05:00
|
|
|
|
2006-09-02 10:42:08 -04:00
|
|
|
#define CALL_CASE switch( RARRAY_LEN(ary) ){ \
|
2005-02-04 08:35:37 -05:00
|
|
|
CASE(0); break; \
|
|
|
|
CASE(1); break; CASE(2); break; CASE(3); break; CASE(4); break; CASE(5); break; \
|
|
|
|
CASE(6); break; CASE(7); break; CASE(8); break; CASE(9); break; CASE(10);break; \
|
|
|
|
CASE(11);break; CASE(12);break; CASE(13);break; CASE(14);break; CASE(15);break; \
|
|
|
|
CASE(16);break; CASE(17);break; CASE(18);break; CASE(19);break; CASE(20);break; \
|
* array.c: replace rb_protect_inspect() and rb_inspecting_p() by
rb_exec_recursive() in eval.c.
* eval.c (rb_exec_recursive): new function.
* array.c (rb_ary_join): use rb_exec_recursive().
* array.c (rb_ary_inspect, rb_ary_hash): ditto.
* file.c (rb_file_join): ditto.
* hash.c (rb_hash_inspect, rb_hash_to_s, rb_hash_hash): ditto.
* io.c (rb_io_puts): ditto.
* object.c (rb_obj_inspect): ditto
* struct.c (rb_struct_inspect): ditto.
* lib/set.rb (SortedSet::setup): a hack to shut up warning.
[ruby-talk:132866]
* lib/time.rb (Time::strptime): add new function. inspired by
[ruby-talk:132815].
* lib/parsedate.rb (ParseDate::strptime): ditto.
* regparse.c: move st_*_strend() functions from st.c. fixed some
potential memory leaks.
* exception error messages updated. [ruby-core:04497]
* ext/socket/socket.c (Init_socket): add bunch of Socket
constants. Patch from Sam Roberts <sroberts@uniserve.com>.
[ruby-core:04409]
* array.c (rb_ary_s_create): no need for negative argc check.
[ruby-core:04463]
* array.c (rb_ary_unshift_m): ditto.
* lib/xmlrpc/parser.rb (XMLRPC::FaultException): make it subclass
of StandardError class, not Exception class. [ruby-core:04429]
* parse.y (fcall_gen): lvar(arg) will be evaluated as
lvar.call(arg) when lvar is a defined local variable. [new]
* object.c (rb_class_initialize): call inherited method before
calling initializing block.
* eval.c (rb_thread_start_1): initialize newly pushed frame.
* lib/open3.rb (Open3::popen3): $? should not be EXIT_FAILURE.
fixed: [ruby-core:04444]
* eval.c (is_defined): NODE_IASGN is an assignment.
* ext/readline/readline.c (Readline.readline): use rl_outstream
and rl_instream. [ruby-dev:25699]
* ext/etc/etc.c (Init_etc): sGroup needs HAVE_ST_GR_PASSWD check
[ruby-dev:25675]
* misc/ruby-mode.el: [ruby-core:04415]
* lib/rdoc/generators/html_generator.rb: [ruby-core:04412]
* lib/rdoc/generators/ri_generator.rb: ditto.
* struct.c (make_struct): fixed: [ruby-core:04402]
* ext/curses/curses.c (window_color_set): [ruby-core:04393]
* ext/socket/socket.c (Init_socket): SO_REUSEPORT added.
[ruby-talk:130092]
* object.c: [ruby-doc:818]
* parse.y (open_args): fix too verbose warnings for the space
before argument parentheses. [ruby-dev:25492]
* parse.y (parser_yylex): ditto.
* parse.y (parser_yylex): the first expression in the parentheses
should not be a command. [ruby-dev:25492]
* lib/irb/context.rb (IRB::Context::initialize): [ruby-core:04330]
* object.c (Init_Object): remove Object#type. [ruby-core:04335]
* st.c (st_foreach): report success/failure by return value.
[ruby-Bugs-1396]
* parse.y: forgot to initialize parser struct. [ruby-dev:25492]
* parse.y (parser_yylex): no tLABEL on EXPR_BEG.
[ruby-talk:127711]
* document updates - [ruby-core:04296], [ruby-core:04301],
[ruby-core:04302], [ruby-core:04307]
* dir.c (rb_push_glob): should work for NUL delimited patterns.
* dir.c (rb_glob2): should aware of offset in the pattern.
* string.c (rb_str_new4): should propagate taintedness.
* env.h: rename member names in struct FRAME; last_func -> callee,
orig_func -> this_func, last_class -> this_class.
* struct.c (rb_struct_set): use original method name, not callee
name, to retrieve member slot. [ruby-core:04268]
* time.c (time_strftime): protect from format modification from GC
finalizers.
* object.c (Init_Object): remove rb_obj_id_obsolete()
* eval.c (rb_mod_define_method): incomplete subclass check.
[ruby-dev:25464]
* gc.c (rb_data_object_alloc): klass may be NULL.
[ruby-list:40498]
* bignum.c (rb_big_rand): should return positive random number.
[ruby-dev:25401]
* bignum.c (rb_big_rand): do not use rb_big_modulo to generate
random bignums. [ruby-dev:25396]
* variable.c (rb_autoload): [ruby-dev:25373]
* eval.c (svalue_to_avalue): [ruby-dev:25366]
* string.c (rb_str_justify): [ruby-dev:25367]
* io.c (rb_f_select): [ruby-dev:25312]
* ext/socket/socket.c (sock_s_getservbyport): [ruby-talk:124072]
* struct.c (make_struct): [ruby-dev:25249]
* dir.c (dir_open_dir): new function. [ruby-dev:25242]
* io.c (rb_f_open): add type check for return value from to_open.
* lib/pstore.rb (PStore#transaction): Use the empty content when a
file is not found. [ruby-dev:24561]
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8068 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-03-04 01:47:45 -05:00
|
|
|
default: rb_raise(rb_eArgError, "too many arguments"); \
|
2005-02-04 08:35:37 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_dlcfunc_call(VALUE self, VALUE ary)
|
|
|
|
{
|
|
|
|
struct cfunc_data *cfunc;
|
|
|
|
int i;
|
|
|
|
DLSTACK_TYPE stack[DLSTACK_SIZE];
|
|
|
|
VALUE result = Qnil;
|
|
|
|
|
|
|
|
rb_secure_update(self);
|
|
|
|
|
|
|
|
memset(stack, 0, sizeof(DLSTACK_TYPE) * DLSTACK_SIZE);
|
|
|
|
Check_Type(ary, T_ARRAY);
|
|
|
|
|
|
|
|
Data_Get_Struct(self, struct cfunc_data, cfunc);
|
|
|
|
|
|
|
|
if( cfunc->ptr == 0 ){
|
* array.c: replace rb_protect_inspect() and rb_inspecting_p() by
rb_exec_recursive() in eval.c.
* eval.c (rb_exec_recursive): new function.
* array.c (rb_ary_join): use rb_exec_recursive().
* array.c (rb_ary_inspect, rb_ary_hash): ditto.
* file.c (rb_file_join): ditto.
* hash.c (rb_hash_inspect, rb_hash_to_s, rb_hash_hash): ditto.
* io.c (rb_io_puts): ditto.
* object.c (rb_obj_inspect): ditto
* struct.c (rb_struct_inspect): ditto.
* lib/set.rb (SortedSet::setup): a hack to shut up warning.
[ruby-talk:132866]
* lib/time.rb (Time::strptime): add new function. inspired by
[ruby-talk:132815].
* lib/parsedate.rb (ParseDate::strptime): ditto.
* regparse.c: move st_*_strend() functions from st.c. fixed some
potential memory leaks.
* exception error messages updated. [ruby-core:04497]
* ext/socket/socket.c (Init_socket): add bunch of Socket
constants. Patch from Sam Roberts <sroberts@uniserve.com>.
[ruby-core:04409]
* array.c (rb_ary_s_create): no need for negative argc check.
[ruby-core:04463]
* array.c (rb_ary_unshift_m): ditto.
* lib/xmlrpc/parser.rb (XMLRPC::FaultException): make it subclass
of StandardError class, not Exception class. [ruby-core:04429]
* parse.y (fcall_gen): lvar(arg) will be evaluated as
lvar.call(arg) when lvar is a defined local variable. [new]
* object.c (rb_class_initialize): call inherited method before
calling initializing block.
* eval.c (rb_thread_start_1): initialize newly pushed frame.
* lib/open3.rb (Open3::popen3): $? should not be EXIT_FAILURE.
fixed: [ruby-core:04444]
* eval.c (is_defined): NODE_IASGN is an assignment.
* ext/readline/readline.c (Readline.readline): use rl_outstream
and rl_instream. [ruby-dev:25699]
* ext/etc/etc.c (Init_etc): sGroup needs HAVE_ST_GR_PASSWD check
[ruby-dev:25675]
* misc/ruby-mode.el: [ruby-core:04415]
* lib/rdoc/generators/html_generator.rb: [ruby-core:04412]
* lib/rdoc/generators/ri_generator.rb: ditto.
* struct.c (make_struct): fixed: [ruby-core:04402]
* ext/curses/curses.c (window_color_set): [ruby-core:04393]
* ext/socket/socket.c (Init_socket): SO_REUSEPORT added.
[ruby-talk:130092]
* object.c: [ruby-doc:818]
* parse.y (open_args): fix too verbose warnings for the space
before argument parentheses. [ruby-dev:25492]
* parse.y (parser_yylex): ditto.
* parse.y (parser_yylex): the first expression in the parentheses
should not be a command. [ruby-dev:25492]
* lib/irb/context.rb (IRB::Context::initialize): [ruby-core:04330]
* object.c (Init_Object): remove Object#type. [ruby-core:04335]
* st.c (st_foreach): report success/failure by return value.
[ruby-Bugs-1396]
* parse.y: forgot to initialize parser struct. [ruby-dev:25492]
* parse.y (parser_yylex): no tLABEL on EXPR_BEG.
[ruby-talk:127711]
* document updates - [ruby-core:04296], [ruby-core:04301],
[ruby-core:04302], [ruby-core:04307]
* dir.c (rb_push_glob): should work for NUL delimited patterns.
* dir.c (rb_glob2): should aware of offset in the pattern.
* string.c (rb_str_new4): should propagate taintedness.
* env.h: rename member names in struct FRAME; last_func -> callee,
orig_func -> this_func, last_class -> this_class.
* struct.c (rb_struct_set): use original method name, not callee
name, to retrieve member slot. [ruby-core:04268]
* time.c (time_strftime): protect from format modification from GC
finalizers.
* object.c (Init_Object): remove rb_obj_id_obsolete()
* eval.c (rb_mod_define_method): incomplete subclass check.
[ruby-dev:25464]
* gc.c (rb_data_object_alloc): klass may be NULL.
[ruby-list:40498]
* bignum.c (rb_big_rand): should return positive random number.
[ruby-dev:25401]
* bignum.c (rb_big_rand): do not use rb_big_modulo to generate
random bignums. [ruby-dev:25396]
* variable.c (rb_autoload): [ruby-dev:25373]
* eval.c (svalue_to_avalue): [ruby-dev:25366]
* string.c (rb_str_justify): [ruby-dev:25367]
* io.c (rb_f_select): [ruby-dev:25312]
* ext/socket/socket.c (sock_s_getservbyport): [ruby-talk:124072]
* struct.c (make_struct): [ruby-dev:25249]
* dir.c (dir_open_dir): new function. [ruby-dev:25242]
* io.c (rb_f_open): add type check for return value from to_open.
* lib/pstore.rb (PStore#transaction): Use the empty content when a
file is not found. [ruby-dev:24561]
git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8068 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
2005-03-04 01:47:45 -05:00
|
|
|
rb_raise(rb_eDLError, "can't call null-function");
|
2005-02-04 08:35:37 -05:00
|
|
|
return Qnil;
|
|
|
|
}
|
|
|
|
|
2006-09-02 10:42:08 -04:00
|
|
|
for( i = 0; i < RARRAY_LEN(ary); i++ ){
|
2005-02-04 08:35:37 -05:00
|
|
|
if( i >= DLSTACK_SIZE ){
|
|
|
|
rb_raise(rb_eDLError, "too many arguments (stack overflow)");
|
|
|
|
}
|
2008-08-11 07:33:44 -04:00
|
|
|
rb_check_safe_obj(RARRAY_PTR(ary)[i]);
|
2006-09-02 10:42:08 -04:00
|
|
|
stack[i] = NUM2LONG(RARRAY_PTR(ary)[i]);
|
2005-02-04 08:35:37 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
/* calltype == CFUNC_CDECL */
|
2009-03-01 05:02:06 -05:00
|
|
|
if( cfunc->calltype == CFUNC_CDECL
|
|
|
|
#ifndef FUNC_STDCALL
|
|
|
|
|| cfunc->calltype == CFUNC_STDCALL
|
|
|
|
#endif
|
|
|
|
){
|
2005-02-04 08:35:37 -05:00
|
|
|
switch( cfunc->type ){
|
|
|
|
case DLTYPE_VOID:
|
|
|
|
#define CASE(n) case n: { \
|
2009-03-20 20:51:51 -04:00
|
|
|
DECL_FUNC_CDECL(f,void,DLSTACK_PROTO##n) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
f(DLSTACK_ARGS##n(stack)); \
|
|
|
|
result = Qnil; \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
case DLTYPE_VOIDP:
|
|
|
|
#define CASE(n) case n: { \
|
2006-06-30 14:05:40 -04:00
|
|
|
DECL_FUNC_CDECL(f,void*,DLSTACK_PROTO##n) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
void * ret; \
|
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
|
|
|
result = PTR2NUM(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
case DLTYPE_CHAR:
|
|
|
|
#define CASE(n) case n: { \
|
2006-06-30 14:05:40 -04:00
|
|
|
DECL_FUNC_CDECL(f,char,DLSTACK_PROTO##n) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
char ret; \
|
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
|
|
|
result = CHR2FIX(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
case DLTYPE_SHORT:
|
|
|
|
#define CASE(n) case n: { \
|
2006-06-30 14:05:40 -04:00
|
|
|
DECL_FUNC_CDECL(f,short,DLSTACK_PROTO##n) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
short ret; \
|
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
|
|
|
result = INT2NUM((int)ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
case DLTYPE_INT:
|
|
|
|
#define CASE(n) case n: { \
|
2006-06-30 14:05:40 -04:00
|
|
|
DECL_FUNC_CDECL(f,int,DLSTACK_PROTO##n) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
int ret; \
|
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
|
|
|
result = INT2NUM(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
case DLTYPE_LONG:
|
|
|
|
#define CASE(n) case n: { \
|
2006-06-30 14:05:40 -04:00
|
|
|
DECL_FUNC_CDECL(f,long,DLSTACK_PROTO##n) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
long ret; \
|
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
|
|
|
result = LONG2NUM(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
#if HAVE_LONG_LONG /* used in ruby.h */
|
|
|
|
case DLTYPE_LONG_LONG:
|
|
|
|
#define CASE(n) case n: { \
|
2009-03-01 05:02:06 -05:00
|
|
|
DECL_FUNC_CDECL(f,LONG_LONG,DLSTACK_PROTO##n) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
LONG_LONG ret; \
|
2009-03-01 05:02:06 -05:00
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
2005-02-04 08:35:37 -05:00
|
|
|
result = LL2NUM(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
#endif
|
|
|
|
case DLTYPE_FLOAT:
|
|
|
|
#define CASE(n) case n: { \
|
2009-03-01 05:02:06 -05:00
|
|
|
DECL_FUNC_CDECL(f,float,DLSTACK_PROTO##n) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
float ret; \
|
2009-03-01 05:02:06 -05:00
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
2005-02-04 08:35:37 -05:00
|
|
|
result = rb_float_new(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
case DLTYPE_DOUBLE:
|
|
|
|
#define CASE(n) case n: { \
|
2009-03-01 05:02:06 -05:00
|
|
|
DECL_FUNC_CDECL(f,double,DLSTACK_PROTO##n) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
double ret; \
|
2009-03-01 05:02:06 -05:00
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
2005-02-04 08:35:37 -05:00
|
|
|
result = rb_float_new(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
rb_raise(rb_eDLTypeError, "unknown type %d", cfunc->type);
|
|
|
|
}
|
|
|
|
}
|
2009-03-01 05:02:06 -05:00
|
|
|
#ifdef FUNC_STDCALL
|
2005-02-04 08:35:37 -05:00
|
|
|
else if( cfunc->calltype == CFUNC_STDCALL ){
|
|
|
|
/* calltype == CFUNC_STDCALL */
|
|
|
|
switch( cfunc->type ){
|
|
|
|
case DLTYPE_VOID:
|
|
|
|
#define CASE(n) case n: { \
|
2009-03-16 21:15:35 -04:00
|
|
|
DECL_FUNC_STDCALL(f,void,DLSTACK_PROTO##n##_) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
f(DLSTACK_ARGS##n(stack)); \
|
|
|
|
result = Qnil; \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
case DLTYPE_VOIDP:
|
|
|
|
#define CASE(n) case n: { \
|
2009-03-01 05:02:06 -05:00
|
|
|
DECL_FUNC_STDCALL(f,void*,DLSTACK_PROTO##n##_) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
void * ret; \
|
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
|
|
|
result = PTR2NUM(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
case DLTYPE_CHAR:
|
|
|
|
#define CASE(n) case n: { \
|
2009-03-01 05:02:06 -05:00
|
|
|
DECL_FUNC_STDCALL(f,char,DLSTACK_PROTO##n##_) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
char ret; \
|
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
|
|
|
result = CHR2FIX(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
case DLTYPE_SHORT:
|
|
|
|
#define CASE(n) case n: { \
|
2009-03-01 05:02:06 -05:00
|
|
|
DECL_FUNC_STDCALL(f,short,DLSTACK_PROTO##n##_) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
short ret; \
|
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
|
|
|
result = INT2NUM((int)ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
case DLTYPE_INT:
|
|
|
|
#define CASE(n) case n: { \
|
2009-03-01 05:02:06 -05:00
|
|
|
DECL_FUNC_STDCALL(f,int,DLSTACK_PROTO##n##_) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
int ret; \
|
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
|
|
|
result = INT2NUM(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
case DLTYPE_LONG:
|
|
|
|
#define CASE(n) case n: { \
|
2009-03-01 05:02:06 -05:00
|
|
|
DECL_FUNC_STDCALL(f,long,DLSTACK_PROTO##n##_) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
long ret; \
|
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
|
|
|
result = LONG2NUM(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
#if HAVE_LONG_LONG /* used in ruby.h */
|
|
|
|
case DLTYPE_LONG_LONG:
|
|
|
|
#define CASE(n) case n: { \
|
2009-03-01 05:02:06 -05:00
|
|
|
DECL_FUNC_STDCALL(f,LONG_LONG,DLSTACK_PROTO##n##_) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
LONG_LONG ret; \
|
2009-03-01 05:02:06 -05:00
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
2005-02-04 08:35:37 -05:00
|
|
|
result = LL2NUM(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
#endif
|
|
|
|
case DLTYPE_FLOAT:
|
|
|
|
#define CASE(n) case n: { \
|
2009-03-01 05:02:06 -05:00
|
|
|
DECL_FUNC_STDCALL(f,float,DLSTACK_PROTO##n##_) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
float ret; \
|
2009-03-01 05:02:06 -05:00
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
2005-02-04 08:35:37 -05:00
|
|
|
result = rb_float_new(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
case DLTYPE_DOUBLE:
|
|
|
|
#define CASE(n) case n: { \
|
2009-03-01 05:02:06 -05:00
|
|
|
DECL_FUNC_STDCALL(f,double,DLSTACK_PROTO##n##_) = cfunc->ptr; \
|
2005-02-04 08:35:37 -05:00
|
|
|
double ret; \
|
2009-03-01 05:02:06 -05:00
|
|
|
ret = f(DLSTACK_ARGS##n(stack)); \
|
2005-02-04 08:35:37 -05:00
|
|
|
result = rb_float_new(ret); \
|
|
|
|
}
|
|
|
|
CALL_CASE;
|
|
|
|
#undef CASE
|
|
|
|
break;
|
|
|
|
default:
|
|
|
|
rb_raise(rb_eDLTypeError, "unknown type %d", cfunc->type);
|
|
|
|
}
|
|
|
|
}
|
2009-03-01 05:02:06 -05:00
|
|
|
#endif
|
2005-02-04 08:35:37 -05:00
|
|
|
else{
|
2007-07-15 09:24:39 -04:00
|
|
|
rb_raise(rb_eDLError,
|
|
|
|
#ifndef LONG_LONG_VALUE
|
|
|
|
"unsupported call type: %lx",
|
|
|
|
#else
|
|
|
|
"unsupported call type: %llx",
|
|
|
|
#endif
|
|
|
|
cfunc->calltype);
|
2005-02-04 08:35:37 -05:00
|
|
|
}
|
|
|
|
|
|
|
|
rb_dl_set_last_error(self, INT2NUM(errno));
|
|
|
|
#if defined(HAVE_WINDOWS_H)
|
|
|
|
rb_dl_set_win32_last_error(self, INT2NUM(GetLastError()));
|
|
|
|
#endif
|
|
|
|
|
|
|
|
return result;
|
|
|
|
}
|
|
|
|
|
|
|
|
VALUE
|
|
|
|
rb_dlcfunc_to_i(VALUE self)
|
|
|
|
{
|
|
|
|
struct cfunc_data *cfunc;
|
|
|
|
|
|
|
|
Data_Get_Struct(self, struct cfunc_data, cfunc);
|
|
|
|
return PTR2NUM(cfunc->ptr);
|
|
|
|
}
|
|
|
|
|
|
|
|
void
|
2009-03-09 02:25:14 -04:00
|
|
|
Init_dlcfunc(void)
|
2005-02-04 08:35:37 -05:00
|
|
|
{
|
|
|
|
id_last_error = rb_intern("__DL2_LAST_ERROR__");
|
|
|
|
#if defined(HAVE_WINDOWS_H)
|
|
|
|
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);
|
|
|
|
#if defined(HAVE_WINDOWS_H)
|
|
|
|
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);
|
|
|
|
rb_define_method(rb_cDLCFunc, "call", rb_dlcfunc_call, 1);
|
|
|
|
rb_define_method(rb_cDLCFunc, "[]", rb_dlcfunc_call, 1);
|
|
|
|
rb_define_method(rb_cDLCFunc, "name", rb_dlcfunc_name, 0);
|
|
|
|
rb_define_method(rb_cDLCFunc, "ctype", rb_dlcfunc_ctype, 0);
|
|
|
|
rb_define_method(rb_cDLCFunc, "ctype=", rb_dlcfunc_set_ctype, 1);
|
|
|
|
rb_define_method(rb_cDLCFunc, "calltype", rb_dlcfunc_calltype, 0);
|
|
|
|
rb_define_method(rb_cDLCFunc, "calltype=", rb_dlcfunc_set_calltype, 1);
|
|
|
|
rb_define_method(rb_cDLCFunc, "ptr", rb_dlcfunc_ptr, 0);
|
|
|
|
rb_define_method(rb_cDLCFunc, "ptr=", rb_dlcfunc_set_ptr, 1);
|
|
|
|
rb_define_method(rb_cDLCFunc, "inspect", rb_dlcfunc_inspect, 0);
|
|
|
|
rb_define_method(rb_cDLCFunc, "to_s", rb_dlcfunc_inspect, 0);
|
|
|
|
rb_define_method(rb_cDLCFunc, "to_i", rb_dlcfunc_to_i, 0);
|
|
|
|
}
|