aboutsummaryrefslogtreecommitdiff
path: root/src/algebra
diff options
context:
space:
mode:
Diffstat (limited to 'src/algebra')
-rw-r--r--src/algebra/net.spad.pamphlet9
1 files changed, 9 insertions, 0 deletions
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