lci/lib/cfg/Cfg.mli

module type PrintableType = sig
  type t
  val pp : out_channel -> t -> unit
  val pplist : out_channel -> t list -> unit
end

module Node : sig
  type t = {
    id: int
  }
  val compare : t -> t -> int
  val create : unit -> t
end

module NodeMap : sig
  include Map.S with type key = Node.t

  val add_to_list_last : key -> 'a -> 'a list t -> 'a list t
end

module NodeSet : Set.S with type elt = Node.t

module type C = sig
  type elt
  type t = {
    empty: bool;
    nodes: NodeSet.t;
    edges: (Node.t * (Node.t option)) NodeMap.t;
    reverseEdges: (Node.t list) NodeMap.t;
    inputVal: int option;
    inputOutputVar: (string * string) option;
    initial: Node.t option;
    terminal: Node.t option;
    content: elt list NodeMap.t
  }

  val empty : t
  val merge : t -> t -> Node.t -> Node.t -> t
  val concat : t -> t -> t
  val addToLastNode : elt -> t -> t

  val pp : out_channel -> t -> unit
end

module Make (M: PrintableType) : C with type elt = M.t