Re: tasks as part of record

[Simon Wright <simon@pushface.org>]

Stribor40 <ikamzic@gmail.com> writes:

> http://www.infres.enst.fr/~pautet/Ada95/chap29.htm
>
> Unfortunately this tutorial doesnt show anything....can someone show
> me how to create few records where each record contain task
> please. Say if I want record Student...
>
>   type Student is record
>        Student_Number  : Positive range 1 .. N;
>        Name : String(1..20);
>        Count    : Integer ;
>        --??tasks
>    end record;
>
> and how to create 10 students records....

   with Ada.Text_IO; use Ada.Text_IO;
   procedure Strib is
      task type T is
         entry Start (Name : String);
      end T;
      type Student is record
         Student_Number : Positive range 1 .. 10;
         Name : String (1 .. 10);
         Count : Integer;
         The_Task : T;
      end record;
      task body T is
      begin
         accept Start (Name : String) do
            Put_Line ("started " & Name);
         end Start;
      end T;
      Students : array (1 .. 10) of Student;
   begin
      for J in Students'Range loop
         Students (J).Student_Number := J;  -- etc
         Students (J).The_Task.Start ("student" & Integer'Image (J));
      end loop;
   end Strib;

Each The_Task may need access to the Student record of which it's a
component. If so, ask again.