Note:

You are viewing a development version of the library. Goto the latest version.

let add_edge t v1 v2 =
  let size = Array.length t.vertexes in
    if 0 <= v1 && v1 < size &&
       0 <= v2 && v2 < size then
      begin
        let _, edges = t.vertexes.(v1) in
          edges := SetInt.add v2 !edges
      end
    else
      invalid_arg "add_edge"