Commit 5b8229b7 authored by bguillaum's avatar bguillaum

fricor initialization

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@6974 7838e531-6607-4d57-9587-6c381814729c
parent 2fcfd051
...@@ -149,7 +149,7 @@ module G_fs = struct ...@@ -149,7 +149,7 @@ module G_fs = struct
let to_dot ?main_feat t = let to_dot ?main_feat t =
match get_main ?main_feat t with match get_main ?main_feat t with
| (None, _) -> List_.to_string G_feature.to_dot "\\n" t | (None, _) -> List_.to_string G_feature.to_dot "\\n" t
| (Some atom, sub) -> sprintf "%s|%s" atom (List_.to_string G_feature.to_dot "\\n" sub) | (Some atom, sub) -> sprintf "{%s|%s}" atom (List_.to_string G_feature.to_dot "\\n" sub)
let to_dep ?main_feat t = let to_dep ?main_feat t =
let (main_opt, sub) = get_main ?main_feat t in let (main_opt, sub) = get_main ?main_feat t in
......
...@@ -494,7 +494,7 @@ module G_graph = struct ...@@ -494,7 +494,7 @@ module G_graph = struct
let buff = Buffer.create 32 in let buff = Buffer.create 32 in
bprintf buff "digraph G {\n"; bprintf buff "digraph G {\n";
bprintf buff " rankdir=LR;\n"; (* bprintf buff " rankdir=LR;\n"; *)
bprintf buff " node [shape=Mrecord];\n"; bprintf buff " node [shape=Mrecord];\n";
(* list of the nodes *) (* list of the nodes *)
......
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