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/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/boot')
| -rw-r--r-- | src/boot/ast.boot | 2 |
1 files changed, 1 insertions, 1 deletions
diff --git a/src/boot/ast.boot b/src/boot/ast.boot index a8018467..d461bcd3 100644 --- a/src/boot/ast.boot +++ b/src/boot/ast.boot @@ -1393,7 +1393,7 @@ genGCLnativeTranslation(op,s,t,op') == '"object" gclArgInC(x,a) == x in $NativeSimpleDataTypes => a - x = "string" => strconc(a,'"->st.st__self") + x = "string" => a -- GCL takes responsability for the conversion [.,[.,y]] := x y = "char" => strconc(a,'"->st.st__self") y = "byte" => strconc(a,'"->ust.ust__self") |