/usr/share/racket/collects/openssl/libcrypto.rkt is in racket-common 6.1-4.
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))
(provide libcrypto
libcrypto-load-fail-reason)
(define libcrypto-load-fail-reason #f)
;; We need to declare because they might be distributed with Racket,
;; in which case they should get bundled with stand-alone executables:
(define-runtime-path libcrypto-so
(case (system-type)
[(windows) '(so "libeay32")]
[else '(so "libcrypto")]))
(define libcrypto
(with-handlers ([exn:fail? (lambda (x)
(set! libcrypto-load-fail-reason (exn-message x))
#f)])
(ffi-lib libcrypto-so '(""
"1.0.1e"
"1.0.0" "1.0"
"0.9.8b" "0.9.8" "0.9.7"))))
|