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

Revert "Handle symbol changes between openssl-1.0 and 1.1"

Browse Source 
This reverts commit 822938d9ae.
This commit is contained in:
Sam Tobin-Hochstadt 2019-10-22 11:11:32 -04:00
parent fb38db3b84
commit 8f579af413
1 changed files with 4 additions and 15 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

19
racket/collects/openssl/mzssl.rkt
View File

@ -349,21 +349,10 @@ TO DO:
(define-crypto X509_NAME_get_entry (_fun _X509_NAME* _int -> _X509_NAME_ENTRY*/null))
(define-crypto X509_NAME_ENTRY_get_data (_fun _X509_NAME_ENTRY* -> _ASN1_STRING*))
(define-crypto X509_get_ext_d2i (_fun _X509* _int _pointer _pointer -> _STACK*/null))
(define sk_num
(or (get-ffi-obj 'sk_num libcrypto (_fun _STACK* -> _int)
(lambda () #f))
(get-ffi-obj 'OPENSSL_sk_num libcrypto (_fun _STACK* -> _int)
(make-not-available 'sk_num))))
(define sk_GENERAL_NAME_value
(or (get-ffi-obj 'sk_value libcrypto (_fun _STACK* _int -> _GENERAL_NAME-pointer)
(lambda () #f))
(get-ffi-obj 'OPENSSL_sk_value libcrypto (_fun _STACK* _int -> _GENERAL_NAME-pointer)
(make-not-available "sk_GENERAL_NAME_value"))))
(define sk_pop_free
(or (get-ffi-obj 'sk_pop_free libcrypto (_fun _STACK* _fpointer -> _void)
(lambda () #f))
(get-ffi-obj 'OPENSSL_sk_pop_free libcrypto (_fun _STACK* _fpointer -> _void)
(make-not-available "sk_pop_free"))))
(define-crypto sk_num (_fun _STACK* -> _int))
(define-crypto sk_GENERAL_NAME_value (_fun _STACK* _int -> _GENERAL_NAME-pointer)
#:c-id sk_value)
(define-crypto sk_pop_free (_fun _STACK* _fpointer -> _void))
;; (define-crypto X509_get_default_cert_area (_fun -> _string))
(define-crypto X509_get_default_cert_dir (_fun -> _string))