Commit 290c27c7 authored by bguillaum's avatar bguillaum

Fix Graph.to_det output

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@6571 7838e531-6607-4d57-9587-6c381814729c
parent 417bc01f
......@@ -91,13 +91,11 @@ module Feature_structure = struct
let fs =
Str.global_replace (Str.regexp_string "//PV//") ";"
(Str.global_replace (Str.regexp_string "//AND//") "&"
(Str.global_replace (Str.regexp_string "__") ":C:"
(List_.to_string string_of_feature "#"
(List.filter
(function Feature.Equal (f, _) | Feature.Different (f, _) when f=main -> false | _ -> true) t)
)
)
) in
(List_.to_string string_of_feature "#"
(List.filter
(function Feature.Equal (f, _) | Feature.Different (f, _) when f=main -> false | _ -> true) t)
)
) in
match fs with
| "" -> Printf.sprintf " word=\"%s\"; " wordform
| s -> Printf.sprintf " word=\"%s\"; subword=\"%s\"; " wordform s
......
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