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

Handle symbol changes between openssl-1.0 and 1.1

Browse Source 
In openssl-1.1 (specifically libcrypto) the functions sk_num, sk_value and sk_pop_free are prefixed by 'OPENSSL_'.
Now both symbol names looked for to support both version 1.0 and 1.1.
This commit is contained in:
Tucker DiNapoli 2018-04-12 16:59:01 -04:00 committed by Jay McCarthy
parent 73c3341001
commit 822938d9ae
1 changed files with 15 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

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

@ -338,10 +338,21 @@ 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-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 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 X509_get_default_cert_area (_fun -> _string))
(define-crypto X509_get_default_cert_dir (_fun -> _string))