* interp/sys-os.boot (openIP4ClientStreamSocket): New.

	(readFromStreamSocket): Likewise.
	(writeToStreamSocket): Likewise.
	(closeSocket): Likewise.
	* include/sockio.h: Include <arpa/inet.h>
	(oa_open_ip4_client_stream_socket): Declare.
	(oa_socket_write): Likewise.
	(oa_socket_read): Likewise.
	* lib/sockio-c.c (openaxiom_unload_socket_module): New.
	(openaxiom_load_socket_module): Tidy.
	(openaxiom_socket_is_invalid): New.
	(is_invalid_socket): Use it.
	(oa_open_ip4_client_stream_socket): Define.
	(oa_socket_read): Likewise.
	(oa_socket_write): Likewise.

1 files changed, 17 insertions, 3 deletions

diff --git a/src/interp/sys-os.boot b/src/interp/sys-os.boot
index 85e9523d..9f22adf0 100644
--- a/src/interp/sys-os.boot
+++ b/src/interp/sys-os.boot
@@ -72,15 +72,29 @@ import writeToFileHandle for
 import closeFileHandle for
   oa__filedesc__close: int -> int    -- -1: failure; otherwise 0.
 
+import getEnv for
+  oa__getenv: string -> string
+
 --% Local IPC socket support
 
 import openLocalClientStreamSocket for
   oa__open__local__client__stream__socket: string -> int -- -1: failure
 
---% OpenAxiom subsystem socket support
+--% INET socket stream support
 
-import getEnv for
-  oa__getenv: string -> string
+import openIP4ClientStreamSocket for
+  oa__open__ip4__client__stream__socket: (string,int) -> int
+
+import readFromStreamSocket for
+  oa__socket__read: (int,string,int) -> int
+
+import writeToStreamSocket for
+  oa__socket__write: (int,string,int) -> int
+
+import closeSocket for
+  oa__close__socket: int -> int
+
+--% OpenAxiom subsystem socket support
 
 ++ socket interface
 import openServer for