R/utils.r

In heckendorfc/lldbR: LLDB API R Wrapper

is.badval <- function(x){
	is.na(x) || is.nan(x) || is.infinite(x)
}

is.inty <- function(x){
	abs(x - round(x)) < 1e-10
}

is.zero <- function(x){
	abs(x) < 1e-10
}

is.negative <- function(x){
	x < 0
}

is.annoying <- function(x){
	length(x) != 1 || is.badval(x)
}

is.string <- function(x){
	if (!is.character(x) || is.annoying(x))
		FALSE
	else
		TRUE
}

#' Character Splitter
#' 
#' A utility function that splits a string into a character vector suitable for
#' the args parameter of lldb.run
#'
#' @param x
#' string containing to be processed and split
#' 
#' @return
#' The string split into a character vector
#' 
#' @seealso \code{\link{lldb.run}}
#' 
#' @export
splitter <- function(x){
    x <- gsub(x, pattern="(\\t| +)", replacement=" ")
    x <- sub(pattern=" +$", replacement="", x=x)
    strsplit(x, split=" ")[[1]]
}

check.is.handle <- function(x){
	if (!identical(class(x), "lldb_handle")){
		nm <- deparse(substitute(x))
		stop(paste("argument", nm, "must be a proper lldb handle, as returned from lldb.load()"))
	}
}

check.is.string <- function(x){
	if (!is.string(x))	{
		nm <- deparse(substitute(x))
		stop(paste0("argument '", nm, "' must be a single string"), call.=FALSE)
	}
	invisible(TRUE)
}

check.is.string.or.null <- function(x){
	if (!is.null(x)){
		check.is.string(x);
	}
	invisible(TRUE)
}

check.is.int <- function(x){
	if (!is.numeric(x) || is.annoying(x) || !is.inty(x))	{
		nm <- deparse(substitute(x))
		stop(paste0("argument '", nm, "' must be an integer"), call.=FALSE)
	}
	invisible(TRUE)
}

check.is.natnum <- function(x){
	if (!is.numeric(x) || is.annoying(x) || !is.inty(x) || is.negative(x))	{
		nm <- deparse(substitute(x))
		stop(paste0("argument '", nm, "' must be a natural number (0 or positive integer)"), call.=FALSE)
	}
	invisible(TRUE)
}

check.is.posint <- function(x){
	if (!is.numeric(x) || is.annoying(x) || !is.inty(x) || is.negative(x) || is.zero(x)){
		nm <- deparse(substitute(x))
		stop(paste0("argument '", nm, "' must be a positive integer"), call.=FALSE)
	}
	invisible(TRUE)
}

check.is.flag <- function(x){
	if (!is.logical(x) || is.annoying(x)){
		nm <- deparse(substitute(x))
		stop(paste0("argument '", nm, "' must be TRUE or FALSE"), call.=FALSE)
	}
	invisible(TRUE)
}