Added windows specific makevars and config scripts for the R package

Author: andrewherren

configure.win

@@ -0,0 +1,29 @@
+# Script used to generate `Makevars.win` from `Makevars.win.in` on Windows
+# Adapted from LightGBM https://github.com/microsoft/LightGBM/blob/master/R-package/configure.win
+
+###########################
+# find compiler and flags #
+###########################
+
+R_EXE="${R_HOME}/bin${R_ARCH_BIN}/R"
+CXX17=`"${R_EXE}" CMD config CXX17`
+CXX17STD=`"${R_EXE}" CMD config CXX17STD`
+CXX="${CXX17} ${CXX17STD}"
+CXXFLAGS=`"${R_EXE}" CMD config CXX17FLAGS`
+CXX_STD="CXX17"
+CPPFLAGS=`"${R_EXE}" CMD config CPPFLAGS`
+
+# Stochtree-specific flags
+STOCHTREE_CPPFLAGS=""
+
+#########
+# Eigen #
+#########
+
+STOCHTREE_CPPFLAGS="${STOCHTREE_CPPFLAGS} -DEIGEN_MPL2_ONLY -DEIGEN_DONT_PARALLELIZE"
+
+##########
+# OpenMP #
+##########
+
+STOCHTREE_CPPFLAGS="${STOCHTREE_CPPFLAGS} -DSTOCHTREE_OPENMP_AVAILABLE"

cran-bootstrap.R

@@ -60,12 +60,13 @@ if (!dir.exists(cran_dir)) {
 src_files <- list.files("src", pattern = ".[^o]$", recursive = TRUE, full.names = TRUE)
 pybind_src_files <- list.files("src", pattern = "^(py_)", recursive = TRUE, full.names = TRUE)
 r_src_files <- src_files[!(src_files %in% pybind_src_files)]
-r_src_files <- r_src_files[!(r_src_files %in% c("src/Makevars"))]
+r_src_files <- r_src_files[!(r_src_files %in% c("src/Makevars", "src/Makevars.win"))]
 cat(r_src_files)
 pkg_core_files <- c(
     ".Rbuildignore",
     "configure",
     "configure.ac",
+    "configure.win",
     "cran-comments.md",
     "DESCRIPTION",
     "inst/COPYRIGHTS",
@@ -139,7 +140,7 @@ if (all(file.exists(pkg_core_files))) {
     }
 }
 
-# Overwrite PKG_CPPFLAGS in src/Makevars
+# Overwrite PKG_CPPFLAGS in src/Makevars.in
 cran_makevars <- file.path(cran_dir, "src/Makevars.in")
 makevars_lines <- readLines(cran_makevars)
 makevars_lines[grep("    -I$(PKGROOT)/include \\", makevars_lines, fixed = T)] <- "    -I$(PKGROOT)/src/include \\"
@@ -150,6 +151,17 @@ makevars_lines <- makevars_lines[-c(
 )]
 writeLines(makevars_lines, cran_makevars)
 
+# Overwrite PKG_CPPFLAGS in src/Makevars.win.in
+cran_makevars_win <- file.path(cran_dir, "src/Makevars.win.in")
+makevars_win_lines <- readLines(cran_makevars_win)
+makevars_win_lines[grep("    -I$(PKGROOT)/include \\", makevars_win_lines, fixed = T)] <- "    -I$(PKGROOT)/src/include \\"
+makevars_win_lines <- makevars_win_lines[-c(
+    grep("    -I$(PKGROOT)/deps/eigen \\", makevars_win_lines, fixed = T), 
+    grep("    -I$(PKGROOT)/deps/fmt/include \\", makevars_win_lines, fixed = T), 
+    grep("    -I$(PKGROOT)/deps/fast_double_parser/include \\", makevars_win_lines, fixed = T)
+)]
+writeLines(makevars_win_lines, cran_makevars_win)
+
 # Remove vignette deps from DESCRIPTION if no vignettes
 if (!include_vignettes) {
     cran_description <- file.path(cran_dir, "DESCRIPTION")

src/Makevars.win.in

@@ -0,0 +1,39 @@
+CXX_STD = @CXX_STD@
+
+PKGROOT=..
+
+STOCHTREE_CPPFLAGS = \
+    @STOCHTREE_CPPFLAGS@ \
+    -DSTOCHTREE_R_BUILD
+
+PKG_CPPFLAGS = \
+    -I$(PKGROOT)/include \
+    -I$(PKGROOT)/deps/eigen \
+    -I$(PKGROOT)/deps/fmt/include \
+    -I$(PKGROOT)/deps/fast_double_parser/include \
+    $(STOCHTREE_CPPFLAGS)
+
+PKG_CXXFLAGS = \
+    ${SHLIB_OPENMP_CXXFLAGS} \
+    ${SHLIB_PTHREAD_FLAGS}
+
+PKG_LIBS = \
+    ${SHLIB_OPENMP_CXXFLAGS} \
+    ${SHLIB_PTHREAD_FLAGS}
+
+OBJECTS = \
+    forest.o \
+    kernel.o \
+    R_data.o \
+    R_random_effects.o \
+    sampler.o \
+    serialization.o \
+    cpp11.o \
+    container.o \
+    cutpoint_candidates.o \
+    data.o \
+    io.o \
+    leaf_model.o \
+    partition_tracker.o \
+    random_effects.o \
+    tree.o