Anonymous user
Echo server: Difference between revisions
→{{header|Ada}}
Line 185:
GNAT.Sockets.Listen_Socket (Socket => Receiver);
Task_Info.Initialize_Stack;
Find: loop -- Block for connection and take
GNAT.Sockets.Accept_Socket
(Server => Receiver,
|