Bcfg_validate (docs.local.bcfg.validate.Bcfg

val error_msgf : 
  ('a, Format.formatter, unit, ('b, [> `Msg of string ]) result) format4 ->
  'a

val rchop : len:int -> string -> string

val rchop_if_lf : string -> string

val escape : string -> string

val read_all : in_channel -> string

val read_input : string option -> string

val has_newline : string -> bool

val max_line_number : (int * 'a) list -> int

type cfg = {

length_of_line_numbers : int;

}

val cfg : (int * 'a) list -> cfg

val pp_line_number : cfg:cfg -> Format.formatter -> int -> unit

val pp_error : Format.formatter -> string -> unit

val pp_newline : Format.formatter -> bool -> unit

val pp_line_with_ansi : 
  cfg:cfg ->
  Format.formatter ->
  (int * Bcfg.Txtloc.line) ->
  unit

val pp_symbol : 'a. 'a Bcfg.Error.symbol -> 'a Fmt.t

val pp_error_message : Format.formatter -> (int * Bcfg.Error.t) -> unit

val pp_error_with_source : 
  content:string ->
  Format.formatter ->
  [< `Lexer_error of
       Bcfg.Txtloc.t * [< `Invalid_character of char | `Message of string ]
  | `Parser_error of Bcfg.Txtloc.t * (int * Bcfg.Error.t) option
  | `Rejected ] ->
  unit

val run : bool -> string option -> (int, 'a) result

val input : string option Cmdliner.Term.t

val term : int Cmdliner.Term.t

val cmd : int Cmdliner.Cmd.t