Re: attributes in generic procedure

[Niklas Holsti <nholsti@icon.fi>]

Nick Roberts wrote:
> 
> daelen@my-deja.com wrote:
> >
> > I would like to create a generic procedure as shown below which will only be
> > used for scalar types. Does anybody have a hint how to accomplish this?
> >
> > generic
> >    type A_Type is private;
> > ...
> > end Update;
> 
> The answer is simple:
> 
>    generic
>       type A_Type is (<>);
>    ...

According to RM 12.5.2, this is a formal discrete type definition,
not a formal scalar type definition. This means that it allows only
enumeration and integer types, but not real types (3.2(3)).

In fact, there is no formal_scalar_definition in the RM. I, too, would
have liked to have one when I recently wrote a generic function to
take the maximum value of a vector of some generic element type.
The Max function needs only the attributes 'first and 'max, which
exist for all scalar types, but different generic functions are
needed for a discrete element type and a real element type, although
the bodies of the two functions are identical. One can of course work
around this by making 'first and 'max be additional generic formal
parameters, instead of using type attributes, but it is a little messy.

I don't know if it's worthwhile to consider adding a formal scalar
class to Ada. It might be difficult for compilers that share generic
code across instantiations 

Niklas Holsti
Working at but not speaking for Space Systems Finland Ltd.