blob: 4f57571de78496a8d4fbd610df6c13e003643b83 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
|
(***********************************************************************)
(* *)
(* Objective Caml *)
(* *)
(* Xavier Leroy, projet Cristal, INRIA Rocquencourt *)
(* *)
(* Copyright 2001 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. *)
(* *)
(***********************************************************************)
(* $Id$ *)
(* Handling of dynamically-linked libraries *)
(* Extract the name of a DLLs from its external name (xxx.so or -lxxx) *)
val extract_dll_name: string -> string
type dll_mode =
| For_checking (* will just check existence of symbols;
no need to do full symbol resolution *)
| For_execution (* will call functions from this DLL;
must resolve symbols completely *)
(* Open a list of DLLs. First argument indicates whether to perform
full symbol resolution. Raise [Failure msg] in case of error. *)
val open_dlls: dll_mode -> string list -> unit
(* Close all DLLs *)
val close_all_dlls: unit -> unit
(* The abstract type representing C function pointers *)
type dll_address
(* Find a primitive in the currently opened DLLs and return its address.
Raise [Not_found] if not found. *)
val find_primitive: string -> dll_address
(* If linking in core (dynlink or toplevel), synchronize the VM
table of primitive with the linker's table of primitive
by storing the given primitive function at the given position
in the VM table of primitives. *)
val synchronize_primitive: int -> dll_address -> unit
(* Add the given directories at the head of the search path for DLLs *)
val add_path: string list -> unit
(* Initialization for separate compilation.
Initialize the DLL search path to the directories given in the
environment variable CAML_LD_LIBRARY_PATH, plus contents of ld.conf file
if argument is [false]. If argument is [true], ignore ld.conf. *)
val init_compile: bool -> unit
(* Initialization for linking in core (dynlink or toplevel).
Initialize the search path to the same path that was used to start
the running program (CAML_LD_LIBRARY_PATH + directories in executable +
contents of ld.conf file). Take note of the DLLs that were opened
when starting the running program. *)
val init_toplevel: string -> unit
|
