Re: unconstrained array type problems

[tmoran@acm.org]

>open (file)
>
>read in dimensions of array1
>create the array1
>fill the array1
>
>read in dimensions of array2
>create the array2
>fill the array2
>
>close (file)
>
>allow the arrays to interact with one another
>---
>
>I cannot see a way around this.


Repeating and expanding on Marius Amado Alves message:
> > How can i make them visible to one another? This is so easy to do in
> > c++/java.
>
> This is extremely easy in Ada with the proper design, namely with these
> two entities:
>
>     type Matrix is array (Positive range <>, Positive range <>) of Real;
    function Read_Matrix(File : File_Type) return Matrix is
      Row_Count, Column_Count : Positive;
    begin
      Get (File, Row_Count);
      Get (File, Column_Count);
      declare
        Result: Matrix_Type (1 .. Row_Count, 1 .. Column_Count);
      begin
        -- read in matrix data
        return Result;
      end;
    end Read_Matrix;
>
> Then read all the matrices you want in the same place:
>
    procedure Do_Matrices is
>     Matrix_1 : Matrix := Read_Matrix(File);
>     Matrix_2 : Matrix := Read_Matrix(File);
      Product  : Matrix(Matrix_1'range(1), Matrix_2'range(2)); -- for example
    begin
      -- do stuff with Matrix_1 and Matrix_2
    end Do_Matrices;