added interfaces and necessary build stuff

Author: wassup05

CMakeLists.txt

@@ -31,6 +31,12 @@ if(CMAKE_Fortran_COMPILER_ID STREQUAL GNU AND CMAKE_Fortran_COMPILER_VERSION VER
   message(FATAL_ERROR "GCC Version 9 or newer required")
 endif()
 
+# Convert CMAKE_SYSTEM_NAME to uppercase
+string(TOUPPER "${CMAKE_SYSTEM_NAME}" SYSTEM_NAME_UPPER)
+
+# Pass the uppercase system name as a macro
+add_compile_options(-D${SYSTEM_NAME_UPPER})
+
 # --- compiler feature checks
 include(CheckFortranSourceCompiles)
 include(CheckFortranSourceRuns)

config/fypp_deployment.py

@@ -1,4 +1,5 @@
 import os
+import platform
 import fypp
 import argparse
 from joblib import Parallel, delayed
@@ -115,6 +116,7 @@ def fpm_build(args,unknown):
     for idx, arg in enumerate(unknown):
         if arg.startswith("--flag"):
             flags= flags + unknown[idx+1]
+    flags = flags + "-D{}".format(platform.system().upper())
     #==========================================
     # build with fpm
     subprocess.run("fpm build"+

src/CMakeLists.txt

@@ -32,14 +32,14 @@ set(fppFiles
     stdlib_linalg_kronecker.fypp
     stdlib_linalg_cross_product.fypp
     stdlib_linalg_eigenvalues.fypp
-    stdlib_linalg_solve.fypp    
+    stdlib_linalg_solve.fypp
     stdlib_linalg_determinant.fypp
     stdlib_linalg_qr.fypp
     stdlib_linalg_inverse.fypp
     stdlib_linalg_pinv.fypp
     stdlib_linalg_norms.fypp
     stdlib_linalg_state.fypp
-    stdlib_linalg_svd.fypp 
+    stdlib_linalg_svd.fypp
     stdlib_linalg_cholesky.fypp
     stdlib_linalg_schur.fypp
     stdlib_optval.fypp
@@ -94,6 +94,7 @@ set(cppFiles
 
     stdlib_linalg_blas.fypp
     stdlib_linalg_lapack.fypp
+    stdlib_system.F90
 )
 
 add_subdirectory(blas)
@@ -116,7 +117,7 @@ set(SRC
     stdlib_sorting_radix_sort.f90
     stdlib_system_subprocess.c
     stdlib_system_subprocess.F90
-    stdlib_system.F90
+    stdlib_system_path.f90
     stdlib_sparse.f90
     stdlib_specialfunctions_legendre.f90
     stdlib_quadrature_gauss.f90

src/stdlib_system.F90

@@ -83,7 +83,22 @@ module stdlib_system
 public :: kill
 public :: elapsed
 public :: is_windows
-     
+
+!! Public path related functions and interfaces
+#ifdef WINDOWS
+    character(len=1), parameter, public :: pathsep = '\'
+    logical, parameter, public :: ISWIN = .true.
+#else
+    character(len=1), parameter, public :: pathsep = '/'
+    logical, parameter, public :: ISWIN = .false.
+#endif
+
+public :: joinpath
+public :: operator(/)
+public :: splitpath
+public :: basename
+public :: dirname
+
 !! version: experimental
 !!
 !! Tests if a given path matches an existing directory.
@@ -550,6 +565,87 @@ end function process_get_ID
 
 end interface 
 
+interface joinpath
+    !! version: experimental
+    !!
+    !!### Summary
+    !! join the paths provided according to the OS-specific path-separator
+    !! ([Specification](../page/specs/stdlib_system.html#joinpath))
+    !!
+    module pure function join2(p1, p2) result(path)
+        character(:), allocatable :: path
+        character(*), intent(in) :: p1, p2
+    end function join2
+
+    module pure function joinarr(p) result(path)
+        character(:), allocatable :: path
+        character(*), intent(in) :: p(:)
+    end function joinarr
+end interface joinpath
+
+interface operator(/)
+    !! version: experimental
+    !!
+    !!### Summary
+    !! A binary operator to join the paths provided according to the OS-specific path-separator
+    !! ([Specification](../page/specs/stdlib_system.html#operator(/)))
+    !!
+    module pure function join_op(p1, p2) result(path)
+        character(:), allocatable :: path
+        character(*), intent(in) :: p1, p2
+    end function join_op
+end interface operator(/)
+
+interface splitpath
+    !! version: experimental
+    !!
+    !!### Summary
+    !! splits the path immediately following the final path-separator
+    !! separating into typically a directory and a file name.
+    !! ([Specification](../page/specs/stdlib_system.html#splitpath))
+    !!
+    !!### Description
+    !! If the path is empty `head`='.' and tail=''
+    !! If the path only consists of separators, `head` is set to the separator and tail is empty
+    !! If the path is a root directory, `head` is set to that directory and tail is empty
+    !! `head` ends with a path-separator iff the path appears to be a root directory
+    module subroutine splitpath(p, head, tail)
+        character(*), intent(in) :: p
+        character(:), allocatable, intent(out) :: head, tail
+    end subroutine splitpath
+end interface splitpath
+
+interface basename
+    !! version: experimental
+    !!
+    !!### Summary
+    !! returns the basename (last component) of the provided path
+    !! ([Specification](../page/specs/stdlib_system.html#basename))
+    !!
+    !!### Description
+    !! The value returned is the `tail` of the interface `splitpath`
+    module function basename(p) result(base)
+        character(:), allocatable :: base
+        character(*), intent(in) :: p
+    end function basename
+end interface basename
+
+interface dirname
+    !! version: experimental
+    !!
+    !!### Summary
+    !! returns everything but the last component of the provided path
+    !! ([Specification](../page/specs/stdlib_system.html#dirname))
+    !!
+    !!### Description
+    !! The value returned is the `head` of the interface `splitpath`
+    module function dirname(p) result(base)
+        character(:), allocatable :: base
+        character(*), intent(in) :: p
+    end function dirname
+end interface dirname
+
+
 contains
 
 integer function get_runtime_os() result(os)