raw
smg_comms_packing...    1  -- S.MG, 2018
smg_comms_packing...    2  -- basic tests for the prototype implementation of S.MG communication protocol
smg_comms_packing...    3  -- http://trilema.com/2018/euloras-communication-protocol-restated/ 
smg_comms_packing...    4 
smg_comms_packing...    5 with "../smg_comms.gpr";
smg_comms_packing...    6 
smg_comms_packing...    7 project Test_comms is 
smg_comms_packing...    8 
smg_comms_packing...    9   type Mode_Type is ("debug", "release");
smg_comms_packing...   10   Mode : Mode_Type := external ("mode", "release");
smg_comms_packing...   11 
smg_comms_packing...   12   for Languages use ("Ada");
smg_comms_packing...   13 
smg_comms_packing...   14   for Source_Dirs use (".");
smg_comms_packing...   15   for Ignore_Source_Sub_Dirs use (".svn", ".git", "@*");
smg_comms_packing...   16 
smg_comms_packing...   17   for Object_Dir use "obj";
smg_comms_packing...   18   for Exec_Dir use ".";
smg_comms_packing...   19 
smg_comms_packing...   20   for Main use ("testall.adb");
smg_comms_packing...   21 
smg_comms_packing...   22   package Compiler is
smg_comms_packing...   23 
smg_comms_packing...   24     case Mode is
smg_comms_packing...   25       when "debug" =>
smg_comms_packing...   26         for Switches ("Ada")
smg_comms_packing...   27           use ("-g");
smg_comms_packing...   28       when "release" =>
smg_comms_packing...   29         for Switches ("Ada")
smg_comms_packing...   30           use ("-O2", "-fdump-scos", "-gnata", "-fstack-check",
smg_comms_packing...   31                "-gnatyd", "-gnatym",
smg_comms_packing...   32                "-fdata-sections", "-ffunction-sections", "-gnatwr", "-gnatw.d",
smg_comms_packing...   33                "-gnatec=" & SMG_Comms'Project_Dir & "restrict.adc");
smg_comms_packing...   34     end case;
smg_comms_packing...   35   end Compiler;
smg_comms_packing...   36     
smg_comms_packing...   37   package Builder is
smg_comms_packing...   38     for Executable ("test_comms.adb") use "test_comms";
smg_comms_packing...   39   end Builder;
smg_comms_packing...   40   
smg_comms_packing...   41   package Binder is
smg_comms_packing...   42     case Mode is
smg_comms_packing...   43       when "debug" =>
smg_comms_packing...   44         for Switches ("Ada")
smg_comms_packing...   45           use ();
smg_comms_packing...   46       when "release" =>
smg_comms_packing...   47         for Switches ("Ada")
smg_comms_packing...   48           use ("-static");
smg_comms_packing...   49     end case;
smg_comms_packing...   50   end Binder;
smg_comms_packing...   51 
smg_comms_packing...   52 end Test_comms;