fdoc_shell.f90 › fdoc_shell

functionquoted_path

character(len=len(path)+2) function quoted_path(path) result(out)

path in quotes, with the separator of the platform, as one argument of a command.

Arguments

Name	Type	Intent	Attributes	Description
path	character(len=*)	in		the path

Result

Name	Type	Attributes	Description
out	character(len=len(path)+2)	private

Calls

Source

Show the code

function quoted_path(path) result(out)
    character(len=*), intent(in) :: path    !! the path
    character(len=len(path) + 2) :: out
    character(len=len(path)) :: native
    integer :: k

    native = path
    if (is_windows()) then
        do k = 1, len(native)
            if (native(k:k) == '/') native(k:k) = '\'
        end do
    end if
    out = quoted(native)
end function quoted_path

Graphs

Calls

Called by