opam-graph/app/main.ml

let read_file file =
  try
    let fh = open_in file in
    try
      let content = really_input_string fh (in_channel_length fh) in
      close_in_noerr fh ;
      content
    with _ ->
      close_in_noerr fh;
      invalid_arg ("Error reading file: " ^ file)
  with _ -> invalid_arg ("Error opening file " ^ file)

let () =
  match Sys.argv with
  | [| _ ; output_format; file |] -> (
    let switch = read_file file in
    let data = OpamFile.SwitchExport.read_from_string switch in
    match output_format with
    | "text" ->
      let graph = Opam_graph.dependencies data in
      Format.printf "%a" Opam_graph.pp_graph graph
    | "text_transitive" ->
      let graph = Opam_graph.dependencies ~transitive:true data in
      Format.printf "%a" Opam_graph.pp_graph graph
    | "dot" ->
      let graph = Opam_graph.dependencies data in
      let dot = Opam_graph.Render.Dot.of_graph graph in
      Format.printf "%a" Opam_graph.Render.Dot.pp dot
    | "dot_ui" ->
      let transitive = false in
      let graph = Opam_graph.Ui.dependencies ~transitive data in
      let dot = Opam_graph.Render.Dot.of_assoc graph in
      Format.printf "%a" Opam_graph.Render.Dot.pp dot
    | "dot_ui_transitive" ->
      let transitive = true in
      let graph = Opam_graph.Ui.dependencies ~transitive data in
      let dot = Opam_graph.Render.Dot.of_assoc graph in
      Format.printf "%a" Opam_graph.Render.Dot.pp dot
    | "html_ui" ->
      let transitive = false in
      let graph = Opam_graph.Ui.dependencies ~transitive data in
      let html = Opam_graph.Render.Html.of_assoc graph in
      Format.printf "%a" Opam_graph.Render.Html.pp html
    | "html_ui_transitive" ->
      let transitive = true in
      let graph = Opam_graph.Ui.dependencies ~transitive data in
      let html = Opam_graph.Render.Html.of_assoc graph in
      Format.printf "%a" Opam_graph.Render.Html.pp html
    | _ -> failwith "Unsupported output format"
  )
  | _ ->
    print_endline "expecting exactly one argument";
    exit 1