From 6080121d55ca8e3dba46369d2011c3a8f47543a0 Mon Sep 17 00:00:00 2001 From: ttate Date: Tue, 8 Mar 2005 11:31:20 +0000 Subject: changed the spec of CPtr#[]/[]= to suit String#[]/[]=. git-svn-id: svn+ssh://ci.ruby-lang.org/ruby/trunk@8123 b2dd03c8-39d4-4d8f-98ff-823fe69b080e --- ext/dl/cptr.c | 22 +++++++++++++++------- ext/dl/test/test_dl2.rb | 22 ++++++++++++++++++++++ 2 files changed, 37 insertions(+), 7 deletions(-) (limited to 'ext') diff --git a/ext/dl/cptr.c b/ext/dl/cptr.c index 66a7255ef8..e8e4b8bd50 100644 --- a/ext/dl/cptr.c +++ b/ext/dl/cptr.c @@ -346,35 +346,38 @@ VALUE rb_dlptr_aref(int argc, VALUE argv[], VALUE self) { VALUE arg0, arg1; + VALUE retval = Qnil; size_t offset, len; switch( rb_scan_args(argc, argv, "11", &arg0, &arg1) ){ case 1: offset = NUM2ULONG(arg0); - len = 1; + retval = INT2NUM(*((char*)RPTR_DATA(self)->ptr + offset)); break; case 2: offset = NUM2ULONG(arg0); len = NUM2ULONG(arg1); + retval = rb_tainted_str_new((char *)RPTR_DATA(self)->ptr + offset, len); break; defualt: - rb_bug("rb_dlptr_aset()"); + rb_bug("rb_dlptr_aref()"); } - return rb_tainted_str_new((char *)RPTR_DATA(self)->ptr + offset, len); + return retval; } VALUE rb_dlptr_aset(int argc, VALUE argv[], VALUE self) { VALUE arg0, arg1, arg2; + VALUE retval = Qnil; size_t offset, len; void *mem; switch( rb_scan_args(argc, argv, "21", &arg0, &arg1, &arg2) ){ case 2: offset = NUM2ULONG(arg0); - len = 1; - mem = NUM2PTR(arg1); + ((char*)RPTR_DATA(self)->ptr)[offset] = NUM2UINT(arg1); + retval = arg1; break; case 3: offset = NUM2ULONG(arg0); @@ -388,12 +391,13 @@ rb_dlptr_aset(int argc, VALUE argv[], VALUE self) else{ mem = NUM2PTR(arg2); } + memcpy((char *)RPTR_DATA(self)->ptr + offset, mem, len); + retval = arg2; break; defualt: rb_bug("rb_dlptr_aset()"); } - memcpy((char *)RPTR_DATA(self)->ptr + offset, mem, len); - return Qnil; + return retval; } VALUE @@ -424,6 +428,10 @@ rb_dlptr_s_to_ptr(VALUE self, VALUE val) #endif return rb_dlptr_new(fp, sizeof(FILE), NULL); } + else if( rb_obj_is_kind_of(val, rb_cString) == Qtrue ){ + char *ptr = StringValuePtr(val); + return rb_dlptr_new(ptr, RSTRING(val)->len, NULL); + } else if( rb_respond_to(val, id_to_ptr) ){ VALUE vptr = rb_funcall(val, id_to_ptr, 0); if( rb_obj_is_kind_of(vptr, rb_cDLCPtr) ){ diff --git a/ext/dl/test/test_dl2.rb b/ext/dl/test/test_dl2.rb index d1b18057cf..e59956cf7b 100644 --- a/ext/dl/test/test_dl2.rb +++ b/ext/dl/test/test_dl2.rb @@ -85,5 +85,27 @@ class TestDL < TestBase ary2 = dlunwrap(addr) assert_equal(ary, ary2) end + + def test_cptr() + check = Proc.new{|str,ptr| + assert_equal(str.size(), ptr.size()) + assert_equal(str, ptr.to_s()) + assert_equal(str[0,2], ptr.to_s(2)) + assert_equal(str[0,2], ptr[0,2]) + assert_equal(str[1,2], ptr[1,2]) + assert_equal(str[1,0], ptr[1,0]) + assert_equal(str[0], ptr[0]) + assert_equal(str[1], ptr[1]) + } + str = 'abc' + ptr = CPtr[str] + check.call(str, ptr) + str[0] = ?c + ptr[0] = ?c + check.call(str, ptr) + str[0,2] = "aa" + ptr[0,2] = "aa" + check.call(str, ptr) + end end end # module DL -- cgit v1.2.3