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
|
;;; libdl.scm
;;;
;;; tie the dynamic loader library into the *libdl* environment
(require cload.scm)
(provide 'libdl.scm)
;; if loading from a different directory, pass that info to C
(let ((directory (let ((current-file (port-filename)))
(and (memv (current-file 0) '(#\/ #\~))
(substring current-file 0 (- (length current-file) 9))))))
(when (and directory (not (member directory *load-path*)))
(set! *load-path* (cons directory *load-path*)))
(with-let (rootlet)
(require cload.scm))
(when (and directory (not (string-position directory *cload-cflags*)))
(set! *cload-cflags* (string-append "-I" directory " " *cload-cflags*))))
(if (not (defined? '*libdl*))
(define *libdl*
(with-let (sublet (unlet))
(set! *libraries* (cons (cons "libdl.scm" (curlet)) *libraries*))
(set! *cload-library-name* "*libdl*")
(c-define '((void* dlopen (char* int))
(int dlclose (void*))
(void* dlsym (void* char*))
(char* dlerror (void))
(C-macro (int (RTLD_LAZY RTLD_NOW RTLD_BINDING_MASK RTLD_NOLOAD RTLD_DEEPBIND RTLD_GLOBAL RTLD_LOCAL RTLD_NODELETE))))
"" "dlfcn.h" "" "" "libdl_s7")
(curlet))))
*libdl*
;; the loader will return *libdl*
|
