equal
deleted
inserted
replaced
77 val out_path = Path.ext "smt_out" base_path |
77 val out_path = Path.ext "smt_out" base_path |
78 in Cache_IO.raw_run mk_cmd input in_path out_path end |
78 in Cache_IO.raw_run mk_cmd input in_path out_path end |
79 | SOME certs => |
79 | SOME certs => |
80 (case Cache_IO.lookup certs input of |
80 (case Cache_IO.lookup certs input of |
81 (NONE, key) => |
81 (NONE, key) => |
82 if Config.get ctxt SMT_Config.fixed then |
82 if Config.get ctxt SMT_Config.read_only_certificates then |
83 error ("Bad certificates cache: missing certificate") |
83 error ("Bad certificate cache: missing certificate") |
84 else |
84 else |
85 Cache_IO.run_and_cache certs key mk_cmd input |
85 Cache_IO.run_and_cache certs key mk_cmd input |
86 | (SOME output, _) => |
86 | (SOME output, _) => |
87 trace_and ctxt ("Using cached certificate from " ^ |
87 trace_and ctxt ("Using cached certificate from " ^ |
88 File.shell_path (Cache_IO.cache_path_of certs) ^ " ...") |
88 File.shell_path (Cache_IO.cache_path_of certs) ^ " ...") |