Re: Structure of the multitasking server

[gautier_niouzes@hotmail.com]

Thanks Jean-Pierre Rosen for this elegant solution!
For a very simple simulation framework I need, here is a even simplified variant that is working perfectly. In this case the parameters passed to the task entries are just a job number and the worker's number, for information.

  procedure Process_parallel is
    workers: array(1..8) of Worker_type;
  begin
    for d in is_driver'Range loop  
      Looking_for_idle:
      loop
        for w in workers'range loop
          select
            workers(w).Run(d, w);
            exit Looking_for_idle;
          else
            null; -- Worker is busy
          end select;
        end loop;
      end loop Looking_for_idle;
    end loop;
  end Process_parallel;
_________________________ 
Gautier's Ada programming 
http://gautiersblog.blogspot.com/search/label/Ada 
NB: follow the above link for a valid e-mail address