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
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
module string_module
implicit none
type :: string_type
sequence
private
character(len=:), allocatable :: raw
end type string_type
interface string_type
pure elemental module function new_string(string) result(new)
character(len=*), intent(in), optional :: string
type(string_type) :: new
end function new_string
pure elemental module function new_string_from_integer_int8(val) result(new)
integer(1), intent(in) :: val
type(string_type) :: new
end function new_string_from_integer_int8
pure elemental module function new_string_from_integer_int16(val) result(new)
integer(2), intent(in) :: val
type(string_type) :: new
end function new_string_from_integer_int16
pure elemental module function new_string_from_integer_int32(val) result(new)
integer(4), intent(in) :: val
type(string_type) :: new
end function new_string_from_integer_int32
pure elemental module function new_string_from_integer_int64(val) result(new)
integer(8), intent(in) :: val
type(string_type) :: new
end function new_string_from_integer_int64
end interface string_type
interface assignment(=)
module procedure :: assign_char_to_string
end interface assignment(=)
contains
elemental subroutine assign_char_to_string(lhs, rhs)
type(string_type), intent(inout) :: lhs
character(len=*), intent(in) :: rhs
lhs%raw = rhs
end subroutine assign_char_to_string
elemental function len_string(string3) result(length)
type(string_type), intent(in) :: string3
integer :: length
if (allocated(string3%raw)) then
length = len(string3%raw)
else
length = 0
end if
end function len_string
elemental function adjustl_string(string1) result(adjusted_string)
type(string_type), intent(in) :: string1
type(string_type) :: adjusted_string
adjusted_string%raw = adjustl(maybe(string1))
end function adjustl_string
pure function maybe(string2) result(maybe_string)
type(string_type), intent(in) :: string2
character(len=len_string(string2)) :: maybe_string
if (allocated(string2%raw)) then
maybe_string = string2%raw
else
maybe_string = ''
end if
end function maybe
end module
|
