Ada gleichzeitige Ausführung von Array von Prozedur Zeigern

Question

Ich versuche, alle Prozeduren in einem Array gleichzeitig aber ohne Erfolg ausgeführt werden. Ich kann sie nacheinander ausführen:

with ada.text_io; -- Tell compiler to use i/o library 
use ada.text_io; -- Use library routines w/o fully qualified names 

with Ada.Numerics.Float_Random; -- Use numerics for the random generation 
use ada.Numerics.Float_Random; 

procedure Main is 

    type Callback_Procedure is access procedure; -- Type that contains a procedure pointer 
    type arr is array (Natural range <>) of Callback_Procedure; -- Array starting from 0 toi infinite of procedure pointers 
    seed : Generator; -- Seed for the generator 

    -- Procedure that will execute "concurrently" the procedures passed in the array 
    procedure EjecutarConcurrentemente(procs : in arr) is 
    begin 

     for index in 0 .. procs'Last loop 

     procs(index).all; -- .all dereferences the pointer so it is the procedure itself (the value pointed by the pointer) 

     end loop;  

    end EjecutarConcurrentemente; 

    function rndDelay return Duration is 
     num : Duration; 
    begin 
     num := Duration(Random(seed)); 
     return num * Duration(10); 
    end ; 


    procedure test0 is 
    begin 
     delay rndDelay; 
     put("test0"); 
     New_Line; 
    end test0; 

    procedure test1 is 
    begin 
     delay rndDelay; 
     put("test1"); 
     New_Line; 
    end test1; 

    procedure test2 is 
    begin 
     delay rndDelay; 
     put("test2"); 
     New_Line; 
    end test2; 

    procedure test3 is 
    begin 
     delay rndDelay; 
     put("test3"); 
     New_Line; 
    end test3; 

    procedure test4 is 
    begin 
     delay rndDelay; 
     put("test4"); 
     New_Line; 
    end test4; 

    procedure test5 is 
    begin 
     delay rndDelay; 
     put("test5"); 
     New_Line; 
    end test5; 

    procs : arr(0..5); 

begin 

    Reset(seed); 

    procs(0) := test0'Access; 
    procs(1) := test1'Access; 
    procs(2) := test2'Access; 
    procs(3) := test3'Access; 
    procs(4) := test4'Access; 
    procs(5) := test5'Access; 

    EjecutarConcurrentemente(procs); 

end Main; 

Das Hauptverfahren Körper auffüllt ein Array mit 6 Prozeduren deklarierten vor und die Anrufe EjecutarConcurrentemente mit diesem Array und es muss dieses neue Verfahren sein, die gleichzeitig die Array-Prozeduren auszuführen hat.

Ich wurde angewiesen, die Task-Funktionen zu verwenden, und der TestX muss Prozeduren ohne Argumente sein.

Hoffe, ich habe es gut erklärt, auch ich habe gerade mit Ada begonnen, also wird der Code höchstwahrscheinlich schlecht gebildet sein.

Danke.

Answer 1

Hier arbeitet der Code perfekt:

with ada.text_io; -- Tell compiler to use i/o library 
use ada.text_io; -- Use library routines w/o fully qualified names 

with Ada.Numerics.Float_Random; -- Use numerics for the random generation 
use ada.Numerics.Float_Random; 

procedure Main is 

    type Callback_Procedure is access procedure; -- Type that contains a procedure pointer 
    type arr is array (Natural range <>) of Callback_Procedure; -- Array starting from 0 toi infinite of procedure pointers 
    seed : Generator; -- Seed for the generator 

    task type Ex (proc : Callback_Procedure); 
    type A is access Ex; 

    task body Ex is 
    begin 
     proc.all; --.all dereferences the pointer so it is the procedure itself (the value pointed by the pointer) 
    end Ex; 

    -- Procedure that will execute concurrently the procedures passed in the array 
    procedure EjecutarConcurrentemente(procs : in arr) is 
     p : A; 
    begin 

     for index in 0 .. procs'Last loop 

     p := new Ex(procs(index)); 

     end loop;  

    end EjecutarConcurrentemente; 

    function rndDelay return Duration is 
     num : Duration; 
    begin 
     num := Duration(Random(seed)); 
     return num * Duration(10); 
    end ; 


    procedure test0 is 
    begin 
     delay rndDelay; 
     put("test0"); 
     New_Line; 
    end test0; 

    procedure test1 is 
    begin 
     delay rndDelay; 
     put("test1"); 
     New_Line; 
    end test1; 

    procedure test2 is 
    begin 
     delay rndDelay; 
     put("test2"); 
     New_Line; 
    end test2; 

    procedure test3 is 
    begin 
     delay rndDelay; 
     put("test3"); 
     New_Line; 
    end test3; 

    procedure test4 is 
    begin 
     delay rndDelay; 
     put("test4"); 
     New_Line; 
    end test4; 

    procedure test5 is 
    begin 
     delay rndDelay; 
     put("test5"); 
     New_Line; 
    end test5; 

    procs : arr(0..5); 

begin 

    Reset(seed); 

    procs(0) := test0'Access; 
    procs(1) := test1'Access; 
    procs(2) := test2'Access; 
    procs(3) := test3'Access; 
    procs(4) := test4'Access; 
    procs(5) := test5'Access; 

    EjecutarConcurrentemente(procs); 

end Main; 

ich mit einem Prozedurzeiger als Parameter nur eine Aufgabe machen, dann in der Array-Schleife ich

new Ex(procs(index)); 

und es beginnt sofort eine neue Aufgabe mit der angegebenen Prozedur

Answer 2

Wer Ihnen gesagt hat, dass Sie Aufgaben zur gleichzeitigen Ausführung verwenden sollen, hat Ihnen die richtige Antwort gegeben. Um alle sechs Prozeduren gleichzeitig auszuführen, benötigen Sie sechs Tasks (und sechs Prozessoren/Prozessorkerne).