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

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)
* /!\ change output of grep command (see http://grew.fr/run#grep-mode)
* remove Pervasives deprecated ocaml lib
......
......@@ -64,12 +64,13 @@ let transform () =
Counter.print index len id;
match Rewrite.simple_rewrite ~gr ~grs ~strat:!Grew_args.strat with
| [one] -> out_graph one
| l ->
| l when !Grew_args.output = Grew_args.Conll || !Grew_args.output = Grew_args.Cupt ->
List.iteri (fun i gr ->
let conll = Graph.to_conll gr 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)
) l
| l -> List.iter out_graph l
) graph_array;
Counter.finish ();
match !Grew_args.output_file with
......@@ -77,6 +78,7 @@ let transform () =
| None -> ()
) ()
(* -------------------------------------------------------------------------------- *)
let grep () = handle
(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