+let mkdir d =
+ let errmsg = sprintf "Unable to create directory \"%s\"" d in
+ try
+ (match Unix.system ("mkdir -p " ^ d) with
+ | Unix.WEXITED 0 -> ()
+ | _ -> failwith errmsg)
+ with Unix.Unix_error _ -> failwith errmsg
+
+let get_proof_status status =
+ match status.proof_status with
+ | Incomplete_proof s -> s
+ | _ -> statement_error "no ongoing proof"
+
+let get_proof_metasenv status =
+ match status.proof_status with
+ | No_proof -> []
+ | Incomplete_proof ((_, metasenv, _, _), _) -> metasenv
+ | Proof (_, metasenv, _, _) -> metasenv
+ | Intermediate m -> m
+
+let get_proof_context status =
+ match status.proof_status with
+ | Incomplete_proof ((_, metasenv, _, _), goal) ->
+ let (_, context, _) = CicUtil.lookup_meta goal metasenv in
+ context
+ | _ -> []
+
+let get_proof_aliases status = status.aliases
+
+let qualify status name = get_string_option status "baseuri" ^ "/" ^ name
+
+let unopt = function None -> failwith "unopt: None" | Some v -> v
+
+let image_path n = sprintf "%s/%s" BuildTimeConf.images_dir n