clean_shlex_token Function

public function clean_shlex_token(token) result(clean)

Arguments

Type IntentOptional Attributes Name
character(len=*), intent(in) :: token

Return Value character(len=:), allocatable


Variables

Type Visibility Attributes Name Initial
integer, public :: j

Source Code

function clean_shlex_token(token) result(clean)
    character(len=*), intent(in) :: token
    character(len=:), allocatable :: clean

    integer :: j

    clean = ""
    do j = 1, len_trim(token)
        select case (token(j:j))
        case ("'", '"')
            cycle
        case default
            clean = clean//token(j:j)
        end select
    end do
    clean = trim(adjustl(clean))
end function clean_shlex_token