Up
module
Dot
:
sig
#
type
size = float * float
#
type
orientation =
#
| Portrait
#
| Landscape
#
type
rankdir =
#
| LeftToRight
#
| TopToBottom
#
type
ratio =
#
| Compress
#
| Fill
#
| Auto
#
type
style =
#
| Solid
#
| Dashed
#
| Dotted
#
| Bold
#
| Invisible
#
| Filled
#
| Diagonals
#
| Rounded
#
module
Print :
functor
(G :
sig
#
type
vertex
#
val
name :
vertex
->
string
#
val
successors : (?style:
style
->
label:string
->
vertex
->
unit)
->
vertex
->
unit
#
val
iter : (?style:
style
->
label:string
->
vertex
->
unit)
->
unit
end
)
->
sig
#
val
print : ?directed:bool
->
?size:
size
->
?orientation:
orientation
->
?rankdir:
rankdir
->
?ratio:
ratio
->
Pervasives
.
out_channel
->
unit
end
end