suzanne.soy/racket
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

make file runnable on non-win32

Browse Source
This commit is contained in:
Ryan Culpepper 2012-11-29 00:55:11 -05:00
parent 7775a30a7f
commit 2f93e69b13
1 changed files with 8 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

11
collects/openssl/private/win32.rkt
View File

@ -9,7 +9,8 @@
(provide load-win32-root-certificates) (provide load-win32-root-certificates)
;; -- libcrypto ;; -- libcrypto
(define-ffi-definer define-crypto libcrypto) (define-ffi-definer define-crypto libcrypto
#:default-make-fail make-not-available)
(define-cpointer-type _X509*) (define-cpointer-type _X509*)
(define-cpointer-type _X509_STORE*) (define-cpointer-type _X509_STORE*)
@ -26,7 +27,8 @@
;; -- libssl ;; -- libssl
(define-ffi-definer define-ssl libssl) (define-ffi-definer define-ssl libssl
#:default-make-fail make-not-available)
(define _SSL_CTX* _pointer) (define _SSL_CTX* _pointer)
(define-ssl SSL_CTX_get_cert_store (define-ssl SSL_CTX_get_cert_store
@ -34,7 +36,10 @@
;; -- Windows CryptoAPI ;; -- Windows CryptoAPI
(define crypt-lib (ffi-lib "crypt32.dll")) (define crypt-lib
(case (system-type)
((windows) (ffi-lib "crypt32.dll"))
(else #f)))
(define-ffi-definer define-crypt crypt-lib (define-ffi-definer define-crypt crypt-lib
#:default-make-fail make-not-available) #:default-make-fail make-not-available)