implemented the new procedures

Author: wassup05

src/stdlib_system_path.f90

@@ -1,29 +1,83 @@
 submodule(stdlib_system) stdlib_system_path
     use stdlib_ascii, only: reverse
     use stdlib_strings, only: chomp, find, join
+    use stdlib_string_type, only: string_type, char, assignment(=)
 contains
-    module function join2(p1, p2) result(path)
+    module function join2_char_char(p1, p2) result(path)
         character(:), allocatable :: path
         character(*), intent(in) :: p1, p2
 
         path = trim(p1) // path_sep() // trim(p2)
-    end function join2
+    end function join2_char_char
 
-    module function joinarr(p) result(path)
+    module function join2_char_string(p1, p2) result(path)
+        character(:), allocatable :: path
+        character(*), intent(in) :: p1
+        type(string_type), intent(in) :: p2
+
+        path = join_path(p1, char(p2))
+    end function join2_char_string
+
+    module function join2_string_char(p1, p2) result(path)
+        type(string_type) :: path
+        type(string_type), intent(in) :: p1
+        character(*), intent(in) :: p2
+
+        path = join_path(char(p1), p2)
+    end function join2_string_char
+
+    module function join2_string_string(p1, p2) result(path)
+        type(string_type) :: path
+        type(string_type), intent(in) :: p1, p2
+
+        path = join_path(char(p1), char(p2))
+    end function join2_string_string
+
+    module function joinarr_char(p) result(path)
         character(:), allocatable :: path
         character(*), intent(in) :: p(:)
 
         path = join(p, path_sep())
-    end function joinarr
+    end function joinarr_char
 
-    module function join_op(p1, p2) result(path)
+    module function joinarr_string(p) result(path)
+        type(string_type) :: path
+        type(string_type), intent(in) :: p(:)
+
+        path = join(p, path_sep())
+    end function joinarr_string
+
+    module function join_op_char_char(p1, p2) result(path)
         character(:), allocatable :: path
         character(*), intent(in) :: p1, p2
 
         path = join_path(p1, p2)
-    end function join_op
+    end function join_op_char_char
+
+    module function join_op_char_string(p1, p2) result(path)
+        character(:), allocatable :: path
+        character(*), intent(in) :: p1
+        type(string_type), intent(in) :: p2
+
+        path = join_path(p1, char(p2))
+    end function join_op_char_string
+
+    module function join_op_string_char(p1, p2) result(path)
+        type(string_type) :: path
+        type(string_type), intent(in) :: p1
+        character(*), intent(in) :: p2
 
-    module subroutine split_path(p, head, tail)
+        path = join_path(char(p1), p2)
+    end function join_op_string_char
+
+    module function join_op_string_string(p1, p2) result(path)
+        type(string_type) :: path
+        type(string_type), intent(in) :: p1, p2
+
+        path = join_path(char(p1), char(p2))
+    end function join_op_string_string
+
+    module subroutine split_path_char(p, head, tail)
         character(*), intent(in) :: p
         character(:), allocatable, intent(out) :: head, tail
         character(:), allocatable :: temp
@@ -64,19 +118,47 @@ module subroutine split_path(p, head, tail)
         end if
 
         tail = temp(len(temp)-i+2:)
-    end subroutine split_path
+    end subroutine split_path_char
+
+    module subroutine split_path_string(p, head, tail)
+        type(string_type), intent(in) :: p
+        type(string_type), intent(out) :: head, tail
+
+        character(:), allocatable :: head_char, tail_char
+
+        call split_path(char(p), head_char, tail_char)
+
+        head = head_char
+        tail = tail_char
+    end subroutine split_path_string
 
-    module function base_name(p) result(base)
+    module function base_name_char(p) result(base)
         character(:), allocatable :: base, temp
         character(*), intent(in) :: p
 
         call split_path(p, temp, base)
-    end function base_name
+    end function base_name_char
 
-    module function dir_name(p) result(dir)
+    module function base_name_string(p) result(base)
+        type(string_type) :: base
+        type(string_type), intent(in) :: p
+        type(string_type) :: temp
+
+        call split_path(p, temp, base)
+    end function base_name_string
+
+    module function dir_name_char(p) result(dir)
         character(:), allocatable :: dir, temp
         character(*), intent(in) :: p
 
         call split_path(p, dir, temp)
-    end function dir_name
+    end function dir_name_char
+
+    module function dir_name_string(p) result(dir)
+        type(string_type) :: dir
+        type(string_type), intent(in) :: p
+        type(string_type) :: temp
+
+        call split_path(p, dir, temp)
+    end function dir_name_string
 end submodule stdlib_system_path