let create w logfile =
    let outc = open_out logfile in
    let fmt = Format.formatter_of_out_channel outc in
    {
      logid = w.po_gid ;
      logout = outc ;
      logfmt = fmt ;
      logcmd = None ;
      files = [] ;
    }