1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
|
module tomlf_utils_convert
use tomlf_datetime, only : toml_datetime, toml_date, toml_time
implicit none
public :: convert_raw
public :: toml_raw_to_timestamp
interface convert_raw
module procedure :: toml_raw_to_timestamp
end interface convert_raw
contains
function toml_raw_to_timestamp(raw, timestamp) result(stat)
!> Raw value to convert
character(len=*), intent(in) :: raw
!> TOML datetime value
type(toml_datetime), intent(out) :: timestamp
!> Status of the evaluation
logical :: stat
integer :: err, dot_pos, first
first = 1
timestamp%date = toml_date()
! read(raw(1:4), *, iostat=err) timestamp%date%year
stat = err == 0
! timestamp%time = toml_time()
end function toml_raw_to_timestamp
end module tomlf_utils_convert
|
