sys_get_path_separator Function

public function sys_get_path_separator() result(sep)

Get platform-specific path separator

Arguments

None

Return Value character(len=1)

Source Code

    function sys_get_path_separator() result(sep)
        character(len=1) :: sep

        if (get_os_type() == OS_WINDOWS) then
            sep = '\'
        else
            sep = '/'
        end if
    end function sys_get_path_separator