memorystoremodule Module Reference

Data Types
type	memorystoretype

Functions/Subroutines
type(memorycontaineriteratortype) function	iterator (this)
	An iterator used to iterate through a MemoryContainer. More...
subroutine	add (this, mt)
	Add a MemoryType to the container. More...
type(memorytype) function, pointer	get (this, name, path)
	Get a MemoryType using a key. More...
integer(i4b) function	count (this)
	The nummer of items in the container. More...
subroutine	clear (this)
	Clears the memory container. More...

Function/Subroutine Documentation

add()

subroutine memorystoremodule::add ( class(memorystoretype)  this, type(memorytype), intent(in), pointer  mt  )

private

The MemoryType is stored together with a key for easy lookup The key is constructed using the memory type's path and name

Definition at line 44 of file MemoryStore.f90.

    class(MemoryStoreType) :: this
    type(MemoryType), pointer, intent(in) :: mt
    ! -- local
    class(*), pointer :: obj => null()
    character(len=LENMEMADDRESS) :: key
 
    key = create_mem_address(mt%path, mt%name)
    obj => mt
    call this%container%add(key, obj)

Here is the call graph for this function:

clear()

subroutine memorystoremodule::clear ( class(memorystoretype)  this )

private

Definition at line 94 of file MemoryStore.f90.

    class(MemoryStoreType) :: this
 
    call this%container%clear()

count()

integer(i4b) function memorystoremodule::count ( class(memorystoretype)  this )

private

Definition at line 84 of file MemoryStore.f90.

    class(MemoryStoreType) :: this
    integer(I4B) :: cnt
 
    cnt = this%container%count()

get()

type(memorytype) function, pointer memorystoremodule::get ( class(memorystoretype)  this, character(len=*), intent(in)  name, character(len=*), intent(in)  path  )

private

If the key can't be found the return value will be a null pointer

Definition at line 60 of file MemoryStore.f90.

    class(MemoryStoreType) :: this
    character(len=*), intent(in) :: name
    character(len=*), intent(in) :: path
    type(MemoryType), pointer :: mt
    ! -- local
    character(len=LENMEMADDRESS) :: key
    class(*), pointer :: obj
 
    key = create_mem_address(path, name)
    obj => this%container%get(key)
 
    select type (obj)
    type is (memorytype)
      mt => obj
    class default
      mt => null()
    end select
 

Here is the call graph for this function:

iterator()

type(memorycontaineriteratortype) function memorystoremodule::iterator ( class(memorystoretype)  this )

private

Definition at line 29 of file MemoryStore.f90.

    class(MemoryStoreType) :: this
    type(MemoryContainerIteratorType) :: itr
    ! -- local
    class(IteratorType), allocatable :: container_iterator
 
    allocate (container_iterator, source=this%container%iterator())
    itr = memorycontaineriteratortype(container_iterator)