Re: ASIS Question: Looking up procedure names.

[James Alan Farrell <no_spam@no_spam.com>]

On Sat, 07 May 2005 20:10:46 GMT, "Peter C. Chapin"
<pchapin@sover.net> wrote:

Peter,
I'm working on a project that uses ASIS.  Unfortunately I am on
vacation and my notes on this are at work.  I believe that what you
are trying to do can be done.  If you can wait until next week, I can
look at my notes then.

As for the list of procedure names, this comes about because
asis.declarations is used for all declarations, not just procedure
declarations.  Thus

   A, B : integer;

has to be support.  Get the name here, and you will get a list of two
elements.  For subprograms, yes there will always be only one name.
(Renames clauses are handled differently)

James Alan Farrell

>
>Hi! I'm writing an ASIS program and I've encountered a problem that I'm 
>having trouble figuring out.
>
>I have an element that I know is a procedure call statement. What I'm 
>looking for is the full name of the procedure, including package 
>membership. So for example
>
>with Ada.Text_IO; use Ada.Text_IO;
>
>procedure Hello is
>begin
>  Put_Line("Hello, World");
>end Hello;
>
>When looking at the Put_Line procedure call statement, I want to get the 
>name "Ada.Text_IO.Put_Line." Is this possible?
>
>Starting with the procedure call statement, I can use 
>Corresponding_Called_Entity to get the procedure declaration. I can then 
>use Names to get a list of defining names for that declaration (wouldn't 
>there always be only one such name for procedure declarations?). I can 
>then convert the first name on this list to program text using 
>Defining_Name_Image. However, the name returned in this case is just 
>'Put_Line' and not 'Ada.Text_IO.Put_Line' as desired.
>
>I see in Asis.Declarations the function Defining_Prefix that takes 
>A_Defining_Expanded_Name and returns the prefix. So that tells me what I 
>need is a way to get A_Defining_Expanded_Name from my procedure call 
>statement. This is where I'm stuck.
>
>TIA
>
>Peter