2012-05-30 08:25:49 -07:00
|
|
|
(***********************************************************************)
|
|
|
|
|
(* *)
|
|
|
|
|
(* OCaml *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Fabrice Le Fessant, INRIA Saclay *)
|
|
|
|
|
(* *)
|
|
|
|
|
(* Copyright 2012 Institut National de Recherche en Informatique et *)
|
|
|
|
|
(* en Automatique. All rights reserved. This file is distributed *)
|
|
|
|
|
(* under the terms of the Q Public License version 1.0. *)
|
|
|
|
|
(* *)
|
|
|
|
|
(***********************************************************************)
|
|
|
|
|
|
|
|
|
|
type pers_flags = Rectypes
|
|
|
|
|
|
|
|
|
|
type cmi_infos = {
|
|
|
|
|
cmi_name : string;
|
|
|
|
|
cmi_sign : Types.signature_item list;
|
2014-05-06 17:34:20 -07:00
|
|
|
cmi_crcs : (string * Digest.t option) list;
|
2012-05-30 08:25:49 -07:00
|
|
|
cmi_flags : pers_flags list;
|
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
(* write the magic + the cmi information *)
|
|
|
|
|
val output_cmi : string -> out_channel -> cmi_infos -> Digest.t
|
|
|
|
|
|
|
|
|
|
(* read the cmi information (the magic is supposed to have already been read) *)
|
|
|
|
|
val input_cmi : in_channel -> cmi_infos
|
|
|
|
|
|
|
|
|
|
(* read a cmi from a filename, checking the magic *)
|
|
|
|
|
val read_cmi : string -> cmi_infos
|
|
|
|
|
|
|
|
|
|
(* Error report *)
|
|
|
|
|
|
|
|
|
|
type error =
|
|
|
|
|
Not_an_interface of string
|
|
|
|
|
| Wrong_version_interface of string * string
|
|
|
|
|
| Corrupted_interface of string
|
|
|
|
|
|
|
|
|
|
exception Error of error
|
|
|
|
|
|
|
|
|
|
open Format
|
|
|
|
|
|
|
|
|
|
val report_error: formatter -> error -> unit
|
