Embed the R directory in the compiled extension

terceiro · terceiro · commit b80d441036af · 2011-09-09T17:38:44.000-07:00
If the user already informed the R directory while compiling the
extention, then it is not needed to explictly set R_HOME before using
the library.
diff --git a/ext/extconf.rb b/ext/extconf.rb
@@ -10,4 +10,12 @@
   exit 1
 end
 
+File.open("config.h", "w") do |f|
+  f.puts("#ifndef R_CONFIG_H")
+  f.puts("#define R_CONFIG_H")
+  r_home = $configure_args.has_key?('--with-R-dir') ? $configure_args['--with-R-dir'].inspect : 'NULL'
+  f.puts("#define RSRUBY_R_HOME #{r_home}")
+  f.puts("#endif")
+end
+
 create_makefile("rsruby_c")
diff --git a/ext/rsruby.c b/ext/rsruby.c
@@ -30,6 +30,8 @@
 */
 
 #include "rsruby.h"
+#include "config.h"
+#include <stdlib.h>
 
 /* Global list to protect R objects from garbage collection */
 /* This is inspired in $R_SRC/src/main/memory.c */
@@ -146,6 +148,9 @@ void init_R(int argc, char **argv){
 
   char *defaultArgv[] = {"rsruby","-q","--vanilla"};
 
+  if (RSRUBY_R_HOME) {
+    setenv("R_HOME", RSRUBY_R_HOME, 0);
+  }
   Rf_initEmbeddedR(sizeof(defaultArgv) / sizeof(defaultArgv[0]), defaultArgv);
   R_Interactive = FALSE; //Remove crash menu (and other interactive R features)
 }
