implemented interfaces

Author: wassup05

src/stdlib_system_path.f90

@@ -0,0 +1,79 @@
+submodule(stdlib_system) stdlib_system_path
+    use stdlib_ascii, only: reverse
+    use stdlib_strings, only: chomp, find, join
+contains
+    module pure function join2(p1, p2) result(path)
+        character(:), allocatable :: path
+        character(*), intent(in) :: p1, p2
+
+        path = trim(p1) // pathsep // trim(p2)
+    end function join2
+
+    module pure function joinarr(p) result(path)
+        character(:), allocatable :: path
+        character(*), intent(in) :: p(:)
+
+        path = join(p, pathsep)
+    end function joinarr
+
+    module pure function join_op(p1, p2) result(path)
+        character(:), allocatable :: path
+        character(*), intent(in) :: p1, p2
+
+        path = joinpath(p1, p2)
+    end function join_op
+
+    module subroutine splitpath(p, head, tail)
+        character(*), intent(in) :: p
+        character(:), allocatable, intent(out) :: head, tail
+        character(:), allocatable :: temp
+        integer :: i
+
+        ! Empty string, return (.,'')
+        if (trim(p) == '') then
+            head = '.'
+            tail = ''
+            return
+        end if
+
+        ! Remove trailing path separators
+        temp = trim(chomp(trim(p), pathsep))
+
+        if (temp == '') then
+            head = pathsep
+            tail = ''
+            return
+        end if
+
+        i = find(reverse(temp), pathsep)
+
+        ! if no `pathsep`, then it probably was a root dir like `C:\`
+        if (i == 0) then
+            head = temp // pathsep
+            tail = ''
+            return
+        end if
+
+        head = temp(:len(temp)-i)
+
+        if (head == '') then
+            head = pathsep
+        end if
+
+        tail = temp(len(temp)-i+2:)
+    end subroutine splitpath
+
+    module function basename(p) result(base)
+        character(:), allocatable :: base, temp
+        character(*), intent(in) :: p
+
+        call splitpath(p, temp, base)
+    end function basename
+
+    module function dirname(p) result(dir)
+        character(:), allocatable :: dir, temp
+        character(*), intent(in) :: p
+
+        call splitpath(p, dir, temp)
+    end function dirname
+end submodule stdlib_system_path