The unpac monorepo manager self-hosting as a monorepo using unpac
Move term definition from Cmdliner_cline to Cmdliner_info (#215)
+31
-31
-11
vendor/opam/cmdliner/src/cmdliner_cline.ml
-11
vendor/opam/cmdliner/src/cmdliner_cline.ml
···
371
371
Fmt.pf ppf "@[%a @[argument%s %a: %a@]@]"
372
372
Fmt.deprecated () plural Fmt.(list ~sep:sp code_or_quote) args
373
373
Fmt.styled_text msg
374
-
375
-
376
-
type term_escape =
377
-
[ `Error of bool * string
378
-
| `Help of Cmdliner_manpage.format * string option ]
379
-
380
-
type 'a parser =
381
-
Cmdliner_info.Eval.t -> t ->
382
-
('a, [ `Parse of string | term_escape ]) result
383
-
384
-
type 'a term = Cmdliner_info.Arg.Set.t * 'a parser
+2
-17
vendor/opam/cmdliner/src/cmdliner_cline.mli
+2
-17
vendor/opam/cmdliner/src/cmdliner_cline.mli
···
6
6
(** Command lines. *)
7
7
8
8
val is_opt : string -> bool
9
-
10
-
(** {1 Completion} *)
11
-
12
9
val has_complete_prefix : string -> bool
13
10
val get_token_to_complete : string -> string
14
11
15
-
(** {1: Command lines} *)
12
+
(** {1:cli Command lines} *)
16
13
17
-
type t
14
+
type t = Cmdliner_info.Cline.t
18
15
19
16
val create :
20
17
?peek_opts:bool -> legacy_prefixes:bool -> for_completion:bool ->
···
41
38
val pp_deprecated :
42
39
subst:Cmdliner_manpage.subst -> deprecated Cmdliner_base.Fmt.t
43
40
(** [pp_deprecated] formats deprecations. *)
44
-
45
-
(** {1:terms Terms} *)
46
-
47
-
type term_escape =
48
-
[ `Error of bool * string
49
-
| `Help of Cmdliner_manpage.format * string option ]
50
-
51
-
type 'a parser =
52
-
Cmdliner_info.Eval.t -> t ->
53
-
('a, [ `Parse of string | term_escape ]) result
54
-
55
-
type 'a term = Cmdliner_info.Arg.Set.t * 'a parser
+13
vendor/opam/cmdliner/src/cmdliner_info.ml
+13
vendor/opam/cmdliner/src/cmdliner_info.ml
···
413
413
let subcmds c = c.subcmds
414
414
let kind c = c.kind
415
415
end
416
+
417
+
(* Terms *)
418
+
419
+
module Term = struct
420
+
type escape =
421
+
[ `Error of bool * string
422
+
| `Help of Cmdliner_manpage.format * string option ]
423
+
424
+
type 'a parser =
425
+
Eval.t -> Cline.t -> ('a, [ `Parse of string | escape ]) result
426
+
427
+
type 'a t = Arg.Set.t * 'a parser
428
+
end
+13
vendor/opam/cmdliner/src/cmdliner_info.mli
+13
vendor/opam/cmdliner/src/cmdliner_info.mli
···
256
256
val subcmds : t -> bool
257
257
val kind : t -> kind
258
258
end
259
+
260
+
(** Terms, typed cli fragment definitions. *)
261
+
module Term : sig
262
+
263
+
type escape =
264
+
[ `Error of bool * string
265
+
| `Help of Cmdliner_manpage.format * string option ]
266
+
267
+
type 'a parser =
268
+
Eval.t -> Cline.t -> ('a, [ `Parse of string | escape ]) result
269
+
270
+
type 'a t = Arg.Set.t * 'a parser
271
+
end
+3
-3
vendor/opam/cmdliner/src/cmdliner_term.ml
+3
-3
vendor/opam/cmdliner/src/cmdliner_term.ml
···
3
3
SPDX-License-Identifier: ISC
4
4
---------------------------------------------------------------------------*)
5
5
6
-
type term_escape = Cmdliner_cline.term_escape
7
-
type 'a parser = 'a Cmdliner_cline.parser
8
-
type +'a t = 'a Cmdliner_cline.term
6
+
type term_escape = Cmdliner_info.Term.escape
7
+
type 'a parser = 'a Cmdliner_info.Term.parser
8
+
type +'a t = 'a Cmdliner_info.Term.t
9
9
10
10
let make args p = (args, p)
11
11
let argset (args, _) = args