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=-1.9 required=5.0 tests=BAYES_00,FREEMAIL_FROM
	autolearn=unavailable autolearn_force=no version=3.4.4
X-Received: by 10.129.70.133 with SMTP id t127mr43344098ywa.58.1438197839188;
        Wed, 29 Jul 2015 12:23:59 -0700 (PDT)
X-Received: by 10.140.104.147 with SMTP id a19mr594366qgf.2.1438197839170;
 Wed, 29 Jul 2015 12:23:59 -0700 (PDT)
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!mx02.eternal-september.org!feeder.eternal-september.org!usenet.blueworldhosting.com!feeder01.blueworldhosting.com!border2.nntp.dca1.giganews.com!nntp.giganews.com!69no2670242qgl.1!news-out.google.com!4ni82650qgh.1!nntp.google.com!69no2670239qgl.1!postnews.google.com!glegroupsg2000goo.googlegroups.com!not-for-mail
Newsgroups: comp.lang.ada
Date: Wed, 29 Jul 2015 12:23:58 -0700 (PDT)
In-Reply-To: <e6dd5958-4f1c-42f4-b148-2b6c364475d7@googlegroups.com>
Complaints-To: groups-abuse@google.com
Injection-Info: glegroupsg2000goo.googlegroups.com;
 posting-host=83.218.188.211;
 posting-account=gRqrnQkAAAAC_02ynnhqGk1VRQlve6ZG
NNTP-Posting-Host: 83.218.188.211
References: <e610ca1e-4df6-4fbb-b3a1-ac35694d9072@googlegroups.com>
 <mp7lgq$m9h$2@dont-email.me>
 <9d870b85-cd15-4814-af8d-0e0cd65eaff6@googlegroups.com>
 <mpa9uu$lun$2@dont-email.me>
 <e6dd5958-4f1c-42f4-b148-2b6c364475d7@googlegroups.com>
User-Agent: G2/1.0
MIME-Version: 1.0
Message-ID: <a30feafe-f22b-4ff8-887e-192fab2f3b26@googlegroups.com>
Subject: Re: Running a preprocessor from GPS?
From: gautier_niouzes@hotmail.com
Injection-Date: Wed, 29 Jul 2015 19:23:59 +0000
Content-Type: text/plain; charset=ISO-8859-1
Content-Transfer-Encoding: quoted-printable
Xref: news.eternal-september.org comp.lang.ada:27142
Date: 2015-07-29T12:23:58-07:00
List-Id: <comp.lang.ada>

Le mercredi 29 juillet 2015 14:00:31 UTC+2, EGarrulo a =E9crit=A0:
> But I would use a preprocessor to expand code unconditionally.  If using =
the C preprocessor, it would be something like this:
>=20
> #define TRACE(level,message)          \
>             if Active (Level) then    \
>                Trace(Level, Message); \
>             end if;
>=20
> Note: for simplicity, I haven't addressed the problem of evaluating `Leve=
l` twice.

You can do it in Ada with inlined functions.
If level is constant the unnecessary code will be removed as well.
No need of a preprocessor (there at least) !
NB: usually I have a simpler logic for these things as well:

  type Trace_level is (trace_level_1, trace_level_2, trace_level_3);

  trace: constant: Trace_level:=3D trace_level_2;

somewhere in the code:

  if trace_level >=3D trace_level_2 then ...

That's it !

Enjoy
_________________________
Gautier's Ada programming
http://gautiersblog.blogspot.com/search/label/Ada
NB: follow the above link for a valid e-mail address