Merge pull request #141 from hsbadr/develop

Update TBB interface and allow using external lib

Author: kevinushey

DESCRIPTION

@@ -1,14 +1,18 @@
 Package: RcppParallel
 Type: Package
 Title: Parallel Programming Tools for 'Rcpp'
-Version: 5.0.2-9000
+Version: 5.1.0-9000
 Authors@R: c(
     person("JJ", "Allaire", role = c("aut"), email = "jj@rstudio.com"),
     person("Romain", "Francois", role = c("aut", "cph")),
     person("Kevin", "Ushey", role = c("aut", "cre"), email = "kevin@rstudio.com"),
     person("Gregory", "Vandenbrouck", role = "aut"),
     person("Marcus", "Geelnard", role = c("aut", "cph"),
-       comment = "TinyThread library, http://tinythreadpp.bitsnbites.eu/"),
+       comment = "TinyThread library, https://tinythreadpp.bitsnbites.eu/"),
+    person("Hamada S.", "Badr",
+       email = "badr@jhu.edu",
+       role = c("ctb"),
+       comment = c(ORCID = "0000-0002-9808-2344")),
     person(family = "RStudio", role = "cph"),
     person(family = "Intel", role = c("aut", "cph"),
        comment = "Intel TBB library, https://www.threadingbuildingblocks.org/"),
@@ -24,12 +28,12 @@ Suggests:
     RUnit,
     knitr,
     rmarkdown
-SystemRequirements: GNU make, Windows: cmd.exe and cscript.exe, Solaris: g++ is required
+SystemRequirements: GNU make, Intel TBB, Windows: cmd.exe and cscript.exe, Solaris: g++ is required
 License: GPL (>= 2)
-URL: http://rcppcore.github.io/RcppParallel, https://github.com/RcppCore/RcppParallel
+URL: https://rcppcore.github.io/RcppParallel/, https://github.com/RcppCore/RcppParallel
 BugReports: https://github.com/RcppCore/RcppParallel/issues
 Biarch: TRUE
-Collate: 
+Collate:
    'build.R'
    'hooks.R'
    'options.R'

R/build.R

@@ -41,13 +41,23 @@ inlineCxxPlugin <- function() {
 }
 
 tbbCxxFlags <- function() {
-   
+
    flags <- c()
-   
+
    # opt-in to TBB on Windows
    if (Sys.info()['sysname'] == "Windows")
       flags <- paste(flags, "-DRCPP_PARALLEL_USE_TBB=1")
-   
+
+   if (dir.exists(Sys.getenv("TBB_INC"))) {
+       TBB_INC <- asBuildPath(Sys.getenv("TBB_INC"))
+
+       if (file.exists(file.path(TBB_INC, "tbb", "version.h"))) {
+          flags <- paste0("-I", shQuote(TBB_INC), " -DTBB_INTERFACE_NEW")
+       } else {
+          flags <- paste0("-I", shQuote(TBB_INC))
+       }
+   }
+
    flags
 }
 
@@ -57,6 +67,9 @@ tbbLdFlags <- function() {
    if ((Sys.info()['sysname'] %in% c("Windows", "SunOS")) && !isSparc()) {
       tbb <- tbbLibPath()
       paste("-L", asBuildPath(dirname(tbb)), " -ltbb -ltbbmalloc", sep = "")
+   } else if (dir.exists(Sys.getenv("TBB_LIB"))) {
+      TBB_LIB <- asBuildPath(Sys.getenv("TBB_LIB"))
+      paste0("-L", shQuote(TBB_LIB), " -Wl,-rpath,", TBB_LIB, " -ltbb -ltbbmalloc")
    } else {
       ""
    }
@@ -66,19 +79,32 @@ tbbLdFlags <- function() {
 tbbLibPath <- function(suffix = "") {
    sysname <- Sys.info()['sysname']
    tbbSupported <- list(
-      "Darwin" = paste("libtbb", suffix, ".dylib", sep = ""), 
-      "Linux" = paste("libtbb", suffix, ".so.2", sep = ""), 
+      "Darwin" = paste("libtbb", suffix, ".dylib", sep = ""),
+      "Linux" = paste("libtbb", suffix, ".so.2", sep = ""),
       "Windows" = paste("tbb", suffix, ".dll", sep = ""),
       "SunOS" = paste("libtbb", suffix, ".so", sep = "")
    )
-   if ((sysname %in% names(tbbSupported)) && !isSparc()) {
-      libDir <- "lib/"
-      if (sysname == "Windows")
-         libDir <- paste(libDir, .Platform$r_arch, "/", sep="")
-      system.file(paste(libDir, tbbSupported[[sysname]], sep = ""), 
-                  package = "RcppParallel")
+
+   if (dir.exists(Sys.getenv("TBB_LIB"))) {
+      TBB_LIB <- asBuildPath(Sys.getenv("TBB_LIB"))
+      asBuildPath(file.path(TBB_LIB, paste("libtbb", suffix, ".so", sep = "")))
    } else {
-      NULL
+      if ((sysname %in% names(tbbSupported)) && !isSparc()) {
+         libDir <- "lib/"
+         if (sysname == "Windows")
+            libDir <- paste(libDir, .Platform$r_arch, "/", sep="")
+
+         tbb_path <- system.file(paste(libDir, tbbSupported[[sysname]], sep = ""),
+                                 package = "RcppParallel")
+         if (sysname == "Linux" && !file.exists(tbb_path)) {
+             system.file(paste(libDir, "libtbb", suffix, ".so", sep =""),
+                         package = "RcppParallel")
+         } else {
+            tbb_path
+         }
+      } else {
+         NULL
+      }
    }
 }
 

inst/NEWS

@@ -1,6 +1,13 @@
-RcppParallel 5.0.3 (UNRELEASED)
+RcppParallel 5.1.0 (UNRELEASED)
 ------------------------------------------------------------------------
 
+* Added support for external TBB library via TBB_INC and/or TBB_LIB environment variables.
+* Updated TBB functionality for the new interface.
+* Falling back to building TBB from local source code.
+* Backward TBB compatibility based on `__TBB_tbb_stddef_H`.
+* Resolved conflicts between system and local TBB headers.
+* Fixed URLs, used HTTPS, and minor cleanups.
+* Updated package DESCRIPTION and bumped version.
 * setThreadOptions(...) can again be called multiple times per session.
   The requested number of threads will be used for invocations to parallelFor()
   and parallelReduce() that don't explicitly request a specific number of threads.