Build with alire

Author: JeremyGrosser

.gitignore

@@ -1,4 +1,3 @@
-obj
 gpr2ld
 gnatinspect.db
 spec-loc.xml
@@ -9,3 +8,7 @@ testsuite/**/linker.ld
 doc/_build
 startup-gen
 database
+/obj/
+/bin/
+/alire/
+/config/

alire.toml

@@ -0,0 +1,27 @@
+name = "startup_gen"
+description = "Start files generator"
+version = "23.0.0"
+
+authors = [
+    "Anthony Leonardo Gracio <[email protected]>",
+    "Corentin Gay <[email protected]>",
+    "Fabien Chouteau <[email protected]>",
+    "Frederic Konrad <[email protected]>",
+    "JK <[email protected]>",
+    "Joel Brobecker <[email protected]>",
+    "Martyn Pike <[email protected]>",
+    "pat-rogers <[email protected]>",
+]
+maintainers = ["Fabien Chouteau <[email protected]>"]
+maintainers-logins = ["JeremyGrosser"]
+licenses = "GPL-3.0-or-later"
+website = ""
+tags = []
+
+executables = ["startup_gen"]
+
+[[depends-on]]
+gnatcoll = "^23.0.0"
+
+[[depends-on]]
+templates_parser = "^23.0.0"

src/device.adb

@@ -134,7 +134,9 @@ package body Device is
          return "armv7e-m";
       elsif Match ("^(light|zfp)-cortex-m(23|33)(f|d|fd)?$") then
          return "armv8-m";
-      elsif Match ("^(light|zfp)-(riscv|risc-v|rv)(32|64|128)?[imafdgqlcjtpvnh]*$") then
+      elsif Match
+         ("^(light|zfp)-(riscv|risc-v|rv)(32|64|128)?[imafdgqlcjtpvnh]*$")
+      then
          return "risc-v";
       end if;
 

src/main.adb renamed to src/startup_gen.adb

@@ -28,7 +28,7 @@ with Setup;
 with Utils;
 with Device;                use Device;
 
-procedure Main is
+procedure Startup_Gen is
 
    use GNAT.Strings;
 
@@ -107,4 +107,4 @@ exception
         ("Project file """ & Input.Project_File.all & """ not found.");
    when Utils.Exit_Exc => null;
 
-end Main;
+end Startup_Gen;

startup_gen.gpr

@@ -1,85 +1,19 @@
-with "templates_parser.gpr";
-with "gnatcoll";
-with "gpr";
-
+with "config/startup_gen_config.gpr";
 project Startup_Gen is
 
-   for Languages use ("Ada");
-   for Source_Dirs use ("src");
-   for Main use ("main.adb");
-   for Object_Dir use "obj/";
-   for Exec_Dir use ".";
+   for Source_Dirs use ("src/", "config/");
+   for Object_Dir use "obj/" & Startup_Gen_Config.Build_Profile;
    for Create_Missing_Dirs use "True";
-
-
-   type Enabled_Kind is ("enabled", "disabled");
-   Compile_Checks : Enabled_Kind := External ("STARTUP_GEN_COMPILE_CHECKS", "disabled");
-   Runtime_Checks : Enabled_Kind := External ("STARTUP_GEN_RUNTIME_CHECKS", "enabled");
-   Style_Checks : Enabled_Kind := External ("STARTUP_GEN_STYLE_CHECKS", "disabled");
-   Contracts_Checks : Enabled_Kind := External ("STARTUP_GEN_CONTRACTS", "enabled");
-
-   type Build_Kind is ("debug", "optimize");
-   Build_Mode : Build_Kind := External ("STARTUP_GEN_BUILD_MODE", "optimize");
-
-   Compile_Checks_Switches := ();
-   case Compile_Checks is
-      when "enabled" =>
-         Compile_Checks_Switches :=
-           ("-gnatwa",  -- All warnings
-            "-gnatVa",  -- All validity checks
-            "-gnatwe"); -- Warnings as errors
-      when others => null;
-   end case;
-
-   Runtime_Checks_Switches := ();
-   case Runtime_Checks is
-      when "enabled" => null;
-      when others =>
-         Runtime_Checks_Switches :=
-           ("-gnatp"); -- Supress checks
-   end case;
-
-   Style_Checks_Switches := ();
-   case Style_Checks is
-      when "enabled" => null;
-         Style_Checks_Switches :=
-           ("-gnatyg",   -- Style checks
-            "-gnatyM80", -- Maximum line length
-            "-gnatyO");  -- Overriding subprograms explicitly marked as such
-      when others => null;
-   end case;
-
-   Contracts_Switches := ();
-   case Contracts_Checks is
-      when "enabled" => null;
-         Contracts_Switches :=
-           ("-gnata"); --  Enable assertions and contracts
-      when others =>
-   end case;
-
-   Build_Switches := ();
-   case Build_Mode is
-      when "optimize" =>
-         Build_Switches := ("-O3",     -- Optimization
-                            "-gnatn"); -- Enable inlining
-      when "debug" =>
-         Build_Switches := ("-g",   -- Debug info
-                            "-O0"); -- No optimization
-   end case;
+   for Exec_Dir use "bin";
+   for Main use ("startup_gen.adb");
 
    package Compiler is
-      for Default_Switches ("Ada") use
-        Compile_Checks_Switches &
-        Build_Switches &
-        Runtime_Checks_Switches &
-        Style_Checks_Switches &
-        Contracts_Switches &
-        ("-gnatQ");  -- Don't quit. Generate ALI and tree files even if illegalities
+      for Default_Switches ("Ada") use Startup_Gen_Config.Ada_Compiler_Switches;
    end Compiler;
 
-   package Builder is
-      for Executable ("main.adb") use "startup-gen";
-   end Builder;
+   package Binder is
+      for Switches ("Ada") use ("-Es"); --  Symbolic traceback
+   end Binder;
 
    package Install is
       for Artifacts (".") use ("share");