Commit 417bc01f authored by pj2m's avatar pj2m

try to fix bug in corpus and cluster mode

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@6511 7838e531-6607-4d57-9587-6c381814729c
parent c2561923
......@@ -60,7 +60,7 @@ IFDEF DEP2PICT THEN
loop true ([],[]) t;
List.rev !nfs
let save_html ?main_feat ?(init_graph=true) ?header prefix t =
let save_html ?main_feat ?(init_graph=true) ?header prefix number t =
let stats = ref [] in
......@@ -77,7 +77,7 @@ IFDEF DEP2PICT THEN
(* All normal forms view *)
let html_ch = open_out (sprintf "%s.html" prefix) in
let title = sprintf "Sentence: %s --- %d Normal form%s" local l (if l>1 then "s" else "") in
let title = sprintf "Sentence %d : %s --- %d Normal form%s" number local l (if l>1 then "s" else "") in
let () = Html.enter html_ch ~title ?header prefix in
if init_graph
......
......@@ -10,7 +10,7 @@ module Rewrite_history: sig
}
IFDEF DEP2PICT THEN
val save_html: ?main_feat:string -> ?init_graph:bool -> ?header:string -> string -> t -> (string*string list) list
val save_html: ?main_feat:string -> ?init_graph:bool -> ?header:string -> string -> int -> t -> (string*string list) list
ENDIF
end
......
......@@ -99,7 +99,7 @@ let rewrite_to_html_intern ?(no_init=false) ?main_feat grs_file grs seq input ou
Printf.bprintf buff "%s\n" head;
Printf.bprintf buff "<b>GRS file</b>: <a href=\"%s\">%s</a></h2><br/>\n" (Filename.basename grs_file) (Filename.basename grs_file);
Printf.bprintf buff "<b>GRS file</b>: <a href=\"file://%s\">%s</a></h2><br/>\n" (Filename.basename grs_file) (Filename.basename grs_file);
Printf.bprintf buff "<b>Input file</b>: <a href=\"%s\">%s</a></h2>\n" (Filename.basename input) (Filename.basename input);
ignore(Sys.command(Printf.sprintf "cp %s %s" input (Filename.concat (Filename.dirname output) (Filename.basename input))));
......@@ -110,8 +110,8 @@ let rewrite_to_html_intern ?(no_init=false) ?main_feat grs_file grs seq input ou
(* let _ = Grs.build_rew_display grs seq init in *)
let stats =
if no_init
then Some (Rewrite_history.save_html ?main_feat ~init_graph:false ~header:(Buffer.contents buff) output rew_hist)
else Some (Rewrite_history.save_html ?main_feat ~header:(Buffer.contents buff) output rew_hist) in
then Some (Rewrite_history.save_html ?main_feat ~init_graph:false ~header:(Buffer.contents buff) output nb_sentence rew_hist)
else Some (Rewrite_history.save_html ?main_feat ~header:(Buffer.contents buff) output nb_sentence rew_hist) in
stats
with
| Utils.Run (msg, Some (loc_file,loc_line)) ->
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment