Commit 3fd2b0b0 authored by Bruno Guillaume's avatar Bruno Guillaume
Browse files

version 1.3.2

parent 6a146c82
## 1.3.2 (2020/05/07)
* fix multiple graph output with "-gr" option
## 1.3.1 (2020/01/18) ## 1.3.1 (2020/01/18)
* /!\ change output of grep command (see http://grew.fr/run#grep-mode) * /!\ change output of grep command (see http://grew.fr/run#grep-mode)
* remove Pervasives deprecated ocaml lib * remove Pervasives deprecated ocaml lib
......
...@@ -64,12 +64,13 @@ let transform () = ...@@ -64,12 +64,13 @@ let transform () =
Counter.print index len id; Counter.print index len id;
match Rewrite.simple_rewrite ~gr ~grs ~strat:!Grew_args.strat with match Rewrite.simple_rewrite ~gr ~grs ~strat:!Grew_args.strat with
| [one] -> out_graph one | [one] -> out_graph one
| l -> | l when !Grew_args.output = Grew_args.Conll || !Grew_args.output = Grew_args.Cupt ->
List.iteri (fun i gr -> List.iteri (fun i gr ->
let conll = Graph.to_conll gr in let conll = Graph.to_conll gr in
let conll_new_id = Conll.set_sentid (sprintf "%s_%d" id i) conll in let conll_new_id = Conll.set_sentid (sprintf "%s_%d" id i) conll in
fprintf out_ch "%s\n" (Conll.to_string conll_new_id) fprintf out_ch "%s\n" (Conll.to_string conll_new_id)
) l ) l
| l -> List.iter out_graph l
) graph_array; ) graph_array;
Counter.finish (); Counter.finish ();
match !Grew_args.output_file with match !Grew_args.output_file with
...@@ -77,6 +78,7 @@ let transform () = ...@@ -77,6 +78,7 @@ let transform () =
| None -> () | None -> ()
) () ) ()
(* -------------------------------------------------------------------------------- *) (* -------------------------------------------------------------------------------- *)
let grep () = handle let grep () = handle
(fun () -> (fun () ->
......
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