/usr/lib/ocaml/dose3/debcudf.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 | (**************************************************************************************)
(* 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. *)
(**************************************************************************************)
(** Debian Specific Cudf conversion routines *)
(** abstract data type holding the conversion tables for the debcudf translation. *)
type tables
type extramap = (string * (string * Cudf_types.typedecl1)) list
type options = {
extras_opt : extramap ;
native : string option; (** the native architecture *)
foreign : string list ; (** list of foreign architectures *)
host : string option; (** the host architecture - cross compile *)
ignore_essential : bool ;
builds_from : bool ; (** whether to add the builds-from relationship from binary to source packages *)
}
val default_options : options
(** initialize the version conversion tables *)
val init_tables : ?step:int -> ?versionlist:Packages_types.version list -> Packages.package list -> tables
val clear : tables -> unit
(** return the cudf version associated to a tuple (name,version).
* return Not_found if there is not package or cudf version associated
* to the tuple (name,version) *)
val get_cudf_version : tables -> Packages_types.name * Packages_types.version -> int
(** return the real version associated to a Cudf package *)
val get_real_version : tables -> Cudf_types.pkgname * Cudf_types.version -> Packages_types.version
(** [tocudf tbl p]
convert the a debian package representation to cudf.
- Version and package name normalization.
- Adding self conflicts.
- Virtual package normalization.
- Adding priority information if avaiblable.
- Mapping APT request.
@param inst : set the {i Installed} cudf field
*)
val tocudf : tables -> ?options:options -> ?inst:bool -> Packages.package -> Cudf.package
(** convert a debian dependency list in a cudf constraints formula *)
val lltocudf : ?enc:bool -> tables -> Packages_types.vpkg list list -> Cudf_types.vpkgformula
(** convert a debian conflict list in a cudf constraints list *)
val ltocudf : ?enc:bool -> tables -> Packages_types.vpkg list -> Cudf_types.vpkglist
(** declare the Cudf preamble used by cudf. Namely, debcudf add :
- a property named {b Number} of type string containing the original debian version
- a property named {b Source} of type string
- a property named {b Sourceversion} of type string
*)
val preamble : Cudf.preamble
(** create a Cudf universe from a debian package representation list. *)
val load_universe : ?options:options -> Packages.package list -> Cudf.universe
(** create a Cudf package list from a debian package representation list. *)
val load_list : ?options:options -> Packages.package list -> Cudf.package list
|