45 lines
816 B
OCaml
45 lines
816 B
OCaml
open! Import
|
|
|
|
type t = Byte | Native
|
|
|
|
val t : t Sexp.Of_sexp.t
|
|
|
|
val all : t list
|
|
|
|
val compiled_unit_ext : t -> string
|
|
val compiled_lib_ext : t -> string
|
|
val exe_ext : t -> string
|
|
val plugin_ext : t -> string
|
|
|
|
val cm_kind : t -> Cm_kind.t
|
|
val of_cm_kind : Cm_kind.t -> t
|
|
|
|
val variant : t -> Variant.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
|
|
|
|
val make_both : 'a -> 'a t
|
|
|
|
module Set : sig
|
|
type nonrec t = bool t
|
|
val t : t Sexp.Of_sexp.t
|
|
val all : t
|
|
val is_empty : t -> bool
|
|
val to_list : t -> mode list
|
|
val of_list : mode list -> t
|
|
val iter : t -> f:(mode -> unit) -> unit
|
|
end
|
|
end with type mode := t
|