simple query
This commit is contained in:
parent
567dac033f
commit
b95fe287cf
13
src/main.ml
13
src/main.ml
|
@ -3,7 +3,18 @@ open Import
|
||||||
let internal argv =
|
let internal argv =
|
||||||
match Array.to_list argv with
|
match Array.to_list argv with
|
||||||
| [_; "findlib-packages"] ->
|
| [_; "findlib-packages"] ->
|
||||||
List.iter (Findlib.all_packages ()) ~f:(Printf.printf "%s\n")
|
let pkgs = Findlib.all_packages () in
|
||||||
|
let max_len =
|
||||||
|
List.map pkgs ~f:String.length
|
||||||
|
|> List.fold_left ~init:0 ~f:max
|
||||||
|
in
|
||||||
|
List.iter pkgs ~f:(fun pkg ->
|
||||||
|
let ver =
|
||||||
|
match Findlib.query ~pkg ~preds:[] ~var:"version" with
|
||||||
|
| None -> "n/a"
|
||||||
|
| Some v -> v
|
||||||
|
in
|
||||||
|
Printf.printf "%-*s (version: %s)\n" max_len pkg ver)
|
||||||
| _ ->
|
| _ ->
|
||||||
()
|
()
|
||||||
|
|
||||||
|
|
Loading…
Reference in New Issue