mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 11:15:31 -05:00
32 lines
656 B
OCaml
Executable file
32 lines
656 B
OCaml
Executable file
#!/usr/bin/env ocaml
|
|
|
|
(* note: this requires to generate documentation first, so that
|
|
.odoc files are generated *)
|
|
|
|
#use "topfind";;
|
|
#require "containers";;
|
|
#require "containers.io";;
|
|
#require "gen";;
|
|
#require "unix";;
|
|
|
|
let odoc_files =
|
|
CCIO.File.walk "_build"
|
|
|> Gen.filter_map
|
|
(function
|
|
| `File, f when CCString.suffix ~suf:".odoc" f -> Some f
|
|
| _ -> None
|
|
)
|
|
|> Gen.flat_map
|
|
(fun f -> Gen.of_list ["-load"; f])
|
|
|> Gen.to_list
|
|
;;
|
|
|
|
let out = "deps.dot";;
|
|
|
|
let cmd =
|
|
"ocamldoc -dot -o " ^ out ^ " " ^ String.concat " " odoc_files
|
|
;;
|
|
|
|
print_endline ("run: " ^ cmd);;
|
|
Unix.system cmd;;
|
|
print_endline ("output in " ^ out);;
|