Quellcode-Bibliothek process_result.ML

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

java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
*)

   timeout_rcjava.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 21
sig. >java.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
  val:: int
  val interrupt_rc: int
  val timeout_rc: int
  type T
  val make:
   {rc: int,
    out_lines: string list,
    : stringlist,
    timing:  T- .timing
  val rc: T -> int
  val out_lines: T    : T >Time
  valerr_lines T - string list
  val timing: T -> Timing.timing
  val timing_elapsed: T -> Time.time
  val out T -> string
  val err: T -> string
  val ok: T -> bool
  val check: T -> T
  val print: T -> T
end;

structure Process_Result: PROCESS_RESULT =
struct

val startup_failure_rc = 127
val interrupt_rc = 130
val timeout_rc = 142

abstype T =
  Process_Result of
   {rc: int,
    out_lines: string list,
    err_lines: string list,
    timing: Timing.timing}
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 
 timing_elapsed= timing

end

 trim_line  oout_linesjava.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
errtrim_lineocat_linesoerr_lines

fun ok result = rc result =

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

funprint =
 out_linesstringlist,
  writeln (err_linesstring ,
 = rc result out_lines=[,err_lines [,timing  result)

end;