Re: numbers as 'generics' parameters

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On Fri, 16 May 2008 13:52:23 -0700 (PDT), Maciej Sobczak wrote:

> On 16 Maj, 20:57, Gautier <gaut...@fakeaddress.nil> wrote:
> 
>> generic
>>    N: Integer;
>> package Fixed_size_vectors is
>>    Vector: array(1..N) of Float;
> 
> I guess:
>      type Vector is array (1..N) of Float;
> 
>> end;
> 
> How to write an operation that ensures *at compile time* that its two
> parameters are Fixed_size_vectors of equal N?
> Declare it in a child package? Is there any other option?

The first step is a bit tedious, but it is advisable to "rename" all formal
generic parameters within the package specification. [I don't know why
aren't they visible. That was a language design decision].

Anyway, here you go:

   generic
      N : Integer;
   package Fixed_Size_Vector is
      Size : Integer renames N;
      type Vector is array (1..N) of Float;
   end Fixed_Size_Vector;
   
   package V1 is new Fixed_Size_Vector (25);
   package V2 is new Fixed_Size_Vector (V1.Size);

> Similar question can be asked for (un)constrained and discriminated
> types. What are the options for such an operation?

You do it declaring a subtype, that constraints the discriminant or bounds.

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de