type tables = {versions_table : (string, string list) ExtLib.Hashtbl.t;reverse_table : (string * int, string) ExtLib.Hashtbl.t;}val create : int -> tablestype lookup = {from_cudf : Cudf.package -> string * string;to_cudf : (string * string) -> Cudf.package;}val clear : tables -> unitval init_versions_table :
(Debian.Format822.name, Debian.Format822.version list) ExtLib.Hashtbl.t ->
Packages.package ->
unitval init_virtual_table :
(Debian.Format822.vpkgname, unit) ExtLib.Hashtbl.t ->
Packages.package ->
unitval init_unit_table :
(Debian.Format822.name, unit) ExtLib.Hashtbl.t ->
Packages.package ->
unitval init_versioned_table :
(Debian.Format822.vpkgname, unit) ExtLib.Hashtbl.t ->
Packages.package ->
unitval init_tables :
?compare:(Debian.Format822.version -> Debian.Format822.version -> int) ->
Packages.package list ->
tablesval get_cudf_version : tables -> (string * string) -> intval get_real_version : tables -> (string * int) -> stringval loadl :
tables ->
((string * 'a) * (string * string) option) list ->
(string * ([> `Eq | `Geq | `Gt | `Leq | `Lt | `Neq ] * int) option) listval loadlc :
tables ->
'a ->
((string * 'b) * (string * string) option) list ->
(string * ([> `Eq | `Geq | `Gt | `Leq | `Lt | `Neq ] * int) option) listval loadlp :
tables ->
((string * 'a) * (string * string) option) list ->
(string * ([> `Eq ] * int) option) listval loadll :
tables ->
((string * 'a) * (string * string) option) list list ->
(string * ([> `Eq | `Geq | `Gt | `Leq | `Lt | `Neq ] * int) option) list listtype extramap = (string * (string * Cudf_types.typedecl1)) listval preamble : Cudf.preambleval add_extra :
(string * (string * Cudf_types.typedecl1)) list ->
tables ->
Packages.package ->
(string * Cudf_types.typed_value) listval tocudf :
tables ->
?extras:(string * (string * Cudf_types.typedecl1)) list ->
?inst:bool ->
Packages.package ->
Cudf.packageval lltocudf :
tables ->
((string * 'a) * (string * string) option) list list ->
(string * ([> `Eq | `Geq | `Gt | `Leq | `Lt | `Neq ] * int) option) list listval ltocudf :
tables ->
((string * 'a) * (string * string) option) list ->
(string * ([> `Eq | `Geq | `Gt | `Leq | `Lt | `Neq ] * int) option) listval load_list : Packages.package list -> Cudf.package listval load_universe : Packages.package list -> Cudf.universe