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
Date: Fri, 16 Sep 2005 12:12:30 -0400
From: James Alan Farrell <jfarrell@nospam.com>
Organization: nospam
User-Agent: Mozilla Thunderbird 1.0.2 (Windows/20050317)
X-Accept-Language: en-us, en
MIME-Version: 1.0
Newsgroups: comp.lang.ada
Subject: Re: ASIS question
References: <43299b20$1_2@newsfeed.slurp.net> <1cvdgd.g98.ln@hunter.axlog.fr>
In-Reply-To: <1cvdgd.g98.ln@hunter.axlog.fr>
Content-Type: multipart/mixed;
 boundary="------------000508090509080101000108"
NNTP-Posting-Host: fw.grammatech.com
Message-ID: <432aef10$1_1@newsfeed.slurp.net>
X-Trace: newsfeed.slurp.net 1126887184 209.4.89.67 (16 Sep 2005 11:13:04
 -0500)
X-Original-NNTP-Posting-Host: 209.4.89.67
Path: 
 g2news1.google.com!news3.google.com!news.glorb.com!news.moat.net!newsfeed.slurp.net!not-for-mail
Xref: g2news1.google.com comp.lang.ada:4804
Date: 2005-09-16T12:12:30-04:00
List-Id: <comp.lang.ada>

This is a multi-part message in MIME format.
--------------000508090509080101000108
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 8bit

Jean-Pierre Rosen wrote:
> James Alan Farrell a �crit :
> 
>> Given a declaration, is there an easy way to get a list of pragmas 
>> relating to that declaration?
>>
>> ie:
>>
>> procedure Foo;
>> pragma Export(C, Foo, "foo");
>>
>> where Foo is declared in a long list of declarations.  I have the decl 
>> list and the declaration of Foo.  Is there any way I can get the 
>> pragma directly from Foo, rather than searching the long list of 
>> declarations and seeing if any pragma relates to Foo?
>>
> Asis.Elements.Corresponding_Pragmas
> 
Ah, I should have been more clear - apologies.  In ASIS for gnat 3.15p, 
Asis.Elements.Corresponding_Pragmas raises an exception "unimplemented."

Given that situation, is there a reasonably elegant way to do this?
Will this function be implemented in the future?

Thank you for your reply,
JAF

--------------000508090509080101000108
Content-Type: text/x-vcard; charset=utf-8;
 name="jfarrell.vcf"
Content-Transfer-Encoding: 7bit
Content-Disposition: attachment;
 filename="jfarrell.vcf"

begin:vcard
fn:James Alan Farrell
n:Farrell;James
org:GrammaTech
version:2.1
end:vcard


--------------000508090509080101000108--