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,243dc2fb696a49cd
X-Google-Attributes: gid103376,public
X-Google-Language: ENGLISH,ASCII
Path: 
 g2news1.google.com!news2.google.com!news.maxwell.syr.edu!newsfeed.icl.net!news.tele.dk!news.tele.dk!small.news.tele.dk!news-stoc.telia.net!217.209.241.210.MISMATCH!news-stod.telia.net!telia.net!masternews.telia.net.!newsb.telia.net.POSTED!not-for-mail
From: =?ISO-8859-1?Q?Bj=F6rn_Persson?= <spam-away@nowhere.nil>
User-Agent: Mozilla/5.0 (X11; U; Linux i686; en-US; rv:1.4.1) Gecko/20031114
X-Accept-Language: sv, sv-se, sv-fi, en-gb, en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: Ada Popularity: Comparison of Ada/Charles with C++ STL (and Perl)
References: <e749549b.0409211621.6f3d3723@posting.google.com>
 <x7v6566ngir.fsf@smaug.pushface.org> <1777528.JKnUEYTOM6@linux1.krischik.com>
 <1ec946d1.0409230820.455ad242@posting.google.com>
 <3673998.bj16mkkOu2@linux1.krischik.com>
 <e749549b.0409241124.6cef8deb@posting.google.com>
 <1700922.2nPlMsa4Ny@linux1.krischik.com>
 <e749549b.0409271422.7428ea92@posting.google.com>
 <1636756.M7hCqjsVMv@linux1.krischik.com>
 <e749549b.0409281904.f4c4e6e@posting.google.com>
 <ufz51rs1l.fsf@earthlink.net>
 <e749549b.0409291942.5790386d@posting.google.com>
In-Reply-To: <e749549b.0409291942.5790386d@posting.google.com>
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: quoted-printable
Message-ID: <yKY6d.4590$d5.36128@newsb.telia.net>
Date: Thu, 30 Sep 2004 19:01:50 GMT
NNTP-Posting-Host: 217.209.116.179
X-Complaints-To: abuse@telia.com
X-Trace: newsb.telia.net 1096570910 217.209.116.179 (Thu,
 30 Sep 2004 21:01:50 CEST)
NNTP-Posting-Date: Thu, 30 Sep 2004 21:01:50 CEST
Organization: Telia Internet
Xref: g2news1.google.com comp.lang.ada:4455
Date: 2004-09-30T19:01:50+00:00
List-Id: <comp.lang.ada>

Kevin Cline wrote:

> In C++:

procedure Demo is

> struct X
> {
>   int a;
>   int b;
> };

   type X_Index is (A, B);
   type X is array(X_index) of Integer;

> X x1 =3D { 3, 5 };
> X x2 =3D { 4, 6 };

   X1 : X :=3D (3, 5);
   X2 : X :=3D (4, 6);

> int X::*ptm =3D &X::a;

   PTM : X_Index :=3D A;

begin

> ASSERT(x1->*ptm =3D=3D 3);
> ASSERT(x2->*ptm =3D=3D 4);

   pragma Assert(X1(PTM) =3D 3);
   pragma Assert(X2(PTM) =3D 4);

> ptm =3D &X::b;

   PTM :=3D B;

> ASSERT(x1->*ptm =3D=3D 5);
> ASSERT(x2->*ptm =3D=3D 6);

   pragma Assert(X1(PTM) =3D 5);
   pragma Assert(X2(PTM) =3D 6);

end Demo;

--=20
Bj=F6rn Persson                              PGP key A88682FD
                    omb jor ers @sv ge.
                    r o.b n.p son eri nu