sig
module type Ot =
sig
val options :
?usage:string ->
?version:string ->
?suppress_usage:bool ->
?suppress_help:bool ->
?prog:string ->
?formatter:OptParse.Formatter.t -> unit -> OptParse.OptParser.t
end
val vpkg_option :
?default:Debian.Format822.vpkg ->
?metavar:string -> unit -> Debian.Format822.vpkg OptParse.Opt.t
val vpkglist_option :
?default:Debian.Format822.vpkglist ->
?metavar:string -> unit -> Debian.Format822.vpkglist OptParse.Opt.t
val pkglist_option :
?default:(string * Debian.Format822.architecture option *
Debian.Format822.version)
list ->
?metavar:string ->
unit ->
(string * Debian.Format822.architecture option * Debian.Format822.version)
list OptParse.Opt.t
val incr_str_list :
?default:string list option ->
?metavar:string -> unit -> string list OptParse.Opt.t
val str_list_option :
?default:string list ->
?metavar:string -> unit -> string list OptParse.Opt.t
module MakeOptions :
functor (O : Ot) ->
sig
val verbose : int OptParse.Opt.t
val quiet : bool OptParse.Opt.t
val progress : bool OptParse.Opt.t
val timers : bool OptParse.Opt.t
val options : OptParse.OptParser.t
end
module DistcheckOptions :
sig
val success : bool OptParse.Opt.t
val failure : bool OptParse.Opt.t
val explain : bool OptParse.Opt.t
val minimal : bool OptParse.Opt.t
val summary : bool OptParse.Opt.t
val default_options : string list
val add_options : ?default:string list -> OptParse.OptParser.t -> unit
end
module InputOptions :
sig
val trim : bool OptParse.Opt.t
val latest : bool OptParse.Opt.t
val checkonly : Debian.Format822.vpkglist OptParse.Opt.t
val background : string list OptParse.Opt.t
val foreground : string list OptParse.Opt.t
val outfile : string OptParse.Opt.t
val default_options : string list
val parse_cmdline :
Common.Url.filetypes * bool ->
string list -> string list * string list
val add_options : ?default:string list -> OptParse.OptParser.t -> unit
end
type options =
StdOptions.options =
Deb of Debian.Debcudf.options
| Eclipse of Debian.Debcudf.options
| Edsp of Debian.Debcudf.options
| Csw
| Rpm
| Cudf
module DistribOptions :
sig
val deb_native_arch : string OptParse.Opt.t
val deb_foreign_archs : string list OptParse.Opt.t
val deb_host_arch : string OptParse.Opt.t
val deb_ignore_essential : bool OptParse.Opt.t
val inputtype : string OptParse.Opt.t
val default_options : string list
val set_deb_options : unit -> Debian.Debcudf.options
val set_default_options :
[> `Deb | `Eclipse | `Edsp ] -> options option
val set_options : [> `Deb | `Eclipse | `Edsp ] -> options option
val add_options : ?default:string list -> OptParse.OptParser.t -> unit
end
val enable_debug : int -> unit
val all_quiet : bool -> unit
val enable_bars : bool -> Common.Util.label list -> unit
val enable_timers : bool -> Common.Util.label list -> unit
val read_deb :
?filter:((string * (Debian.Format822.loc * Debian.Format822.architecture))
list -> bool) ->
?extras:(string *
((string *
(Debian.Format822.loc * Debian.Format822.architecture))
list -> Debian.Format822.architecture)
option)
list ->
string -> Debian.Packages.Set.elt list
val deb_load_list :
Debian.Debcudf.options ->
?status:Debian.Packages.Set.elt list ->
Debian.Packages.Set.elt list list ->
Cudf.preamble * Cudf.package list list * Cudf.request *
(Cudf_types.pkgname * Cudf_types.version ->
Cudf_types.pkgname * Debian.Format822.version) *
(Debian.Format822.name * Debian.Format822.version ->
Debian.Format822.name * int)
val eclipse_load_list :
'a ->
Eclipse.Packages.package list list ->
Cudf.preamble * Cudf.package list list * Cudf.request *
(string * int -> string * string) * (string * string -> string * int)
val csw_load_list :
Csw.Packages.package list list ->
Cudf.preamble * Cudf.package list list * Cudf.request *
('a * int -> 'a * string) *
(Csw.Packages.name * string -> Csw.Packages.name * int)
val edsp_load_list :
Debian.Debcudf.options ->
string ->
Cudf.preamble * Cudf.package list list * Cudf.request *
(Cudf_types.pkgname * Cudf_types.version ->
Cudf_types.pkgname * Debian.Format822.version) *
(Debian.Format822.name * Debian.Format822.version ->
Debian.Format822.name * int)
val edsp_load_universe :
Debian.Debcudf.options ->
string ->
Cudf.preamble * Cudf.universe * Cudf.request *
(Cudf_types.pkgname * Cudf_types.version ->
Cudf_types.pkgname * Debian.Format822.version) *
(Debian.Format822.name * Debian.Format822.version ->
Debian.Format822.name * int)
val deb_load_universe :
Debian.Debcudf.options ->
Debian.Packages.Set.elt list ->
Cudf.preamble * Cudf.universe * Cudf.request *
(Cudf_types.pkgname * Cudf_types.version ->
Cudf_types.pkgname * Debian.Format822.version) *
(Debian.Format822.name * Debian.Format822.version ->
Debian.Format822.name * int)
val rpm_load_list : 'a -> 'b
val rpm_load_universe : 'a -> 'b * Cudf.universe * 'c * 'd * 'e
val parse_cudf :
string -> Cudf.preamble option * Cudf.package list * Cudf.request option
val load_cudf :
string -> Cudf.preamble option * Cudf.universe * Cudf.request option
val cudf_load_list :
string ->
Cudf.preamble * Cudf.package list list * Cudf.request *
('a * int -> 'a * string) * ('b * string -> 'b * int)
val cudf_load_universe :
string ->
Cudf.preamble * Cudf.universe * Cudf.request *
('a * int -> 'a * string) * ('b * string -> 'b * int)
val unpack : 'a * ('b * 'c * 'd * 'e * 'f) * 'g -> 'f
val deb_parse_input :
Debian.Debcudf.options ->
?status:Debian.Packages.Set.elt list ->
('a * ('b * 'c * 'd * 'e * string) * 'f) list list ->
Cudf.preamble * Cudf.package list list * Cudf.request *
(Cudf_types.pkgname * Cudf_types.version ->
Cudf_types.pkgname * Debian.Format822.version) *
(Debian.Format822.name * Debian.Format822.version ->
Debian.Format822.name * int)
val eclipse_parse_input :
'a ->
('b * ('c * 'd * 'e * 'f * string) * 'g) list list ->
Cudf.preamble * Cudf.package list list * Cudf.request *
(string * int -> string * string) * (string * string -> string * int)
val csw_parse_input :
('a * ('b * 'c * 'd * 'e * string) * 'f) list list ->
Cudf.preamble * Cudf.package list list * Cudf.request *
('g * int -> 'g * string) *
(Csw.Packages.name * string -> Csw.Packages.name * int)
val cudf_parse_input :
('a * ('b * 'c * 'd * 'e * string) * 'f) list list ->
Cudf.preamble * Cudf.package list list * Cudf.request *
('g * int -> 'g * string) * ('h * string -> 'h * int)
val edsp_parse_input :
Debian.Debcudf.options ->
('a * ('b * 'c * 'd * 'e * string) * 'f) list list ->
Cudf.preamble * Cudf.package list list * Cudf.request *
(Cudf_types.pkgname * Cudf_types.version ->
Cudf_types.pkgname * Debian.Format822.version) *
(Debian.Format822.name * Debian.Format822.version ->
Debian.Format822.name * int)
val parse_input :
?options:StdOptions.options option ->
string list list ->
Cudf.preamble * Cudf.package list list * Cudf.request *
(Cudf_types.pkgname * Cudf_types.version ->
Cudf_types.pkgname * Debian.Format822.version) *
(Debian.Format822.name * Debian.Format822.version ->
Debian.Format822.name * int)
val supported_formats : unit -> string list
val deb_load_source :
?filter:((string * (Debian.Format822.loc * Debian.Format822.architecture))
list -> bool) ->
?profiles:bool ->
?noindep:bool ->
Debian.Format822.architecture ->
Debian.Format822.architecture -> string -> Debian.Packages.package list
val load_list :
?options:StdOptions.options option ->
string list list ->
Cudf.preamble * Cudf.package list list * Cudf.request *
(Cudf_types.pkgname * Cudf_types.version ->
Cudf_types.pkgname * Debian.Format822.version) *
(Debian.Format822.name * Debian.Format822.version ->
Debian.Format822.name * int)
val load_universe :
?options:StdOptions.options option ->
string list ->
Cudf.preamble * Cudf.universe * Cudf.request *
(Cudf_types.pkgname * Cudf_types.version ->
Cudf_types.pkgname * Debian.Format822.version) *
(Debian.Format822.name * Debian.Format822.version ->
Debian.Format822.name * int)
val it : Common.Util.Info.t
val info : ('a, unit, string, unit) format4 -> 'a
val nt : Common.Util.Notice.t
val notice : ('a, unit, string, unit) format4 -> 'a
val wt : Common.Util.Warning.t
val warning : ('a, unit, string, unit) format4 -> 'a
val dt : Common.Util.Debug.t
val debug : ('a, unit, string, unit) format4 -> 'a
val fatal : ('a, unit, string, 'b) format4 -> 'a
val get_architectures :
string option ->
string list ->
string option -> string list option -> string option * string list
val pp_versions_table :
Format.formatter ->
(Cudf_types.pkgname * Cudf_types.version -> string * string) *
Cudf.package list -> unit
val if_application :
?alternatives:string list -> string -> (unit -> int) -> unit
val exit : 'a -> 'a
end