+;;
+
+let success_msg bag l (pp : ?margin:int -> leaf Terms.unit_clause -> string) =
+ print_endline ("% SZS status Unsatisfiable for " ^
+ Filename.basename !problem_file);
+ print_endline ("% SZS output start CNFRefutation for " ^
+ Filename.basename !problem_file);
+ flush stdout;
+ List.iter (fun x ->
+ let (cl,_,_) = Terms.get_from_bag x bag in
+ print_endline (pp ~margin:max_int
+ cl)) l;
+ print_endline ("% SZS output end CNFRefutation for " ^
+ Filename.basename !problem_file)
+;;
+
+let start_msg passives g_passives (pp : leaf Terms.unit_clause -> string) =
+ let prefix = string_of_int (Unix.getpid ()) in
+ let prerr_endline s = prerr_endline (prefix ^ ": " ^ s) in
+ prerr_endline "Facts:";
+ List.iter (fun x -> prerr_endline (" " ^ pp x)) passives;
+ prerr_endline "Goal:";
+ prerr_endline (" " ^ pp g_passives);
+ prerr_endline "Order:";
+ prerr_endline " ...fixme...";
+ prerr_endline "Strategy:";
+ prerr_endline " ...fixme...";
+;;
+
+let report_error s = prerr_endline (string_of_int (Unix.getpid())^": "^s);;
+
+module Main(C:LeafComparer) = struct
+ let main goal hypotheses =
+ let module B = MakeBlob(C) in
+ let module Pp = Pp.Pp(B) in
+ let module P = Paramod.Paramod(B) in
+ let bag = Terms.empty_bag, 0 in
+ let bag, g_passives = P.mk_goal bag goal in
+ let bag, passives =
+ HExtlib.list_mapi_acc (fun x _ b -> P.mk_passive b x) bag hypotheses
+ in
+ start_msg passives g_passives Pp.pp_unit_clause;
+ match
+ P.paramod
+ ~max_steps:max_int bag ~g_passives:[g_passives] ~passives
+ with
+ | P.Error s -> report_error s; 3
+ | P.Unsatisfiable ((bag,_,l)::_) ->
+ success_msg bag l Pp.pp_unit_clause; 0
+ | P.Unsatisfiable ([]) ->
+ report_error "Unsatisfiable but no solution output"; 3
+ | P.GaveUp -> 2
+ | P.Timeout _ -> 1
+ ;;
+end
+
+let print_status p =
+ let print_endline s = prerr_endline (string_of_int p ^ ": " ^ s) in
+ function
+ | Unix.WEXITED 0 ->
+ print_endline ("status Unsatisfiable for " ^
+ Filename.basename !problem_file);
+ | Unix.WEXITED 1 ->
+ print_endline ("status Timeout for " ^
+ Filename.basename !problem_file);
+ | Unix.WEXITED 2 ->
+ print_endline ("status GaveUp for " ^
+ Filename.basename !problem_file);
+ | Unix.WEXITED 3 ->
+ print_endline ("status Error for " ^
+ Filename.basename !problem_file);
+ | Unix.WEXITED _ -> assert false
+ | Unix.WSIGNALED s -> print_endline ("killed by signal " ^ string_of_int s)
+ | Unix.WSTOPPED _ -> print_endline "stopped"
+ ;;
+
+let killall l =
+ List.iter (fun pid -> try Unix.kill pid 9 with _ -> ()) l
+;;
+
+let main () =
+ let childs = ref [] in
+ let _ =
+ Sys.signal 24 (Sys.Signal_handle
+ (fun _ -> fail_msg (); killall !childs; exit 1))