raw
cryostat_genesis.kv     1 ------------------------------------------------------------------------------
cryostat_genesis.kv     2 ------------------------------------------------------------------------------
cryostat_genesis.kv     3 -- This file is part of 'CryoDemo', a tutorial example for 'Cryostat'.      --
cryostat_genesis.kv     4 --                                                                          --
cryostat_genesis.kv     5 -- (C) 2020 Stanislav Datskovskiy ( www.loper-os.org )                      --
cryostat_genesis.kv     6 -- http://wot.deedbot.org/17215D118B7239507FAFED98B98228A001ABFFC7.html     --
cryostat_genesis.kv     7 --                                                                          --
cryostat_genesis.kv     8 -- You do not have, nor can you ever acquire the right to use, copy or      --
cryostat_genesis.kv     9 -- distribute this software ; Should you use this software for any purpose, --
cryostat_genesis.kv    10 -- or copy and distribute it to anyone or in any manner, you are breaking   --
cryostat_genesis.kv    11 -- the laws of whatever soi-disant jurisdiction, and you promise to         --
cryostat_genesis.kv    12 -- continue doing so for the indefinite future. In any case, please         --
cryostat_genesis.kv    13 -- always : read and understand any software ; verify any PGP signatures    --
cryostat_genesis.kv    14 -- that you use - for any purpose.                                          --
cryostat_genesis.kv    15 ------------------------------------------------------------------------------
cryostat_genesis.kv    16 ------------------------------------------------------------------------------
cryostat_genesis.kv    17 
cryostat_genesis.kv    18 with "../libcryo/cryostat.gpr";
cryostat_genesis.kv    19 
cryostat_genesis.kv    20 project CryoDemo is
cryostat_genesis.kv    21   
cryostat_genesis.kv    22   for Object_Dir use "obj";
cryostat_genesis.kv    23   
cryostat_genesis.kv    24   type Mode_Type is ("debug", "release");
cryostat_genesis.kv    25   Mode : Mode_Type := external ("mode", "release");
cryostat_genesis.kv    26   
cryostat_genesis.kv    27   for Languages   use ("Ada");
cryostat_genesis.kv    28   for Source_Dirs use (".");
cryostat_genesis.kv    29   for Exec_Dir    use "bin";
cryostat_genesis.kv    30   for Main        use ("cryodemo.adb");
cryostat_genesis.kv    31   
cryostat_genesis.kv    32   package Compiler is
cryostat_genesis.kv    33      case Mode is
cryostat_genesis.kv    34         when "debug" =>
cryostat_genesis.kv    35            for Switches ("Ada")
cryostat_genesis.kv    36              use ("-g");
cryostat_genesis.kv    37         when "release" =>
cryostat_genesis.kv    38            for Switches ("Ada")
cryostat_genesis.kv    39              use ("-O2", "-fdump-scos", "-gnata", "-fstack-check",
cryostat_genesis.kv    40                   "-gnatyd", "-gnatym",
cryostat_genesis.kv    41                   "-fdata-sections", "-ffunction-sections",
cryostat_genesis.kv    42                   "-gnatec=" & CryoDemo'Project_Dir & "restrict.adc");
cryostat_genesis.kv    43      end case;
cryostat_genesis.kv    44   end Compiler;
cryostat_genesis.kv    45   
cryostat_genesis.kv    46   package Binder is
cryostat_genesis.kv    47      case Mode is
cryostat_genesis.kv    48         when "debug" =>
cryostat_genesis.kv    49            for Switches ("Ada")
cryostat_genesis.kv    50              use ();
cryostat_genesis.kv    51         when "release" =>
cryostat_genesis.kv    52            for Switches ("Ada")
cryostat_genesis.kv    53              use ("-static");
cryostat_genesis.kv    54      end case;
cryostat_genesis.kv    55   end Binder;
cryostat_genesis.kv    56 
cryostat_genesis.kv    57   package Linker is
cryostat_genesis.kv    58      case Mode is
cryostat_genesis.kv    59         when "debug" =>
cryostat_genesis.kv    60            for Switches ("Ada")
cryostat_genesis.kv    61              use ();
cryostat_genesis.kv    62         when "release" =>
cryostat_genesis.kv    63            for Switches ("Ada")
cryostat_genesis.kv    64              use ("-Wl,--gc-sections", "-static");
cryostat_genesis.kv    65      end case;
cryostat_genesis.kv    66   end Linker;
cryostat_genesis.kv    67   
cryostat_genesis.kv    68 end CryoDemo;