feat: ability to read project major, minor & patch macros

example_packages/version_test/fpm.toml

@@ -0,0 +1,5 @@
+name = "version_test"
+version = "0.1.2"
+
+[preprocess]
+[preprocess.cpp]

example_packages/version_test/src/version_test.f90

@@ -0,0 +1,22 @@
+module version_test
+  implicit none
+  private
+
+  public :: say_hello
+contains
+  subroutine say_hello
+    print *, "Hello, version_test!"
+#if PROJECT_VERSION_MAJOR != 0
+      This breaks the build.
+#endif
+
+#if PROJECT_VERSION_MINOR != 1
+      This breaks the build.
+#endif
+
+#if PROJECT_VERSION_PATCH != 2
+      This breaks the build.
+#endif
+
+  end subroutine say_hello
+end module version_test

src/fpm_compiler.f90

@@ -44,7 +44,7 @@ module fpm_compiler
 use fpm_manifest, only : package_config_t
 use fpm_error, only: error_t
 implicit none
-public :: compiler_t, new_compiler, archiver_t, new_archiver, get_macros
+public :: compiler_t, new_compiler, archiver_t, new_archiver, get_macros, get_version_macros
 public :: debug
 
 enum, bind(C)
@@ -432,6 +432,48 @@ subroutine set_preprocessor_flags (id, flags, package)
 
 end subroutine set_preprocessor_flags
 
+!> Extracts the PROJECT_VERSION_MAJOR, PROJECT_VERSION_MINOR & PROJECT_VERSION_PATCH macros.
+function get_version_macros(id, version) result(version_macros)
+    !> Compiler id.
+    integer(compiler_enum), intent(in) :: id
+
+    !> Version number of the target.
+    character(len=:), allocatable, intent(in) :: version
+
+    character(len=:), allocatable :: version_macros
+    character(len=:), allocatable :: macro_definition_symbol
+    character(:), allocatable :: version_parts(:)
+    integer :: i
+
+    !> Set macro defintion symbol on the basis of compiler used
+    select case(id)
+    case default
+        macro_definition_symbol = "-D"
+    case (id_intel_classic_windows, id_intel_llvm_windows)
+        macro_definition_symbol = "/D"
+    end select
+
+    !> Check if version macros are not allocated.
+    if (.not.allocated(version_macros)) then
+        version_macros = " "
+    end if
+
+
+    !> Extract the Major, Minor & Patch number from Version Number.
+    call split(version, version_parts, delimiters='.')
+
+    do i = 1, size(version_parts)
+        if (i == 1) then
+            version_macros = version_macros//macro_definition_symbol//'PROJECT_VERSION_MAJOR'//'='//version_parts(i)
+        else if (i == 2) then
+            version_macros = version_macros//' '//macro_definition_symbol//'PROJECT_VERSION_MINOR'//'='//version_parts(i)
+        else if (i == 3) then
+            version_macros = version_macros//' '//macro_definition_symbol//'PROJECT_VERSION_PATCH'//'='//version_parts(i)
+        end if
+    end do
+
+end function get_version_macros
+
 !> This function will parse and read the macros list and 
 !> return them as defined flags.
 function get_macros(id, macros_list, version) result(macros)

src/fpm_targets.f90

@@ -30,7 +30,7 @@ module fpm_targets
 use fpm_environment, only: get_os_type, OS_WINDOWS, OS_MACOS
 use fpm_filesystem, only: dirname, join_path, canon_path
 use fpm_strings, only: string_t, operator(.in.), string_cat, fnv_1a, resize
-use fpm_compiler, only: get_macros
+use fpm_compiler, only: get_macros, get_version_macros
 implicit none
 
 private
@@ -803,6 +803,9 @@ subroutine resolve_target_linking(targets, model)
             target%compile_flags = target%compile_flags // get_macros(model%compiler%id, &
                                                             target%macros, &
                                                             target%version)
+
+            !> Get Version Macro flags.
+            target%compile_flags = target%compile_flags // get_version_macros(model%compiler%id, target%version)
 
             if (len(global_include_flags) > 0) then
                 target%compile_flags = target%compile_flags//global_include_flags