parseBackUpFile.pre_20140827 <- function(fileString, MayContainPath=TRUE, sep="-", info.sep="\\+", info.maxchar=40, fsep=.Platform$file.sep, pat.time="^(\\d{8}_\\d{4,6})$") {
# sep:  what string pattern sepearates the object infos

  ## Pattern for the dim Info - it will either be 9999x99  or 999_len
  pat.dim <- "\\d{1,}(x\\d{1,}|\\d{1,}_len)"
  # update, why not:  "\\d{1,}(x\\d{1,}|_len)"

  ## ERROR CHECK
  ## --------------------
  # only one at a time
  if (!length(fileString) == 1L)
    stop ("Only one file at a time. (ie, fileString must have length 1)")
  # only basename
  if (fileString != basename(fileString))  ## this COULD be a warning, however, this error is probably indicative of a bug upstream.
    stop ("fileString is not the basename of the file")
  ## --------------------

  # take just the file name
  if (MayContainPath) {
    fileString <- sapply(strsplit(fileString, fsep), tail, 1L)  
  }
  
  splat <- strsplit(fileString, sep)[[1]]
  ln <- length(splat)

  if (!(ln>=1)) {
    stop ("Something is not write. Executing\n   strsplit(", fileString, ", \"", sep, "\")\nreturned no result.")
  }

  # sep for file extension
  sep.ext <- "\\."
  # if sep.ext is not found, manually add a blank value
  # Dont try to split and assign, becuase original value will be recycled
  splat[ln + (0:1)] <- {
    if (!grepl(sep.ext, splat[[ln]]))
      c(splat[[ln]], "")
    else
      splitOnLast(string=splat[[ln]], splitOn=sep.ext) [[1L]]
   }

   ## Split the object name based on info.sep
     ## Splice out info
     NameAndInfo <- strsplit(splat[[1]], info.sep)[[1L]]
     
     ## Check for too few or too many words resulting from the split on info.sep
     L <- length(NameAndInfo)
     if (L == 1L)
        NameAndInfo <- c(NameAndInfo, "")
     if (L > 2L) {
        warning(sprintf("More than one '%s' sep in filename:  '%s'\n", info.sep, fileString))
        NameAndInfo <- c(paste(NameAndInfo[1:(L-1)], collapse="+"), NameAndInfo[L])
     }

     ## Put it back into splat
#    if (L == 2L) {
#      NameAndInfo[[2L]] <- cropStringTo(NameAndInfo[[2L]], info.maxchar)
#      splat[[1]] <- sprintf("%s  (%s)", NameAndInfo[[1L]], gsub("_", " ", NameAndInfo[[2L]]) )
#     }
     splat <- c(NameAndInfo, splat[-1L])
   ## End- Split the object name based on info.sep


  # identify which column is which
  nameCol <- 1L
  infoCol <- 2L
  timeCol <- which(grepl(pat.time, splat))
  dimCol  <- which(grepl(pat.dim, splat))
  extCol  <- length(splat)

  ## Debugging
  browser(expr=inDebugMode("jesus", skip="parseBackUpFile"), text="In parseBackUpFile().\n\nCheck Forthcoming AllCols,\n\t and the different logical branches.")

  ## 'Allcols': is the collection of integers, representing all possible pieces of informaiton 
  ##     that might be in the file name. 
  ## 'nms': are the column names for the final output table. 
  ##        Since some of the parts composing AllCols might be missing, we need
  ##        to filter out 'AllCols' accordingly.
  ##        eg: c("obj", "info", "time" , "dims", "ext")
  ##
  ## Note that if any of the 'which(grepl(..))' calls above did not find a match
  ## then when c(..)'d  into AllCols, it simply will not be included
  ## this leaving AllCols with a slightly shorter length than expected
  AllCols <- c(nameCol, infoCol, timeCol, dimCol, extCol)
  nms  <- c("obj", "info", if (length(timeCol)) "time" , if (length(dimCol)) "dims", "ext")

  ## if the lengths match, then all columns are present as expected, with no surprises
  if (length(AllCols) == length(splat)) {
    ret <- setNames(splat[AllCols], nms)
  ## Otherwise...
  } else  {
    ## There are two non-exclusive possibilities to account for
    ## (1) Some expected column not found
    ## (2) Superfluous Column exist in splat

    ## Start with (1).  
    ##   We check if there were no matches for 
    ##       timeCol & dimCol, which were calculated above
    ##   Add in blanks, then recalculate AllCols
    if (!length(timeCol)) {
      splat   <- c(splat, "")
      timeCol <- length(splat)
    }
    if (!length(dimCol)) {
      splat  <- c(splat, "")
      dimCol <- length(splat)
    }
    
    ### TODO:  ehhh... why am I using this line? 
    # recalculate AllCols
    ### SKIPPING THIS LINE
    #### AllCols <- c(nameCol, infoCol, timeCol, dimCol, extCol)
    # Add in any superfluous cols
    cols.missing <- setdiff(seq_along(splat), AllCols)
    AllCols      <- c(AllCols, cols.missing)

    ret <- setNames(splat[AllCols], nms)
    NA.nms <- is.na(names(ret))
    if (any(NA.nms))
      names(ret)[NA.nms] <- paste0("Addl", seq(sum(NA.nms)))
  }

  ## older files may not 
  if (!"dims" %in% names(ret))
    ret[["dims"]] <- " x "

  ret[["dims"]] <- gsub("\\!", "", ret[["dims"]])
  ret[c("rows", "cols")] <- strsplit(ret[["dims"]], "x|_") [[1]]

  # ret[["dims"]] <- 
  #   gsub("x", " x ",
  #     gsub("_len", " (len)", 
  #        gsub("\\!", "", 
  #         ret[["dims"]]
  #         )))

  return(ret[names(ret)!= "dims"])
}