1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
[@@@B0.include "test/b0/B0.ml"]
(* See DEVEL.md for an explanation for the above line *)
open B0_kit.V000
open Result.Syntax
(* OCaml library names *)
let b0_std = B0_ocaml.libname "b0.std"
let cmdliner = B0_ocaml.libname "cmdliner"
(* Units *)
let cmdliner_lib =
B0_ocaml.lib cmdliner ~name:"cmdliner-lib" ~srcs:[`Dir ~/"src"]
(* Tool *)
let cmdliner_tool =
let srcs = [`Dir ~/"src/tool"] in
B0_ocaml.exe "cmdliner" ~public:true ~srcs ~requires:[cmdliner]
(* Tests *)
let test ?(requires = []) = B0_ocaml.test ~requires:(cmdliner :: requires)
let testing = `File ~/"test/testing_cmdliner.ml"
let test_shell = test ~/"test/test_shell.ml" ~run:false
let test_arg = test ~/"test/test_arg.ml" ~srcs:[testing] ~requires:[b0_std]
let test_cmd = test ~/"test/test_cmd.ml" ~srcs:[testing] ~requires:[b0_std]
let test_completion =
test ~/"test/test_completion.ml" ~srcs:[testing] ~requires:[b0_std]
let test_deprecation =
test ~/"test/test_deprecation.ml" ~srcs:[testing] ~requires:[b0_std]
let test_legacy_prefix =
test ~/"test/test_legacy_prefix.ml" ~srcs:[testing] ~requires:[b0_std]
let test_man = test ~/"test/test_man.ml" ~srcs:[testing] ~requires:[b0_std]
let test_term = test ~/"test/test_term.ml" ~srcs:[testing] ~requires:[b0_std]
let example_chorus = test ~/"test/example_chorus.ml" ~run:false
let example_cp = test ~/"test/example_cp.ml" ~run:false
let example_darcs = test ~/"test/example_darcs.ml" ~run:false
let example_group =
let srcs = [testing] and requires = [b0_std] in
test ~/"test/example_group.ml" ~run:false ~srcs ~requires
let example_revolt1 = test ~/"test/example_revolt1.ml" ~run:false
let example_revolt2 = test ~/"test/example_revolt2.ml" ~run:false
let example_rm = test ~/"test/example_rm.ml" ~run:false
let example_tail = test ~/"test/example_tail.ml" ~run:false
let blueprint_min = test ~/"test/blueprint_min.ml" ~run:false
let blueprint_tool = test ~/"test/blueprint_tool.ml" ~run:false
let blueprint_cmds = test ~/"test/blueprint_cmds.ml" ~run:false
(* Completion scripts update *)
let update_completion_scripts =
B0_unit.of_action "update-cmdliner-data" @@ fun env _ ~args:_ ->
let bash = B0_env.in_scope_dir env ~/"src/tool/bash-completion.sh" in
let zsh = B0_env.in_scope_dir env ~/"src/tool/zsh-completion.sh" in
let pwsh = B0_env.in_scope_dir env ~/"src/tool/pwsh-completion.ps1" in
let munge_src src =
src
|> String.replace_all ~sub:"%" ~by:"%%" (* need to escape for fmt *)
|> String.replace_first ~sub:"_cmdliner_generic" ~by:"%s"
in
let ml = B0_env.in_scope_dir env ~/"src/tool/cmdliner_data.ml" in
let* bash = Os.File.read bash in
let* zsh = Os.File.read zsh in
let* pwsh = Os.File.read pwsh in
let src = Fmt.str
"let strf = Printf.sprintf\n\n\
let bash_generic_completion fun_name = strf\n{|%s\
|} fun_name\n\n\
let zsh_generic_completion fun_name = strf\n{|%s\
|} fun_name\n\n\
let pwsh_generic_completion fun_name = strf\n{|%s\
|} fun_name" (munge_src bash) (munge_src zsh) (munge_src pwsh)
in
Os.File.write ~force:true ~make_path:false ml src
(* Packs *)
(* FIXME b0 it's unclear whether the fact that the @@@B0.included units
show up in B0_unit.list () is a bug or a feature. If it's a bug
the filter on B0_unit.in_current_scope could be avoided. *)
let default =
let meta =
B0_meta.empty
|> ~~ B0_meta.authors ["The cmdliner programmers"]
|> ~~ B0_meta.maintainers ["Daniel Bünzli <daniel.buenzl i@erratique.ch>"]
|> ~~ B0_meta.homepage "https://erratique.ch/software/cmdliner"
|> ~~ B0_meta.online_doc "https://erratique.ch/software/cmdliner/doc"
|> ~~ B0_meta.issues "https://github.com/dbuenzli/cmdliner/issues"
|> ~~ B0_meta.repo "git+https://erratique.ch/repos/cmdliner.git"
|> ~~ B0_meta.licenses ["ISC"]
|> ~~ B0_meta.description_tags
["cli"; "system"; "declarative"; "org:erratique"]
|> ~~ B0_opam.depends [ "ocaml", {|>= "4.08.0"|}; ]
|> ~~ B0_opam.build {|[[ make "all" "PREFIX=%{prefix}%" ]]|}
|> ~~ B0_opam.install
{|[[make "install" "BINDIR=%{_:bin}%" "LIBDIR=%{_:lib}%" "DOCDIR=%{_:doc}%"
"SHAREDIR=%{share}%" "MANDIR=%{man}%"]
[make "install-doc" "LIBDIR=%{_:lib}%" "DOCDIR=%{_:doc}%"
"SHAREDIR=%{share}%" "MANDIR=%{man}%"]]|}
|> B0_meta.tag B0_opam.tag
in
let locked = false (* So that it looks up b0.std *) in
B0_pack.make "default" ~doc:"cmdliner package" ~meta ~locked @@
List.filter B0_unit.in_current_scope (B0_unit.list ())
|
