equal
deleted
inserted
replaced
43 val (out2, rc) = bash_output (make_cmd in_path out_path) |
43 val (out2, rc) = bash_output (make_cmd in_path out_path) |
44 val out1 = the_default [] (try (rev o File.fold_lines cons out_path) []) |
44 val out1 = the_default [] (try (rev o File.fold_lines cons out_path) []) |
45 in {output=split_lines out2, redirected_output=out1, return_code=rc} end |
45 in {output=split_lines out2, redirected_output=out1, return_code=rc} end |
46 |
46 |
47 fun run make_cmd str = |
47 fun run make_cmd str = |
48 Isabelle_System.with_tmp_file cache_io_prefix (fn in_path => |
48 Isabelle_System.with_tmp_file cache_io_prefix "" (fn in_path => |
49 Isabelle_System.with_tmp_file cache_io_prefix (fn out_path => |
49 Isabelle_System.with_tmp_file cache_io_prefix "" (fn out_path => |
50 raw_run make_cmd str in_path out_path)) |
50 raw_run make_cmd str in_path out_path)) |
51 |
51 |
52 |
52 |
53 (* cache *) |
53 (* cache *) |
54 |
54 |