Re: Conditional compilation of debug traces without cpp

[Jean-Pierre Rosen <rosen@adalog.fr>]

guillaume.portail@grospied.enanglais.com a �crit :
> package Debug is
>   procedure Put_Line (M : in String);
> end;
> 
> package body Debug is
>   Enabled : constant Boolean := False;
>   procedure Put_Line (M : in String) is
>   begin
>     if Enabled then
>       Real_Put_Line (M);
>     end;
>   end;
> end;
Small plug: have a look at package Debug from Adalog's components page 
(http://www.adalog.fr/compo2.htm), it does this in a very sophistciated 
way...

As for your question:
> How may I organize the code to obtain the effect of having Debug.* calls 
> being nulls when Debug.Enabled is False ?
> 
Name you package Debug_Effective. Then write another package 
(Debug_Dummy) with the same specification, and where all procedures are 
null. Then simply compile:

with Debug_Effective;
package Debug renames Debug_Effective;

or:
with Debug_Dummy;
package Debug renames Debug_Dummy;

Switching packages is then not more difficult than changing a #define...

-- 
---------------------------------------------------------
            J-P. Rosen (rosen@adalog.fr)
Visit Adalog's web site at http://www.adalog.fr