Re: This can't be done in Ada...or?

[Jeffrey Carter <spam@spam.com>]

Per Lindquist wrote:
> Thanks, I've tried your package before. Works great but I miss a
> Subprogram_Name auto-assignment so... (Ah those users, always wanting
> more more more... ;)

It would be helpful if there was some indication of what you are 
replying to. I'm going to assume this is a response to my response.

I'm not sure what you mean by "Subprogram_Name auto-assignment". Could 
you explain further?

Note that you can instantiate PragmARC.Reflection inside a subprogram:

with Ada.Text_IO;
with PragmARC.Reflection;
package body P is
    package This is new PragmARC.Reflection;

    procedure Q is
       package That is new PragmARC.Reflection;
    begin -- Q
       Ada.Text_IO.Put_Line (Item => That.Unit_Name); -- "P.Q"
    end Q;
begin -- P
    Ada.Text_IO.Put_Line (Item => This.Unit_Name); -- "P"
end P;

-- 
Jeff Carter
"Sons of a silly person."
Monty Python & the Holy Grail
02