2017-07-21 07:43:36 -07:00
|
|
|
(**************************************************************************)
|
|
|
|
(* *)
|
|
|
|
(* OCaml *)
|
|
|
|
(* *)
|
|
|
|
(* Sebastien Hinderer, projet Gallium, INRIA Paris *)
|
|
|
|
(* *)
|
|
|
|
(* Copyright 2016 Institut National de Recherche en Informatique et *)
|
|
|
|
(* en Automatique. *)
|
|
|
|
(* *)
|
|
|
|
(* All rights reserved. This file is distributed under the terms of *)
|
|
|
|
(* the GNU Lesser General Public License version 2.1, with the *)
|
|
|
|
(* special exception on linking described in the file LICENSE. *)
|
|
|
|
(* *)
|
|
|
|
(**************************************************************************)
|
|
|
|
|
|
|
|
(* Backends of the OCaml compiler and their properties *)
|
|
|
|
|
2018-02-07 08:24:25 -08:00
|
|
|
type t = Native | Bytecode
|
2017-07-21 07:43:36 -07:00
|
|
|
|
2018-02-18 23:23:12 -08:00
|
|
|
val is_bytecode : t -> bool
|
|
|
|
|
|
|
|
val is_native : t -> bool
|
|
|
|
|
2017-07-21 07:43:36 -07:00
|
|
|
val string_of_backend : t -> string
|
|
|
|
|
|
|
|
val make_backend_function : 'a -> 'a -> t -> 'a
|
|
|
|
|
|
|
|
val module_extension : t -> string
|
|
|
|
|
|
|
|
val library_extension : t -> string
|
|
|
|
|
|
|
|
val executable_extension : t -> string
|