18 lines
492 B
Ada
18 lines
492 B
Ada
|
with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
|
||
|
|
with Ada.Text_IO; use Ada.Text_IO;
|
||
|
|
with Gnat.Sockets; use Gnat.Sockets;
|
||
|
|
with Ada.Calendar; use Ada.Calendar;
|
||
|
|
with Ada.Containers.Vectors;
|
||
|
|
with Handlers; use Handlers;
|
||
|
|
|
||
|
|
package dispatchers is
|
||
|
|
task Dispatcher is
|
||
|
|
entry start;
|
||
|
|
-- signal to start
|
||
|
|
entry dispatch(s: Socket_Type);
|
||
|
|
-- we got accepted socket from the listener
|
||
|
|
entry stop;
|
||
|
|
-- signal to stop
|
||
|
|
end dispatcher;
|
||
|
|
end dispatchers;
|