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,FREEMAIL_FROM autolearn=unavailable autolearn_force=no version=3.4.4 X-Received: by 10.43.92.68 with SMTP id bp4mr22481221icc.26.1398257701119; Wed, 23 Apr 2014 05:55:01 -0700 (PDT) X-Received: by 10.140.50.83 with SMTP id r77mr62530qga.15.1398257701082; Wed, 23 Apr 2014 05:55:01 -0700 (PDT) Path: border1.nntp.dca.giganews.com!nntp.giganews.com!l13no10022563iga.0!news-out.google.com!du2ni14151qab.0!nntp.google.com!m5no4605979qaj.1!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail Newsgroups: comp.lang.ada Date: Wed, 23 Apr 2014 05:55:00 -0700 (PDT) In-Reply-To: <7f1c01c5-3563-4b94-9831-152dbbf2ecdc@googlegroups.com> Complaints-To: groups-abuse@google.com Injection-Info: glegroupsg2000goo.googlegroups.com; posting-host=83.145.50.10; posting-account=3_reEwoAAAC163IAIrx427KYmwahFuh9 NNTP-Posting-Host: 83.145.50.10 References: <7f1c01c5-3563-4b94-9831-152dbbf2ecdc@googlegroups.com> User-Agent: G2/1.0 MIME-Version: 1.0 Message-ID: Subject: Re: Your wish list for Ada 202X From: =?ISO-8859-1?Q?bj=F6rn_lundin?= Injection-Date: Wed, 23 Apr 2014 12:55:01 +0000 Content-Type: text/plain; charset=ISO-8859-1 Content-Transfer-Encoding: quoted-printable Xref: number.nntp.dca.giganews.com comp.lang.ada:186021 Date: 2014-04-23T05:55:00-07:00 List-Id: Den tisdagen den 25:e mars 2014 kl. 22:41:16 UTC+1 skrev Stoik: > I think that even a casual user of Ada should be able to influence someho= w the new version of Ada. I wonder what is high on your list of wishes for = Ada 202X? >=20 I'd like V'Img to be standard ada like T'Image(V); As in the gnat implementation type T is some_discrete_type V : T; Put_Line(V'Img); Also, I'd like to be able to define the string function for a record type to be used for the 'image attribute. type T2 is record A : T; B : T; end record; function F_T2_Image(O : T2) return String is begin return O.A'Img & " " O.B'Img; end F_T2_Image; for T2'Image use F_T2_Image V2 : T2; .. Put_Line(V2'Img); /Bj=F6rn