Matrix implementation part one (matrix multiplication)

R/compiler.R

@@ -94,11 +94,13 @@ quickr_fcompiler_env <- function(
     quickr_env_is_true("QUICKR_PREFER_FLANG"),
   write_lines = writeLines,
   sysname = Sys.info()[["sysname"]],
-  use_openmp = FALSE
+  use_openmp = FALSE,
+  link_flags = character()
 ) {
   stopifnot(is.character(build_dir), length(build_dir) == 1L, nzchar(build_dir))
 
   use_openmp <- isTRUE(use_openmp)
+  link_flags <- link_flags[nzchar(link_flags)]
 
   flang <- ""
   flang_runtime <- character()
@@ -151,7 +153,10 @@ quickr_fcompiler_env <- function(
         }
       )
     },
-    if (use_openmp) openmp_makevars_lines()
+    if (use_openmp) openmp_makevars_lines(),
+    if (length(link_flags)) {
+      paste("PKG_LIBS +=", paste(link_flags, collapse = " "))
+    }
   )
   write_lines(
     makevars_lines,

R/manifest.R

@@ -81,6 +81,9 @@ iso_c_binding_symbols <- function(
   if (grepl("\\b[0-9]+_c_int\\b", body_code)) {
     used_iso_bindings <- union(used_iso_bindings, "c_int")
   }
+  if (grepl("\\bc_int\\b", body_code)) {
+    used_iso_bindings <- union(used_iso_bindings, "c_int")
+  }
   if (grepl("\\b[0-9]+\\.[0-9]+_c_double\\b", body_code)) {
     used_iso_bindings <- union(used_iso_bindings, "c_double")
   }

R/parallel.R

@@ -31,6 +31,15 @@ mark_openmp_used <- function(scope) {
   invisible(root)
 }
 
+openmp_abort <- function(message, class = "quickr_openmp_error") {
+  stop(
+    structure(
+      list(message = message, call = sys.call(-1)),
+      class = c(class, "error", "condition")
+    )
+  )
+}
+
 is_parallel_decl_call <- function(e) {
   is.call(e) &&
     is.symbol(e[[1L]]) &&
@@ -126,26 +135,45 @@ openmp_directives <- function(parallel, private = NULL) {
   )
 }
 
-openmp_config_value <- function(name) {
-  out <- tryCatch(
-    suppressWarnings(system2(
-      R.home("bin/R"),
-      c("CMD", "config", name),
-      stdout = TRUE,
-      stderr = TRUE
-    )),
-    error = function(e) character()
-  )
-  status <- attr(out, "status")
-  if (!is.null(status)) {
-    return("")
-  }
-  value <- trimws(paste(out, collapse = " "))
-  if (!nzchar(value) || grepl("^ERROR:", value)) {
-    return("")
+openmp_config_value <- local({
+  cached <- NULL
+
+  function(name) {
+    if (is.null(cached)) {
+      cached <<- list()
+    }
+    cached_value <- cached[[name]]
+    if (!is.null(cached_value)) {
+      return(cached_value)
+    }
+
+    r_cmd <- R.home("bin/R")
+    if (identical(.Platform$OS.type, "windows") && !file.exists(r_cmd)) {
+      r_cmd <- paste0(r_cmd, ".exe")
+    }
+    out <- tryCatch(
+      suppressWarnings(system2(
+        r_cmd,
+        c("CMD", "config", name),
+        stdout = TRUE,
+        stderr = TRUE
+      )),
+      error = function(e) character()
+    )
+    status <- attr(out, "status")
+    if (!is.null(status)) {
+      cached[[name]] <<- ""
+      return("")
+    }
+    value <- trimws(paste(out, collapse = " "))
+    if (!nzchar(value) || grepl("^ERROR:", value)) {
+      cached[[name]] <<- ""
+      return("")
+    }
+    cached[[name]] <<- value
+    value
   }
-  value
-}
+})
 
 openmp_fflags <- function() {
   env_flags <- trimws(Sys.getenv("QUICKR_OPENMP_FFLAGS", ""))
@@ -216,18 +244,24 @@ openmp_link_flags <- function(fflags = openmp_fflags()) {
 openmp_makevars_lines <- function() {
   fflags <- openmp_fflags()
   if (!nzchar(fflags)) {
-    stop(
-      "OpenMP was requested but no OpenMP flags were found for this toolchain.",
-      "\nSet QUICKR_OPENMP_FFLAGS to your compiler's OpenMP flags.",
-      call. = FALSE
+    openmp_abort(
+      paste(
+        "OpenMP was requested but no OpenMP flags were found for this toolchain.",
+        "Set QUICKR_OPENMP_FFLAGS to your compiler's OpenMP flags.",
+        sep = "\n"
+      ),
+      class = "quickr_openmp_unavailable"
     )
   }
   libs <- openmp_link_flags(fflags = fflags)
   if (!nzchar(libs)) {
-    stop(
-      "OpenMP was requested but no OpenMP linker flags were found.",
-      "\nSet QUICKR_OPENMP_LIBS to your linker OpenMP flags.",
-      call. = FALSE
+    openmp_abort(
+      paste(
+        "OpenMP was requested but no OpenMP linker flags were found.",
+        "Set QUICKR_OPENMP_LIBS to your linker OpenMP flags.",
+        sep = "\n"
+      ),
+      class = "quickr_openmp_unavailable"
     )
   }
   c(