diff options
| author | dos-reis <gdr@axiomatics.org> | 2008-10-24 06:40:59 +0000 |
|---|---|---|
| committer | dos-reis <gdr@axiomatics.org> | 2008-10-24 06:40:59 +0000 |
| commit | 3d4576ed847bfd84b3befaf7c5ae7ee62905ab2a (patch) | |
| tree | e524e5791d71b812475aa2337690a7eb8a3c58b0 /src/interp/sys-utility.boot | |
| parent | ecfc24269ea4455ec9c17a8fe5e45023e61fc7c0 (diff) | |
| download | open-axiom-3d4576ed847bfd84b3befaf7c5ae7ee62905ab2a.tar.gz | |
Add basic support for stream client socket.
* lib/sockio-c.c (oa_inet_pton): Define.
(oa_get_host_address): Likewise.
* algebra/net.spad.pamphlet (IP4Address): New.
(NetworkClientSocket): Likewise.
(InetClientStreamSocket): Likewise.
* algebra/data.spad.pamphlet (DataArray): Rename from DataBuffer.
(ByteBuffer): Rename from ByteArray. Reimplement.
* algebra/exposed.lsp.pamphlet: Expose IP4Address,
InetClientStreamSocket, NetworkClientSocket.
Diffstat (limited to 'src/interp/sys-utility.boot')
| -rw-r--r-- | src/interp/sys-utility.boot | 6 |
1 files changed, 6 insertions, 0 deletions
diff --git a/src/interp/sys-utility.boot b/src/interp/sys-utility.boot index 3c820e9f..977859a3 100644 --- a/src/interp/sys-utility.boot +++ b/src/interp/sys-utility.boot @@ -265,3 +265,9 @@ writeByteToFile(ofile,b) == closeFile file == CLOSE file nil + + +--% +makeByteBuffer(n,b == 0) == + MAKE_-ARRAY(n,KEYWORD::ELEMENT_-TYPE,"%Byte", + KEYWORD::FILL_-POINTER,0, KEYWORD::INITIAL_-ELEMENT,b) |