Commit 17330549 authored by Bruno Guillaume's avatar Bruno Guillaume

version 2.34.1 Fix bug introduced with partial projections

parent d9fe87ea
2.34.0
\ No newline at end of file
2.34.1
\ No newline at end of file
......@@ -223,9 +223,11 @@ module Dep2pict = struct
(fun mwe_id mwe_item ->
let color = color_of_mwe mwe_item in
bprintf buff " MWE_%d -> N_%s { color=%s; bottom }\n" mwe_id (Conll.Id.to_dot (fst mwe_item.Mwe.first)) color;
match snd mwe_item.Mwe.first with
| None -> ()
| Some i -> bprintf buff " MWE_%d -> N_%s { label=\"%d\"; forecolor=%s; color=%s; style=dot; bottom }\n" mwe_id (Conll.Id.to_dot (fst mwe_item.Mwe.first)) i color color;
begin
match snd mwe_item.Mwe.first with
| None -> ()
| Some i -> bprintf buff " MWE_%d -> N_%s { label=\"%d\"; forecolor=%s; color=%s; style=dot; bottom }\n" mwe_id (Conll.Id.to_dot (fst mwe_item.Mwe.first)) i color color
end;
Id_with_proj_set.iter (
fun (conll_id,_) -> bprintf buff " MWE_%d -> N_%s { color=%s; bottom }\n" mwe_id (Conll.Id.to_dot conll_id) color;
......
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