src/Pure/System/isabelle_system.ML
changeset 73277 0110e2e2964c
parent 73275 f0db1e4c89bc
child 73279 37aff2142295
equal deleted inserted replaced
73276:54065cbf7134 73277:0110e2e2964c
    49          end
    49          end
    50       | _ => raise Fail "Malformed Isabelle/Scala result");
    50       | _ => raise Fail "Malformed Isabelle/Scala result");
    51 
    51 
    52 fun bash_output_check s =
    52 fun bash_output_check s =
    53   let val res = bash_process s in
    53   let val res = bash_process s in
    54     if Process_Result.ok res then trim_line (Process_Result.out res)
    54     if Process_Result.ok res then Process_Result.out res
    55     else error (trim_line (Process_Result.err res))
    55     else error (Process_Result.err res)
    56   end;
    56   end;
    57 
    57 
    58 fun bash_output s =
    58 fun bash_output s =
    59   let
    59   let
    60     val res = bash_process s;
    60     val res = bash_process s;
    61     val _ = warning (trim_line (Process_Result.err res));
    61     val _ = warning (Process_Result.err res);
    62   in (Process_Result.out res, Process_Result.rc res) end;
    62   in (Process_Result.out res, Process_Result.rc res) end;
    63 
    63 
    64 fun bash s =
    64 fun bash s =
    65   let
    65   let
    66     val (out, rc) = bash_output s;
    66     val (out, rc) = bash_output s;
    67     val _ = writeln (trim_line out);
    67     val _ = writeln out;
    68   in rc end;
    68   in rc end;
    69 
    69 
    70 
    70 
    71 (* bash functions *)
    71 (* bash functions *)
    72 
    72