R4rb 1.1.1 → 1.1.4

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA256:
-  metadata.gz: 7b3fd5ec7a4bb58571955e8cdf5e486f24b46fc6dde78ef4c45b3ead009896f0
-  data.tar.gz: cb8138744d0696efd35ddc54c4a7270592ea140d623b4152c1a85276edc18dd0
+  metadata.gz: c3731d08caaa9d7e41fcf0938a4cc22ba27491bc0129f97721adeb1f795d9afb
+  data.tar.gz: 6a924c347d7921c47ca5c587c1acb34e9aace21e6d4133d8033850645b6fe31d
 SHA512:
-  metadata.gz: 025c1736d4ed8242f123e63d7748141ee7c718ed9feda2fa08767ddb3b31ec897c6b5c219fb10ba04076eb9bb9697ed979a5c651fb1940740c1b192cc0314451
-  data.tar.gz: df29b358f0849391e17cf8dc5c0c534e0e222a046d4e67b7344d8be24f6b119c5c730cd575b164674f7932d2e2fbb1f3f6b304d01fd98678aa2600ae0744de3e
+  metadata.gz: 7c253cd4a52e55a36fc120b167dcd20cc25e4e8cdc217879cf2ba64d68873c0baad9a6ea745a937891e10741bd548c9e2f89ea392b524dbac7e9cea713170e56
+  data.tar.gz: df6a3e1a688396a63be8ea5d6f28746e551879bc10ffbdb9f6cdae626e3137ed71b134ac71542cc68bf6a92c09322121ec2fb7d3280f018a1553297791f346a9

data/R4rb.gemspec

@@ -2,7 +2,7 @@ require 'rubygems'
 require 'rubygems/package_task'
 
 pkg_NAME='R4rb'
-pkg_VERSION='1.1.1'
+pkg_VERSION='1.1.4'
 pkg_FILES=FileList[
     'Rakefile','R4rb.gemspec',
     'ext/R4rb/*.c',
@@ -18,6 +18,7 @@ spec = Gem::Specification.new do |s|
     s.summary = "R for ruby"
     s.name = pkg_NAME
     s.version = pkg_VERSION
+    s.licenses = ['MIT', 'GPL-2.0']
     s.requirements << 'none'
     s.require_paths = ["lib","ext/R4rb"]
     s.files = pkg_FILES.to_a
@@ -28,5 +29,4 @@ spec = Gem::Specification.new do |s|
     s.author = "CQLS"
     s.email= "rdrouilh@gmail.com"
     s.homepage = "http://cqls.upmf-grenoble.fr"
-    s.rubyforge_project = nil
 end

data/Rakefile

@@ -63,8 +63,8 @@ end
 ## clean task
 desc "Remove #{File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION+'.gem')}"
 task :clean do |t|
-  rm File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION+'.gem') if File.exists? File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION+'.gem')
-  rm_rf File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION) if File.exists? File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION)
+  rm File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION+'.gem') if File.exist? File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION+'.gem')
+  rm_rf File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION) if File.exist? File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION)
 end
 
 
@@ -78,13 +78,13 @@ end
 desc "Quick install #{File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION+'.gem')}"
 task :install => :package do |t|
   `gem install #{File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION+'.gem')} --local --no-rdoc --no-ri  --user-install`
-  rm_rf File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION) if File.exists? File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION)
+  rm_rf File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION) if File.exist? File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION)
 end
 
 desc "Docker install #{File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION+'.gem')}"
 task :docker => :package do |t|
   `gem install #{File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION+'.gem')} --local --no-rdoc --no-ri`
-  rm_rf File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION) if File.exists? File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION)
+  rm_rf File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION) if File.exist? File.join(PKGDIR,PKG_NAME+'-'+PKG_VERSION)
 end
 
 

data/ext/R4rb/extconf.rb

@@ -12,7 +12,7 @@ def find_installed_R
     $prefix_include=$prefix+"/include"
     $prefix_lib=nil
     (RUBY_PLATFORM=~/64/ ? ["","x64"] : ["","i386"]).each do |arch|
-        $prefix_lib=File.join($prefix,"bin",arch) if File.exists? File.join($prefix,"bin",arch,"R.dll")
+        $prefix_lib=File.join($prefix,"bin",arch) if File.exist? File.join($prefix,"bin",arch,"R.dll")
         #$versions=[arch]
         break if $prefix_lib
     end
