Re: Passing a 2d array into a package and returning the same processed 2d back to main

[James Brewer <firstvestor@gmail.com>]

On Monday, October 3, 2016 at 2:44:01 PM UTC-5, björn lundin wrote:
> On 2016-10-03 20:36, James Brewer wrote:
> > On Friday, September 30, 2016 at 5:28:01 PM UTC-5, dia...@gmail.com wrote:
> >> Hello again, new Ada programmer with a hopefully easy question. 
> >> I am trying to take a 2d array pass it to a package have the package change the data in the 2d array and send the same 2d array (with modified data) back to the main program. I am currently away from my computer or I would show you my broken code, though I doubt it would be useful. 
> >>
> >> Thanks
> > 
> > 
> > PACKAGE BODY WarshallsPkg IS
> >    
> >    PROCEDURE WarshallExecute(InArray : IN MY_ARRAY; OutArray : OUT MY_ARRAY) IS
> > 
> > --   TestArray: ARRAY(InArray'FIRST..InArray'LAST) OF Integer;
> > 
> >    BEGIN
> >    FOR I IN InArray'FIRST..InArray'LAST LOOP
> >       FOR J IN InArray'FIRST..InArray'LAST LOOP
> >          IF InArray(J,I) = True THEN --true nodes connected
> >             FOR K IN InArray'FIRST..InArray'LAST LOOP
> >                OutArray(J,K) := InArray(J,K) OR InArray(I,K);
> >             END LOOP;
> >          END IF;
> >       END LOOP;
> >    END LOOP;
> > 
> >    END WarshallExecute;
> >    
> > END WarshallsPkg;
> > 
> 
> try
> 
> package body WarshallsPkg is
>    procedure WarshallExecute(Arr : in out My_Array) is
>    begin
>    for I in Arr'range loop
>       for J in Arr'range loop
>          if Arr(J,I) then --true nodes connected
>             for k in Arr'range loop
>                Arr(J,K) := Arr(J,K) or Arr(I,K);
>             end loop;
>          end if;
>       end loop;
>    end loop;
>  end WarshallExecute;
> end WarshallsPkg;
> 
> 
> and then
> 
> 
> 
> >   WarshallExecute(Array2d, Array2d);
> 
> WarshallsPkg.WarshallExecute(Array2d);
> 
> 
> You pass the same array both as in and out to WarshallExecute.
> Why not pass it as in out ?
> 
> 
> 
> 
> -- 
> --
> Björn

Thanks for the help. It's hard to know what a language can and cannot do when your just starting out. Unfortunately, I'm still getting an error saying [expected type"MY_ARRAY" defined at warshallspkg.ads:5 warshallmain.adb:60:20: found type Array2d declare at line 19]. It may have something to do with what Jeffery was alluding too but I don't know enough to say for sure.