memorycontaineriteratormodule Module Reference

Data Types
interface	memorycontaineriteratortype
	An iterator used to iterate through a MemoryContainer. More...

Functions/Subroutines
type(memorycontaineriteratortype) function	constructor (container_iterator)
	Constructor to create a MemoryContainerIterator. 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...
type(memorytype) function, pointer	value (this)
	Get the value the iterator is pointing to. More...

Function/Subroutine Documentation

constructor()

type(memorycontaineriteratortype) function memorycontaineriteratormodule::constructor ( class(iteratortype), allocatable  container_iterator )

private

Definition at line 31 of file MemoryContainerIterator.f90.

    class(IteratorType), allocatable :: container_iterator
    type(MemoryContainerIteratorType) :: iterator
 
    call move_alloc(container_iterator, iterator%container_iterator)
 

Here is the caller graph for this function:

has_next()

logical(lgp) function memorycontaineriteratormodule::has_next ( class(memorycontaineriteratortype)  this )

private

Definition at line 42 of file MemoryContainerIterator.f90.

    class(MemoryContainerIteratorType) :: this
    logical(LGP) :: res
 
    res = this%container_iterator%has_next()

next()

subroutine memorycontaineriteratormodule::next ( class(memorycontaineriteratortype)  this )

private

Definition at line 52 of file MemoryContainerIterator.f90.

    class(MemoryContainerIteratorType) :: this
 
    call this%container_iterator%next()

value()

type(memorytype) function, pointer memorycontaineriteratormodule::value ( class(memorycontaineriteratortype), target  this )

private

Definition at line 61 of file MemoryContainerIterator.f90.

    class(MemoryContainerIteratorType), target :: this
    type(MemoryType), pointer :: res
    ! -- local
    class(*), pointer :: obj !< void pointer to MemoryType
 
    obj => this%container_iterator%value()
 
    select type (obj)
    type is (memorytype)
      res => obj
    class default
      res => null()
    end select