diff options
author | dos-reis <gdr@axiomatics.org> | 2009-02-15 21:36:21 +0000 |
---|---|---|
committer | dos-reis <gdr@axiomatics.org> | 2009-02-15 21:36:21 +0000 |
commit | 54c2b07353f228554b92269a9a4e688683ae85d6 (patch) | |
tree | 846dd35b996287dcc63bbef1ab70f94c4eb99211 /src/algebra/net.spad.pamphlet | |
parent | 79f5a19fba15519dfa7fe82f4dd1f0e91652cded (diff) | |
download | open-axiom-54c2b07353f228554b92269a9a4e688683ae85d6.tar.gz |
* algebra/data.spad.pamphlet (ByteBuffer): Tidy. Manage size
explicitly.
* algebra/net.spad.pamphlet (writeBytes!$InetClientStreamSocket):
Convert buffer to array before calling VM function.
(readBytes!$InetClientStreamSocket): Likewise.
* interp/sys-utility.boot (makeByteBuffer): Don't ask for fill
pointers.
Diffstat (limited to 'src/algebra/net.spad.pamphlet')
-rw-r--r-- | src/algebra/net.spad.pamphlet | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/src/algebra/net.spad.pamphlet b/src/algebra/net.spad.pamphlet index ee5e8326..c1a3620a 100644 --- a/src/algebra/net.spad.pamphlet +++ b/src/algebra/net.spad.pamphlet @@ -422,7 +422,8 @@ InetClientStreamSocket(): Public == Private where readBytes!(x,b) == not isConnected? x => error "socket is not connected" n: NonNegativeInteger := - readFromStreamSocket(rep(x).%sock,b, capacity b)$Lisp + readFromStreamSocket(rep(x).%sock,b::PrimitiveArray(Byte), + capacity b)$Lisp setLength!(b,n) readByte! x == @@ -431,7 +432,7 @@ InetClientStreamSocket(): Public == Private where writeBytes!(x,b) == not isConnected? x => error "socket is not connected" - writeToStreamSocket(rep(x).%sock,b, #b)$Lisp + writeToStreamSocket(rep(x).%sock,b::PrimitiveArray(Byte), #b)$Lisp writeByte!(x,b) == not isConnected? x => error "socket is not connected" |