76 lines
2.4 KiB
OCaml
76 lines
2.4 KiB
OCaml
open Import
|
|
|
|
let doc = "Print out libraries installed on the system."
|
|
let info = Cmd.info "installed-libraries" ~doc
|
|
|
|
let term =
|
|
let+ builder = Common.Builder.term
|
|
and+ na =
|
|
Arg.(
|
|
value
|
|
& flag
|
|
& info
|
|
[ "na"; "not-available" ]
|
|
~doc:"List libraries that are not available and explain why")
|
|
in
|
|
let common, config = Common.init builder in
|
|
Scheduler.go_with_rpc_server
|
|
~common
|
|
~config
|
|
(let run () =
|
|
let open Memo.O in
|
|
let* ctxs = Context.DB.all () in
|
|
let ctx = List.hd ctxs in
|
|
let* findlib = Findlib.create (Context.name ctx) in
|
|
let* all_packages = Findlib.all_packages findlib in
|
|
if na
|
|
then (
|
|
let+ broken =
|
|
Findlib.all_broken_packages findlib
|
|
>>| List.map ~f:(fun (name, _) ->
|
|
Lib_name.of_package_name name, "invalid dune file")
|
|
in
|
|
let hidden =
|
|
List.filter_map all_packages ~f:(function
|
|
| Hidden_library lib ->
|
|
Some
|
|
( Dune_package.Lib.info lib |> Dune_rules.Lib_info.name
|
|
, "unsatisfied 'exists_if'" )
|
|
| _ -> None)
|
|
in
|
|
let all =
|
|
List.sort (broken @ hidden) ~compare:(fun (a, _) (b, _) ->
|
|
Lib_name.compare a b)
|
|
in
|
|
let longest = String.longest_map all ~f:(fun (n, _) -> Lib_name.to_string n) in
|
|
let ppf = Format.std_formatter in
|
|
List.iter all ~f:(fun (n, r) ->
|
|
Format.fprintf ppf "%-*s -> %s@\n" longest (Lib_name.to_string n) r);
|
|
Format.pp_print_flush ppf ())
|
|
else (
|
|
let pkgs =
|
|
List.filter all_packages ~f:(function
|
|
| Dune_package.Entry.Hidden_library _ -> false
|
|
| _ -> true)
|
|
in
|
|
let max_len =
|
|
String.longest_map pkgs ~f:(fun e ->
|
|
Lib_name.to_string (Dune_package.Entry.name e))
|
|
in
|
|
List.iter pkgs ~f:(fun e ->
|
|
let ver_string =
|
|
match Dune_package.Entry.version e with
|
|
| Some v -> Package_version.to_string v
|
|
| _ -> "n/a"
|
|
in
|
|
Printf.printf
|
|
"%-*s (version: %s)\n"
|
|
max_len
|
|
(Lib_name.to_string (Dune_package.Entry.name e))
|
|
ver_string);
|
|
Memo.return ())
|
|
in
|
|
fun () -> Memo.run (run ()))
|
|
;;
|
|
|
|
let command = Cmd.v info term
|