rtl/unix/dl.pp


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

Unit dl;

Interface

Const
 {$ifdef BSD}   // dlopen is in libc on FreeBSD.
  LibDL = 'c';
 {$else}
  LibDL = 'dl';
{$endif}

  RTLD_LAZY         = $001;
  RTLD_NOW          = $002;
  RTLD_BINDING_MASK = $003;
  RTLD_GLOBAL       = $100;
  {$ifdef BSD}
  RTLD_MODEMASK     = RTLD_BINDING_MASK;
  {$endif}

Function dlopen(Name : PChar; Flags : longint) : Pointer; cdecl; external libdl;
FUnction dlsym(Lib : Pointer; Name : Pchar) : Pointer; cdecl; external Libdl;
Function dlclose(Lib : Pointer) : Longint; cdecl; external libdl;

implementation

end.