src/Pure/System/process_result.scala

more informative Build.build_results;
tuned signature;

/*  Title:      Pure/System/process_result.scala
    Author:     Makarius

Result of system process.
*/

package isabelle

final case class Process_Result(
  rc: Int,
  out_lines: List[String] = Nil,
  err_lines: List[String] = Nil,
  timeout: Option[Time] = None)
{
  def out: String = cat_lines(out_lines)
  def err: String = cat_lines(err_lines)

  def error(s: String, err_rc: Int = 0): Process_Result =
    copy(err_lines = err_lines ::: List(s), rc = rc max err_rc)

  def set_timeout(t: Time): Process_Result = copy(timeout = Some(t))

  def ok: Boolean = rc == 0
  def interrupted: Boolean = rc == Exn.Interrupt.return_code

  def check: Process_Result =
    if (ok) this
    else if (interrupted) throw Exn.Interrupt()
    else Library.error(err)

  def clear: Process_Result = copy(out_lines = Nil, err_lines = Nil)

  def print: Process_Result =
  {
    Output.warning(Library.trim_line(err))
    Output.writeln(Library.trim_line(out))
    clear
  }
}