Sockets: Difference between revisions

<lang ada>

with GNAT.Sockets; use GNAT.Sockets;

end;

</lang>

ExitApp

</lang>

<lang>aurora ~% sudo nc -l -p 256

<lang forth>

include unix/socket.fs

close-socket

</lang>

import Network

main = withSocketsDo $ sendTo "localhost" (PortNumber $ toEnum 256) "hello socket world"

link cfunc

procedure main ()

hello("localhost", 1024)

end

procedure hello (host, port)

write(tconnect(host, port) | stop("unable to connect to", host, ":", port) , "Hello socket world")

end

socket, unit, 'localhost',256,/get_lun

printf,unit,"Hello socket world"

close, unit

Socket Send(0,0)

|:

[New@Net Client["localhost",256]]Put String["hello socket world"]

:|

$ include "seed7_05.s7i";

include "socket.s7i";

const proc: main is func

local

var file: sock is STD_NULL;

begin

sock := openInetSocket(256);

writeln(sock, "hello socket world");

close(sock);

end func;

<lang slate>

[ | socket |

] do.

</lang>

needs sockets

#! A simple abstraction layer that makes writing trivial servers easy

value| server.socket server.connection server.action |

[ ( n- ) pBind to server.socket ] is server.setSocket

[ ( - ) server.socket pAccept to server.connection ] is server.acceptConnection

[ ( - ) server.connection pClose drop ] is server.closeConnection

[ ( $- ) >r server.connection r> string.getLength pWrite drop ] is server.send

[ ( an- ) server.connection -rot pRead drop ] is server.recieve

[ ( qn- ) swap to server.action server.setSocket

[ server.acceptConnection server.action invoke server.closeConnection TRUE ] whileTrue ] is server.start

#! The actual server

[ " hello socket world" server.send ] 256 server.start

(echo "Hello World" | nc localhost 256 | exit 0)

<pre>

echo "hello socket world" | netcat localhost 256

</pre>