package dose

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