savadur.gpr

   1 ------------------------------------------------------------------------------
   2 --                                Savadur                                   --
   3 --                                                                          --
   4 --                         Copyright (C) 2007-2008                          --
   5 --                      Pascal Obry - Olivier Ramonat                       --
   6 --                                                                          --
   7 --  This library is free software; you can redistribute it and/or modify    --
   8 --  it under the terms of the GNU General Public License as published by    --
   9 --  the Free Software Foundation; either version 2 of the License, or (at   --
  10 --  your option) any later version.                                         --
  11 --                                                                          --
  12 --  This library is distributed in the hope that it will be useful, but     --
  13 --  WITHOUT ANY WARRANTY; without even the implied warranty of              --
  14 --  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU       --
  15 --  General Public License for more details.                                --
  16 --                                                                          --
  17 --  You should have received a copy of the GNU General Public License       --
  18 --  along with this library; if not, write to the Free Software Foundation, --
  19 --  Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.       --
  20 ------------------------------------------------------------------------------
  21
  22 project Savadur is
  23
  24    for Source_Dirs use ();
  25
  26    type Build_Type is ("Debug", "Release", "Profile");
  27    Build : Build_Type := external ("PRJ_BUILD", "Debug");
  28
  29    type OS_Type is ("UNIX", "Windows_NT");
  30    OS : OS_Type := external ("OS", "UNIX");
  31
  32    type In_Test_Kind is ("TRUE", "FALSE");
  33    In_Test : In_Test_Kind := external ("IN_TEST", "FALSE");
  34
  35    -------------
  36    -- Builder --
  37    -------------
  38
  39    package Builder is
  40       case Build is
  41          when "Debug" | "Release" =>
  42             for Default_Switches ("Ada") use ("-m", "-s");
  43             for Executable ("savadur-bin") use "savadur";
  44          when "Profile" =>
  45             for Default_Switches ("Ada") use
  46               ("-m", "-s", "-fprofile-arcs", "-ftest-coverage");
  47             for Executable ("savadur-bin") use "savadur-profile";
  48       end case;
  49    end Builder;
  50
  51    --------------
  52    -- Compiler --
  53    --------------
  54
  55    Common_Options  :=
  56      ("-gnat05", "-gnatwa", "-gnatwe",
  57       "-gnaty3Aabcdefhiklmnoprstux", "-Wall");
  58    --  Common options used for the Debug and Release modes
  59
  60    Debug_Options   :=
  61      ("-g", "-gnata", "-gnatVa", "-gnatQ", "-gnato");
  62
  63    Release_Options :=
  64      ("-O2", "-gnatn");
  65
  66    package Compiler is
  67       case Build is
  68          when "Debug" | "Profile" =>
  69             for Default_Switches ("Ada") use Common_Options & Debug_Options;
  70
  71          when "Release" =>
  72             for Default_Switches ("Ada") use Common_Options & Release_Options;
  73       end case;
  74    end Compiler;
  75
  76    ------------
  77    -- Binder --
  78    ------------
  79
  80    package Binder is
  81       case Build is
  82          when "Debug" | "Profile" =>
  83             for Default_Switches ("Ada") use ("-E", "-g");
  84
  85          when "Release" =>
  86             for Default_Switches ("Ada") use ("-E");
  87       end case;
  88    end Binder;
  89
  90    ------------
  91    -- Linker --
  92    ------------
  93
  94    package Linker is
  95       case Build is
  96          when "Debug" =>
  97             for Default_Switches ("Ada") use ("-g");
  98
  99          when "Profile" =>
 100             for Default_Switches ("Ada") use ("-g", "-lgmem");
 101
 102          when "Release" =>
 103             null;
 104       end case;
 105    end Linker;
 106
 107    ---------
 108    -- IDE --
 109    ---------
 110
 111    package IDE is
 112       for VCS_Kind use "Git";
 113    end IDE;
 114
 115 end Savadur;