R/execute.cmake.R

In wush978/RCMake: Generate IDE project for developing R extension with CMake

#'@title List available IDEs on the platform
#'@value Available IDEs on the platform
#'@export
list.IDE <- function(is_tolower = TRUE) {
	result <- system("cmake --help", intern=TRUE)
	start.index <- grep("The following generators are available on this platform:", result, fixed=TRUE) + 1
	end.index <- length(result)
	result <- paste(result[start.index:end.index], collapse="")
	result <- strsplit(result, split=".", fixed=TRUE)[[1]]
	builder.index <- grep("=", result, fixed=TRUE)
	stopifnot(1 %in% builder.index)
	result[setdiff(1:length(result), builder.index) - 1] <- paste(result[setdiff(1:length(result), builder.index) - 1], result[setdiff(1:length(result), builder.index)], sep="")
	result <- result[builder.index]
	result <- sapply(strsplit(result, "="), function(x) x[1])
	if (is_tolower)
		return(tolower(str_trim(result)))
	else
		return(str_trim(result))
}

get.IDE <- function(ide) {
	if (length(ide) > 1) {
		warnings("only the first element of \"ide\" will be used")
		ide <- ide[1]
	}
	result <- list.IDE(FALSE)
	if (class(ide) == "integer") {
		return(result[ide])
	}
	ide <- tolower(ide)
	result.tolower <- tolower(result)
	result.index <- pmatch(ide, result.tolower)
	if (is.na(result.index)) {
		stop("No IDE is selected")
	}
	return(result[result.index])
}

#'@title Execute \code{cmake}
#'@param cmakelists.path Location of \code{CMakeLists.txt}
#'@param IDE Integer or character. Integer indicates that the IDE-th element of \code{list.IDE()} will
#'be generated. Character will use \code{pmatch} to find the IDE in \code{list.IDE()}.
#'@param argv Additional arguments passed to \code{CMake}
#'@export 
execute.cmake <- function(cmakelists.path, IDE = 1L, argv = "") {
	IDE <- get.IDE(IDE)
	system(sprintf("cmake %s -DLibR_DIR=%s -G \"%s\" %s", 
								 cmakelists.path, 
								 system.file("", package="RCMake"), 
								 IDE,
								 argv))
}