Re: Conditional compilation in Ada?

["Dmitry A. Kazakov" <mailbox@dmitry-kazakov.de>]

On Wed, 17 Nov 2004 13:32:06 +0100, Georg Bauhaus wrote:

> Frank Piron wrote:
>> we wanted
>> to switch on and off debugging messages for each package
>> individually and for certain levels 
>> We tried with gnatprep but found it not suitable for this
>> task.
> 
> Perhaps another option is to have
> 
> package DEBUG renames Silent_Debugging_Procedures;
> 
> or
> 
> package DEBUG renames Debugging_Procedures;
> 
> inside package bodies? Then statements like
> 
>    DEBUG.put_line(...);
>
> might or might not print something.

Put_Line (File, ...); -- File is opened on /dev/null or not (:-))

Seriously, the actual problem with that is:

DEBUG.put_line
(  "Here " & Is.Something ("reasonable complex to evaluate")
);

Arguments of put_line will be always evaluated before being thrown away.
Alas, Ada does not have lazy formal parameters...

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