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