keyvaluelistiteratormodule Module Reference

Data Types
interface	keyvaluelistiteratortype
	An iterator used to iterate through a KeyValueList. More...

Functions/Subroutines
type(keyvaluelistiteratortype) function	constructor (first_node)
	Constructor to create a KeyValueListIterator. More...
type(logical) 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(keyvaluelistiteratortype) function keyvaluelistiteratormodule::constructor

(

type(keyvaluenodetype), intent(in), pointer

first_node

)

Definition at line 28 of file KeyValueListIterator.f90.

    type(KeyValueNodeType), pointer, intent(in) :: first_node
    type(KeyValueListIteratorType) :: iterator
 
    iterator%first_node => first_node
    iterator%current_node => null()
 

Here is the caller graph for this function:

has_next()

type(logical) function keyvaluelistiteratormodule::has_next

(

class(keyvaluelistiteratortype)

this

)

Definition at line 40 of file KeyValueListIterator.f90.

    class(KeyValueListIteratorType) :: this
    type(logical) :: res
 
    if (associated(this%current_node)) then
      res = associated(this%current_node%next)
    else
      res = associated(this%first_node)
    end if
 

next()

subroutine keyvaluelistiteratormodule::next

(

class(keyvaluelistiteratortype)

this

)

Definition at line 55 of file KeyValueListIterator.f90.

    class(KeyValueListIteratorType) :: this
 
    if (associated(this%current_node)) then
      this%current_node => this%current_node%next
    else
      this%current_node => this%first_node
    end if

value()

class(*) function, pointer keyvaluelistiteratormodule::value

(

class(keyvaluelistiteratortype)

this

)

Definition at line 68 of file KeyValueListIterator.f90.

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