comp.lang.ada
 help / color / mirror / Atom feed
From: Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>
Subject: Re: Package name as string
Date: Tue, 15 Feb 2011 12:16:55 -0700
Date: 2011-02-15T12:16:55-07:00	[thread overview]
Message-ID: <ijejfc$g3h$1@tornado.tornevall.net> (raw)
In-Reply-To: <a6e2169a-cfab-4ea0-b07c-e22a10193c39@glegroupsg2000goo.googlegroups.com>

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



  reply	other threads:[~2011-02-15 19:16 UTC|newest]

Thread overview: 7+ messages / expand[flat|nested]  mbox.gz  Atom feed  top
2011-02-15 18:33 Package name as string Rego
2011-02-15 19:16 ` Jeffrey Carter [this message]
2011-02-16  7:06 ` Per Sandberg
2011-02-16  8:52   ` Dmitry A. Kazakov
2011-02-16 10:51     ` Georg Bauhaus
2011-02-16 13:03       ` Dmitry A. Kazakov
2011-02-16 13:14       ` Rego
replies disabled

This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox