rsruby 0.5.1 → 0.5.1.1

data/History.txt

@@ -1,3 +1,9 @@
+= 0.5.1.1 2009-02-05
+
+* quick hack for ruby 1.9.1
+* test still fails around Complex
+* fix RSRuby.shutdown
+
 = 0.5.1 2008-11-11
 
 * removed #include of Rdevices.h so installation is possible with R 2.8.0 packages

data/Rakefile.rb

@@ -4,7 +4,7 @@ $LOAD_PATH.unshift("./lib")
 $LOAD_PATH.unshift("./ext")
 
 gem_name = RUBY_PLATFORM !~ /mswin32$/ ? "rsruby" : "rsrubywin"
-hoe = Hoe.new(gem_name,'0.5.1') do |p|
+hoe = Hoe.new(gem_name,'0.5.1.1') do |p|
   
   p.author = "Alex Gutteridge, Ben J Woodcroft"
   p.email = "ag357@cam.ac.uk, b.woodcroft@pgrad.unimelb.edu.au"

data/ext/Converters.c

@@ -89,7 +89,7 @@ SEXP ruby_to_R(VALUE obj)
   else if (!NIL_P(rb_check_string_type(obj))) 
     {
       PROTECT(robj = NEW_STRING(1));
-      SET_STRING_ELT(robj, 0, COPY_TO_USER_STRING(RSTRING(obj)->ptr));
+      SET_STRING_ELT(robj, 0, COPY_TO_USER_STRING(RSTRING_PTR(obj)));
     }
   else if (!NIL_P(rb_check_array_type(obj))) 
     {
@@ -103,7 +103,7 @@ SEXP ruby_to_R(VALUE obj)
     {
       str = rb_funcall(obj,rb_intern("inspect"),0);
       str = rb_funcall(str,rb_intern("slice"),2,INT2NUM(0),INT2NUM(60));
-      sprintf(buf,"Unsupported object '%s' passed to R.\n",RSTRING(str)->ptr);
+      sprintf(buf,"Unsupported object '%s' passed to R.\n",RSTRING_PTR(str));
       rb_raise(rb_eArgError,buf);
       PROTECT(robj = NULL);       /* Protected to avoid stack inbalance */
     }
@@ -141,13 +141,13 @@ SEXP array_to_R(VALUE obj)
   //Probably unnessecary but just in case
   obj = rb_check_array_type(obj);
 
-  if (RARRAY(obj)->len == 0)
+  if (RARRAY_LEN(obj) == 0)
     return R_NilValue;
 
-  PROTECT(robj = NEW_LIST(RARRAY(obj)->len));
+  PROTECT(robj = NEW_LIST(RARRAY_LEN(obj)));
 
   state = -1;
-  for (i=0; i<RARRAY(obj)->len; i++) {
+  for (i=0; i<RARRAY_LEN(obj); i++) {
 
     it = rb_ary_entry(obj, i);
 
@@ -199,12 +199,6 @@ hash_to_R(VALUE obj)
   VALUE keys, values;
   SEXP robj, names;
 
-  //TODO - Baffling. Not sure what's wrong with these functions?
-  //rb_hash_keys(proc_table);
-  //rb_hash_values(proc_table);
-  //rb_hash_size(proc_table);
-  //compiles, but complains they are undefined symbols when run...
-
   if (FIX2INT(rb_funcall(obj,rb_intern("size"),0)) == 0)
     return R_NilValue;
 
@@ -296,7 +290,7 @@ to_ruby_basic(SEXP robj, VALUE *obj)
 
   status = to_ruby_vector(robj, &tmp, BASIC_CONVERSION);
 
-  if(status==1 && TYPE(tmp) == T_ARRAY && RARRAY(tmp)->len == 1)
+  if(status==1 && TYPE(tmp) == T_ARRAY && RARRAY_LEN(tmp) == 1)
     {
       *obj = rb_ary_entry(tmp, 0);
     }
@@ -377,10 +371,8 @@ to_ruby_vector(SEXP robj, VALUE *obj, int mode)
       case CPLXSXP:
         complexes = COMPLEX(robj);
 
-	params[0] = rb_float_new(complexes[i].r);
-	params[1] = rb_float_new(complexes[i].i);
-
-        if (!(it = rb_class_new_instance(2, params, rb_const_get(rb_cObject, rb_intern("Complex")))))
+        if (!(it = rb_complex_new(rb_float_new(complexes[i].r),
+				  rb_float_new(complexes[i].i))))
 
           return -1;
         break;
@@ -600,7 +592,7 @@ VALUE to_ruby_hash(VALUE obj, SEXP names)
   VALUE it, hash;
   char *name;
 
-  if ((len = RARRAY(obj)->len) < 0)
+  if ((len = RARRAY_LEN(obj)) < 0)
     return Qnil;
 
   hash = rb_hash_new();

data/ext/robj.c

@@ -49,7 +49,7 @@ VALUE RObj_lcall(VALUE self, VALUE args){
   args = rb_check_array_type(args);
 
   // A SEXP with the function to call and the arguments
-  PROTECT(exp = allocVector(LANGSXP, (RARRAY(args)->len)+1));
+  PROTECT(exp = allocVector(LANGSXP, RARRAY_LEN(args)+1));
   e = exp;
 
   Data_Get_Struct(self, struct SEXPREC, r_obj);
@@ -97,7 +97,7 @@ VALUE RObj_init_lcall(VALUE self, VALUE args){
   args = rb_check_array_type(args);
 
   // A SEXP with the function to call and the arguments
-  PROTECT(exp = allocVector(LANGSXP, (RARRAY(args)->len)+1));
+  PROTECT(exp = allocVector(LANGSXP, RARRAY_LEN(args)+1));
   e = exp;
 
   Data_Get_Struct(self, struct SEXPREC, r_obj);
@@ -137,10 +137,10 @@ make_argl(VALUE args, SEXP *e)
   //Ensure we have an array
   args = rb_check_array_type(args);
   
-  for (i=0; i<RARRAY(args)->len; i++) {
+  for (i=0; i<RARRAY_LEN(args); i++) {
     pair = rb_ary_entry(args, i);
     pair = rb_check_array_type(pair);
-    if(RARRAY(pair)->len != 2)
+    if(RARRAY_LEN(pair) != 2)
       rb_raise(rb_eArgError,"Misformed argument in lcall\n");
 
     /* Name must be a string. If it is empty string '' then no name*/
@@ -158,9 +158,9 @@ make_argl(VALUE args, SEXP *e)
     SETCAR(*e, rvalue);
 
     /* Add name (if present) */
-    if (RSTRING(name)->len > 0) 
+    if (RSTRING_LEN(name) > 0) 
       {
-        SET_TAG(*e, Rf_install(RSTRING(name)->ptr));
+        SET_TAG(*e, Rf_install(RSTRING_PTR(name)));
       }
 
     /* Move index to new end of call */
@@ -177,11 +177,11 @@ VALUE RObj_to_ruby(VALUE self, VALUE args){
 
   args = rb_check_array_type(args);
 
-  if (RARRAY(args)->len > 1){
+  if (RARRAY_LEN(args) > 1){
     rb_raise(rb_eArgError,"Too many arguments in to_ruby\n");
   }
 
-  if (RARRAY(args)->len == 0){
+  if (RARRAY_LEN(args) == 0){
     conv = NUM2INT(rb_iv_get(RSRUBY,"@default_mode"));
   } else {
     conv = NUM2INT(rb_ary_entry(args,0));

data/ext/rsruby.c

@@ -76,7 +76,7 @@ VALUE get_fun(VALUE self, VALUE name){
 
   str = StringValue(name);
 
-  cstr_name = RSTRING(str)->ptr;
+  cstr_name = RSTRING_PTR(str);
 
   robj = (SEXP)get_fun_from_name(cstr_name);
   if (!robj)
@@ -101,7 +101,7 @@ void r_finalize(void)
   R_dot_Last();           
   R_RunExitFinalizers();  
   CleanEd();              
-  KillAllDevices();       
+  Rf_KillAllDevices();       
 
   if((tmpdir = getenv("R_SESSION_TMPDIR"))) {          
     snprintf((char *)buf, 1024, "rm -rf %s", tmpdir); 

data/test/tc_modes.rb

@@ -40,11 +40,11 @@ class TestModes < Test::Unit::TestCase
     RSRuby.set_default_mode(RSRuby::VECTOR_CONVERSION)
     assert_equal(sequence.to_ruby, [1,2,3])
 
-    @r.class_table['htest'] = lambda{5}
+    @r.class_table['htest'] = lambda{|x| 5}
     RSRuby.set_default_mode(RSRuby::CLASS_CONVERSION)
     assert_equal(t_test.to_ruby, 5)
 
-    @r.proc_table[lambda{true}] = lambda{return 6}
+    @r.proc_table[lambda{|x| true}] = lambda{|x| return 6}
     RSRuby.set_default_mode(RSRuby::PROC_CONVERSION)
     assert_equal(t_test.to_ruby, 6)
   end
@@ -77,7 +77,7 @@ class TestModes < Test::Unit::TestCase
     assert_equal(@r.array(1,3).class, @r.array.class)
     
     assert_equal(@r.seq(1,3), [1,2,3])
-    @r.class_table['htest'] = lambda{5}
+    @r.class_table['htest'] = lambda{|x| 5}
     assert_equal(@r.t_test([1,2,3]), 5)
   end
 
@@ -149,7 +149,7 @@ class TestModes < Test::Unit::TestCase
 
   def test_class_table
 
-    @r.class_table['htest'] = lambda{'htest'}
+    @r.class_table['htest'] = lambda{|x| 'htest'}
     @r.class_table['data.frame'] = lambda{|x| 
       if @r['[['].call(x,1).length > 2
         return 5
@@ -170,9 +170,9 @@ class TestModes < Test::Unit::TestCase
     f = @r.class__(@r.c(4),'foo')
     g = @r.class__(@r.c(4), ['bar','foo'])
 
-    @r.class_table['foo'] = lambda{'foo'}
-    @r.class_table['bar'] = lambda{'bar'}
-    @r.class_table[['bar','foo']] = lambda{5}
+    @r.class_table['foo'] = lambda{|x| 'foo'}
+    @r.class_table['bar'] = lambda{|x| 'bar'}
+    @r.class_table[['bar','foo']] = lambda{|x| 5}
 
     RSRuby.set_default_mode(RSRuby::CLASS_CONVERSION)
     assert_equal(f.to_ruby, 'foo')

data/test/tc_to_r.rb

@@ -115,7 +115,7 @@ class TestToR < Test::Unit::TestCase
   def test_instances_not_convertible
     foo = Foo.new
     assert_raises(ArgumentError){@r.c(foo)}
-   end
+  end
 
   def test_as_r_method
     @r.c.autoconvert(RSRuby::BASIC_CONVERSION)

metadata

@@ -1,7 +1,7 @@
 --- !ruby/object:Gem::Specification 
 name: rsruby
 version: !ruby/object:Gem::Version 
-  version: 0.5.1
+  version: 0.5.1.1
 platform: ruby
 authors: 
 - Alex Gutteridge, Ben J Woodcroft
@@ -9,7 +9,7 @@ autorequire:
 bindir: bin
 cert_chain: []
 
-date: 2008-11-26 00:00:00 +00:00
+date: 2009-02-11 00:00:00 +00:00
 default_executable: 
 dependencies: []