Commit a51d1f0f authored by bguillaum's avatar bguillaum

fix nodes ordering in conll output

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@7905 7838e531-6607-4d57-9587-6c381814729c
parent 93627df8
......@@ -716,8 +716,8 @@ module G_graph = struct
) graph.map Gid_map.empty in
let buff = Buffer.create 32 in
Gid_map.iter
(fun gid node ->
List.iter
(fun (gid, node) ->
let (govs,labs) = List.split (try Gid_map.find gid govs_labs with Not_found -> ["0","root"]) in
let fs = G_node.get_fs node in
bprintf buff "%d\t%s\t%s\t%s\t%s\t%s\t%s\t%s\t_\t_\n"
......@@ -730,7 +730,7 @@ module G_graph = struct
(String.concat "|" govs)
(String.concat "|" labs)
)
graph.map;
snodes;
Buffer.contents buff
end (* module G_graph *)
......
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