my program

my program

[Kasia Krysiak]

I'm start to lern ada , and i have some problems...
 this is my new program, and i have a question how to inicialize
Task1:Male(Id=>1); Task2:Male(Id=>2); task3:male(id=>3); (last 3 lines of
code in loop? becouse i should to have the number od male dymaic. I tryided
to do this in arry but i couldnt inlicjalize this id's  sorry 4 my english
it isnt good I KNOW!!! - but I'm trying :)
task type Male(Id: integer);

task body Male is

procedure zadzwon is

Zmienna_Plikowa :File_Type;

begin



create(zmienna_plikowa,out_file, "id.txt");

end zadzwon;


procedure Wlasne_Sprawy is

begin

for counter in 1..10 loop

new_line;

Put(Item => "dupa ");


end loop;

end wlasne_sprawy;


begin

zadzwon;

Wlasne_Sprawy;

end Male;


Task1:Male(Id=>1);

Task2:Male(Id=>2);

task3:male(id=>3);

Re: my program

[Martin Krischik]

Kasia Krysiak wrote:

> I'm start to lern ada , and i have some problems...
>  this is my new program, and i have a question how to inicialize
> Task1:Male(Id=>1); Task2:Male(Id=>2); task3:male(id=>3); (last 3 lines of
> code in loop? becouse i should to have the number od male dymaic. I
> tryided

Tasks types can be created dynamicly on the heap using new. You can also
have an array of access to a task type:

type Male_Access is access Male;
type Male_Array is array (Positive range <>) of Male_Access;
Tasks : Male_Array := (
               new Male(Id=>1);
               new Male(Id=>2); 
               new Male(id=>3);

Now you can have as many as you like.
With Regards

Martin

-- 
mailto://krischik@users.sourceforge.net
http://www.ada.krischik.com

Re: my program

[Martin Dowie]

"Kasia Krysiak" <kasiool@o2.pl> wrote in message
news:bspfvv$mpo$1@atlantis.news.tpi.pl...
> I'm start to lern ada , and i have some problems...
>  this is my new program, and i have a question how to inicialize
> Task1:Male(Id=>1); Task2:Male(Id=>2); task3:male(id=>3); (last 3 lines of
> code in loop? becouse i should to have the number od male dymaic. I
tryided
> to do this in arry but i couldnt inlicjalize this id's  sorry 4 my english
> it isnt good I KNOW!!! - but I'm trying :)
> task type Male(Id: integer);
[snip]
> Task1:Male(Id=>1);
>
> Task2:Male(Id=>2);
>
> task3:male(id=>3);

You can do this at elaboration:

package body Foo is
   Task_Id : Natural := 0;
   function Get_Id return Positive is
   begin
      Task_Id := Task_Id + 1;
      return Task_Id;
   end Get_Id;
   task type Bar (Id : Natural := Get_Id);
   task body Bar is ... end Bar;
   Tasks : array (1 .. 3) of Bar;
end Foo;

The Lawyers can correct me if I'm wrong but elaboration is
performed sequentially and therefore the Id's are guaranteed
to be unique.