-
+ F12CA7F8F9755AD77B5EF30AD9EE5C3CA83D1D24FFA5807F669005A3CE8F3BA37321E313E76C5D6141AF32C716A61CCA94E5A668291F46C2633A8A447B7758A9
smg_comms/tests/test_comms.gpr

(0 . 0)(1 . 52)
 -- S.MG, 2018
 -- basic tests for the prototype implementation of S.MG communication protocol
 -- http://trilema.com/2018/euloras-communication-protocol-restated/ 

with "../smg_comms.gpr";

project Test_comms is 

  type Mode_Type is ("debug", "release");
  Mode : Mode_Type := external ("mode", "release");

  for Languages use ("Ada");

  for Source_Dirs use (".");
  for Ignore_Source_Sub_Dirs use (".svn", ".git", "@*");

  for Object_Dir use "obj";
  for Exec_Dir use ".";

  for Main use ("testall.adb");

  package Compiler is

    case Mode is
      when "debug" =>
        for Switches ("Ada")
          use ("-g");
      when "release" =>
        for Switches ("Ada")
          use ("-O2", "-fdump-scos", "-gnata", "-fstack-check",
               "-gnatyd", "-gnatym",
               "-fdata-sections", "-ffunction-sections", "-gnatwr", "-gnatw.d",
               "-gnatec=" & SMG_Comms'Project_Dir & "restrict.adc");
    end case;
  end Compiler;
    
  package Builder is
    for Executable ("test_comms.adb") use "test_comms";
  end Builder;
  
  package Binder is
    case Mode is
      when "debug" =>
        for Switches ("Ada")
          use ();
      when "release" =>
        for Switches ("Ada")
          use ("-static");
    end case;
  end Binder;

end Test_comms;