[Rcpp-commits] r2612 - pkg/RcppGSL/R

[noreply at r-forge.r-project.org]

Author: romain
Date: 2010-11-30 12:02:34 +0100 (Tue, 30 Nov 2010)
New Revision: 2612

Modified:
   pkg/RcppGSL/R/inline.R
Log:
deal with windows

Modified: pkg/RcppGSL/R/inline.R
===================================================================
--- pkg/RcppGSL/R/inline.R	2010-11-30 09:13:04 UTC (rev 2611)
+++ pkg/RcppGSL/R/inline.R	2010-11-30 11:02:34 UTC (rev 2612)
@@ -16,11 +16,18 @@
 ## along with RcppArmadillo.  If not, see <http://www.gnu.org/licenses/>.
 
 NAMESPACE <- environment()
-know_flags <- FALSE
-gsl_cflags <- ""
-gsl_libs   <- ""
-     
 
+if(.Platform$OS.type=="windows") {
+    LIB_GSL <- Sys.getenv("LIB_GSL")
+    gsl_cflags <- sprintf( "-I%s/include", LIB_GSL )
+    gsl_libs   <- sprintf( "-L%s/lib -lgsl -lgslcblas", LIB_GSL )
+    known_flags <- TRUE
+} else {             
+    gsl_cflags <- ""
+    gsl_libs <- ""
+    known_flags <- FALSE    
+}
+
 get_gsl_flags <- function(){
     td <- tempfile()
     here <- getwd()