Package name as string

Package name as string

[Rego]

Does someone know a function/package which I get the name of the (other) procedure in use as a string?

I mean, I have a procedure which needs to make a call that returns its own name in a string form:
--
with Package_I_Wanna_Know;
procedure Blabla is
   I_Want_To_Read_This_String : String;

begin
   I_Want_To_Read_This_String := Package_I_Wanna_Know.Wanted_Function;
end Blabla;
--
And so, I_Want_To_Read_This_String = "Blabla".

Tks!

Re: Package name as string

[Jeffrey Carter]

On 02/15/2011 11:33 AM, Rego wrote:
> Does someone know a function/package which I get the name of the (other) procedure in use as a string?
>
> I mean, I have a procedure which needs to make a call that returns its own name in a string form:
> --
> with Package_I_Wanna_Know;
> procedure Blabla is
>     I_Want_To_Read_This_String : String;
>
> begin
>     I_Want_To_Read_This_String := Package_I_Wanna_Know.Wanted_Function;
> end Blabla;
> --
> And so, I_Want_To_Read_This_String = "Blabla".

You can use PragmARC.Reflection to obtain a unit's name. This is part of the 
PragmAda Reusable Components:

pragmada.x10hosting.com

-- 
Jeff Carter
"Strange women lying in ponds distributing swords
is no basis for a system of government."
Monty Python & the Holy Grail
66

Re: Package name as string

[Per Sandberg]

Simplest way with GNAT is:

with GNAT.Source_Info;
package body blaa is
    package_name : constant String := GNAT.Source_Info.Enclosing_Entity;
    ...
    ...
end blaa;


On 02/15/2011 07:33 PM, Rego wrote:
> Does someone know a function/package which I get the name of the (other) procedure in use as a string?
>
> I mean, I have a procedure which needs to make a call that returns its own name in a string form:
> --
> with Package_I_Wanna_Know;
> procedure Blabla is
>     I_Want_To_Read_This_String : String;
>
> begin
>     I_Want_To_Read_This_String := Package_I_Wanna_Know.Wanted_Function;
> end Blabla;
> --
> And so, I_Want_To_Read_This_String = "Blabla".
>
> Tks!

Re: Package name as string

[Dmitry A. Kazakov]

On Wed, 16 Feb 2011 08:06:45 +0100, Per Sandberg wrote:

> Simplest way with GNAT is:
> 
> with GNAT.Source_Info;
> package body blaa is
>     package_name : constant String := GNAT.Source_Info.Enclosing_Entity;
>     ...
>     ...
> end blaa;

A possible GNAT-independent implementation:

   with Ada.Tags;

   function Name return String is
      type Dummy is tagged limited null record;
      Result : String  := Ada.Tags.Expanded_Name (Dummy'Tag);
   begin
      return Result (Result'First..Result'Last - 11);
   end Name;

To be cut and pasted into each body where it has to be used.

[ Of course with generic instances the question becomes ambiguous. ]

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de

Re: Package name as string

[Georg Bauhaus]

On 16.02.11 09:52, Dmitry A. Kazakov wrote:
> On Wed, 16 Feb 2011 08:06:45 +0100, Per Sandberg wrote:

> A possible GNAT-independent implementation:
> 
>    with Ada.Tags;
> 
>    function Name return String is
>       type Dummy is tagged limited null record;
>       Result : String  := Ada.Tags.Expanded_Name (Dummy'Tag);
>    begin
>       return Result (Result'First..Result'Last - 11);
>    end Name;
> 

This is akin to what Pragmada.Reflection does.
It uses instances of a generic, an abstract type,
and does then not rely on -11.

Re: Package name as string

[Dmitry A. Kazakov]

On Wed, 16 Feb 2011 11:51:38 +0100, Georg Bauhaus wrote:

> On 16.02.11 09:52, Dmitry A. Kazakov wrote:
>> On Wed, 16 Feb 2011 08:06:45 +0100, Per Sandberg wrote:
> 
>> A possible GNAT-independent implementation:
>> 
>>    with Ada.Tags;
>> 
>>    function Name return String is
>>       type Dummy is tagged limited null record;
>>       Result : String  := Ada.Tags.Expanded_Name (Dummy'Tag);
>>    begin
>>       return Result (Result'First..Result'Last - 11);
>>    end Name;
>> 
> 
> This is akin to what Pragmada.Reflection does.
> It uses instances of a generic, an abstract type,
> and does then not rely on -11.

11 = ".Name.Dummy"'Length

-- 
Regards,
Dmitry A. Kazakov
http://www.dmitry-kazakov.de

Re: Package name as string

[Rego]

Thanks people,
It helps me a lot.
Regards.