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
|
(* Co-installability tools
* http://coinst.irill.org/
* Copyright (C) 2005-2011 Jérôme Vouillon
* Laboratoire PPS - CNRS Université Paris Diderot
*
* These programs are free software; you can redistribute them and/or
* modify them under the terms of the GNU General Public License as
* published by the Free Software Foundation; either version 2 of the
* License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful, but
* WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program. If not, see <http://www.gnu.org/licenses/>.
*)
type rel
type package_name
type version
type 'a dep = ('a * (rel * version) option) list
type deps = package_name dep list
type deb_reason =
R_conflict of int * int * (int * package_name dep) option
| R_depends of int * package_name dep
type p =
{ mutable num : int;
mutable package : package_name;
mutable version : version;
mutable source : package_name * version;
mutable section : string;
mutable architecture : string;
mutable depends : deps;
mutable recommends : deps;
mutable suggests : deps;
mutable enhances : deps;
mutable pre_depends : deps;
mutable provides : deps;
mutable conflicts : deps;
mutable breaks : deps;
mutable replaces : deps }
type deb_pool
include Api.S with type reason = deb_reason and type pool = deb_pool
type dict
val name_of_id : package_name -> string
val id_of_name : string -> package_name
val add_name : string -> package_name
val name_exists : string -> bool
val valid_directory : dict -> bool
(* Check whether the given dictionary is an extension of the current one *)
val set_dict : dict -> unit
val current_dict : unit -> dict
module PkgTbl : Hashtbl.S with type key = package_name
module PkgDenseTbl : sig
type 'a t
val create : 'a -> 'a t
val add : 'a t -> package_name -> 'a -> unit
val replace : 'a t -> package_name -> 'a -> unit
val find : 'a t -> package_name -> 'a
val mem : 'a t -> package_name -> bool
val remove : 'a t -> package_name -> unit
val iteri : (package_name -> 'a -> unit) -> 'a t -> unit
end
module PkgSet : Set.S with type elt = package_name
val find_package_by_num : pool -> int -> p
val find_packages_by_name : pool -> package_name -> p list
val has_package_of_name : pool -> package_name -> bool
val find_provided_packages : pool -> package_name -> p list
val iter_packages : pool -> (p -> unit) -> unit
val iter_packages_by_name : pool -> (package_name -> p list -> unit) -> unit
val pool_size : pool -> int
val package_name : pool -> int -> string
val resolve_package_dep :
pool -> package_name * (rel * version) option -> int list
val resolve_package_dep_raw :
pool -> package_name * (rel * version) option -> p list
val dep_can_be_satisfied :
pool -> package_name * (rel * version) option -> bool
val copy : pool -> pool
val merge : pool -> (p -> bool) -> pool -> unit
val only_latest : pool -> pool
val add_package : pool -> p -> int
val remove_package : pool -> p -> unit
val replace_package : pool -> p -> p -> unit
val parse_version : string -> version
val print_version : Format.formatter -> version -> unit
val compare_version : version -> version -> int
val string_of_version : version -> string
type s =
{ mutable s_name : package_name;
mutable s_version : version;
mutable s_section : string;
mutable s_binary : package_name list;
mutable s_extra_source : bool }
type s_pool
val find_source_by_name : s_pool -> package_name -> s
val has_source : s_pool -> package_name -> bool
val iter_sources : (s -> unit) -> s_pool -> unit
val remove_source : s_pool -> package_name -> unit
val add_source : s_pool -> s -> unit
val new_src_pool : unit -> s_pool
val parse_src_packages : s_pool -> in_channel -> unit
val src_only_latest : s_pool -> s_pool
val generate_rules_restricted : pool -> Util.IntSet.t -> Solver.state
val print_package_dependency : Format.formatter -> string dep list -> unit
|
