R/parser.socket.R

In seqinr: Biological Sequences Retrieval and Analysis

###############################################################################
#                                                                             #
#                             parser.socket                                   #
#                                                                             #
#          Utility function to parse answers from ACNUC server.               #
#                                                                             #
###############################################################################

parser.socket <- function(onelinefromserver, verbose = FALSE)
{
    if(verbose) cat(paste("parser.socket received: -->",
                          onelinefromserver,"<--\n", sep = ""))
    if(length(onelinefromserver) == 0){
        if(verbose) cat("character(0) detected returning NULL\n")
        return(NULL)
    }
    if(is.null(onelinefromserver)){
        if(verbose) cat("NULL detected returning NULL\n")
        return(NULL)
    }
    #
    # Answer from server looks like: "code=0&lrank=2&count=150513&type=SQ&locus=F"
    # 
    loc <- gregexpr("=[^=&]*", onelinefromserver)[[1]]
    substring(onelinefromserver, loc + 1, loc + attr(loc, "match.length") - 1)
}