]> matita.cs.unibo.it Git - helm.git/blobdiff - matita/matita/matitaInit.ml
update in basic_2 and static_2
[helm.git] / matita / matita / matitaInit.ml
index d4a47267faa8cbc2f79a488bbe33186957b6524e..2c2a818a27fa125be81cd7ccbc21730c55823150 100644 (file)
@@ -168,7 +168,8 @@ let parse_cmdline init_status =
     let includes = ref [] in
     let default_includes = [ 
       BuildTimeConf.new_stdlib_dir_devel;
-      BuildTimeConf.new_stdlib_dir_installed ; 
+    (* CSC: no installed standard library!
+      BuildTimeConf.new_stdlib_dir_installed ; *)
     ] 
     in
     let absolutize s =
@@ -198,6 +199,9 @@ let parse_cmdline init_status =
           (Printf.sprintf ("<filename> Read configuration from filename"
              ^^ "\n    Default: %s")
             BuildTimeConf.matita_conf);
+        "-extract_ocaml", 
+          Arg.Unit (fun () -> Helm_registry.set_bool "extract_ocaml" true),
+          "Extract ocaml code";
         "-force",
             Arg.Unit (fun () -> Helm_registry.set_bool "matita.force" true),
             ("Force actions that would not be executed per default");