iterate_ll Function

public function iterate_ll(this, f) result(r)

Arguments

Type IntentOptional Attributes Name
class(llist), intent(inout), target :: this
procedure(command_fun) :: f

Return Value logical


Contents

Variables

Source Code

iterate_ll

Variables

Type Visibility Attributes Name Initial
type(llist_node), public, pointer :: token

Source Code

    function iterate_ll(this, f) result(r)
        class(llist), intent(inout), target :: this
        procedure(command_fun)              :: f
        logical :: r
        type(llist_node), pointer :: token
        token => this%begin
        do
            if (.not. associated(token)) exit
            call f(trim(token%data), r)
            if (.not. r) then
                exit
            end if
            token => token%next
        end do
    end function iterate_ll