Re: Conditional Compilation in Ada

[Chrono <pablittto@gmail.com>]

On 30 jun, 12:39, Per Sandberg <per.sandb...@bredband.net> wrote:
> After all discussions her are a solution for conditinal compilation
> using GNAT:
> ------------------------------------------------
> project Fools is
>     type Dumb_Type is ("""JustStupid""", """Idiot""", """Fool""");
>     Dumb : Dumb_Type := external ("DUMB", """Fool""");
>
>     package Compiler is
>        for Default_Switches ("ada") use
>          ("-gnateDDUMB=" & Dumb);
>     end Compiler;
> end Fools ;
> ------------------------------------------------
> package Fools  is
> #if DUMB= """Idiot""" then
>     a : Integer := 100;
> #else
>     a : integer := 20;
> #end if;
>     b : constant String := $DUMB;
> end Fools ;
> ------------------------------------------------
> with ada.Text_IO;
> procedure Fools.main is
> begin
>     Ada.Text_IO.Put_Line(B & " -> "&a'img);
> end Fools.main;
> ------------------------------------------------
> /Ugly but it works
> /Per
>
> Pablo wrote:
> > Hi, does someone know how to make conditional compilation in Ada with
> > Scenarios? Say, I need to hide from compilation a part of an Ada code
> > in some Scenario mode.
>
>

LOL!! It was exactly what I wanted!! Thanks very much, Per.