/usr/share/racket/collects/openssl/libssl.rkt is in racket-common 6.3-1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | #lang racket/base
(require ffi/unsafe
racket/runtime-path
(for-syntax racket/base)
"libcrypto.rkt")
(provide libssl
libssl-load-fail-reason)
(define libssl-load-fail-reason #f)
;; We need to declare because they might be distributed with PLT Scheme
;; in which case they should get bundled with stand-alone executables:
(define-runtime-path libssl-so
(case (system-type)
[(windows) '(so "ssleay32")]
[else '(so "libssl")]))
(define libssl
(and libcrypto
(with-handlers ([exn:fail?
(lambda (x)
(set! libssl-load-fail-reason (exn-message x))
#f)])
(ffi-lib libssl-so openssl-lib-versions))))
|