Merge pull request #653 from kubajj/enable_profiles_in_toml

Enable profiles in toml

Author: everythingfunctional

src/fpm/manifest/package.f90

@@ -24,6 +24,7 @@
 !>[library]
 !>[dependencies]
 !>[dev-dependencies]
+!>[profiles]
 !>[build]
 !>[install]
 !>[[ executable ]]
@@ -34,6 +35,7 @@
 module fpm_manifest_package
     use fpm_manifest_build, only: build_config_t, new_build_config
     use fpm_manifest_dependency, only : dependency_config_t, new_dependencies
+    use fpm_manifest_profile, only : profile_config_t, new_profiles, get_default_profiles
     use fpm_manifest_example, only : example_config_t, new_example
     use fpm_manifest_executable, only : executable_config_t, new_executable
     use fpm_manifest_library, only : library_config_t, new_library
@@ -45,6 +47,7 @@ module fpm_manifest_package
     use fpm_toml, only : toml_table, toml_array, toml_key, toml_stat, get_value, &
         & len
     use fpm_versioning, only : version_t, new_version
+    use fpm_filesystem, only: join_path
     implicit none
     private
 
@@ -84,6 +87,9 @@ module fpm_manifest_package
         !> Development dependency meta data
         type(dependency_config_t), allocatable :: dev_dependency(:)
 
+        !> Profiles meta data
+        type(profile_config_t), allocatable :: profiles(:)
+
         !> Example meta data
         type(example_config_t), allocatable :: example(:)
 
@@ -208,6 +214,15 @@ subroutine new_package(self, table, root, error)
             call new_library(self%library, child, error)
             if (allocated(error)) return
         end if
+        
+        call get_value(table, "profiles", child, requested=.false.)
+        if (associated(child)) then
+            call new_profiles(self%profiles, child, error)
+            if (allocated(error)) return
+        else
+            self%profiles = get_default_profiles(error)
+            if (allocated(error)) return
+        end if
 
         call get_value(table, "executable", children, requested=.false.)
         if (associated(children)) then
@@ -312,7 +327,7 @@ subroutine check(table, error)
 
             case("version", "license", "author", "maintainer", "copyright", &
                     & "description", "keywords", "categories", "homepage", "build", &
-                    & "dependencies", "dev-dependencies", "test", "executable", &
+                    & "dependencies", "dev-dependencies", "profiles", "test", "executable", &
                     & "example", "library", "install", "extra", "preprocess")
                 continue
 
@@ -409,6 +424,15 @@ subroutine info(self, unit, verbosity)
                 call self%dev_dependency(ii)%info(unit, pr - 1)
             end do
         end if
+        
+        if (allocated(self%profiles)) then
+            if (size(self%profiles) > 1 .or. pr > 2) then
+                write(unit, fmti) "- profiles", size(self%profiles)
+            end if
+            do ii = 1, size(self%profiles)
+                call self%profiles(ii)%info(unit, pr - 1)
+            end do
+        end if
 
     end subroutine info