listiteratormodule Module Reference

Data Types
interface	listiteratortype
	An iterator used to iterate through a List. More...

Functions/Subroutines
type(listiteratortype) function	constructor (first_node)
	Constructor to create a ListIterator. More...
logical(lgp) function	has_next (this)
	Indicates if there is a next node in the iteration chain. More...
subroutine	next (this)
	Increment the iterator to the next node. More...
class(*) function, pointer	value (this)
	Get the value the iterator is pointing at. More...

Function/Subroutine Documentation

constructor()

type(listiteratortype) function listiteratormodule::constructor ( type(listnodetype), pointer  first_node )

private

Definition at line 33 of file ListIterator.f90.

    type(ListNodeType), pointer :: first_node
    type(ListIteratorType) :: iterator
 
    iterator%first_node => first_node
    iterator%current_node => null()
 

Here is the caller graph for this function:

has_next()

logical(lgp) function listiteratormodule::has_next ( class(listiteratortype)  this )

private

Definition at line 45 of file ListIterator.f90.

    class(ListIteratorType) :: this
    logical(LGP) :: res
 
    if (associated(this%current_node)) then
      res = associated(this%current_node%nextNode)
    else
      res = associated(this%first_node)
    end if
 

next()

subroutine listiteratormodule::next ( class(listiteratortype)  this )

private

Definition at line 60 of file ListIterator.f90.

    class(ListIteratorType) :: this
 
    if (associated(this%current_node)) then
      this%current_node => this%current_node%nextNode
    else
      this%current_node => this%first_node
    end if

value()

class(*) function, pointer listiteratormodule::value ( class(listiteratortype)  this )

private

Definition at line 73 of file ListIterator.f90.

    class(ListIteratorType) :: this
    class(*), pointer :: res
 
    if (associated(this%current_node)) then
      res => this%current_node%GetItem()
    else
      res => null()
    end if