#' Get file basename and remove .CEL extension
#'
#' Functions as \code{\link{basename}} but also remove any \code{.CEL}
#' or \code{.CEL.gz} extension. The function is not case sensitive of toward
#' the extension.
#'
#' @param x A \code{character} vector of filenames and possibly with path.
#' @return A \code{character} vector of the same length as \code{x} with the
#'   file basename without the path and \code{.CEL} extension.
#' @seealso \code{\link{basename}}
#' @examples
#' x <- c("C:/test/mycelfile.cel", "myothercelfile.cel")
#' basenameSansCEL(x)
#' @export
basenameSansCEL <- function(x) {
  return(gsub("\\.cel$|\\.cel.gz$", "", basename(x), ignore.case = TRUE))
}

getAffyTargets <- function() {
  message("Many 'older' arrays don't use targets.")
  return(c("core", "full", "probesets"))
}

gpl2affy <- function(gpl) {
  affy <- gpl
  affy <- gsub("GPL570", "hgu133plus2", affy)
  affy <- gsub("GPL96", "hgu133a", affy)
  affy <- gsub("GPL97", "hgu133b", affy)
  affy <- gsub("GPL5175", "huex10st", affy)
  affy <- gsub("GPL5175", "huex10st", affy)
  affy <- gsub("GPL6244", "hugene10st", affy)
  return(affy)
}