toml serialization interfaces returning fpm error types

Author: perazz

src/fpm/toml.f90

@@ -78,6 +78,8 @@ module fpm_toml
         module procedure get_logical
         module procedure get_integer
         module procedure get_integer_64
+        module procedure get_char
+        module procedure get_string
     end interface get_value
 
 
@@ -704,6 +706,57 @@ subroutine get_integer(table, key, var, error, whereAt)
 
     end subroutine get_integer
 
+    !> Function wrapper to get a default string variable from a toml table, returning an fpm error
+    subroutine get_string(table, key, var, error, whereAt)
+
+        !> Instance of the TOML data structure
+        type(toml_table), intent(inout) :: table
+
+        !> The key
+        character(len=*), intent(in) :: key
+
+        !> The variable
+        type(string_t), intent(inout) :: var
+
+        !> Error handling
+        type(error_t), allocatable, intent(out) :: error
+
+        !> Optional description
+        character(len=*), intent(in), optional :: whereAt
+
+        call get_char(table, key, var%s, error, whereAt)
+
+    end subroutine get_string
+
+    !> Function wrapper to get a default character variable from a toml table, returning an fpm error
+    subroutine get_char(table, key, var, error, whereAt)
+
+        !> Instance of the TOML data structure
+        type(toml_table), intent(inout) :: table
+
+        !> The key
+        character(len=*), intent(in) :: key
+
+        !> The variable
+        character(len=:), allocatable, intent(inout) :: var
+
+        !> Error handling
+        type(error_t), allocatable, intent(out) :: error
+
+        !> Optional description
+        character(len=*), intent(in), optional :: whereAt
+
+        integer :: ierr
+
+        call get_value(table, key, var, stat=ierr)
+        if (ierr/=toml_stat%success) then
+            call fatal_error(error,'cannot get string key <'//key//'> from TOML table')
+            if (present(whereAt)) error%message = whereAt//': '//error%message
+            return
+        end if
+
+    end subroutine get_char
+
     !> Function wrapper to get a integer(int64) variable from a toml table, returning an fpm error
     subroutine get_integer_64(table, key, var, error, whereAt)