Re: Pragma for conditional compilation? (Ada 2005 vs. 95)

[Pascal Obry <pascal@obry.net>]

Note that some of the configuration management can be done directly with
GNAT Project File. In this case:

   type OS_Type is ("UNIX", "Windows_NT");
   OS : OS_Type := external ("OS", "UNIX");

   case OS is
      when "Windows_NT" =>
         for Implementation ("OS_Services")
              use "os_services__win32.adb";
      when "UNIX" =>
         for Implementation ("OS_Services")
              use "os_services__linux.adb";
   end case;

Note the double underscore to be sure that those files are not found
automatically by the project file when storing the OS specific units
with all the other sources.

Alternatively it is possible to do:

   case OS is
      when "Windows_NT" =>
         for Source_Dirs use Project'Source_Dirs & ("win32");
      when "UNIX" =>
         for Source_Dirs use Project'Source_Dirs & ("linux");
   end case;

And place the bodies in the proper directories.

Pascal.


-- 

--|------------------------------------------------------
--| Pascal Obry                           Team-Ada Member
--| 45, rue Gabriel Peri - 78114 Magny Les Hameaux FRANCE
--|------------------------------------------------------
--|              http://www.obry.net
--| "The best way to travel is by means of imagination"
--|
--| gpg --keyserver wwwkeys.pgp.net --recv-key C1082595