Trurl-based/_OpenBSD_/Lin/Mod/Dl.txt

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