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.9 required=5.0 tests=BAYES_00 autolearn=ham
	autolearn_force=no version=3.4.4
X-Google-Thread: 103376,703c4f68db81387d
X-Google-Thread: 109fba,703c4f68db81387d
X-Google-Attributes: gid103376,gid109fba,public
X-Google-Language: ENGLISH,ASCII-7-bit
Path: 
 g2news1.google.com!news3.google.com!newshub.sdsu.edu!elnk-nf2-pas!newsfeed.earthlink.net!stamper.news.pas.earthlink.net!stamper.news.atl.earthlink.net!newsread2.news.atl.earthlink.net.POSTED!14bb18d8!not-for-mail
Followup-To: yes
Sender: mheaney@MHEANEYX200
Newsgroups: comp.lang.ada,comp.lang.c++
Subject: Re: [OT] Re: Teaching new tricks to an old dog (C++ -->Ada)
References: <4229bad9$0$1019$afc38c87@news.optusnet.com.au>
 <1110032222.447846.167060@g14g2000cwa.googlegroups.com>
 <871xau9nlh.fsf@insalien.org>
 <3SjWd.103128$Vf.3969241@news000.worldonline.dk>
 <87r7iu85lf.fsf@insalien.org> <1110052142.832650@athnrd02>
 <42309456$1@news.broadpark.no> <ow2Yd.21162$7U5.4617@fe04.lga>
 <opsnfw9nx75afhvo@localhost> <d0qiah$ep71@cui1.lmms.lmco.com>
 <pan.2005.03.11.18.01.45.684764@linuxchip.demon.co.uk.uk.uk>
 <1110569032.207770@athnrd02> <d0st28$ep65@cui1.lmms.lmco.com>
 <1110607809.837000@athnrd02> <1110608948.651588@athnrd02>
 <1110609321.686344@athnrd02> <wcceke81ze9.fsf@shell01.TheWorld.com>
 <1111446426.916556@athnrd02>
From: Matthew Heaney <matthewjheaney@earthlink.net>
Message-ID: <ufyyln5lp.fsf@earthlink.net>
User-Agent: Gnus/5.09 (Gnus v5.9.0) Emacs/21.3
MIME-Version: 1.0
Content-Type: text/plain; charset=us-ascii
Date: Thu, 24 Mar 2005 02:24:36 GMT
NNTP-Posting-Host: 24.149.57.125
X-Complaints-To: abuse@earthlink.net
X-Trace: newsread2.news.atl.earthlink.net 1111631076 24.149.57.125 (Wed,
 23 Mar 2005 18:24:36 PST)
NNTP-Posting-Date: Wed, 23 Mar 2005 18:24:36 PST
Organization: EarthLink Inc. -- http://www.EarthLink.net
Xref: g2news1.google.com comp.lang.ada:9868 comp.lang.c++:46968
Date: 2005-03-24T02:24:36+00:00
List-Id: <comp.lang.ada>

Ioannis Vranos <ivr@remove.this.grad.com> writes:

> inline int doubleF(const int &arg) { return 2*arg; }
> 
> vector<int>someArray(10, 1);
> 
> transform( someArray.begin(), someArray.end(),
>             someArray.begin(), doubleF );

You can do this in Ada something like:

declare
  V : Integer_Vectors.Vector := To_Vector (1, 10);

  procedure Double_Arg (C : Cursor) is
     procedure Process (I : in out Integer) is
     begin
        I := 2 * I;
     end;
  begin
     Update_Element (C, Process'Access);
  end;
begin
  V.Iterate (Double_Arg'Access);
end;