From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!.POSTED!not-for-mail
From: =?UTF-8?B?QmrDtnJuIEx1bmRpbg==?= <b.f.lundin@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Running a preprocessor from GPS?
Date: Tue, 28 Jul 2015 13:43:44 +0200
Organization: A noiseless patient Spider
Message-ID: <mp7pn9$mb3$1@dont-email.me>
References: <e610ca1e-4df6-4fbb-b3a1-ac35694d9072@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
Injection-Date: Tue, 28 Jul 2015 11:40:25 +0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="6a09ccc49493ecf301ef65af9aa456c7";
	logging-data="22883"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX193m3uf2+EiEp9c6IpOFJ8G"
User-Agent: Mozilla/5.0 (X11; Linux x86_64;
 rv:31.0) Gecko/20100101 Icedove/31.7.0
In-Reply-To: <e610ca1e-4df6-4fbb-b3a1-ac35694d9072@googlegroups.com>
Cancel-Lock: sha1:6cHMR/340+/b9B4sLSgvWCP+EJ4=
Xref: news.eternal-september.org comp.lang.ada:27079
Date: 2015-07-28T13:43:44+02:00
List-Id: <comp.lang.ada>

On 2015-07-27 16:28, EGarrulo wrote:
> I would like to add logging statements to my units.  By using GNATColl.Traces, I could add lines like this one:
> 
> if Active (Me) then
>    Trace (Me, "Performing Step " & Step(...));
> end if;
> 
> However, this is too verbose.  I could write all the three statements onto a single line, 
<but that wouldn't be able to use the "Pretty Print" function of GPS.
> Therefore, I must find a way to use a preprocessor macro -- instead -- that lets me write a statement like this one:
> 
>    TRACE (Me, "Performing Step " & Step(...));
> 

Why not encapsulate the Trace procedure ?

procedure Trace_If_Active(Me: Some_Type; What: String ) is
begin
  if Active (Me) then
    Trace (Me, What);
  end if;
end Trace_If_Active;

Trace_If_Active (Me, "Performing Step " & Step(...));




-- 
--
Björn