raw
eucrypt_ch14_crc32      1 ------------------------------------------------------------------------------
eucrypt_ch14_crc32      2 ------------------------------------------------------------------------------
eucrypt_ch14_crc32      3 -- CRC32 checksum lib                                                       --
eucrypt_ch14_crc32      4 -- S.MG, 2018                                                               --
eucrypt_ch14_crc32      5 --                                                                          --
eucrypt_ch14_crc32      6 -- You do not have, nor can you ever acquire the right to use, copy or      --
eucrypt_ch14_crc32      7 -- distribute this software ; Should you use this software for any purpose, --
eucrypt_ch14_crc32      8 -- or copy and distribute it to anyone or in any manner, you are breaking   --
eucrypt_ch14_crc32      9 -- the laws of whatever soi-disant jurisdiction, and you promise to         --
eucrypt_ch14_crc32     10 -- continue doing so for the indefinite future. In any case, please         --
eucrypt_ch14_crc32     11 -- always : read and understand any software ; verify any PGP signatures    --
eucrypt_ch14_crc32     12 -- that you use - for any purpose.                                          --
eucrypt_ch14_crc32     13 --                                                                          --
eucrypt_ch14_crc32     14 -- See also http://trilema.com/2015/a-new-software-licensing-paradigm .     --
eucrypt_ch14_crc32     15 ------------------------------------------------------------------------------
eucrypt_ch14_crc32     16 ------------------------------------------------------------------------------
eucrypt_ch14_crc32     17 
eucrypt_ch14_crc32     18 project CRC32 is
eucrypt_ch14_crc32     19   
eucrypt_ch14_crc32     20   for Object_Dir use "obj";
eucrypt_ch14_crc32     21   
eucrypt_ch14_crc32     22   type Mode_Type is ("debug", "release");
eucrypt_ch14_crc32     23   Mode : Mode_Type := external ("mode", "release");
eucrypt_ch14_crc32     24   
eucrypt_ch14_crc32     25   for Languages    use ("Ada");
eucrypt_ch14_crc32     26   for Source_Dirs  use (".");
eucrypt_ch14_crc32     27   for Library_Dir  use "lib";
eucrypt_ch14_crc32     28   for Library_Name use "CRC32";
eucrypt_ch14_crc32     29   for Library_Kind use "static";
eucrypt_ch14_crc32     30   
eucrypt_ch14_crc32     31   package Compiler is
eucrypt_ch14_crc32     32      case Mode is
eucrypt_ch14_crc32     33         when "debug" =>
eucrypt_ch14_crc32     34            for Switches ("Ada")
eucrypt_ch14_crc32     35              use ("-g");
eucrypt_ch14_crc32     36         when "release" =>
eucrypt_ch14_crc32     37            for Switches ("Ada")
eucrypt_ch14_crc32     38              use ("-O2", "-fdump-scos", "-gnata", "-fstack-check",
eucrypt_ch14_crc32     39                   "-gnatyd", "-gnatym",
eucrypt_ch14_crc32     40                   "-fdata-sections", "-ffunction-sections", "-gnatwr", "-gnatw.d",
eucrypt_ch14_crc32     41                   "-gnatec=" & CRC32'Project_Dir & "restrict.adc");
eucrypt_ch14_crc32     42      end case;
eucrypt_ch14_crc32     43   end Compiler;
eucrypt_ch14_crc32     44     
eucrypt_ch14_crc32     45   package Builder is
eucrypt_ch14_crc32     46      for Switches ("Ada")
eucrypt_ch14_crc32     47        use ("-nostdlib");
eucrypt_ch14_crc32     48   end Builder;
eucrypt_ch14_crc32     49   
eucrypt_ch14_crc32     50   package Binder is
eucrypt_ch14_crc32     51      case Mode is
eucrypt_ch14_crc32     52         when "debug" =>
eucrypt_ch14_crc32     53            for Switches ("Ada")
eucrypt_ch14_crc32     54              use ();
eucrypt_ch14_crc32     55         when "release" =>
eucrypt_ch14_crc32     56            for Switches ("Ada")
eucrypt_ch14_crc32     57              use ("-static");
eucrypt_ch14_crc32     58      end case;
eucrypt_ch14_crc32     59   end Binder;
eucrypt_ch14_crc32     60   
eucrypt_ch14_crc32     61 end CRC32;