From 3d4576ed847bfd84b3befaf7c5ae7ee62905ab2a Mon Sep 17 00:00:00 2001
From: dos-reis <gdr@axiomatics.org>
Date: Fri, 24 Oct 2008 06:40:59 +0000
Subject: 	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.

---
 src/interp/sys-utility.boot | 6 ++++++
 1 file changed, 6 insertions(+)

(limited to 'src/interp/sys-utility.boot')

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)
-- 
cgit v1.2.3