aboutsummaryrefslogtreecommitdiff
path: root/wsa.f90
diff options
context:
space:
mode:
authorJeffrey Armstrong <jeff@approximatrix.com>2020-04-30 17:58:35 -0400
committerJeffrey Armstrong <jeff@approximatrix.com>2020-04-30 17:58:35 -0400
commit690395a50cd55401a9cfee598638bef482d164bd (patch)
tree03528ccef371ee6a268715ae12de009d7032dce0 /wsa.f90
parent537ff39898992c3915bcf01e3840becc6750520f (diff)
downloadLR-87-690395a50cd55401a9cfee598638bef482d164bd.tar.gz
LR-87-690395a50cd55401a9cfee598638bef482d164bd.zip
Fixed initialization of windows networking. Fixed some overruns in hostent processing.
Diffstat (limited to 'wsa.f90')
-rw-r--r--wsa.f9046
1 files changed, 46 insertions, 0 deletions
diff --git a/wsa.f90 b/wsa.f90
new file mode 100644
index 0000000..c46b097
--- /dev/null
+++ b/wsa.f90
@@ -0,0 +1,46 @@
+module wsa_network
+use iso_c_binding
+implicit none
+
+ integer, parameter::wsa_description_length_plus_1 = 256
+
+ type, bind(c) :: wsadata
+ integer(kind=c_int16_t)::wVersion
+ integer(kind=c_int16_t)::wHighVersion
+ integer(kind=c_short)::iMaxSockets
+ integer(kind=c_short)::iMaxUdpDg
+
+ type(c_ptr)::lpVendorInfo
+ character(len=1, kind=c_char), dimension(wsa_description_length_plus_1)::szDescription
+ character(len=1, kind=c_char), dimension(wsa_description_length_plus_1)::szSystemStatus
+ end type
+
+contains
+
+ subroutine startup()
+ use iso_c_binding
+ implicit none
+
+ interface
+ function wsa_startup(v, p) bind(c, name="WSAStartup")
+ use iso_c_binding
+ integer(kind=c_int16_t), value::v
+ type(c_ptr), value::p
+ integer(kind=c_int)::wsa_startup
+ end function wsa_startup
+ end interface
+
+ type(wsadata), target::startup_data
+ integer::res
+
+ ! need to use wVersionRequested = MAKEWORD(2, 2);
+
+
+ res = wsa_startup(int(z'0202', kind=c_int16_t), c_loc(startup_data))
+ if(res /= 0) then
+ Print *, "Windows Networking failed to start"
+ Print *, "Error=", res
+ stop
+ end if
+ end subroutine startup
+end module wsa_network