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.3 required=5.0 tests=BAYES_00,
	REPLYTO_WITHOUT_TO_CC 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!feeder.eternal-september.org!aioe.org!.POSTED!not-for-mail
From: "Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>
Newsgroups: comp.lang.ada
Subject: Re: Running a preprocessor from GPS?
Date: Tue, 28 Jul 2015 13:51:42 +0200
Organization: cbb software GmbH
Message-ID: <1ckwx9hern944$.1w0k6fbvlqo62$.dlg@40tude.net>
References: <e610ca1e-4df6-4fbb-b3a1-ac35694d9072@googlegroups.com>
 <mp7pn9$mb3$1@dont-email.me>
Reply-To: mailbox@dmitry-kazakov.de
NNTP-Posting-Host: 5CNUwuQ0q1vZOSDFkeKrYQ.user.speranza.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset="iso-8859-1"
Content-Transfer-Encoding: 8bit
X-Complaints-To: abuse@aioe.org
User-Agent: 40tude_Dialog/2.0.15.1
X-Notice: Filtered by postfilter v. 0.8.2
Xref: news.eternal-september.org comp.lang.ada:27080
Date: 2015-07-28T13:51:42+02:00
List-Id: <comp.lang.ada>

On Tue, 28 Jul 2015 13:43:44 +0200, Björn Lundin wrote:

> 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(...));

Because *What* must be evaluated lazily, which is not possible in Ada. That
is why the only way to do it is, IMO, as Randy had suggested:

   if Is_On (Trace_Topic) then
      Trace (Trace_Topic, <complicated expression>);
   end if;

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