Re: C to Ada : a piece of code

[jsa@alexandria (Jon S Anthony)]

In article <3231732C.2781@virgoa4.in2p3.fr> Grave Xavier <xavier@virgoa4.in2p3.fr> writes:

> Can somebody explain me a way to translate this C code to
> Ada ? I just want to avoid using chained list for a vector
> of double.           ^^^^^^^^^^^^^^^^^^^^^^^^
> 
> -------------------------
> double *vect;
> long size,i;
> 
> scanf("%ld",&size);
> vect = (double *) calloc(size,sizeof(double));
> for(i=0;i<size;i++)
>    {vect[i] = ....;
>    }

    type Vec_Array_Type is array ( Positive range <> ) of Long_Float;
    Size : Natural;
...
    Integer_Text_IO.Get(Size);
    declare
        Vec : Vec_Array_Type(1..Size); -- No malloc, no linked list.
    begin
        for I in Vec'Range loop
            Vec(i) := ....;
        end loop;
    end;


/Jon
-- 
Jon Anthony
Organon Motives, Inc.
1 Williston Road, Suite 4
Belmont, MA 02178

617.484.3383
jsa@organon.com