diff options
author | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-01 19:08:46 -0400 |
---|---|---|
committer | Jeffrey Armstrong <jeff@approximatrix.com> | 2020-05-01 19:08:46 -0400 |
commit | 4108ae479d67067789f98267175e127e6a2a61ad (patch) | |
tree | 1252e35b507a405a97b077d07e3f3d8277f437e5 /jessl.f90 | |
parent | 873ffd8201fd520122d8ec94bdd4230d79d0331c (diff) | |
download | LR-87-4108ae479d67067789f98267175e127e6a2a61ad.tar.gz LR-87-4108ae479d67067789f98267175e127e6a2a61ad.zip |
Initial work on a sensible, packaged connection system.
Diffstat (limited to 'jessl.f90')
-rw-r--r-- | jessl.f90 | 18 |
1 files changed, 18 insertions, 0 deletions
@@ -50,6 +50,24 @@ implicit none type(c_ptr), value::ssl end function ssl_connect + function ssl_shutdown(ssl) bind(c, name="SSL_shutdown") + use iso_c_binding + integer(kind=c_int)::ssl_shutdown + type(c_ptr), value::ssl + end function ssl_shutdown + + function ssl_free(ssl) bind(c, name="SSL_free") + use iso_c_binding + integer(kind=c_int)::ssl_free + type(c_ptr), value::ssl + end function ssl_free + + function ctx_free(ctx) bind(c, name="SSL_CTX_free") + use iso_c_binding + integer(kind=c_int)::ctx_free + type(c_ptr), value::ctx + end function ctx_free + ! Actually a macro... !function get_cipher_c(ssl) bind(c, name="SSL_get_cipher_name") !use iso_c_binding |