Skip to content
GitLab
Projects
Groups
Snippets
/
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
grew
libcaml-grew
Commits
6fe5403e
Commit
6fe5403e
authored
May 23, 2017
by
Bruno Guillaume
Browse files
more canonical dot output
parent
39cc192a
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/grew_graph.ml
View file @
6fe5403e
...
...
@@ -852,7 +852,7 @@ module G_graph = struct
bprintf
buff
"digraph G {
\n
"
;
(* bprintf buff " rankdir=LR;\n"; *)
bprintf
buff
" node [shape=none];
\n
"
;
(*
bprintf buff " node [shape=none];\n";
*)
(* nodes *)
Gid_map
.
iter
...
...
@@ -883,13 +883,13 @@ module G_graph = struct
(
fun
id
node
->
begin
match
G_node
.
get_succ
node
with
|
None
->
()
|
Some
s
when
!
Global
.
debug
->
bprintf
buff
" N_%s -> N_%s [label=
\"
SUCC
\"
, style=dotted, fontcolor=lightblue, color=lightblue]; {rank=same; N_%s; N_%s };
\n
"
(
Gid
.
to_string
id
)
(
Gid
.
to_string
s
)
(
Gid
.
to_string
id
)
(
Gid
.
to_string
s
)
|
Some
s
->
(*
| Some s ->
bprintf buff " N_%s -> N_%s [style=invis]; {rank=same; N_%s; N_%s };\n"
(
Gid
.
to_string
id
)
(
Gid
.
to_string
s
)
(
Gid
.
to_string
id
)
(
Gid
.
to_string
s
)
(Gid.to_string id) (Gid.to_string s) (Gid.to_string id) (Gid.to_string s) *)
|
_
->
()
end
)
graph
.
map
;
...
...
Write
Preview
Supports
Markdown
0%
Try again
or
attach a new file
.
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment