inst/tools/phase1-workflow.R

In starvz: R-Based Visualization Techniques for Task-Based Applications

#!/usr/bin/env Rscript
library(starvz)

##############################
# Usage                      #
##############################
usage <- function() {
  stop("Usage: ", basename(commandArgs()[4]), "
         <directory> [application](optional) [use parquet](optional)\n
          where <directory> contains CSV files of the workflow;\n
          where [application](optional) is the pre configured application.
          where [config](optional) is config file location", call. = FALSE)
}

# Get the arguments to this script
args <- commandArgs(trailingOnly = TRUE)

input.parquet <- 1
input.config <- NULL

if (length(args) < 1) {
  usage()
} else if (length(args) == 1) {
  input.application <- ""
} else if (length(args) == 2) {
  input.application <- args[[2]]
} else {
  input.application <- args[[2]]
  input.config <- args[[3]]
}

if (input.application == "-") {
  input.application <- ""
}

input.directory <- args[[1]]
if (is.null(input.directory)) {
  usage()
}
if (input.application == "cholesky") {
  states.fun <- cholesky_colors
  states.filter <- 2
} else if (input.application == "qrmumps") {
  states.fun <- qrmumps_colors
  states.filter <- 1
} else if (input.application == "cholesky_pastix") {
  states.fun <- cholesky_pastix_colors
  states.filter <- 1
} else if (input.application == "cfd") {
  states.fun <- cfd_colors
  states.filter <- 1
} else if (input.application == "lu") {
  states.fun <- lu_colors
  states.filter <- 2
} else if (input.application == "qr") {
  states.fun <- qr_colors
  states.filter <- 2
} else if (input.application == "") {
  states.fun <- lu_colors
  states.filter <- 0
}

starvz_set_log(TRUE)

config <- NULL

if (!is.null(input.config)) {
  config <- input.config
}

data <- starvz_phase1(
  directory = input.directory,
  app_states_fun = states.fun,
  state_filter = states.filter,
  whichApplication = input.application,
  input.parquet = input.parquet,
  config = config
)