From mboxrd@z Thu Jan 1 00:00:00 1970 X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me X-Spam-Level: X-Spam-Status: No, score=-1.3 required=5.0 tests=BAYES_00,INVALID_MSGID autolearn=no autolearn_force=no version=3.4.4 X-Google-Language: ENGLISH,ASCII-7-bit X-Google-Thread: 103376,5d3a1501d97dab65 X-Google-Attributes: gid103376,public From: jsa@alexandria (Jon S Anthony) Subject: Re: C to Ada : a piece of code Date: 1996/09/08 Message-ID: #1/1 X-Deja-AN: 179174823 sender: news@organon.com (news) references: <3231732C.2781@virgoa4.in2p3.fr> organization: Organon Motives, Inc. newsgroups: comp.lang.ada Date: 1996-09-08T00:00:00+00:00 List-Id: In article <3231732C.2781@virgoa4.in2p3.fr> Grave Xavier 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 {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