1with "adacurses.gpr"; 2 3project Slider is 4 5 type Mode_Type is 6 ("debug", "release"); 7 Mode : Mode_Type := external ("mode", "debug"); 8 for Main use ("slider.adb"); 9 10 package Compiler is 11 12 case Mode is 13 14 when "debug" => 15 for Switches ("Ada") use ("-gnaty", "-gnateE", "-g"); 16 17 when "release" => 18 for Switches ("Ada") use ("-O2"); 19 end case; 20 end Compiler; 21 22 package Ide is 23 24 case Mode is 25 26 when "debug" => 27 for Compiler_Command ("ada") use "gnatmake"; 28 29 when "release" => 30 31 end case; 32 end Ide; 33 34 case Mode is 35 36 when "debug" => 37 for Object_Dir use "construction"; 38 39 when "release" => 40 41 end case; 42 43end Slider; 44 45