From: "David C. Hoos, Sr." <david.c.hoos.sr@ada95.com>
Subject: Re: Package name
Date: Wed, 16 May 2001 12:08:55 -0500
Date: 2001-05-16T12:08:55-05:00 [thread overview]
Message-ID: <SuyM6.218$i8.699307@newsrump.sjc.telocity.net> (raw)
In-Reply-To: 990017804.158478@edh3
This is a piece of "boilerplate" code I put in library unit bodies
to do just that.
It does so at the expense of two identifiers (ID and Exception_Name)
that are used only for the purpose of defining the value of the
Unit_Name string.
---------------------------------------------------------------------
-- The next three declarations are an artifice to obtain the name
-- of this unit -- e.g. for use in error messages.
---------------------------------------------------------------------
ID : exception;
Exception_Name : constant String :=
Ada.Exceptions.Exception_Name (Id'Identity);
Unit_Name : String renames
Exception_Name (Exception_Name'First .. Exception_Name'Last - 3);
"Atle R�stad" <aer@edh.ericsson.se> wrote in message
news:990017804.158478@edh3...
> Is it possible to print out the package name?
>
> It would be a nice feature in tracing. Maybe even print the
> procedure/function name.
>
> Regards Atle
>
>
next prev parent reply other threads:[~2001-05-16 17:08 UTC|newest]
Thread overview: 12+ messages / expand[flat|nested] mbox.gz Atom feed top
2001-05-16 12:56 Package name Atle R�stad
2001-05-16 13:28 ` Preben Randhol
2001-05-16 13:46 ` Atle R�stad
2001-05-16 14:00 ` Marin David Condic
2001-05-16 16:45 ` Claude SIMON
2001-05-17 13:59 ` Marin David Condic
2001-05-17 15:06 ` Samuel T. Harris
2001-05-16 18:24 ` Randy Brukardt
2001-05-16 16:10 ` Jeffrey Carter
2001-05-16 17:08 ` David C. Hoos, Sr. [this message]
-- strict thread matches above, loose matches on Subject: below --
2001-05-16 16:17 Beard, Frank
2001-05-16 18:11 ` tmoran
replies disabled
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox