employ style checks

fixes #21

Author: jklmnn

.travis.yml

@@ -6,7 +6,7 @@ services:
     - docker
 
 script:
-    - docker run -v $PWD:/basalt -t jklmnn/componolit-ci:latest-gnat /bin/sh -c "gprbuild -P /basalt/test/aunit/test.gpr && /basalt/test/aunit/obj/test && gnatprove -P /basalt/test/proof/proof.gpr --level=2 --report=all --checks-as-errors"
+    - docker run -v $PWD:/basalt -t jklmnn/componolit-ci:latest-gnat /bin/sh -c "gprbuild -P /basalt/basalt.gpr && gprclean -P /basalt/basalt.gpr && gprbuild -P /basalt/test/aunit/test.gpr -XBUILD=test && /basalt/test/aunit/obj/test && gnatprove -P /basalt/test/proof/proof.gpr --level=2 --report=all --checks-as-errors"
 
 after_script:
    - cat test/proof/obj/gnatprove/gnatprove.out

basalt.gpr

@@ -1,8 +1,12 @@
 
+with "switches.gpr";
+
 library project Basalt is
 
    type Library_Type is ("dynamic", "static");
-   Kind : Library_Type := external ("KIND", "dynamic");
+   type Build_Type is ("default", "test");
+   Kind  : Library_Type := external ("KIND", "dynamic");
+   Build : Build_Type   := external ("BUILD", "default");
 
    for Create_Missing_Dirs use "True";
    for Source_Dirs use ("src");
@@ -13,12 +17,21 @@ library project Basalt is
    for Library_Dir use "lib";
    for Library_Kind use Kind;
 
+   package Builder is
+      case Build is
+         when "default" =>
+            for Global_Configuration_Pragmas use "restrictions.adc";
+         when "test" =>
+            for Global_Configuration_Pragmas use "test_restrictions.adc";
+      end case;
+   end Builder;
+
    package Compiler is
       case Kind is
          when "dynamic" =>
-            null;
+            for Default_Switches ("Ada") use Switches.Compiler_Switches;
          when "static" =>
-            for Default_Switches ("Ada") use ("-fPIC");
+            for Default_Switches ("Ada") use ("-fPIC") & Switches.Compiler_Switches;
       end case;
    end Compiler;
 

restrictions.adc

@@ -0,0 +1,12 @@
+pragma Restrictions (No_Allocators);
+pragma Restrictions (No_Calendar);
+pragma Restrictions (No_Enumeration_Maps);
+pragma Restrictions (No_Exceptions);
+pragma Restrictions (No_Exception_Handlers);
+pragma Restrictions (No_Implicit_Dynamic_Code);
+pragma Restrictions (No_Initialize_Scalars);
+pragma Restrictions (No_IO);
+pragma Restrictions (No_Streams);
+pragma Restrictions (No_Tasking);
+pragma Restrictions (Static_Storage_Size);
+pragma SPARK_Mode (On);

switches.gpr

@@ -0,0 +1,64 @@
+abstract project Switches
+is
+   Compiler_Switches :=
+   (
+      "-gnatA"	 -- Avoid processing gnat.adc, if present file will be ignored
+
+     --  ,"-gnatef" -- Full source path in brief error messages
+
+     -- Disabled due to a bug in GNAT Community 2018
+     --,"-gnateV" -- Validity checks on subprogram parameters
+
+     ,"-gnatf"  -- Full errors. Verbose details, all undefined references
+     ,"-gnatU"  -- Enable unique tag for error messages
+
+     -- Validity checks
+     ,"-gnatVa" -- turn on all validity checking options
+
+     -- Warnings
+     ,"-gnatwa" -- turn on all info/warnings marked with + in gnatmake help
+     ,"-gnatwe" -- treat all warnings (but not info) as errors
+     ,"-gnatwd" -- turn on warnings for implicit dereference
+     ,"-gnatwh" -- turn on warnings for hiding declarations
+     ,"-gnatwk" -- turn on warnings for standard redefinition
+     ,"-gnatwt" -- turn on warnings for tracking deleted code
+     ,"-gnatwu" -- turn on warnings for unordered enumeration
+
+     -- Style checks
+     ,"-gnaty3"    -- Check indentation (3 spaces)
+     ,"-gnatya"    -- check attribute casing
+     ,"-gnatyA"    -- check array attribute indexes
+     ,"-gnatyb"    -- check no blanks at end of lines
+     ,"-gnatyc"    -- check comment format (two spaces)
+     ,"-gnatyd"    -- check no DOS line terminators
+     ,"-gnatye"    -- check end/exit labels present
+     ,"-gnatyf"    -- check no form feeds/vertical tabs in source
+     ,"-gnatyh"    -- check no horizontal tabs in source
+     ,"-gnatyi"    -- check if-then layout
+     ,"-gnatyI"    -- check mode in
+     ,"-gnatyk"    -- check casing rules for keywords
+     ,"-gnatyl"    -- check reference manual layout
+     ,"-gnatyL8"   -- check max nest level < nn
+     ,"-gnatyM120" -- check line length <= nn characters
+     ,"-gnatyn"    -- check casing of package Standard identifiers
+     ,"-gnatyO"    -- check overriding indicators
+     ,"-gnatyp"    -- check pragma casing
+     ,"-gnatyr"    -- check casing for identifier references
+     ,"-gnatys"    -- check separate subprogram specs present
+     ,"-gnatyS"    -- check separate lines after THEN or ELSE
+     ,"-gnatyt"    -- check token separation rules
+     ,"-gnatyu"    -- check no unnecessary blank lines
+     ,"-gnatyx"    -- check extra parentheses around conditionals
+
+   );
+
+   Compiler_Debug_Switches :=
+   (
+      "-fstack-check"      -- dynamic stack checking
+     ,"-gnata"             -- Enable pragma Assert/Debug
+     ,"-gnato"             -- Overflow checking
+     ,"-g"                 -- Debug symbols
+     ,"-O0"                -- Debug symbols
+   );
+
+end Switches;