Re: how to copy complete column (or row) of matrix to another?

[darek <darek.maksimiuk@gmail.com>]

On Tuesday, 5 September 2017 10:41:49 UTC+2, Nasser M. Abbasi  wrote:
> I have not programmed in Ada for long time. I forgot now if
> Ada supports copying whole column or whole row of 2D matrix
> in one operation or not?
> 
> Here is a toy example. I want to copy one matrix
> to another using a loop (to see if this is allowed)
> 
> --------------------------
> procedure t1 is
>     type Matrix is array (Integer range <>, Integer range <>) of Integer;
>     A : Matrix  :=
>             (( 1,  2,  3),
>             (  4,  5,  6),
>             (  7,  8,  9));
>     B: Matrix(1..3,1..3);
> begin -- copy A to B one row at a time
> 
>     FOR I in A'range(1) LOOP
>         B(I,1..3):=A(I,1..3); -- error at this line
>     END LOOP;
> 
> end t1;
> ---------------------
> 
> I see old thread that slicing is not allowed for matrix?
> 
> https://groups.google.com/forum/#!topic/comp.lang.ada/vwPXMabvUR8
> "Copying rows in a two dimensional array."
> 
> Is this the reason for the error I get or Am I doing something
> silly in the above?
> 
> Using gnat 2017
> 
> thanks
> --Nasser

It is not Ada but ...
Have a look at this article: 
http://citeseerx.ist.psu.edu/viewdoc/download;jsessionid=FF8CA42FE18D109BFC4798DF3BB91926?doi=10.1.1.205.9658&rep=rep1&type=pdf

These extensions have been implemented in the  ActiveOberon language running under the A2 operating system (which can run natively, under Windows, under Linux). You can get the whole system here: 
http://www.ocp.inf.ethz.ch/wiki/Development/Repository
The user forum is here:
 http://www.ocp.inf.ethz.ch/forum/

The ActiveOberon language supports COMPLEX/LONGCOMPLEX data types natively.

Regards,
 Darek