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/wi1.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/wi1.boot')
-rw-r--r-- | src/interp/wi1.boot | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/src/interp/wi1.boot b/src/interp/wi1.boot index abc58773..0293178c 100644 --- a/src/interp/wi1.boot +++ b/src/interp/wi1.boot @@ -1228,11 +1228,11 @@ compDefineCategory2(form,signature,specialCases,body,m,e, pairlis:= [[a,:v] for a in argl for v in $FormalMapVariableList] parSignature:= SUBLIS(pairlis,signature') parForm:= SUBLIS(pairlis,form) ----- evalAndRwriteLispForm('"compilerInfo", +---- lisplibWrite('"compilerInfo", ---- ['SETQ,'$CategoryFrame, ---- ['put,['QUOTE,op'],' ---- (QUOTE isCategory),true,['addModemap,MKQ op',MKQ parForm, ----- MKQ parSignature,true,MKQ fun,'$CategoryFrame]]]) +---- MKQ parSignature,true,MKQ fun,'$CategoryFrame]]],$libFile) --Equivalent to the following two lines, we hope if null sargl then evalAndRwriteLispForm('NILADIC, |