.packageName <- "digest"

# $Id: digest.R,v 1.3 2005/03/15 04:27:29 edd Exp $

digest <- function(object, algo="md5", serialize=TRUE) {
  if (serialize)
    object <- serialize(object, NULL, TRUE) # turns object into ascii string
  else if (!is.character(object)) 
    stop("Argument object must be of type character if serialize is FALSE")

  if (is.character(algo)) {
    algoint <- switch(algo,
                      md5=1,
                      sha1=2,
                      crc32=3)
    val <- .Call("digest",
                 as.character(object),
                 as.integer(algoint),
                 PACKAGE="digest")
    return(val)
  } else {
    warning("The second argument must be of type character")
  }
}


# $Id: zzz.R,v 1.2 2004/05/27 01:43:40 edd Exp $
.First.lib <- function(lib, pkg) {
  library.dynam("digest", pkg, lib )
}

