aboutsummaryrefslogtreecommitdiff
path: root/jessl.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-05-01 19:08:46 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-05-01 19:08:46 -0400
commit4108ae479d67067789f98267175e127e6a2a61ad (patch)
tree1252e35b507a405a97b077d07e3f3d8277f437e5 /jessl.f90
parent873ffd8201fd520122d8ec94bdd4230d79d0331c (diff)
downloadLR-87-4108ae479d67067789f98267175e127e6a2a61ad.zip
LR-87-4108ae479d67067789f98267175e127e6a2a61ad.tar.gz
Initial work on a sensible, packaged connection system.
Diffstat (limited to 'jessl.f90')
-rw-r--r--jessl.f9018
1 files changed, 18 insertions, 0 deletions
diff --git a/jessl.f90 b/jessl.f90
index 34fb2a2..bd05d42 100644
--- a/jessl.f90
+++ b/jessl.f90
@@ -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