dput <- function(x, file = "", control = "showAttributes")
{
    if(is.character(file))
        if(nchar(file) > 0) {
            file <- file(file, "wt")
            on.exit(close(file))
        } else file <- stdout()
    opts <- .deparseOpts(control)
    .Internal(dput(x, file, opts))
}

dget <- function(file)
    eval(parse(file = file))