From 4108ae479d67067789f98267175e127e6a2a61ad Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Fri, 1 May 2020 19:08:46 -0400
Subject: Initial work on a sensible, packaged connection system.

---
 jessl.f90 | 18 ++++++++++++++++++
 1 file changed, 18 insertions(+)

(limited to 'jessl.f90')

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
-- 
cgit v1.2.3