equal
deleted
inserted
replaced
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 |