Added some very low-level network code

1 files changed, 33 insertions, 0 deletions

diff --git a/test_ssl.f90 b/test_ssl.f90
new file mode 100644
index 0000000..0e169c1
--- /dev/null
+++ b/test_ssl.f90
@@ -0,0 +1,33 @@
+program test_ssl
+use jessl
+use network
+implicit none
+
+    type(sockaddr_in), target::sa
+    integer::s
+    
+    type(simple_hostent)::hent
+    
+    hent = gethostbyname("google.com")
+    if(allocated(hent%h_name)) then
+        !Print *, "host: ", hent%h_name
+        !Print *, "addr: ", hent%h_addr4
+    else
+        Print *, "Failure"
+        stop
+    end if
+    
+    sa%sin_family = AF_INET
+    sa%sin_addr%s_addr = hent%h_addr4 !inet_addr("192.168.2.90")
+    sa%sin_port = htons(80)
+    
+    s = socket(AF_INET, SOCK_STREAM, 0);
+    if(.not. connect(s, sa)) then
+        Print *, "Connection failed", IERRNO()
+        stop
+    end if
+    
+    Print *, "socket opened!"
+    
+
+end program test_ssl
\ No newline at end of file