module Gml:Parser for GML file formatsig
..end
type
value =
| |
Int of |
| |
Float of |
| |
String of |
| |
List of |
typevalue_list =
(string * value) list
module Parse:functor (
B
:
Builder.S
) ->
functor (
L
:
sig
val node :Gml.value_list -> B.G.V.label
how to build the node label out of the set of GML attributes; for examplenode [ id 12 label "foo" ]will call this function with["id", Int 12; "label", String "foo"]
val edge :Gml.value_list -> B.G.E.label
how to build the edge label out of the set of GML attributes
end
) ->
sig
..end
module Print:functor (
G
:
sig
module V:sig
..end
module E:sig
..end
typet
val iter_vertex :(V.t -> unit) -> t -> unit
val iter_edges_e :(E.t -> unit) -> t -> unit
end
) ->
functor (
L
:
sig
val node :G.V.label -> Gml.value_list
val edge :G.E.label -> Gml.value_list
end
) ->
sig
..end