Anonymous user
Echo server: Difference between revisions
m
→{{header|Ada}}
m (→{{header|Ada}}) |
m (→{{header|Ada}}) |
||
Line 104:
Client : GNAT.Sockets.Sock_Addr_Type;
Channel : GNAT.Sockets.Stream_Access;
Task_Index :
-- Echo accepts the asynchronous phase, i.e. no rendezvous. When the
-- communication is over, push the task number back on the stack.
Line 114:
my_Client : GNAT.Sockets.Sock_Addr_Type;
my_Channel : GNAT.Sockets.Stream_Access;
my_Index :
begin
loop -- Infinitely reusable
Line 120:
Client : GNAT.Sockets.Sock_Addr_Type;
Channel : GNAT.Sockets.Stream_Access;
Task_Index :
-- Store parameters and mark task busy.
my_Connection := Connection;
Line 195:
Echo_Server.Listen;
end echo_server_multi;
</lang>
| |||