separated examples according to OS and functions

Author: wassup05

doc/specs/stdlib_system.md

@@ -628,7 +628,7 @@ Subroutine
 
 - If `p` is empty, `head` is set to `.` and `tail` is empty
 - If `p` consists entirely of path-separators. `head` is set to the path-separator and `tail` is empty
-- `head` ends in a path-separator iff and only if `p` appears to be a root directory or child of one
+- `head` ends in a path-separator if and only if `p` appears to be a root directory or child of one
 
 ### Return values
 

example/system/CMakeLists.txt

@@ -12,3 +12,6 @@ ADD_EXAMPLE(process_6)
 ADD_EXAMPLE(process_7)
 ADD_EXAMPLE(sleep)
 ADD_EXAMPLE(path_1)
+ADD_EXAMPLE(path_1_windows)
+ADD_EXAMPLE(path_2)
+ADD_EXAMPLE(path_2_windows)

example/system/example_path_1.f90

@@ -1,41 +1,17 @@
-program example_path
-    use stdlib_system, only: joinpath, operator(/), splitpath, ISWIN, dirname, basename
-    character(len=:), allocatable :: p1, p2, head, tail
+! Usage of joinpath, operator(/)
+program example_join
+    use stdlib_system, only: joinpath, operator(/)
+    character(len=:), allocatable :: p1, p2, p3
     character(len=20) :: parr(4)
 
-    if (ISWIN) then
-        p1 = 'C:'/'Users'/'User1'/'Desktop'
-        parr = [character(len=20) :: 'C:', 'Users', 'User1', 'Desktop']
-        p2 = joinpath(parr)
+    p1 = ''/'home'/'User1'/'Desktop'
+    p2 = joinpath('/home/User1', 'Desktop')
 
-        ! p1 == p2 = 'C:\Users\User1\Desktop'
-        print *, p1
-        print *, "p1 == p2: ", p1 == p2
+    parr = [character(len=20) :: '', 'home', 'User1', 'Desktop']
+    p3 = joinpath(parr)
 
-        call splitpath(p1, head, tail)
-        print *, p1 // " -> " // head // " + " // tail
-
-        call splitpath(head, p1, tail)
-        print *, head // " -> " // p1 // " + " // tail
-
-        print *, 'dirname of '// p1 // ' -> ' // dirname(p1)
-        print *, 'basename of '// p1 // ' -> ' // basename(p1)
-    else
-        p1 = ''/'home'/'User1'/'Desktop'
-        parr = [character(len=20) :: '', 'home', 'User1', 'Desktop']
-        p2 = joinpath(parr)
-
-        ! p1 == p2 = '/home/User1/Desktop'
-        print *, p1
-        print *, "p1 == p2: ", p1 == p2
-
-        call splitpath(p1, head, tail)
-        print *, p1 // " -> " // head // " + " // tail
-
-        call splitpath(head, p1, tail)
-        print *, head // " -> " // p1 // " + " // tail
-
-        print *, 'dirname of '// p1 // ' -> ' // dirname(p1)
-        print *, 'basename of '// p1 // ' -> ' // basename(p1)
-    end if
-end program example_path
+    ! (p1 == p2 == p3) = '/home/User1/Desktop'
+    print *, p1 ! /home/User1/Desktop
+    print *, "p1 == p2: ", p1 == p2 ! T
+    print *, "p2 == p3: ", p2 == p3 ! T
+end program example_join

example/system/example_path_1_windows.f90

@@ -0,0 +1,18 @@
+! Usage of joinpath, operator(/)
+! Only Windows
+program example_join_windows
+    use stdlib_system, only: joinpath, operator(/)
+    character(len=:), allocatable :: p1, p2, p3
+    character(len=20) :: parr(4)
+
+    p1 = 'C:'/'Users'/'User1'/'Desktop'
+    p2 = joinpath('C:\Users\User1', 'Desktop')
+
+    parr = [character(len=20) :: 'C:', 'Users', 'User1', 'Desktop']
+    p3 = joinpath(parr)
+
+    ! (p1 == p2 == p3) = 'C:\Users\User1\Desktop'
+    print *, p1 ! C:\Users\User1\Desktop
+    print *, "p1 == p2: ", p1 == p2 ! T
+    print *, "p2 == p3: ", p2 == p3 ! T
+end program example_join_windows

example/system/example_path_2.f90

@@ -0,0 +1,18 @@
+! Usage of splitpath, dirname, basename
+program example_splitpath
+    use stdlib_system, only: joinpath, splitpath, dirname, basename
+    character(len=:), allocatable :: p1, head, tail
+
+    p1 = joinpath('/home/User1', 'Desktop') ! /home/User1/Desktop
+
+    call splitpath(p1, head, tail)
+    ! head = /home/User1, tail = Desktop
+    print *, p1 // " -> " // head // " + " // tail ! /home/User1/Desktop -> /home/User1 + Desktop
+
+    call splitpath(head, p1, tail)
+    ! p1 = /home, tail = User1
+    print *, head // " -> " // p1 // " + " // tail ! /home/User1 -> /home + User1
+
+    print *, 'dirname of '// p1 // ' -> ' // dirname(p1) ! dirname of /home -> /
+    print *, 'basename of '// p1 // ' -> ' // basename(p1) ! basename of /home -> home
+end program example_splitpath

example/system/example_path_2_windows.f90

@@ -0,0 +1,19 @@
+! Usage of splitpath, dirname, basename
+! Only Windows
+program example_splitpath_windows
+    use stdlib_system, only: joinpath, splitpath, dirname, basename
+    character(len=:), allocatable :: p1, head, tail
+
+    p1 = joinpath('C:\Users\User1', 'Desktop') ! C:\Users\User1\Desktop
+
+    call splitpath(p1, head, tail)
+    ! head = C:\Users\User1, tail = Desktop
+    print *, p1 // " -> " // head // " + " // tail ! C:\Users\User1\Desktop -> C:\Users\User1 + Desktop
+
+    call splitpath(head, p1, tail)
+    ! p1 = C:\Users, tail = User1
+    print *, head // " -> " // p1 // " + " // tail ! C:\Users\User1 -> C:\Users + User1
+
+    print *, 'dirname of '// p1 // ' -> ' // dirname(p1) ! dirname of C:\Users -> C:\
+    print *, 'basename of '// p1 // ' -> ' // basename(p1) ! basename of C:\Users -> Users
+end program example_splitpath_windows