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 ...@@ -91,13 +91,11 @@ module Feature_structure = struct
let fs = let fs =
Str.global_replace (Str.regexp_string "//PV//") ";" Str.global_replace (Str.regexp_string "//PV//") ";"
(Str.global_replace (Str.regexp_string "//AND//") "&" (Str.global_replace (Str.regexp_string "//AND//") "&"
(Str.global_replace (Str.regexp_string "__") ":C:" (List_.to_string string_of_feature "#"
(List_.to_string string_of_feature "#" (List.filter
(List.filter (function Feature.Equal (f, _) | Feature.Different (f, _) when f=main -> false | _ -> true) t)
(function Feature.Equal (f, _) | Feature.Different (f, _) when f=main -> false | _ -> true) t) )
) ) in
)
) in
match fs with match fs with
| "" -> Printf.sprintf " word=\"%s\"; " wordform | "" -> Printf.sprintf " word=\"%s\"; " wordform
| s -> Printf.sprintf " word=\"%s\"; subword=\"%s\"; " wordform s | 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