R/countfreelists.R

In seqinr: Biological Sequences Retrieval and Analysis

# ==>   countfreelists
# <==  code=xx&free=xx&annotlines="xx"
# Returns the number of free lists available.
# code: 0 iff OK
# free: number of free lists available
# annotlines: list of names of annotation lines in the opened database separated by |

countfreelists <- function(socket = autosocket()){
  writeLines("countfreelists", socket, sep = "\n")
  answerFromServer <- readLines(socket, n = 1)
  #
  # Check that there is an answer from server:
  #
  if(length(answerFromServer) == 0){
    warning("Empty answer from server")
    return(NA)
  }
  #
  # Build result:
  #
  resitem <- parser.socket(answerFromServer)
  if(resitem[1] != "0"){
    stop(paste("error code returned by server :", resitem[1]))
  }
  free <- as.numeric(resitem[2])
  tmp <- substr(resitem[3], 2, nchar(resitem[3]) - 1)
  annotlines <- unlist(strsplit(tmp, split = "|", fixed = TRUE))
  return(list(free = free, annotlines = annotlines))
}

cfl <- countfreelists