Re: Initializing an array of tasks with discrimants

[Jere <jhb.chat@gmail.com>]

On Saturday, November 23, 2019 at 3:29:45 AM UTC-5, Dmitry A. Kazakov wrote:
> On 2019-11-22 23:07, Jere wrote:
> > I recently ran into a situation where I had an array
> > of tasks that had discriminants (with a default), but
> > I couldn't find a simple way to initialize them.  I
> > did come up with a workaround, but wanted to see if
> > the language defined a way to do this:
> > 
> >      task type T(D: Integer := 3);
> 
> The cleanest way would be a protected generator of unique task IDs:
> 
>     protected ID is
>        procedure Get (ID : out Integer);
>     private
>        Free : Integer := 0;
>     end ID;
> 
>        procedure Get (ID : out Integer) is
>        begin
>            ID := Free;
>            Free := Free + 1;
>        end Get;
> 
>     task body T is
>        D : Integer;
>     begin
>        ID.Get (D);
>        ...
>     end T;
> 
> No discriminants.
> 
> -- 
> Regards,
> Dmitry A. Kazakov
> http://www.dmitry-kazakov.de

Yes, for ID's.  I really dialed down the example
code for simplicity.  The actual scenario isn't 
ID's but a set of enumerations that provide
configuration data for the tasks.  They wouldn't
be unique or in any order.  I was mostly just seeing
if I could do away with the wrapper record for 
initialization.