summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorttate <ttate@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2002-04-03 11:59:01 +0000
committerttate <ttate@b2dd03c8-39d4-4d8f-98ff-823fe69b080e>2002-04-03 11:59:01 +0000
commit74b4c8139695c52123e8db0761c78bb071a61271 (patch)
tree5d135f00ed93cc1fffa4675aeeccc56e2fa245e9
parent493c57f65a3cde9c0268584aacd93a55782484ef (diff)
Merge Nakada's patch and define StringValuePtr for ruby-1.6.
CV ---------------------------------------------------------------------- git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@2330 b2dd03c8-39d4-4d8f-98ff-823fe69b080e
-rw-r--r--ChangeLog6
-rw-r--r--ext/dl/depend21
-rw-r--r--ext/dl/dl.c64
-rw-r--r--ext/dl/dl.h19
-rw-r--r--ext/dl/extconf.rb11
-rw-r--r--ext/dl/handle.c30
-rw-r--r--ext/dl/ptr.c143
-rw-r--r--ext/dl/sym.c44
-rw-r--r--ext/dl/test/test.c5
-rw-r--r--ext/dl/test/test.rb4
10 files changed, 180 insertions, 167 deletions
diff --git a/ChangeLog b/ChangeLog
index af86402e16c..5fb1e54db51 100644
--- a/ChangeLog
+++ b/ChangeLog
@@ -1,3 +1,9 @@
+Wed Apr 3 20:42:34 2002 Takaaki Tateishi <ttate@kt.jaist.ac.jp>
+
+ * ext/dl: Merge Nakada's patch.
+
+ * ext/dl/dl.h: define StringValuePtr for ruby-1.6.
+
Wed Apr 3 01:54:10 2002 Nobuyoshi Nakada <nobu.nakada@nifty.ne.jp>
* ext/extmk.rb.in (enable_config): follow lib/mkmf.rb.
diff --git a/ext/dl/depend b/ext/dl/depend
index c66a7f0daf2..552c67d0f50 100644
--- a/ext/dl/depend
+++ b/ext/dl/depend
@@ -1,16 +1,17 @@
CLEANFILES = test/test.o
DISTCLEANFILES = call.func callback.func cbtable.func dlconfig.rb dlconfig.h \
test/libtest.so test/*~ *~ mkmf.log
+LDSHARED_TEST = $(LDSHARED) $(LDFLAGS) test/test.o -o test/libtest.so $(LOCAL_LIBS)
libtest.so: test/libtest.so
test/libtest.so: test/test.o test/libtest.def
$(RUBY) -rftools -e 'ARGV.each{|d|File.mkpath(File.dirname(d))}' $@
- `$(RUBY) -e 'print ARGV.join(" ").gsub(/dl\\.def/,"test/libtest.def")' $(LDSHARED)` $(LDFLAGS) test/test.o -o test/libtest.so
+ $(LDSHARED_TEST:dl.def=test/libtest.def)
-test/test.o: test/test.c
+test/test.o: $(srcdir)/test/test.c
@$(RUBY) -rftools -e 'File.mkpath(*ARGV)' test
- $(CC) $(CFLAGS) $(CPPFLAGS) -c $< -o $@
+ $(CC) $(CFLAGS) $(CPPFLAGS) -c $(srcdir)/test/test.c -o $@
test:: dl.so libtest.so .force
$(RUBY) -I. -I$(srcdir)/lib $(srcdir)/test/test.rb
@@ -22,23 +23,23 @@ test:: dl.so libtest.so .force
allclean: distclean
@rm -f $(CLEANFILES) $(DISTCLEANFILES)
-$(OBJS): dlconfig.h
+$(OBJS): ./dlconfig.h
sym.o: call.func
dl.o: callback.func cbtable.func
-call.func: mkcall.rb dlconfig.rb
+call.func: $(srcdir)/mkcall.rb ./dlconfig.rb
@echo "Generating call.func"
- @$(RUBY) $< > $@
+ @$(RUBY) $(srcdir)/mkcall.rb > $@
-callback.func: mkcallback.rb dlconfig.rb
+callback.func: $(srcdir)/mkcallback.rb ./dlconfig.rb
@echo "Generating callback.func"
- @$(RUBY) $< > $@
+ @$(RUBY) $(srcdir)/mkcallback.rb > $@
-cbtable.func: mkcbtable.rb dlconfig.rb
+cbtable.func: $(srcdir)/mkcbtable.rb ./dlconfig.rb
@echo "Generating cbtable.func"
- @$(RUBY) $< > $@
+ @$(RUBY) $(srcdir)/mkcbtable.rb > $@
debug:
$(MAKE) CPPFLAGS="$(CPPFLAGS) -DDEBUG"
diff --git a/ext/dl/dl.c b/ext/dl/dl.c
index b8e7381f83e..f9b5a145cbd 100644
--- a/ext/dl/dl.c
+++ b/ext/dl/dl.c
@@ -19,7 +19,7 @@ static ID id_call;
static void
init_dl_func_table(){
#include "cbtable.func"
-};
+}
void *
dlmalloc(size_t size)
@@ -35,7 +35,7 @@ dlmalloc(size_t size)
{
return xmalloc(size);
});
-};
+}
void *
dlrealloc(void *ptr, size_t size)
@@ -44,7 +44,7 @@ dlrealloc(void *ptr, size_t size)
printf("dlrealloc(0x%x,%d)\n",ptr,size);
});
return xrealloc(ptr, size);
-};
+}
void
dlfree(void *ptr)
@@ -53,7 +53,7 @@ dlfree(void *ptr)
printf("dlfree(0x%x)\n",ptr);
});
xfree(ptr);
-};
+}
char*
dlstrdup(const char *str)
@@ -64,7 +64,7 @@ dlstrdup(const char *str)
strcpy(newstr,str);
return newstr;
-};
+}
size_t
dlsizeof(const char *cstr)
@@ -133,7 +133,7 @@ dlsizeof(const char *cstr)
};
return size;
-};
+}
static float *
c_farray(VALUE v, long *size)
@@ -161,7 +161,7 @@ c_farray(VALUE v, long *size)
};
return ary;
-};
+}
static double *
c_darray(VALUE v, long *size)
@@ -189,7 +189,7 @@ c_darray(VALUE v, long *size)
};
return ary;
-};
+}
static long *
c_larray(VALUE v, long *size)
@@ -218,7 +218,7 @@ c_larray(VALUE v, long *size)
};
return ary;
-};
+}
static int *
c_iarray(VALUE v, long *size)
@@ -247,7 +247,7 @@ c_iarray(VALUE v, long *size)
};
return ary;
-};
+}
static short *
c_harray(VALUE v, long *size)
@@ -276,7 +276,7 @@ c_harray(VALUE v, long *size)
};
return ary;
-};
+}
static char *
c_carray(VALUE v, long *size)
@@ -305,7 +305,7 @@ c_carray(VALUE v, long *size)
};
return ary;
-};
+}
static void *
c_parray(VALUE v, long *size)
@@ -323,7 +323,7 @@ c_parray(VALUE v, long *size)
case T_STRING:
{
char *str, *src;
- src = STR2CSTR(e);
+ src = StringValuePtr(e);
str = dlstrdup(src);
ary[i] = (void*)str;
};
@@ -348,7 +348,7 @@ c_parray(VALUE v, long *size)
};
return ary;
-};
+}
void *
rb_ary2cary(char t, VALUE v, long *size)
@@ -403,7 +403,7 @@ rb_ary2cary(char t, VALUE v, long *size)
default:
rb_raise(rb_eDLTypeError, "unsupported type");
};
-};
+}
VALUE
rb_str_to_ptr(VALUE self)
@@ -413,10 +413,10 @@ rb_str_to_ptr(VALUE self)
len = RSTRING(self)->len;
ptr = (char*)dlmalloc(len + 1);
- memcpy(ptr, STR2CSTR(self), len);
+ memcpy(ptr, RSTRING(self)->ptr, len);
ptr[len] = '\0';
return rb_dlptr_new((void*)ptr,len,dlfree);
-};
+}
VALUE
rb_ary_to_ptr(int argc, VALUE argv[], VALUE self)
@@ -427,14 +427,14 @@ rb_ary_to_ptr(int argc, VALUE argv[], VALUE self)
switch( rb_scan_args(argc, argv, "01", &t) ){
case 1:
- ptr = rb_ary2cary(STR2CSTR(t)[0], self, &size);
+ ptr = rb_ary2cary(StringValuePtr(t)[0], self, &size);
break;
case 0:
ptr = rb_ary2cary(0, self, &size);
break;
};
return ptr ? rb_dlptr_new(ptr, size, dlfree) : Qnil;
-};
+}
VALUE
rb_io_to_ptr(VALUE self)
@@ -452,7 +452,7 @@ VALUE
rb_dl_dlopen(int argc, VALUE argv[], VALUE self)
{
return rb_dlhandle_s_new(argc, argv, rb_cDLHandle);
-};
+}
VALUE
rb_dl_malloc(VALUE self, VALUE size)
@@ -464,7 +464,7 @@ rb_dl_malloc(VALUE self, VALUE size)
ptr = dlmalloc((size_t)s);
memset(ptr,0,(size_t)s);
return rb_dlptr_new(ptr, s, dlfree);
-};
+}
VALUE
rb_dl_strdup(VALUE self, VALUE str)
@@ -472,14 +472,14 @@ rb_dl_strdup(VALUE self, VALUE str)
void *p;
str = rb_String(str);
- return rb_dlptr_new(strdup(STR2CSTR(str)), RSTRING(str)->len, dlfree);
-};
+ return rb_dlptr_new(strdup(StringValuePtr(str)), RSTRING(str)->len, dlfree);
+}
static VALUE
rb_dl_sizeof(VALUE self, VALUE str)
{
- return INT2NUM(dlsizeof(STR2CSTR(str)));
-};
+ return INT2NUM(dlsizeof(StringValuePtr(str)));
+}
static VALUE
rb_dl_callback_type(VALUE str)
@@ -490,7 +490,7 @@ rb_dl_callback_type(VALUE str)
long ftype;
ftype = 0;
- type = STR2CSTR(str);
+ type = StringValuePtr(str);
len = RSTRING(str)->len;
if( len - 1 > MAX_CBARG ){
@@ -517,7 +517,7 @@ rb_dl_callback_type(VALUE str)
rb_raise(rb_eDLError, "unsupported type `%c'", type[i]);
break;
};
- };
+ }
switch( type[0] ){
case '0':
@@ -544,7 +544,7 @@ rb_dl_callback_type(VALUE str)
};
return INT2NUM(ftype);
-};
+}
VALUE
rb_dl_set_callback(int argc, VALUE argv[], VALUE self)
@@ -578,12 +578,12 @@ rb_dl_set_callback(int argc, VALUE argv[], VALUE self)
if( func ){
rb_hash_aset(entry, num, proc);
snprintf(func_name, 1023, "rb_dl_func%d_%d", NUM2INT(key), NUM2INT(num));
- return rb_dlsym_new(func, func_name, STR2CSTR(types));
+ return rb_dlsym_new(func, func_name, StringValuePtr(types));
}
else{
return Qnil;
};
-};
+}
VALUE
rb_dl_get_callback(VALUE self, VALUE types, VALUE num)
@@ -597,7 +597,7 @@ rb_dl_get_callback(VALUE self, VALUE types, VALUE num)
return Qnil;
};
return rb_hash_aref(entry, num);
-};
+}
void
Init_dl()
@@ -652,4 +652,4 @@ Init_dl()
rb_define_method(rb_cString, "to_ptr", rb_str_to_ptr, 0);
rb_define_method(rb_cArray, "to_ptr", rb_ary_to_ptr, -1);
rb_define_method(rb_cIO, "to_ptr", rb_io_to_ptr, 0);
-};
+}
diff --git a/ext/dl/dl.h b/ext/dl/dl.h
index 27290fc12b2..a88e95d66fb 100644
--- a/ext/dl/dl.h
+++ b/ext/dl/dl.h
@@ -8,6 +8,11 @@
#include <ruby.h>
#include <dlconfig.h>
+#define DL_VERSION "1.1.0"
+#define DL_MAJOR_VERSION 1
+#define DL_MINOR_VERSION 1
+#define DL_PATCH_VERSION 0
+
#if defined(HAVE_DLFCN_H)
# include <dlfcn.h>
#else
@@ -23,6 +28,13 @@
# endif
#endif
+#if !defined(StringValue)
+# define StringValue(v) if(TYPE(v) != T_STRING) v = rb_str_to_str(v)
+#endif
+#if !defined(StringValuePtr)
+# define StringValuePtr(v) RSTRING((TYPE(v) == T_STRING) ? (v) : rb_str_to_str(v))->ptr
+#endif
+
#ifdef DEBUG
#define DEBUG_CODE(b) {printf("DEBUG:%d\n",__LINE__);b;}
#define DEBUG_CODE2(b1,b2) {printf("DEBUG:%d\n",__LINE__);b1;}
@@ -31,11 +43,6 @@
#define DEBUG_CODE2(b1,b2) b2
#endif
-#define DL_VERSION "1.1.0"
-#define DL_MAJOR_VERSION 1
-#define DL_MINOR_VERSION 1
-#define DL_PATCH_VERSION 0
-
#define VOID_DLTYPE 0x00
#define CHAR_DLTYPE 0x01
#define SHORT_DLTYPE 0x02
@@ -203,7 +210,7 @@ typedef struct { char c; double x; } s_double;
#define DOUBLE_ALIGN ALIGN_DOUBLE
#define DLALIGN(ptr,offset,align) {\
- while( (((unsigned long)(ptr + offset)) % align) != 0 ) offset++;\
+ while( (((unsigned long)((char *)ptr + offset)) % align) != 0 ) offset++;\
}
typedef void (*freefunc_t)(void *);
diff --git a/ext/dl/extconf.rb b/ext/dl/extconf.rb
index 372f1b13845..ea4ebfdf9ac 100644
--- a/ext/dl/extconf.rb
+++ b/ext/dl/extconf.rb
@@ -20,8 +20,7 @@ end
($CPPFLAGS || $CFLAGS) << " -I."
-case RUBY_PLATFORM # from Win32API
-when /cygwin/,/mingw/
+if (Config::CONFIG['CC'] =~ /gcc/) # from Win32API
$CFLAGS << " -fno-defer-pop -fno-omit-frame-pointer"
end
@@ -56,11 +55,11 @@ $with_type_voidp &= DLTYPE[VOIDP][:sym]
$with_cbtype_voidp = DLTYPE[VOIDP][:cb]
-$with_type_char = with_config("type-char") ? true : false
-$with_type_short = with_config("type-short") ? true : false
-$with_type_float = with_config("type-float") ? true : false
+$with_type_char = enable_config("type-char", $with_type_char)
+$with_type_short = enable_config("type-short", $with_type_short)
+$with_type_float = enable_config("type-float", $with_type_float)
-$with_asm = with_config("asm") ? true : $with_asm
+$with_asm = enable_config("asm", $with_asm)
args = with_config("args")
max_arg = max_cbarg = max_cbent = nil
diff --git a/ext/dl/handle.c b/ext/dl/handle.c
index d75cb11a8c2..6debf5e0c51 100644
--- a/ext/dl/handle.c
+++ b/ext/dl/handle.c
@@ -13,7 +13,7 @@ dlhandle_free(struct dl_handle *dlhandle)
if( dlhandle->ptr && dlhandle->open && dlhandle->enable_close ){
dlclose(dlhandle->ptr);
};
-};
+}
VALUE
rb_dlhandle_close(VALUE self)
@@ -23,7 +23,7 @@ rb_dlhandle_close(VALUE self)
Data_Get_Struct(self, struct dl_handle, dlhandle);
dlhandle->open = 0;
return INT2NUM(dlclose(dlhandle->ptr));
-};
+}
VALUE
rb_dlhandle_s_new(int argc, VALUE argv[], VALUE self)
@@ -38,11 +38,11 @@ rb_dlhandle_s_new(int argc, VALUE argv[], VALUE self)
switch( rb_scan_args(argc, argv, "11", &lib, &flag) ){
case 1:
- clib = STR2CSTR(lib);
+ clib = StringValuePtr(lib);
cflag = RTLD_LAZY | RTLD_GLOBAL;
break;
case 2:
- clib = STR2CSTR(lib);
+ clib = StringValuePtr(lib);
cflag = NUM2INT(flag);
break;
default:
@@ -73,13 +73,13 @@ rb_dlhandle_s_new(int argc, VALUE argv[], VALUE self)
};
return val;
-};
+}
VALUE
rb_dlhandle_init(int argc, VALUE argv[], VALUE self)
{
return Qnil;
-};
+}
VALUE
rb_dlhandle_enable_close(VALUE self)
@@ -89,7 +89,7 @@ rb_dlhandle_enable_close(VALUE self)
Data_Get_Struct(self, struct dl_handle, dlhandle);
dlhandle->enable_close = 1;
return Qnil;
-};
+}
VALUE
rb_dlhandle_disable_close(VALUE self)
@@ -99,7 +99,7 @@ rb_dlhandle_disable_close(VALUE self)
Data_Get_Struct(self, struct dl_handle, dlhandle);
dlhandle->enable_close = 0;
return Qnil;
-};
+}
VALUE
rb_dlhandle_to_i(VALUE self)
@@ -108,7 +108,7 @@ rb_dlhandle_to_i(VALUE self)
Data_Get_Struct(self, struct dl_handle, dlhandle);
return DLLONG2NUM(dlhandle);
-};
+}
VALUE
rb_dlhandle_to_ptr(VALUE self)
@@ -117,7 +117,7 @@ rb_dlhandle_to_ptr(VALUE self)
Data_Get_Struct(self, struct dl_handle, dlhandle);
return rb_dlptr_new(dlhandle, sizeof(dlhandle), 0);
-};
+}
VALUE
rb_dlhandle_sym(int argc, VALUE argv[], VALUE self)
@@ -134,8 +134,7 @@ rb_dlhandle_sym(int argc, VALUE argv[], VALUE self)
const char *err;
if( rb_scan_args(argc, argv, "11", &sym, &type) == 2 ){
- Check_Type(type, T_STRING);
- stype = STR2CSTR(type);
+ stype = StringValuePtr(type);
}
else{
stype = NULL;
@@ -149,8 +148,7 @@ rb_dlhandle_sym(int argc, VALUE argv[], VALUE self)
#endif
}
else{
- Check_Type(sym, T_STRING);
- name = STR2CSTR(sym);
+ name = StringValuePtr(sym);
};
@@ -189,7 +187,7 @@ rb_dlhandle_sym(int argc, VALUE argv[], VALUE self)
val = rb_dlsym_new(func, name, stype);
return val;
-};
+}
void
Init_dlhandle()
@@ -204,4 +202,4 @@ Init_dlhandle()
rb_define_method(rb_cDLHandle, "[]", rb_dlhandle_sym, -1);
rb_define_method(rb_cDLHandle, "disable_close", rb_dlhandle_disable_close, 0);
rb_define_method(rb_cDLHandle, "enable_close", rb_dlhandle_enable_close, 0);
-};
+}
diff --git a/ext/dl/ptr.c b/ext/dl/ptr.c
index 6ac214bc46a..7a4d0c8e629 100644
--- a/ext/dl/ptr.c
+++ b/ext/dl/ptr.c
@@ -26,7 +26,7 @@ static void
rb_dlmem_delete(void *ptr)
{
rb_hash_delete(DLMemoryTable, DLLONG2NUM(ptr));
-};
+}
static void
rb_dlmem_aset(void *ptr, VALUE obj)
@@ -37,7 +37,7 @@ rb_dlmem_aset(void *ptr, VALUE obj)
else{
rb_hash_aset(DLMemoryTable, DLLONG2NUM(ptr), DLLONG2NUM(obj));
};
-};
+}
static VALUE
rb_dlmem_aref(void *ptr)
@@ -46,7 +46,7 @@ rb_dlmem_aref(void *ptr)
val = rb_hash_aref(DLMemoryTable, DLLONG2NUM(ptr));
return val == Qnil ? Qnil : (VALUE)DLNUM2LONG(val);
-};
+}
void
dlptr_free(struct ptr_data *data)
@@ -67,7 +67,7 @@ dlptr_free(struct ptr_data *data)
if( data->stype ) dlfree(data->stype);
if( data->ssize ) dlfree(data->ssize);
if( data->ids ) dlfree(data->ids);
-};
+}
void
dlptr_init(VALUE val)
@@ -80,7 +80,7 @@ dlptr_init(VALUE val)
data->ptr);
});
rb_dlmem_aset(data->ptr, val);
-};
+}
VALUE
rb_dlptr_new(void *ptr, long size, freefunc_t func)
@@ -116,13 +116,13 @@ rb_dlptr_new(void *ptr, long size, freefunc_t func)
};
return val;
-};
+}
VALUE
rb_dlptr_alloc(long size, freefunc_t func)
{
return rb_dlptr_new(dlmalloc((size_t)size), size, func);
-};
+}
void *
rb_dlptr2cptr(VALUE val)
@@ -142,14 +142,14 @@ rb_dlptr2cptr(VALUE val)
};
return ptr;
-};
+}
static VALUE
rb_dlptr_s_new(int argc, VALUE argv[], VALUE klass)
{
VALUE ptr, sym, obj, size;
void *p = NULL;
- void (*f)() = NULL;
+ freefunc_t f = NULL;
long s = 0;
switch( rb_scan_args(argc, argv, "12", &ptr, &size, &sym) ){
@@ -174,14 +174,14 @@ rb_dlptr_s_new(int argc, VALUE argv[], VALUE klass)
rb_obj_call_init(obj, argc, argv);
return obj;
-};
+}
static VALUE
rb_dlptr_s_alloc(int argc, VALUE argv[], VALUE klass)
{
VALUE size, sym, obj;
int s;
- void (*f)() = NULL;
+ freefunc_t f = NULL;
switch( rb_scan_args(argc, argv, "11", &size, &sym) ){
case 1:
@@ -200,13 +200,13 @@ rb_dlptr_s_alloc(int argc, VALUE argv[], VALUE klass)
rb_obj_call_init(obj, argc, argv);
return obj;
-};
+}
static VALUE
rb_dlptr_init(int argc, VALUE argv[], VALUE self)
{
return Qnil;
-};
+}
static VALUE
rb_dlptr_cast(int argc, VALUE argv[], VALUE self)
@@ -244,7 +244,7 @@ rb_dlptr_cast(int argc, VALUE argv[], VALUE self)
RDATA(val)->dfree = 0;
return Qnil;
-};
+}
VALUE
rb_dlptr_to_i(VALUE self)
@@ -253,7 +253,7 @@ rb_dlptr_to_i(VALUE self)
Data_Get_Struct(self, struct ptr_data, data);
return DLLONG2NUM(data->ptr);
-};
+}
VALUE
rb_dlptr_ptr(VALUE self)
@@ -262,7 +262,7 @@ rb_dlptr_ptr(VALUE self)
Data_Get_Struct(self, struct ptr_data, data);
return rb_dlptr_new(*((void**)(data->ptr)),0,0);
-};
+}
VALUE
rb_dlptr_ref(VALUE self)
@@ -271,7 +271,7 @@ rb_dlptr_ref(VALUE self)
Data_Get_Struct(self, struct ptr_data, data);
return rb_dlptr_new(&(data->ptr),0,0);
-};
+}
VALUE
rb_dlptr_null_p(VALUE self)
@@ -280,7 +280,7 @@ rb_dlptr_null_p(VALUE self)
Data_Get_Struct(self, struct ptr_data, data);
return data->ptr ? Qfalse : Qtrue;
-};
+}
VALUE
rb_dlptr_free_set(VALUE self, VALUE val)
@@ -293,7 +293,7 @@ rb_dlptr_free_set(VALUE self, VALUE val)
data->free = DLFREEFUNC(rb_dlsym2csym(val));
return Qnil;
-};
+}
VALUE
rb_dlptr_free_get(VALUE self)
@@ -303,7 +303,7 @@ rb_dlptr_free_get(VALUE self)
Data_Get_Struct(self, struct ptr_data, pdata);
return rb_dlsym_new(pdata->free,"(free)","0P");
-};
+}
VALUE
rb_dlptr_to_array(int argc, VALUE argv[], VALUE self)
@@ -319,11 +319,11 @@ rb_dlptr_to_array(int argc, VALUE argv[], VALUE self)
switch( rb_scan_args(argc, argv, "11", &type, &size) ){
case 2:
- t = STR2CSTR(type)[0];
+ t = StringValuePtr(type)[0];
n = NUM2INT(size);
break;
case 1:
- t = STR2CSTR(type)[0];
+ t = StringValuePtr(type)[0];
switch( t ){
case 'C':
n = data->size;
@@ -416,7 +416,7 @@ rb_dlptr_to_array(int argc, VALUE argv[], VALUE self)
};
return ary;
-};
+}
VALUE
@@ -440,7 +440,7 @@ rb_dlptr_to_s(int argc, VALUE argv[], VALUE self)
};
return val;
-};
+}
VALUE
rb_dlptr_to_str(int argc, VALUE argv[], VALUE self)
@@ -463,7 +463,7 @@ rb_dlptr_to_str(int argc, VALUE argv[], VALUE self)
};
return val;
-};
+}
VALUE
rb_dlptr_inspect(VALUE self)
@@ -476,7 +476,7 @@ rb_dlptr_inspect(VALUE self)
snprintf(str, 1023, "#<%s:0x%x ptr=0x%x size=%ld free=0x%x>",
rb_class2name(CLASS_OF(self)), data, data->ptr, data->size, data->free);
return rb_str_new2(str);
-};
+}
VALUE
rb_dlptr_eql(VALUE self, VALUE other)
@@ -486,7 +486,7 @@ rb_dlptr_eql(VALUE self, VALUE other)
ptr2 = rb_dlptr2cptr(other);
return ptr1 == ptr2 ? Qtrue : Qfalse;
-};
+}
VALUE
rb_dlptr_cmp(VALUE self, VALUE other)
@@ -495,7 +495,7 @@ rb_dlptr_cmp(VALUE self, VALUE other)
ptr1 = rb_dlptr2cptr(self);
ptr2 = rb_dlptr2cptr(other);
return DLLONG2NUM((long)ptr1 - (long)ptr2);
-};
+}
VALUE
rb_dlptr_plus(VALUE self, VALUE other)
@@ -506,8 +506,8 @@ rb_dlptr_plus(VALUE self, VALUE other)
ptr = rb_dlptr2cptr(self);
size = RDLPTR(self)->size;
num = DLNUM2LONG(other);
- return rb_dlptr_new((void*)(ptr + num), size - num, 0);
-};
+ return rb_dlptr_new((char *)ptr + num, size - num, 0);
+}
VALUE
rb_dlptr_minus(VALUE self, VALUE other)
@@ -518,8 +518,8 @@ rb_dlptr_minus(VALUE self, VALUE other)
ptr = rb_dlptr2cptr(self);
size = RDLPTR(self)->size;
num = DLNUM2LONG(other);
- return rb_dlptr_new((void*)(ptr - num), size + num, 0);
-};
+ return rb_dlptr_new((char *)ptr - num, size + num, 0);
+}
VALUE
rb_dlptr_define_data_type(int argc, VALUE argv[], VALUE self)
@@ -553,10 +553,9 @@ rb_dlptr_define_data_type(int argc, VALUE argv[], VALUE self)
};
};
- Check_Type(data_type, T_FIXNUM);
- Check_Type(type, T_STRING);
+ t = NUM2INT(data_type);
+ StringValue(type);
Check_Type(rest, T_ARRAY);
- t = FIX2INT(data_type);
num = RARRAY(rest)->len;
for( i=0; i<num; i++ ){
vid = rb_ary_entry(rest,i);
@@ -575,7 +574,7 @@ rb_dlptr_define_data_type(int argc, VALUE argv[], VALUE self)
if( data->ids ) dlfree(data->ids);
data->ids = (ID*)dlmalloc(sizeof(ID) * data->ids_num);
- ctype = STR2CSTR(type);
+ ctype = StringValuePtr(type);
for( i=0; i<num; i++ ){
vid = rb_ary_entry(rest,i);
data->ids[i] = rb_to_id(vid);
@@ -600,10 +599,10 @@ rb_dlptr_define_data_type(int argc, VALUE argv[], VALUE self)
};
if( !data->size )
- data->size = dlsizeof(STR2CSTR(type));
+ data->size = dlsizeof(RSTRING(type)->ptr);
return Qnil;
-};
+}
VALUE
rb_dlptr_define_struct(int argc, VALUE argv[], VALUE self)
@@ -618,7 +617,7 @@ rb_dlptr_define_struct(int argc, VALUE argv[], VALUE self)
pass_argv[i] = argv[i-1];
};
return rb_dlptr_define_data_type(pass_argc, pass_argv, self);
-};
+}
VALUE
rb_dlptr_define_union(int argc, VALUE argv[], VALUE self)
@@ -633,7 +632,7 @@ rb_dlptr_define_union(int argc, VALUE argv[], VALUE self)
pass_argv[i] = argv[i-1];
};
return rb_dlptr_define_data_type(pass_argc, pass_argv, self);
-};
+}
VALUE
rb_dlptr_get_data_type(VALUE self)
@@ -646,7 +645,7 @@ rb_dlptr_get_data_type(VALUE self)
rb_tainted_str_new(data->stype, data->slen));
else
return rb_assoc_new(INT2FIX(data->ctype), Qnil);
-};
+}
static VALUE
cary2ary(void *ptr, char t, int len)
@@ -662,31 +661,31 @@ cary2ary(void *ptr, char t, int len)
switch( t ){
case 'I': case 'i':
elem = INT2NUM(*((int*)ptr));
- ptr += sizeof(int);
+ ptr = (char *)ptr + sizeof(int);
break;
case 'L': case 'l':
elem = DLLONG2NUM(*((long*)ptr));
- ptr += sizeof(long);
+ ptr = (char *)ptr + sizeof(long);
break;
case 'P': case 'p':
elem = rb_dlptr_new(*((void**)ptr),0, 0);
- ptr += sizeof(void*);
+ ptr = (char *)ptr + sizeof(void*);
break;
case 'F': case 'f':
elem = rb_float_new(*((float*)ptr));
- ptr += sizeof(float);
+ ptr = (char *)ptr + sizeof(float);
break;
case 'D': case 'd':
elem = rb_float_new(*((float*)ptr));
- ptr += sizeof(double);
+ ptr = (char *)ptr + sizeof(double);
break;
case 'C': case 'c':
elem = INT2NUM(*((char*)ptr));
- ptr += sizeof(char);
+ ptr = (char *)ptr + sizeof(char);
break;
case 'H': case 'h':
elem = INT2NUM(*((short*)ptr));
- ptr += sizeof(short);
+ ptr = (char *)ptr + sizeof(short);
default:
raise(rb_eDLTypeError, "unsupported type '%c'", t);
};
@@ -698,31 +697,31 @@ cary2ary(void *ptr, char t, int len)
switch( t ){
case 'I': case 'i':
elem = INT2NUM(*((int*)ptr));
- ptr += sizeof(int);
+ ptr = (char *)ptr + sizeof(int);
break;
case 'L': case 'l':
elem = DLLONG2NUM(*((long*)ptr));
- ptr += sizeof(long);
+ ptr = (char *)ptr + sizeof(long);
break;
case 'P': case 'p':
elem = rb_dlptr_new(*((void**)ptr), 0, 0);
- ptr += sizeof(void*);
+ ptr = (char *)ptr + sizeof(void*);
break;
case 'F': case 'f':
elem = rb_float_new(*((float*)ptr));
- ptr += sizeof(float);
+ ptr = (char *)ptr + sizeof(float);
break;
case 'D': case 'd':
elem = rb_float_new(*((float*)ptr));
- ptr += sizeof(double);
+ ptr = (char *)ptr + sizeof(double);
break;
case 'C': case 'c':
elem = INT2NUM(*((char*)ptr));
- ptr += sizeof(char);
+ ptr = (char *)ptr + sizeof(char);
break;
case 'H': case 'h':
elem = INT2NUM(*((short*)ptr));
- ptr += sizeof(short);
+ ptr = (char *)ptr + sizeof(short);
default:
raise(rb_eDLTypeError, "unsupported type '%c'", t);
};
@@ -730,7 +729,7 @@ cary2ary(void *ptr, char t, int len)
};
return ary;
-};
+}
VALUE
rb_dlptr_aref(int argc, VALUE argv[], VALUE self)
@@ -757,9 +756,9 @@ rb_dlptr_aref(int argc, VALUE argv[], VALUE self)
id = rb_to_id(key);
Data_Get_Struct(self, struct ptr_data, data);
+ offset = 0;
switch( data->ctype ){
case DLPTR_CTYPE_STRUCT:
- offset = 0;
for( i=0; i < data->ids_num; i++ ){
if( data->ids[i] == id ){
switch( data->stype[i] ){
@@ -785,7 +784,7 @@ rb_dlptr_aref(int argc, VALUE argv[], VALUE self)
default:
raise(rb_eDLTypeError, "unsupported type '%c'", data->stype[i]);
};
- return cary2ary(data->ptr + offset, data->stype[i], data->ssize[i]);
+ return cary2ary((char *)data->ptr + offset, data->stype[i], data->ssize[i]);
};
switch( data->stype[i] ){
case 'I':
@@ -824,7 +823,7 @@ rb_dlptr_aref(int argc, VALUE argv[], VALUE self)
case DLPTR_CTYPE_UNION:
for( i=0; i < data->ids_num; i++ ){
if( data->ids[i] == id ){
- return cary2ary(data->ptr + offset, data->stype[i], data->ssize[i]);
+ return cary2ary((char *)data->ptr + offset, data->stype[i], data->ssize[i]);
};
};
break;
@@ -834,7 +833,7 @@ rb_dlptr_aref(int argc, VALUE argv[], VALUE self)
rb_id2name(id), rb_class2name(CLASS_OF(self)));
return Qnil;
-};
+}
static void *
ary2cary(char t, VALUE val, long *size)
@@ -848,7 +847,7 @@ ary2cary(char t, VALUE val, long *size)
ptr = rb_ary2cary(t, rb_ary_new3(1, val), size);
};
return ptr;
-};
+}
VALUE
rb_dlptr_aset(int argc, VALUE argv[], VALUE self)
@@ -872,10 +871,10 @@ rb_dlptr_aset(int argc, VALUE argv[], VALUE self)
void *dst, *src;
int len;
- Check_Type(val, T_STRING);
+ StringValue(val);
Data_Get_Struct(self, struct ptr_data, data);
dst = (void*)((long)(data->ptr) + DLNUM2LONG(key));
- src = STR2CSTR(val);
+ src = RSTRING(val)->ptr;
if( num == Qnil ){
len = RSTRING(val)->len;
}
@@ -922,7 +921,7 @@ rb_dlptr_aset(int argc, VALUE argv[], VALUE self)
raise(rb_eDLTypeError, "unsupported type '%c'", data->stype[i]);
};
memimg = ary2cary(data->stype[i], val, &memsize);
- memcpy(data->ptr + offset, memimg, memsize);
+ memcpy((char *)data->ptr + offset, memimg, memsize);
return val;
};
switch( data->stype[i] ){
@@ -1000,21 +999,21 @@ rb_dlptr_aset(int argc, VALUE argv[], VALUE self)
rb_id2name(id), rb_class2name(CLASS_OF(self)));
return Qnil;
-};
+}
VALUE
rb_dlptr_size(int argc, VALUE argv[], VALUE self)
{
VALUE size;
- switch( rb_scan_args(argc, argv, "01", &size) ){
- case 0:
+ if( rb_scan_args(argc, argv, "01", &size) == 0){
return DLLONG2NUM(RDLPTR(self)->size);
- case 1:
+ }
+ else{
RDLPTR(self)->size = DLNUM2LONG(size);
return size;
};
-};
+}
static VALUE
dlmem_each_i(VALUE assoc, void *data)
@@ -1024,14 +1023,14 @@ dlmem_each_i(VALUE assoc, void *data)
val = rb_ary_entry(assoc, 1);
rb_yield(rb_assoc_new(key,(VALUE)DLNUM2LONG(val)));
return Qnil;
-};
+}
VALUE
rb_dlmem_each(VALUE self)
{
rb_iterate(rb_each, DLMemoryTable, dlmem_each_i, 0);
return Qnil;
-};
+}
void
Init_dlptr()
@@ -1072,4 +1071,4 @@ Init_dlptr()
DLMemoryTable = rb_hash_new();
rb_define_const(rb_mDLMemorySpace, "MemoryTable", DLMemoryTable);
rb_define_module_function(rb_mDLMemorySpace, "each", rb_dlmem_each, 0);
-};
+}
diff --git a/ext/dl/sym.c b/ext/dl/sym.c
index 683092ae7b2..f383d1e786b 100644
--- a/ext/dl/sym.c
+++ b/ext/dl/sym.c
@@ -59,7 +59,7 @@ char2type(int ch)
return "[]"; /* ?? */
};
return NULL;
-};
+}
void
dlsym_free(struct sym_data *data)
@@ -76,7 +76,7 @@ dlsym_free(struct sym_data *data)
});
free(data->type);
};
-};
+}
VALUE
rb_dlsym_new(void (*func)(), const char *name, const char *type)
@@ -112,13 +112,13 @@ rb_dlsym_new(void (*func)(), const char *name, const char *type)
};
return val;
-};
+}
freefunc_t
rb_dlsym2csym(VALUE val)
{
struct sym_data *data;
- void (*func)();
+ freefunc_t func;
if( rb_obj_is_kind_of(val, rb_cDLSymbol) ){
Data_Get_Struct(val, struct sym_data, data);
@@ -132,7 +132,7 @@ rb_dlsym2csym(VALUE val)
};
return func;
-};
+}
VALUE
rb_dlsym_s_new(int argc, VALUE argv[], VALUE self)
@@ -154,8 +154,8 @@ rb_dlsym_s_new(int argc, VALUE argv[], VALUE self)
};
saddr = (void*)(DLNUM2LONG(rb_Integer(addr)));
- sname = (name == Qnil) ? NULL : STR2CSTR(name);
- stype = (type == Qnil) ? NULL : STR2CSTR(type);
+ sname = NIL_P(name) ? NULL : StringValuePtr(name);
+ stype = NIL_P(type) ? NULL : StringValuePtr(type);
val = rb_dlsym_new(saddr, sname, stype);
@@ -164,26 +164,26 @@ rb_dlsym_s_new(int argc, VALUE argv[], VALUE self)
};
return val;
-};
+}
VALUE
rb_dlsym_initialize(int argc, VALUE argv[], VALUE self)
{
return Qnil;
-};
+}
VALUE
rb_s_dlsym_char2type(VALUE self, VALUE ch)
{
const char *type;
- type = char2type(STR2CSTR(ch)[0]);
+ type = char2type(StringValuePtr(ch)[0]);
if (type == NULL)
return Qnil;
else
return rb_str_new2(type);
-};
+}
VALUE
rb_dlsym_name(VALUE self)
@@ -192,7 +192,7 @@ rb_dlsym_name(VALUE self)
Data_Get_Struct(self, struct sym_data, sym);
return sym->name ? rb_tainted_str_new2(sym->name) : Qnil;
-};
+}
VALUE
rb_dlsym_proto(VALUE self)
@@ -201,7 +201,7 @@ rb_dlsym_proto(VALUE self)
Data_Get_Struct(self, struct sym_data, sym);
return sym->type ? rb_tainted_str_new2(sym->type) : Qnil;
-};
+}
VALUE
rb_dlsym_cproto(VALUE self)
@@ -252,7 +252,7 @@ rb_dlsym_cproto(VALUE self)
};
return val;
-};
+}
VALUE
rb_dlsym_inspect(VALUE self)
@@ -270,12 +270,12 @@ rb_dlsym_inspect(VALUE self)
str = dlmalloc(str_size);
snprintf(str, str_size - 1,
"#<DL::Symbol:0x%x func=0x%x '%s'>",
- sym, sym->func, STR2CSTR(proto));
+ sym, sym->func, StringValuePtr(proto));
val = rb_tainted_str_new2(str);
dlfree(str);
return val;
-};
+}
VALUE
@@ -418,7 +418,7 @@ rb_dlsym_call(int argc, VALUE argv[], VALUE self)
ANY2S(args[i]) = DLSTR(0);
}
else{
- ANY2S(args[i]) = DLSTR(STR2CSTR(argv[i]));
+ ANY2S(args[i]) = DLSTR(StringValuePtr(argv[i]));
};
PUSH_P(ftype);
break;
@@ -427,7 +427,7 @@ rb_dlsym_call(int argc, VALUE argv[], VALUE self)
raise(rb_eDLError, "#%d must be a string",i);
};
ANY2S(args[i]) = DLSTR(dlmalloc(RSTRING(argv[i])->len + 1));
- memcpy((char*)(ANY2S(args[i])), STR2CSTR(argv[i]), RSTRING(argv[i])->len + 1);
+ memcpy((char*)(ANY2S(args[i])), StringValuePtr(argv[i]), RSTRING(argv[i])->len + 1);
dtypes[i] = 's';
PUSH_P(ftype);
break;
@@ -732,7 +732,7 @@ rb_dlsym_call(int argc, VALUE argv[], VALUE self)
#undef FREE_ARGS
return rb_assoc_new(val,dvals);
-};
+}
VALUE
rb_dlsym_to_i(VALUE self)
@@ -741,7 +741,7 @@ rb_dlsym_to_i(VALUE self)
Data_Get_Struct(self, struct sym_data, sym);
return DLLONG2NUM(sym);
-};
+}
VALUE
rb_dlsym_to_ptr(VALUE self)
@@ -750,7 +750,7 @@ rb_dlsym_to_ptr(VALUE self)
Data_Get_Struct(self, struct sym_data, sym);
return rb_dlptr_new(sym->func, sizeof(freefunc_t), 0);
-};
+}
void
Init_dlsym()
@@ -768,4 +768,4 @@ Init_dlsym()
rb_define_method(rb_cDLSymbol, "to_s", rb_dlsym_cproto, 0);
rb_define_method(rb_cDLSymbol, "to_ptr", rb_dlsym_to_ptr, 0);
rb_define_method(rb_cDLSymbol, "to_i", rb_dlsym_to_i, 0);
-};
+}
diff --git a/ext/dl/test/test.c b/ext/dl/test/test.c
index c5ead79813d..ed42b4d1a0a 100644
--- a/ext/dl/test/test.c
+++ b/ext/dl/test/test.c
@@ -221,7 +221,8 @@ test_data_add(struct test_data *list, const char *name)
struct test_data *data;
data = (struct test_data *)malloc(sizeof(struct test_data));
- strcpy(data->name, name);
+ memset(data->name, 0, 1024);
+ strncpy(data->name, name, 1024);
data->next = list->next;
list->next = data;
};
@@ -236,7 +237,7 @@ test_data_print(struct test_data *list)
};
};
-struct data *
+struct test_data *
test_data_aref(struct test_data *list, int i)
{
struct test_data *data;
diff --git a/ext/dl/test/test.rb b/ext/dl/test/test.rb
index de9a9cc5339..91ae1f67306 100644
--- a/ext/dl/test/test.rb
+++ b/ext/dl/test/test.rb
@@ -184,10 +184,12 @@ if( fp )
r,rs = sym_gets[" " * 256, 256, fp]
debug r,rs
assert("open,gets", :must, rs[0] == line)
+ ObjectSpace.define_finalizer(fp) {File.unlink("tmp.txt")}
+ fp = nil
else
assert("open,gets", :must, line == nil)
+ File.unlink("tmp.txt")
end
-File.unlink("tmp.txt")
callback1 = h["test_callback1"]