From a3dccc344e57259f113b7f2d7e2761ad8131e60b Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Sat, 25 Oct 2008 03:21:55 +0000
Subject: 	* interp/sys-os.boot: Import oa_socket_read_byte as 
 readByteFromStreamSocket. Import oa_socket_write_byte as 
 writeByteToStreamSocket. 	* include/sockio.h (oa_socket_read_byte):
 Declare. 	(oa_socket_write_byte): Likewise. 	* lib/sockio-c.c
 (oa_socket_read_byte): Define. 	(oa_socket_write_byte): Likewise. 
 * algebra/net.spad.pamphlet (readByteIfCan!$InetClientStreamSocket): 
 Implement. 	(writeByteIfCan!$InetClientStreamSocket): Likewise. 	*
 etc/asq.c.pamphlet: Update build rules for asq$(EXEEXT).

---
 src/algebra/net.spad.pamphlet | 9 +++++++++
 1 file changed, 9 insertions(+)

(limited to 'src/algebra')

diff --git a/src/algebra/net.spad.pamphlet b/src/algebra/net.spad.pamphlet
index a216a5fb..f73b278c 100644
--- a/src/algebra/net.spad.pamphlet
+++ b/src/algebra/net.spad.pamphlet
@@ -361,6 +361,10 @@ InetClientStreamSocket(): Public == Private where
       if n <= 0 then close! x
       else setLength!(b,n : NonNegativeInteger)
       n
+    readByteIfCan! x ==
+      r: SingleInteger := readByteFromStreamSocket(rep(x).%sock)$Lisp
+      if r < 0 then close! x
+      r
 
     writeBytes!(x,b) ==
       n: SingleInteger := 
@@ -369,6 +373,11 @@ InetClientStreamSocket(): Public == Private where
       else setLength!(b,n : NonNegativeInteger)
       n
 
+    writeByteIfCan!(x,b) ==
+      r: SingleInteger := writeByteToStreamSocket(rep(x).%sock,b)$Lisp
+      if r < 0 then close! x
+      r
+
     close! x ==
       closeSocket(rep(x).%sock)$Lisp
       rep(x).%sock := -1::SingleInteger
-- 
cgit v1.2.3