sig
module type OldDynlink =
sig
val loadfile : string -> unit
val allow_unsafe_modules : bool -> unit
val init : unit -> unit
val add_interfaces : string list -> string list -> unit
val digest_interface : string -> string list -> Digest.t
end
val loadfile : string -> unit
val allow_unsafe_modules : bool -> unit
val init : unit -> unit
val add_interfaces : string list -> string list -> unit
val digest_interface : string -> string list -> Digest.t
exception Unsupported_Feature of string
val is_native : bool
val adapt_filename : string -> string
type linking_error =
Undefined_global of string
| Unavailable_primitive of string
| Uninitialized_global of string
type error =
Not_a_bytecode_file of string
| Inconsistent_import of string
| Unavailable_unit of string
| Unsafe_file
| Linking_error of string * FCDynlink.linking_error
| Corrupted_interface of string
| File_not_found of string
| Cannot_open_dll of string
| Inconsistent_implementation of string
exception Error of FCDynlink.error
val error_message : FCDynlink.error -> string
end