R/ostream.R

In doktorschiwago/Rllvm2: Interface to llvm for dynamically compiling native code.

rawFDOstream =
  # add a finalizer?
  # If so, have to ensure the container (e.g. formatted_raw_ostream)
  #  keeps a hold of it.
function(filename)
{
  f = path.expand(filename)
  .Call("R_new_raw_fd_ostream", f)
}

formattedRawOstream =
function(stream = character(), finalize = TRUE)
{
  if(is.character(stream)) {
    if(length(stream) && !is(stream, "AsIs"))
       stream = rawFDOstream(stream)
    else
       stream = rawStringOstream(stream)
  }

  ans = .Call("R_new_formatted_raw_ostream", stream)

  if(finalize)
       # could allow the caller to specify their own routine for the finalizer.
     .Call("R_setFinalizer_formatted_raw_ostream", ans@ref)
  
  ans
}

rawStringOstream =
function(value = "")
{
   .Call("R_new_raw_string_ostream", as.character(value))
}

setAs("raw_string_ostream", "character",
        function(from) {
#          flush(stream)
          .Call("R_raw_string_ostream_str", from)
        })


flush.formatted_raw_ostream =
function(con)
  .Call("R_flush_formatted_raw_ostream", con)