@@ -47,19 +47,19 @@ def find_installed_R
 
     dirs.each do |dir|
         p dir
-        if !$prefix and FileTest.exists?(dir)
+        if !$prefix and FileTest.exist?(dir)
             $prefix = dir[0..-3]
         end
     
-        if !$prefix_include and FileTest.exists?(dir+"/include/R.h")
+        if !$prefix_include and FileTest.exist?(dir+"/include/R.h")
             $prefix_include=dir+"/include"
         end
 
-        if !$prefix_include and FileTest.exists?(dir+"/R.h")
+        if !$prefix_include and FileTest.exist?(dir+"/R.h")
             $prefix_include=dir
         end
     
-        if !$prefix_lib and FileTest.exists?(dir+"/lib/libR.so")
+        if !$prefix_lib and FileTest.exist?(dir+"/lib/libR.so")
             $prefix_lib=dir+"/lib"
         end 
     end
@@ -73,7 +73,7 @@ end
 
 
 def r4rb_makefile(inc,lib,version=nil) 
-    $CFLAGS = "-I"+inc+" -I."
+    $CFLAGS = "-fdeclspec -I"+inc+" -I."
     $LDFLAGS = "-L"+lib if lib
     $libs = "-lR"
  

data/lib/R4rb/R2rb_eval.rb

@@ -33,6 +33,7 @@ module R2rb
         @name=name
         @type="expr"
       end
+      ##p [:RVector, @name, @type]
       return self
     end
 
@@ -47,10 +48,11 @@ module R2rb
       return self
     end
    
-    def >(arr)
+    def >(arr) 
       res=self.get
+
 #puts "res";p @name;p res
-      if res
+      unless res.nil?
 #puts "arr.class:";p arr.class
 #puts "res.class";p res.class
         res=[res] unless res.is_a? Array

data/lib/R4rb/R2rb_init.rb

@@ -94,7 +94,7 @@ def find_installed_R
     dirs=["/usr/lib/R","/usr/local/lib/R","/usr/lib64/R"]
    
     dirs.each do |dir|
-      if FileTest.exists?(dir)
+      if FileTest.exist?(dir)
         return dir
       end
     end

data/lib/R4rb/init.rb

@@ -112,7 +112,7 @@ def find_installed_R
     dirs=["/usr/lib/R","/usr/local/lib/R","/usr/lib64/R","/usr/local/lib64/R"]
    
     dirs.each do |dir|
-      if FileTest.exists?(dir)
+      if FileTest.exist?(dir)
         return dir
       end
     end

data/lib/R4rb.rb

@@ -7,7 +7,7 @@ if RUBY_PLATFORM=~/mingw32/ #because I did not manage to execute the same on min
   #   	cmd="Rscript.exe"
   #   	version=`#{cmd} -e "cat(R.version$major,R.version$minor,sep='.')"`
   #   else 
-  #   	if File.exists? (jsonfile=File.join(ENV["HOME"],"dyndoc","studio","win32","dyndoc.json"))
+  #   	if File.exist? (jsonfile=File.join(ENV["HOME"],"dyndoc","studio","win32","dyndoc.json"))
 		#    require 'json'
 		#    version=JSON.parse(File.read(jsonfile))["Rversion"]
 		# end
@@ -23,7 +23,7 @@ found=nil
 [".bundle",".so"].each do |ext|
 	["","../ext/R4rb"].each do |path| #sometimes in lib sometimes in ext/R4rb/
 		lib=File.join(File.dirname(__FILE__),path,'R4rb'+(version ? '.'+version+ext : ext ) )
-		if File.exists? lib
+		if File.exist? lib
 			puts "#{lib} found"
 			require lib
 			puts "#{lib} loaded"
@@ -38,7 +38,7 @@ end
 # 	["i386","x64"].each do |version|
 # 		["","../ext/R4rb"].each do |path|
 # 			lib=File.join(File.dirname(__FILE__),path,'R4rb.'+version+'.so')
-# 			if File.exists? lib
+# 			if File.exist? lib
 # 				puts "#{lib} found"
 # 				require lib
 # 				found=true

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: R4rb
 version: !ruby/object:Gem::Version
-  version: 1.1.1
+  version: 1.1.4
 platform: ruby
 authors:
 - CQLS
 autorequire:
 bindir: bin
 cert_chain: []
