From c7a908cc5adede6ca34519059f2e324dc6737ff6 Mon Sep 17 00:00:00 2001
From: Jeffrey Armstrong <jeff@approximatrix.com>
Date: Fri, 1 May 2020 11:21:05 -0400
Subject: SSL network connections now seem to work, including on windows

---
 request.f90 | 81 +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 81 insertions(+)
 create mode 100644 request.f90

(limited to 'request.f90')

diff --git a/request.f90 b/request.f90
new file mode 100644
index 0000000..d470a06
--- /dev/null
+++ b/request.f90
@@ -0,0 +1,81 @@
+module request
+implicit none
+
+    integer, parameter::bufsize = 65536
+
+contains
+
+    function send_string(ssl, str, trimming) result(success)
+    use iso_c_binding
+    use jessl
+    implicit none
+    
+        logical::success
+        type(c_ptr)::ssl
+        character(*), intent(in)::str
+        logical, intent(in), optional::trimming
+        
+        integer::start_send
+        integer::chars_sent_this_time, chars_sending
+        integer::i, bytes
+        integer::string_length
+        
+        character, dimension(bufsize)::buffer
+        
+        if(present(trimming)) then
+            if(trimming) then
+                string_length = len_trim(str)
+            else
+                string_length = len(str)
+            end if
+        else 
+            string_length = len_trim(str)
+        end if
+        
+        success = .true.
+        start_send = 1
+        do while(start_send <= string_length) 
+            
+            chars_sending = 0
+            do i = start_send, string_length
+                buffer(i-start_send+1) = str(i:i) 
+                chars_sending = chars_sending + 1
+                if(chars_sending == bufsize) then
+                    exit
+                end if
+            end do
+            
+            ! A null character seems necessary at the end of the request
+            if(i >= string_length) then
+                chars_sending = chars_sending + 1
+                buffer(chars_sending) = c_null_char
+            end if
+            
+            ! Minus 1 because we're sending start_send as well
+            chars_sent_this_time = ssl_write(ssl, buffer(start_send:(start_send+chars_sending-1)))
+            
+            if(chars_sent_this_time < 0) then
+                success = .false.
+                exit
+            end if
+            
+            start_send = start_send + chars_sent_this_time
+            
+        end do
+        
+    end function send_string
+    
+    function retrieve_characters(ssl, arr) result(chars_read)
+    use iso_c_binding
+    use jessl
+    implicit none
+    
+        integer::chars_read
+        type(c_ptr)::ssl
+        character(len=1), dimension(:), intent(inout)::arr
+
+        chars_read = ssl_read(ssl, arr)
+        
+    end function retrieve_characters
+    
+end module request
\ No newline at end of file
-- 
cgit v1.2.3