mirror of
https://github.com/c-cube/ocaml-containers.git
synced 2025-12-06 03:05:28 -05:00
26 lines
495 B
OCaml
Executable file
26 lines
495 B
OCaml
Executable file
#!/usr/bin/env ocaml
|
|
|
|
#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 cmd =
|
|
"ocamldoc -dot -o deps.dot " ^ String.concat " " odoc_files
|
|
;;
|
|
|
|
print_endline ("run: " ^ cmd);;
|
|
Unix.system cmd;;
|