-date: 2021-09-07 00:00:00.000000000 Z
+date: 2023-01-25 00:00:00.000000000 Z
 dependencies: []
 description: "  R is embedded in ruby with some communication support .\n"
 email: rdrouilh@gmail.com
@@ -20,7 +20,6 @@ files:
 - R4rb.gemspec
 - Rakefile
 - ext/R4rb/MANIFEST
-- ext/R4rb/R4rb.4.1.c
 - ext/R4rb/R4rb.c
 - ext/R4rb/extconf.rb
 - lib/R2rb.rb
@@ -47,7 +46,9 @@ files:
 - test/testRserve.rb
 - test/test_error.rb
 homepage: http://cqls.upmf-grenoble.fr
-licenses: []
+licenses:
+- MIT
+- GPL-2.0
 metadata: {}
 post_install_message:
 rdoc_options: []
@@ -66,7 +67,7 @@ required_rubygems_version: !ruby/object:Gem::Requirement
       version: '0'
 requirements:
 - none
-rubygems_version: 3.2.22
+rubygems_version: 3.4.5
 signing_key:
 specification_version: 4
 summary: R for ruby

data/ext/R4rb/R4rb.4.1.c

@@ -1,600 +0,0 @@
-/**********************************************************************
-
-  R4rb.c
-
-**********************************************************************/
-#include <stdio.h>
-#include <string.h>
-
-#include "ruby.h"
-#include "ruby/version.h"
-#include <R.h>
-#include <Rinternals.h>
-#include <Rdefines.h>
-#include <Rversion.h>
-
-
-/* From Parse.h -- must find better solution: */
-#define PARSE_NULL              0
-#define PARSE_OK                1
-#define PARSE_INCOMPLETE        2
-#define PARSE_ERROR             3
-#define PARSE_EOF               4
-
-
-#define Need_Integer(x) (x) = rb_Integer(x)
-#define Need_Float(x) (x) = rb_Float(x)
-#define Need_Float2(x,y) {\
-    Need_Float(x);\
-    Need_Float(y);\
-}
-#define Need_Float3(x,y,z) {\
-    Need_Float(x);\
-    Need_Float(y);\
-    Need_Float(z);\
-}
-
-#if (R_VERSION < 132352) /* before 2.5 to check!*/
-SEXP R_ParseVector(SEXP, int, int *);
-#define RR_ParseVector(x,y,z) R_ParseVector(x, y, z)
-#else
-SEXP R_ParseVector(SEXP, int, int *,SEXP);
-#define RR_ParseVector(x,y,z) R_ParseVector(x, y, z, R_NilValue)
-#endif
-
-/************* INIT *********************/
-
-extern Rboolean R_Interactive;
-extern int Rf_initEmbeddedR(int argc, char *argv[]);
-
-VALUE R2rb_init(VALUE obj, VALUE args)
-{
-  char **argv;//={"REmbed","--save","--slave","--quiet"};
-  int i,argc;//=sizeof(argv)/sizeof(argv[0]);
-  VALUE tmp;
-
-  argc=RARRAY_LEN(args) + 1;
-  //printf("argc=%d\n",argc);
-  argv=malloc(sizeof(char*)*argc);
-  argv[0]="REmbed";
-  for (i = 1 ; i < argc ; i++) {
-    tmp=rb_ary_entry(args,i-1);
-    argv[i]=StringValuePtr(tmp);
-    //printf("argv[%d]=%s\n",i,argv[i]);
-  }
-  //printf("argc=%d\n",argc);
-  Rf_initEmbeddedR(argc,argv);
-  R_Interactive = FALSE;
-  return Qtrue;
-}
-
-/***************** EVAL **********************/
-
-VALUE R2rb_eval(VALUE obj, VALUE cmd, VALUE print)
-{
-  char *cmdString;
-  int nbCmds;
-  VALUE tmp;
-  int errorOccurred,status, i;
-
-  SEXP text, expr, ans=R_NilValue /* -Wall */;
-
-
-  //printf("Avant parsing\n");
-
-  nbCmds=RARRAY_LEN(cmd);
-
-  //printf("nbCmds : %d\n",nbCmds);
-
-  text = PROTECT(allocVector(STRSXP, nbCmds));
-  for (i = 0 ; i < nbCmds ; i++) {
-    tmp=rb_ary_entry(cmd,i);
-    cmdString=StringValuePtr(tmp);
-    SET_STRING_ELT(text, i, mkChar(cmdString));
-  }
-  expr = PROTECT(RR_ParseVector(text, -1, &status));
-
-  if (status != PARSE_OK) {
-    //printf("Parsing error (status=%d) in:\n",status);
-    for (i = 0 ; i < nbCmds ; i++) {
-      tmp=rb_ary_entry(cmd,i);
-      cmdString=StringValuePtr(tmp);
-      //printf("%s\n",cmdString);
-    }
-    UNPROTECT(2);
-    return Qfalse;
-  }
-  
-  /* Note that expr becomes an EXPRSXP and hence we need the loop
-     below (a straight eval(expr, R_GlobalEnv) won't work) */
-  {
-    for(i = 0 ; i < nbCmds ; i++)
-      ans = R_tryEval(VECTOR_ELT(expr, i),NULL, &errorOccurred);
-      if(errorOccurred) {
-        //fprintf(stderr, "Caught another error calling sqrt()\n");
-        fflush(stderr);
-        UNPROTECT(2);
-        return Qfalse;
-      }
-
-      if (print != Qnil) {
-        Rf_PrintValue(ans);
-      }
-  }
-
-  UNPROTECT(2);
-  return Qtrue;
-}
-
-/***************** PARSE **********************/
-
-VALUE R2rb_parse(VALUE obj, VALUE cmd,VALUE print)
-{
-  char *cmdString;
-  int nbCmds;
-  VALUE tmp;
-  int status,i;
-
-  SEXP text, expr, ans=R_NilValue /* -Wall */;
-
-
-  //printf("Avant parsing\n");
-
-  nbCmds=RARRAY_LEN(cmd);
-
-  //printf("nbCmds : %d\n",nbCmds);
-
-  text = PROTECT(allocVector(STRSXP, nbCmds));
-  for (i = 0 ; i < nbCmds ; i++) {
-    tmp=rb_ary_entry(cmd,i);
-    cmdString=StringValuePtr(tmp);
-    SET_STRING_ELT(text, i, mkChar(cmdString));
-  }
-  expr = PROTECT(RR_ParseVector(text, -1, &status));
-
-  if (status != PARSE_OK) {
-    if (print != Qnil) printf("Parsing error (status=%d) in:\n",status);
-    for (i = 0 ; i < nbCmds ; i++) {
-      tmp=rb_ary_entry(cmd,i);
-      cmdString=StringValuePtr(tmp);
-      if (print != Qnil) printf("%s\n",cmdString);
-    }
-    //UNPROTECT(2);
-    //return Qfalse;
-  }
-  UNPROTECT(2);
-  //return Qtrue;
-  return INT2FIX(status);
-}
-
-
-/*****************************************
-
-Interface to get values of RObj from Ruby
-The basic idea : no copy of the R Vector
-just methods to extract value !!!
-
-******************************************/
-
-// used internally !!! -> eval only one string line
-SEXP util_eval1string(VALUE cmd)
-{
-  char *cmdString;
-  int  errorOccurred,status, i;
-    
-  SEXP text, expr, ans=R_NilValue /* -Wall */;
-
-  text = PROTECT(allocVector(STRSXP, 1)); 
-  cmdString=StringValuePtr(cmd);
-//printf("cmd: %s\n",cmdString);
-  SET_STRING_ELT(text, 0, mkChar(cmdString));
-  expr = PROTECT(RR_ParseVector(text, -1, &status));
-  if (status != PARSE_OK) {
-    printf("Parsing error in: %s\n",cmdString);
-    UNPROTECT(2);
-    return R_NilValue;
-  }
-  /* Note that expr becomes an EXPRSXP and hence we need the loop
-     below (a straight eval(expr, R_GlobalEnv) won't work) */
-  ans = R_tryEval(VECTOR_ELT(expr, 0),R_GlobalEnv,&errorOccurred);
-  //ans = eval(VECTOR_ELT(expr, 0),R_GlobalEnv);
-  if(errorOccurred) {
-    //fflush(stderr);
-    printf("Exec error in: %s\n",cmdString);
-    UNPROTECT(2);
-    return R_NilValue;
-  }
-  UNPROTECT(2);
-  return ans;
-}
-
-int util_isVector(SEXP ans)
-{
-  return ((!isNewList(ans)) & isVector(ans));
-}
-
-int util_isVariable(VALUE self)
-{
-  VALUE tmp;
-  tmp=rb_iv_get(self,"@type");
-  return strcmp(StringValuePtr(tmp),"var")==0;
-}
-
-SEXP util_getVar(VALUE self)
-{
-  SEXP ans;
-  char *name;
-  VALUE tmp;
-
-  tmp=rb_iv_get(self,"@name");
-  name=StringValuePtr(tmp);
-  if(util_isVariable(self)) {
-    ans = findVar(install(name),R_GlobalEnv); //currently in  R_GlobalEnv!!!
-  } else {
-    //printf("getVar:%s\n",name);
-    ans=util_eval1string(rb_iv_get(self,"@name"));
-    if(ans==R_NilValue) return ans;
-  }
-  if(!util_isVector(ans)) return R_NilValue;
-  return ans;
-}
-
-//with argument!! necessarily an expression and not a variable
-SEXP util_getExpr_with_arg(VALUE self)
-{
-  SEXP ans;
-  VALUE tmp;
-
-  //printf("getVar:%s\n",name);
-  tmp=rb_str_dup(rb_iv_get(self,"@arg"));
-  ans=util_eval1string(rb_str_cat2(rb_str_dup(rb_iv_get(self,"@name")),StringValuePtr(tmp)));
-  if(ans==R_NilValue) return ans;
-  if(!util_isVector(ans)) return R_NilValue;
-  return ans;
-}
-
-
-VALUE util_SEXP2VALUE(SEXP ans)
-{
-  VALUE res;
-  int n,i;
-  Rcomplex cpl;
-  VALUE res2; 
-  
-  n=length(ans);
-  res = rb_ary_new2(n);
-  switch(TYPEOF(ans)) {
-  case REALSXP:
-    for(i=0;i<n;i++) {
-      rb_ary_store(res,i,rb_float_new(REAL(ans)[i]));
-    }
-    break;
-  case INTSXP:
-    for(i=0;i<n;i++) {
-      rb_ary_store(res,i,INT2FIX(INTEGER(ans)[i]));
-    }
-    break;
-  case LGLSXP:
-    for(i=0;i<n;i++) {
-      rb_ary_store(res,i,(INTEGER(ans)[i] ? Qtrue : Qfalse));
-    }
-    break;
-  case STRSXP:
-    for(i=0;i<n;i++) {
-      rb_ary_store(res,i,rb_str_new2(CHAR(STRING_ELT(ans,i))));
-    }
-    break;
-  case CPLXSXP:
-    rb_require("complex");
-    for(i=0;i<n;i++) {
-      cpl=COMPLEX(ans)[i];
-      res2 = rb_eval_string("Complex.new(0,0)");
-      rb_iv_set(res2,"@real",rb_float_new(cpl.r));
-      rb_iv_set(res2,"@image",rb_float_new(cpl.i));
-      rb_ary_store(res,i,res2);
-    }
-    break;
-  }
-
-  return res;
-}
-
-
-SEXP util_VALUE2SEXP(VALUE arr)
-{
-  SEXP ans;
-  VALUE res,class,tmp;
-  int i,n=0;
-
-  if(!rb_obj_is_kind_of(arr,rb_cArray)) {
-    n=1;
-    res = rb_ary_new2(1);
-    rb_ary_push(res,arr);
-    arr=res;
-  } else {
-    n=RARRAY_LEN(arr);
-  }  
-
-  class=rb_class_of(rb_ary_entry(arr,0));
-  
-  if(class==rb_cFloat) {
-    PROTECT(ans=allocVector(REALSXP,n));
-    for(i=0;i<n;i++) {
-      REAL(ans)[i]=NUM2DBL(rb_ary_entry(arr,i));
-    }
-#if RUBY_API_VERSION_CODE >= 20400
-  } else if(class==rb_cInteger) {
-#else
-  } else if(class==rb_cFixnum || class==rb_cBignum) {
-#endif
-    PROTECT(ans=allocVector(INTSXP,n));
-    for(i=0;i<n;i++) {
-      INTEGER(ans)[i]=NUM2INT(rb_ary_entry(arr,i));
-    }
-  } else if(class==rb_cTrueClass || class==rb_cFalseClass) {
-    PROTECT(ans=allocVector(LGLSXP,n));
-    for(i=0;i<n;i++) {
-      LOGICAL(ans)[i]=(rb_class_of(rb_ary_entry(arr,i))==rb_cFalseClass ? FALSE : TRUE);
-    }
-  } else if(class==rb_cString) {
-    PROTECT(ans=allocVector(STRSXP,n));
-    for(i=0;i<n;i++) {
-      tmp=rb_ary_entry(arr,i);
-      SET_STRING_ELT(ans,i,mkChar(StringValuePtr(tmp)));
-    }
-  } else ans=R_NilValue;
-
-  if(n>0) UNPROTECT(1);
-  return ans; 
-}
-
-
-
-VALUE RVect_initialize(VALUE self, VALUE name)
-{
-  rb_iv_set(self,"@name",name);
-  rb_iv_set(self,"@type",rb_str_new2("var"));
-  rb_iv_set(self,"@arg",rb_str_new2(""));
-  return self;
-}
-
-VALUE RVect_isValid(VALUE self)
-{
-  SEXP ans;
-  char *name;
-
-#ifdef cqls
-  VALUE tmp;
-  tmp=rb_iv_get(self,"@name");
-  name = StringValuePtr(tmp);
-  ans = findVar(install(name),R_GlobalEnv); //currently in  R_GlobalEnv!!!
-#else
-  ans = util_getVar(self);
-#endif
-  if(!util_isVector(ans)) {
-#ifndef cqls
-    VALUE tmp;
-    tmp=rb_iv_get(self,"@name");
-    name = StringValuePtr(tmp);
-#endif
-    rb_warn("%s is not a R vector !!!",name); //TODO name not defined
-    return Qfalse;
-  }
-  return Qtrue;
-}
-
-VALUE RVect_length(VALUE self)
-{
-  SEXP ans;
-  char *name;
-#ifdef cqls
-  VALUE tmp;
-  tmp=rb_iv_get(self,"@name");
-  if(!RVect_isValid(self)) return Qnil;
-  name = StringValuePtr(tmp);
-  ans = findVar(install(name),R_GlobalEnv); //currently in  R_GlobalEnv!!!
-#else
-  ans = util_getVar(self);
-
-  if(ans==R_NilValue) {
-    //printf("Sortie de length avec nil\n");
-    return Qnil;
-  }
-#endif
-  return INT2NUM(length(ans));
-}
-
-VALUE RVect_get(VALUE self)
-{
-  SEXP ans;
-  VALUE res;
-  char *name;
-  int n,i;
-  Rcomplex cpl;
-  VALUE res2; 
-
-  //#define cqls
-#ifdef cqls 
-  VALUE tmp;
-  if(!RVect_isValid(self)) return Qnil;
-#else  
-  ans = util_getVar(self);
-
-  if(ans==R_NilValue) {
-    //printf("Sortie de get avec nil\n");
-    return Qnil;
-  }
-#endif
-#ifdef cqls 
-  tmp=rb_iv_get(self,"@name");
-  name = StringValuePtr(tmp);
-  ans = findVar(install(name),R_GlobalEnv); 
-#endif
-
-  res=util_SEXP2VALUE(ans);
-  if(length(ans)==1) res=rb_ary_entry(res,0);
-  return res; 
-}
-
-VALUE RVect_get_with_arg(VALUE self)
-{
-  SEXP ans;
-  VALUE res;
-  char *name;
-  int n,i;
-  Rcomplex cpl;
-  VALUE res2; 
-
-  ans = util_getExpr_with_arg(self);
- 
-  if(ans==R_NilValue) {
-    //printf("Sortie de get avec nil\n");
-    return Qnil;
-  }
-  res=util_SEXP2VALUE(ans);
- 
-//printf("RVect_get_with_arg: length(ans)=%d\n",length(ans));
- if (length(ans)==1) res=rb_ary_entry(res,0);
-
-  return res;
-}
-
-
-
-// faster than self.to_a[index]
-VALUE RVect_aref(VALUE self, VALUE index)
-{
-  SEXP ans;
-  VALUE res;
-  char *name;
-  int n,i;
-  Rcomplex cpl;
-#ifdef cqls
-  VALUE tmp;
-#endif
-  i = FIX2INT(index);
-  
-#ifdef cqls
-  if(!RVect_isValid(self)) return Qnil;
-  tmp=rb_iv_get(self,"@name");
-  name = StringValuePtr(tmp);
-  ans = findVar(install(name),R_GlobalEnv); //currently in  R_GlobalEnv!!!
-#else
-  ans = util_getVar(self);
-#endif
-  n=length(ans);
-  //printf("i=%d and n=%d\n",i,n);
-  if(i<n) {
-    switch(TYPEOF(ans)) {
-    case REALSXP:
-      res=rb_float_new(REAL(ans)[i]);
-      break;
-    case INTSXP:
-      res=INT2FIX(INTEGER(ans)[i]);
-      break;
-    case LGLSXP:
-      res=(INTEGER(ans)[i] ? Qtrue : Qfalse);
-      break;
-    case STRSXP:
-      res=rb_str_new2(CHAR(STRING_ELT(ans,i)));
-      break;
-    case CPLXSXP:
-      rb_require("complex");
-      cpl=COMPLEX(ans)[i];
-      res = rb_eval_string("Complex.new(0,0)");
-      rb_iv_set(res,"@real",rb_float_new(cpl.r));
-      rb_iv_set(res,"@image",rb_float_new(cpl.i));
-      break;
-    }
-  } else {
-    res = Qnil;
-  }
-  return res;
-}
-
-VALUE RVect_set(VALUE self,VALUE arr)
-{
-  SEXP ans;
-  char *name;
-  VALUE tmp;
-
-  ans=util_VALUE2SEXP(arr);
-  
-  tmp=rb_iv_get(self,"@name");
-  name = StringValuePtr(tmp);
-  if(util_isVariable(self)) {
-    defineVar(install(name),ans,R_GlobalEnv); //currently in R_GlobalEnv!!!
-  } else {
-    defineVar(install(".rubyExport"),ans,R_GlobalEnv);
-    util_eval1string(rb_str_cat2(rb_str_dup(rb_iv_get(self,"@name")),"<-.rubyExport"));
-  }
-
-  return self; 
-}
-
-VALUE RVect_assign(VALUE obj, VALUE name,VALUE arr)
-{
-  SEXP ans;
-  char *tmp;
-
-  ans=util_VALUE2SEXP(arr);
-
-  tmp = StringValuePtr(name);
-  defineVar(install(tmp),ans,R_GlobalEnv);
-
-  return Qnil; 
-}
-
-VALUE RVect_set_with_arg(VALUE self,VALUE arr)
-{
-  VALUE tmp;
-  defineVar(install(".rubyExport"),util_VALUE2SEXP(arr),R_GlobalEnv);
-  tmp=rb_iv_get(self,"@arg"); 
-  util_eval1string(rb_str_cat2(rb_str_cat2(rb_str_dup(rb_iv_get(self,"@name")),StringValuePtr(tmp)),"<-.rubyExport"));
-  return self;
-}
-
-
-
-void
-Init_R4rb()
-{
-  VALUE mR2rb;
-
-  mR2rb = rb_define_module("R2rb");
-
-  rb_define_module_function(mR2rb, "initR", R2rb_init, 1);
-
-  rb_define_module_function(mR2rb, "evalLines", R2rb_eval, 2);
-
-  rb_define_module_function(mR2rb, "parseLines", R2rb_parse, 2);
-
-  VALUE cRVect;
-
-  cRVect = rb_define_class_under(mR2rb,"RVector",rb_cObject);
-
-  rb_define_module_function(cRVect, "assign", RVect_assign, 2);
-
-  rb_define_method(cRVect,"initialize",RVect_initialize,1);
-
-  rb_define_method(cRVect,"get",RVect_get,0);
-  rb_define_alias(cRVect,"to_a","get");
-  rb_define_alias(cRVect,"value","get");
-
-  rb_define_method(cRVect,"set",RVect_set,1);
-  rb_define_alias(cRVect,"<","set");
-  rb_define_alias(cRVect,"value=","set");
-
-  //method "arg=" defined in eval.rb!! @arg initialized in method "initialize"
-  rb_define_method(cRVect,"get_with_arg",RVect_get_with_arg,0);
-  rb_define_alias(cRVect,"value_with_arg","get_with_arg");
-  rb_define_method(cRVect,"set_with_arg",RVect_set_with_arg,1);
-  rb_define_alias(cRVect,"value_with_arg=","set_with_arg");
-
-  rb_define_method(cRVect,"valid?",RVect_isValid,0);
-  rb_define_method(cRVect,"length",RVect_length,0);
-  rb_define_method(cRVect,"[]",RVect_aref,1);
-  //[]= iter !!!
-  rb_define_attr(cRVect,"name",1,1);
-  rb_define_attr(cRVect,"type",1,1);
-}