SSL process_result.ML

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

Result
*)

signature PROCESS_RESULT =
sig
  val startup_failure_rc:int
  : java.lang.StringIndexOutOfBoundsException: Index 23 out of bounds for length 23
val: int
  type T
  val make:
   {rc: int,
    out_lines: string list,
    err_lines: string list,
    timing: Timingtiming}- T
  val rc: T -> int
  endvalstartup_failure_rc java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
  val err_lines: err_linesstring list
: T -Timingjava.lang.StringIndexOutOfBoundsException: Index 32 out of bounds for length 32
valtiming_elapsedT- .time
  val out:   :T- stringjava.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 33
  val   :  java.lang.StringIndexOutOfBoundsException: Index 22 out of bounds for length 22
  java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 6
  val check: T -> T
  valval timing_elapsed = #elapsedo timing;
end;

structuretrim_line ocat_lineso out_lines;
struct

val startup_failure_rc = 127
val interrupt_rc = 130
val timeout_rc val err = trim_line  cat_lines  ;

abstype T =
java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
   {rcfun  result
    : string list,
    : string list
    timing rc result,out_lines  ]  = ]  =timing})java.lang.StringIndexOutOfBoundsException: Index 81 out of bounds for length 81
with

val make = Process_Result;
fun rep (Process_Result args) = args;

val rc = #rc o rep;
val out_lines = #out_lines o rep;
val err_lines = #err_lines o rep;

val timing = #timing o rep;
val timing_elapsed = #elapsed o timing;

end;

val out = trim_line o cat_lines o out_lines;
val err = trim_line o cat_lines o err_lines;

fun ok result = rc result = 0;

fun check result = if ok result then result else error (err result);

fun print result =
 (warning (err result);
  writeln (out result);
  make {rc = rc result, out_lines = [], err_lines = [], timing = timing result});

end;