Commit c1ecd2fd authored by Bruno Guillaume's avatar Bruno Guillaume
Browse files

adapt to lib: domain in graph

parent d23aeb6c
...@@ -56,10 +56,10 @@ let transform () = ...@@ -56,10 +56,10 @@ let transform () =
(fun index (id, gr) -> (fun index (id, gr) ->
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] -> fprintf out_ch "%s\n" (Graph.to_conll_string ?domain one) | [one] -> fprintf out_ch "%s\n" (Graph.to_conll_string one)
| l -> | l ->
List.iteri (fun i gr -> List.iteri (fun i gr ->
let conll = Graph.to_conll ?domain 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
......
Supports Markdown
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