X-Git-Url: http://matita.cs.unibo.it/gitweb/?a=blobdiff_plain;f=helm%2Fsoftware%2Fmatita%2FmatitaInit.ml;fp=helm%2Fsoftware%2Fmatita%2FmatitaInit.ml;h=3291cbc330b5e41224302dc210a2fb3b341fbe55;hb=e950fb06ecbee032b204461475d47be44303bf91;hp=72792a56d1d58399d5c93b58f5fd08d02bfd2b9c;hpb=a8f4987a72bd7aa170eba664316a3832d6818570;p=helm.git

diff --git a/helm/software/matita/matitaInit.ml b/helm/software/matita/matitaInit.ml
index 72792a56d..3291cbc33 100644
--- a/helm/software/matita/matitaInit.ml
+++ b/helm/software/matita/matitaInit.ml
@@ -54,6 +54,7 @@ let registry_defaults = [
   "matita.do_heavy_checks",      "true";
   "matita.moo",                  "true";
   "matita.extract",              "false";
+  "matita.execcomments",         "false";
 ]
 
 let set_registry_values =
@@ -193,6 +194,7 @@ let parse_cmdline init_status =
       | _ -> raise (Failure "bad baseuri, use -b 'path::uri'")
     in
     let no_default_includes = ref false in
+    let execcomments = ref false in
     let arg_spec =
       let std_arg_spec = [
         "-b", Arg.String set_baseuri, "<path::uri> forces the baseuri of path";
@@ -220,6 +222,8 @@ let parse_cmdline init_status =
              ^ "\n    WARNING: not for the casual user");
         "-no-default-includes", Arg.Set no_default_includes,
           "Do not include the default searched paths for the include command"; 
+        "-execcomments", Arg.Set execcomments,
+          "Execute the content of (** ... *) comments";
 	"-v", 
           Arg.Unit (fun () -> Helm_registry.set_bool "matita.verbose" true), 
           "Verbose mode";
@@ -243,6 +247,7 @@ let parse_cmdline init_status =
       Helm_registry.set_list Helm_registry.of_string ~key ~value:l
     in
     Arg.parse arg_spec (add_l args) (usage ());
+    Helm_registry.set_bool ~key:"matita.execcomments" ~value:!execcomments;
     let default_includes = if !no_default_includes then [] else default_includes in
     let includes = 
       List.map (fun x -> HExtlib.normalize_path (absolutize x))