/usr/lib/ocaml/dose3/diagnostic.mli is in libdose3-ocaml-dev 4.0.2-4.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140 | (**************************************************************************************)
(* Copyright (C) 2009 Pietro Abate <pietro.abate@pps.jussieu.fr> *)
(* Copyright (C) 2009 Mancoosi Project *)
(* *)
(* This library is free software: you can redistribute it and/or modify *)
(* it under the terms of the GNU Lesser General Public License as *)
(* published by the Free Software Foundation, either version 3 of the *)
(* License, or (at your option) any later version. A special linking *)
(* exception to the GNU Lesser General Public License applies to this *)
(* library, see the COPYING file for more information. *)
(**************************************************************************************)
(** One un-installability reason for a package *)
type reason =
|Dependency of (Cudf.package * Cudf_types.vpkg list * Cudf.package list)
(** Not strictly a un-installability, Dependency (a,vpkglist,pkglist) is used
to recontruct the the dependency path from the root package to the
offending un-installable package *)
|Missing of (Cudf.package * Cudf_types.vpkg list)
(** Missing (a,vpkglist) means that the dependency
[vpkglist] of package [a] cannot be satisfied *)
|Conflict of (Cudf.package * Cudf.package * Cudf_types.vpkg)
(** Conflict (a,b,vpkg) means that the package [a] is in conflict
with package [b] because of vpkg *)
(** The request provided to the solver *)
(** Check the installability of one package *)
(** Check the installability of a list of packages *)
type request = Cudf.package list
(** The result of an installability query *)
type result =
|Success of (?all:bool -> unit -> Cudf.package list)
(** If successfull returns a function that will
return the installation set for the given query. Since
not all packages are tested for installability directly, the
installation set might be empty. In this case, the solver can
be called again to provide the real installation set
using the parameter [~all:true] *)
|Failure of (unit -> reason list)
(** If unsuccessful returns a function containing the list of reason *)
(** The aggregated result from the solver *)
type diagnosis = { result : result; request : request; }
module ResultHash : Hashtbl.S with type key = reason
(** Collect aggregate information about not installable packages *)
type summary = {
mutable missing : int;
mutable conflict : int;
mutable unique_missing : int;
mutable unique_conflict : int;
mutable unique_selfconflict : int;
summary : Cudf.package list ref ResultHash.t;
statistic : ((int * int), int ref) Hashtbl.t
}
val default_result : int -> summary
(** [collect summary result]. Callback function to collect result
information in the [summary] data structure. Can be used to build
a custom callback function for [Depsolver.listcheck] or [Depsolver.univcheck] *)
val collect : summary -> diagnosis -> unit
(** print output version *)
val pp_out_version : Format.formatter -> unit
(** default package pretty printer. *)
val pp_package : ?source:bool -> ?fields:bool -> Common.CudfAdd.pp -> Format.formatter -> Cudf.package -> unit
(** print a list of cudf dependency. The label specifies the type of
dependency ("depends" by default) *)
val pp_dependency :
Common.CudfAdd.pp ->
?label : string ->
Format.formatter ->
Cudf.package * Cudf_types.vpkglist -> unit
(** Print the list of dependencies of a package. *)
val pp_dependencies : Common.CudfAdd.pp ->
Format.formatter -> (Cudf.package * Cudf_types.vpkglist) list list -> unit
val pp_list :
(Format.formatter -> 'a -> unit) -> Format.formatter -> 'a list -> unit
val print_error : ?minimal : bool -> Common.CudfAdd.pp ->
Cudf.package -> Format.formatter -> reason list -> unit
(** If the installablity query is successfull, [get_installationset] return
the associated installation set . If minimal is true (false by default),
the installation set is restricted to the dependency cone of the packages
specified in the installablity query. @Raise [Not_found] if the result is
a failure. *)
val get_installationset : ?minimal : bool -> diagnosis -> Cudf.package list
(** True is the result of an installablity query is successfull. False otherwise *)
val is_solution : diagnosis -> bool
(** print a aggregate information of not installable packages.
@param pp cudf package printer
@param explain if true, print the list of all affected packages associated to
and installation problem. *)
val pp_summary :
?pp : Common.CudfAdd.pp ->
?explain : bool -> unit -> Format.formatter -> summary -> unit
val print_error_human :
?prefix:string -> Common.CudfAdd.pp ->
Cudf.package -> Format.formatter -> reason list -> unit
(** print a human readable explanation (DEV) *)
val fprintf_human :
?pp : Common.CudfAdd.pp ->
?prefix : string -> Format.formatter -> diagnosis -> unit
(** [printf fmt d] print the output of the solver in yaml format
to the formatter [fmt].
@param pp cudf package printer
@param failure print the list of not installable packages
@param success print the list of installable packages
@param explain for installable packages, print the associated installation set
for not installable packages, print the all dependencies chains *)
val fprintf :
?pp : Common.CudfAdd.pp ->
?failure : bool ->
?success : bool ->
?explain : bool -> ?minimal:bool -> Format.formatter -> diagnosis -> unit
(** like [fprintf] but print using the standard formatter *)
val printf :
?pp : Common.CudfAdd.pp ->
?failure : bool -> ?success : bool -> ?explain : bool -> diagnosis -> unit
#ifdef HASOCAMLGRAPH
(** print the explanation graph in dot format to the standard formatter *)
val print_dot :
?pp : Common.CudfAdd.pp ->
?addmissing : bool -> ?dir : string -> diagnosis -> unit
#endif
|