new/_FreeBSD_/Lin/Mod/Dl.txt

   1 MODULE LinDl ["libc.so.7"];
   2
   3         (*
   4                 A. V. Shiryaev, 2012.11
   5
   6                 FreeBSD 9.0
   7                 32-bit
   8         *)
   9
  10         CONST
  11                 NULL* = 0H;
  12
  13                 (* from FreeBSD 9.0 /usr/include/dlfcn.h *)
  14                         RTLD_LAZY* = 1;
  15                         RTLD_NOW* = 2;
  16
  17                         RTLD_GLOBAL* = 100H;
  18                         RTLD_LOCAL* = 000H;
  19                         RTLD_TRACE* = 200H;
  20
  21         TYPE
  22                 PtrVoid* = INTEGER;
  23                 HANDLE* = PtrVoid;
  24                 PtrSTR* = POINTER TO ARRAY [untagged] OF SHORTCHAR;
  25
  26         PROCEDURE [ccall] dlopen* (file: PtrSTR; mode: INTEGER): HANDLE;
  27         PROCEDURE [ccall] dlclose* (handle: HANDLE): INTEGER;
  28         PROCEDURE [ccall] dlsym* (handle: HANDLE; symbol: PtrSTR): HANDLE;
  29
  30         PROCEDURE [ccall] dlerror* (): PtrSTR;
  31
  32 END LinDl.