Re: ADA task

[ncohen@watson.ibm.com (Norman H. Cohen)]

In article <5174qu$o1p@nr1.ottawa.istar.net>, "Roumen Roupski"
<Roumen.Roupski@Pika.Ca> writes: 

|> 1. How can I implement a task running at regular intervals, for example
|> every 50ms +/- 5ms. The task activation must be guaranteed too.

By a "task", you seem to mean a piece of code to do certain work one
time. At regular intervals, the task is "run" to accomplish this work.

In Ada, a "task" is a thread of control, and the typical approach to
periodic processing is for this thread to remain in existence throughout
the program, executing a loop in which it spends most of its time
sleeping (thus not consuming CPU) and wakes up at the right times to do
its work: 

   task Cyclic_Processor;

   task body Cyclic_Processor is
      Next_Wakeup : Calendar.Time := Calendar.Clock;
      Interval    : constant Duration := 0.050;
   begin
      loop
         delay until Next_Wakeup;
         Do_Some_Work;
         Next_Wakeup := Next_Wakeup + Interval;
      end loop;
   end Cyclic_Processor;

The "delay until" statement is a new feature in Ada 95.  In Ada 83 you
would write

   delay Next_Wakeup - Calendar.Clock;

which delays for the specified amount of time (in this case, the time
from now until Next_Wakeup).

--
Norman H. Cohen    ncohen@watson.ibm.com