X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=matita%2Fmatitaprover.ml;h=d085b350c8db1b4d0df21f1d9d9e72596181ed71;hb=b4f01ec7efebc9569974026b6ad9d120f9a7c13f;hp=9ddef38e6a969c62ee6979e80f7a21f9f15805b6;hpb=7490e8f0ba68cce14a17e70abb416e3263e041f6;p=helm.git

diff --git a/matita/matitaprover.ml b/matita/matitaprover.ml
index 9ddef38e6..d085b350c 100644
--- a/matita/matitaprover.ml
+++ b/matita/matitaprover.ml
@@ -74,12 +74,23 @@ for @{ 'exists ${default
 "
 ;;
 
+let p_to_ma ?timeout ~tptppath ~filename () = 
+  let data = 
+     Tptp2grafite.tptp2grafite ?timeout ~filename ~tptppath:tptppath
+     ~raw_preamble ()
+  in
+  data
+;;
+
 let main () =
   MatitaInit.fill_registry ();
   let tptppath = ref "./" in
+  let timeout = ref 600 in
   MatitaInit.add_cmdline_spec
     ["-tptppath",Arg.String (fun s -> tptppath:= s),
-      "Where to find the Axioms/ and Problems/ directory"];
+       "Where to find the Axioms/ and Problems/ directory";
+     "-timeout", Arg.Int (fun x -> timeout := x),
+       "Timeout in seconds"];
   MatitaInit.parse_cmdline ();
   MatitaInit.load_configuration_file ();
   Helm_registry.set_bool "db.nodb" true;
@@ -92,8 +103,7 @@ let main () =
     | _ -> prerr_endline "You must specify exactly one .p file."; exit 1
   in
   let data = 
-     Tptp2grafite.tptp2grafite ~filename:inputfile ~tptppath:!tptppath
-     ~raw_preamble ()
+    p_to_ma ~timeout:!timeout ~filename:inputfile ~tptppath:!tptppath ()
   in
 (*   prerr_endline data; *)
   let is = Ulexing.from_utf8_string data in