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
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
|
module class_10_module
implicit none
private
public :: toml_vector, toml_value, toml_node
type, abstract :: toml_value
character(len=:), allocatable :: key
contains
procedure :: match_key
end type toml_value
type :: toml_node
!> TOML value payload
class(toml_value), allocatable :: val
end type toml_node
!> Stores TOML values in a list of pointers
type :: toml_vector
!> Current number of stored TOML values
integer :: n = 0
!> List of TOML values
type(toml_node), allocatable :: lst(:)
contains
procedure :: delete
end type toml_vector
contains
!> Compare raw key of TOML value to input key
pure function match_key(self, key) result(match)
!> TOML value instance.
class(toml_value), intent(in) :: self
!> TOML raw key to compare to
character(len=*), intent(in) :: key
logical :: match
end function match_key
!> Delete TOML value at a given key
subroutine delete(self, key)
!> Instance of the structure
class(toml_vector), intent(inout), target :: self
!> Key to the TOML value
character(len=*), intent(in) :: key
integer :: i
if (self%lst(i)%val%match_key(key)) then
! TODO
! Improve this test to print or test something
end if
end subroutine delete
end module class_10_module
program class_10_program
use class_10_module
implicit none
print *, "ok"
end program class_10_program
|
