remove html stuff

src/grew_args.ml

@@ -17,11 +17,6 @@ module Grew_args = struct
   type mode = Gui | Transform | Grep | Test
   let mode = ref Gui
 
-  type html_mode =
-    | No         (* only stat file is produced *)
-    | Html       (* html an png files are produced only when rewriting history is not empty *)
-    | Full_html  (* html an png files are always produced *)
-
   let grs = ref None
   let gui_doc = ref false
   let fullscreen = ref false
@@ -31,10 +26,7 @@ module Grew_args = struct
   let output_dir = ref None
   let output_file = ref None
   let strat = ref "main"
-  let no_init = ref false
   let quiet = ref false
-  let html = ref No
-  let dot = ref false
   let out_gr = ref false
   let out_conll = ref false
   let features = ref None
@@ -92,13 +84,9 @@ module Grew_args = struct
 
     (* options for corpus and cluster mode *)
     "-title", String (fun t -> title := Some t),               "                      set the title for the generated page of statistics";
-    "-html", Unit (fun () -> html := Html),         "                       generate html files for each rewritten sentence";
-    "-full_html", Unit (fun () -> html := Full_html),         "                  generate html files for each sentence of the corpus";
-    "-dot", Unit (fun () -> dot := true), "                        use dot to draw solutions, requires html of full_html (default is dep2pict)";
     "-q", Unit (fun () -> quiet := true), "                          do not print progression percent (for jenkins scripts)";
     "-out_gr",  Unit (fun () -> out_gr := true),         "                     generate gr output files for each rewriting normal form of the corpus";
-    "-out_conll",  Unit (fun () -> out_conll := true),         "                  generate conll output files for each rewriting normal form of the corpus";
-    "-no_init", Unit (fun () -> no_init := true), "                    do not display initial graph (requires html of full_html)\n\nOptions for grep mode";
+    "-out_conll",  Unit (fun () -> out_conll := true),         "                  generate conll output files for each rewriting normal form of the corpus\n\nOptions for grep mode";
 
     (* options for grep mode *)
     "-pattern",  String (fun t -> pattern := Some t),              "<file>              choose the pattern file";

src/grew_utils.ml

@@ -120,37 +120,6 @@ module List_ = struct
 
 end (* module List_ *)
 
-(* ================================================================================ *)
-module Html = struct
-  let build_header prev_opt next_opt =
-    match prev_opt, next_opt with
-      | None, None -> ""
-      | Some p, None -> sprintf "<a href=\"%s.html\">Previous</a>" p;
-      | None, Some n -> sprintf "<a href=\"%s.html\">Next</a>" n;
-      | Some p, Some n -> sprintf "<a href=\"%s.html\">Previous</a> -- <a href=\"%s.html\">Next</a>" p n
-
-
-  let write_error ?domain ?(header="") ~html ?init basename msg =
-    let stat_file = sprintf "%s.stat" basename in
-
-    let out_ch = open_out stat_file in
-    fprintf out_ch "ERROR\n";
-    fprintf out_ch "%s" msg;
-    close_out out_ch;
-
-    if html
-    then Rewrite.error_html
-      ?domain
-      ~no_init: !Grew_args.no_init
-      ?main_feat: !Grew_args.main_feat
-      ~dot: !Grew_args.dot
-      ~header
-      msg
-      ?init
-      basename
-end (* module Html *)
-
-
 (* ================================================================================ *)
 module Pdf = struct
   let dot_to_file dot output_file =