2016-12-02 13:54:32 +00:00
|
|
|
open! Import
|
|
|
|
|
|
|
|
type t = Byte | Native
|
|
|
|
|
2016-12-15 11:20:46 +00:00
|
|
|
val t : Sexp.t -> t
|
|
|
|
|
2016-12-02 13:54:32 +00:00
|
|
|
val all : t list
|
|
|
|
|
|
|
|
val compiled_unit_ext : t -> string
|
|
|
|
val compiled_lib_ext : t -> string
|
|
|
|
val exe_ext : t -> string
|
|
|
|
val compiler : t -> Context.t -> Path.t option
|
|
|
|
|
|
|
|
val cm_kind : t -> Cm_kind.t
|
|
|
|
|
|
|
|
val findlib_predicate : t -> string
|
|
|
|
|
|
|
|
val best : Context.t -> t
|
|
|
|
|
|
|
|
module Dict : sig
|
|
|
|
type mode = t
|
|
|
|
|
|
|
|
type 'a t =
|
|
|
|
{ byte : 'a
|
|
|
|
; native : 'a
|
|
|
|
}
|
|
|
|
|
|
|
|
val get : 'a t -> mode -> 'a
|
|
|
|
|
|
|
|
val of_func : (mode:mode -> 'a) -> 'a t
|
|
|
|
|
|
|
|
val map2 : 'a t -> 'b t -> f:('a -> 'b -> 'c) -> 'c t
|
|
|
|
end with type mode := t
|