type t = { buffer : Buffer.t ; formatter : Format.formatter }

let buffer eformat = eformat.buffer
let formatter eformat = eformat.formatter

let make buffer formatter = { buffer ; formatter }

let create () =
  let buffer = Buffer.create 512 in
  let formatter = Format.formatter_of_buffer buffer in
  make buffer formatter

let printf eformat = Format.fprintf (formatter eformat)

let get eformat =
  printf eformat "@?" ;
  Buffer.contents (buffer eformat)