From fa284649ccbac07d9f7c5d6bd329c8ad38f2b93e Mon Sep 17 00:00:00 2001
From: Claudio Sacerdoti Coen <claudio.sacerdoticoen@unibo.it>
Date: Mon, 4 Feb 2013 17:38:31 +0000
Subject: [PATCH] New option -extract_ocaml to extract to ocaml files.

---
 matita/matita/matitaInit.ml | 3 +++
 1 file changed, 3 insertions(+)

diff --git a/matita/matita/matitaInit.ml b/matita/matita/matitaInit.ml
index 7658e7ab8..2c2a818a2 100644
--- a/matita/matita/matitaInit.ml
+++ b/matita/matita/matitaInit.ml
@@ -199,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");
-- 
2.39.2