Re: time-slicing

[Jan Prazak <janp9@gmx.net>]

I have modified the code a bit, and this two tasks run surprisingly at
the same time. While the main task waits for a key+enter, the second task
is running! Tasks seem to be more complicated than I thought.

-------
with Ada.Text_IO, Ada.Characters.Latin_1;
use Ada.Text_IO, Ada.Characters.Latin_1;

procedure Task_Demo is

  task Beep is
    entry Shut_Down;
  end Beep;

  task body Beep is
   Break_Loop : Boolean := False;
  begin
    loop
       select
         accept Shut_Down
         do
           Break_Loop := True;
         end Shut_Down;
       or
         Delay 2.0;
         Put(BEL);
       end select;

       exit when Break_Loop;
    end loop;
  end Beep;

C : Character;
begin
  New_Line;
  Put("Enter a character: ");
  Get(C); Skip_Line;
  New_Line;
  Beep.Shut_Down;
end Task_Demo;[