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,531fa81e1ce02677 X-Google-Attributes: gid103376,public X-Google-Language: ENGLISH,ASCII Path: g2news1.google.com!news4.google.com!news1.google.com!proxad.net!proxad.net!oleane.net!oleane!hunter.axlog.fr!nobody From: Jean-Pierre Rosen Newsgroups: comp.lang.ada Subject: Re: ASIS question Date: Mon, 19 Sep 2005 18:15:29 +0200 Organization: Adalog Message-ID: References: <43299b20$1_2@newsfeed.slurp.net> <1cvdgd.g98.ln@hunter.axlog.fr> <432aef10$1_1@newsfeed.slurp.net> NNTP-Posting-Host: mailhost.axlog.fr Mime-Version: 1.0 Content-Type: text/plain; charset=ISO-8859-1; format=flowed Content-Transfer-Encoding: 8bit X-Trace: s1.news.oleane.net 1127149364 12942 195.25.228.57 (19 Sep 2005 17:02:44 GMT) X-Complaints-To: abuse@oleane.net NNTP-Posting-Date: Mon, 19 Sep 2005 17:02:44 +0000 (UTC) User-Agent: Mozilla Thunderbird 1.0.6 (Windows/20050716) X-Accept-Language: fr, en In-Reply-To: <432aef10$1_1@newsfeed.slurp.net> Xref: g2news1.google.com comp.lang.ada:4915 Date: 2005-09-19T18:15:29+02:00 List-Id: James Alan Farrell a �crit : > Ah, I should have been more clear - apologies. In ASIS for gnat 3.15p, > Asis.Elements.Corresponding_Pragmas raises an exception "unimplemented." In my (GAP 2005) implementation, there is this comment: -- At the moment, this is a partial implementattion. For A_Statement -- argument we always return Nil_Element_List, and for A_Declaration -- Element we return a list of representation pragmas only. Maybe better that in 3.15p, but still not complete. > Given that situation, is there a reasonably elegant way to do this? > Will this function be implemented in the future? > Elegant, certainly not, otherwise corresponding_pragmas would be redundant. What I did in the past in this situation is write a compatible function (with exactly the same spec), implement it with whatever hack was needed. When it eventually gets implemented, you just replace your version with the "clean" one. -- --------------------------------------------------------- J-P. Rosen (rosen@adalog.fr) Visit Adalog's web site at http://www.adalog.fr