2
0

Dl.txt 667 B

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