Move declaration of the version...

... to update it when Alire is used.

Author: godunko

config/gnatdoc_config.ads

@@ -0,0 +1,18 @@
+--
+--  Copyright (C) 2025, AdaCore
+--
+--  SPDX-License-Identifier: GPL-3.0
+--
+
+--  This file is stub to build GNATdoc outside of the Alire environment. Alire
+--  will overwrite it during builds.
+
+pragma Restrictions (No_Elaboration_Code);
+pragma Style_Checks (Off);
+
+package Gnatdoc_Config is
+   pragma Pure;
+
+   Crate_Version : constant String := "%VERSION% (%DATE%)";
+
+end Gnatdoc_Config;

gnat/gnatdoc.gpr

@@ -1,7 +1,7 @@
 ------------------------------------------------------------------------------
 --                    GNAT Documentation Generation Tool                    --
 --                                                                          --
---                     Copyright (C) 2022-2024, AdaCore                     --
+--                     Copyright (C) 2022-2025, AdaCore                     --
 --                                                                          --
 -- This is free software;  you can redistribute it  and/or modify it  under --
 -- terms of the  GNU General Public License as published  by the Free Soft- --
@@ -25,7 +25,8 @@ project GNATdoc is
 
    for Object_Dir use "../.objs";
    for Source_Dirs use
-     ("../source/backend",
+     ("../config",
+      "../source/backend",
       "../source/backend/rst",
       "../source/frontend",
       "../source/gnatdoc");

source/gnatdoc/gnatdoc-command_line.adb

@@ -21,7 +21,7 @@ with VSS.Strings.Conversions;
 
 with GNATdoc.Comments.Options;
 with GNATdoc.Options;
-with GNATdoc.Version;
+with Gnatdoc_Config;
 
 with GPR2.Options;
 with GPR2.Project.Registry.Exchange;
@@ -209,7 +209,8 @@ package body GNATdoc.Command_Line is
             VSS.Command_Line.Report_Error
               (Template.Format
                  (VSS.Strings.Formatters.Strings.Image
-                      (GNATdoc.Version.Version_String)));
+                    (VSS.Strings.Conversions.To_Virtual_String
+                       (Gnatdoc_Config.Crate_Version))));
          end;
       end if;