Module Gml

module Gml: sig .. end

type value_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 example 
node [ 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
type t 

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