type_dictionary Derived Type

  1. yaml_types.F90
  2. yaml_types
  3. type_dictionary

type, public, extends(type_node) :: type_dictionary


Inherits

type~~type_dictionary~~InheritsGraph type~type_dictionary type_dictionary type~type_node type_node type~type_dictionary->type~type_node type~type_key_value_pair type_key_value_pair type~type_dictionary->type~type_key_value_pair first type~type_key_value_pair->type~type_node value type~type_key_value_pair->type~type_key_value_pair next

Contents

Variables

Type-Bound Procedures


Components

TypeVisibility AttributesNameInitial
character(len=string_length), public :: path =''
type(type_key_value_pair), public, pointer:: first=> null()

Type-Bound Procedures

procedure, public :: get => dictionary_get

  • private function dictionary_get(self, key) result(value)

    Arguments

    Type IntentOptional AttributesName
    class(type_dictionary), intent(in) :: self
    character(len=*), intent(in) :: key

    Return Value class(type_node), pointer

procedure, public :: get_scalar => dictionary_get_scalar

  • private function dictionary_get_scalar(self, key, required, error) result(scalar)

    Arguments

    Type IntentOptional AttributesName
    class(type_dictionary), intent(in) :: self
    character(len=*), intent(in) :: key
    logical, intent(in) :: required
    type(type_error), pointer:: error

    Return Value class(type_scalar), pointer

procedure, public :: get_dictionary => dictionary_get_dictionary

  • private function dictionary_get_dictionary(self, key, required, error) result(dictionary)

    Arguments

    Type IntentOptional AttributesName
    class(type_dictionary), intent(in) :: self
    character(len=*), intent(in) :: key
    logical, intent(in) :: required
    type(type_error), pointer:: error

    Return Value class(type_dictionary), pointer

procedure, public :: get_list => dictionary_get_list

  • private function dictionary_get_list(self, key, required, error) result(list)

    Arguments

    Type IntentOptional AttributesName
    class(type_dictionary), intent(in) :: self
    character(len=*), intent(in) :: key
    logical, intent(in) :: required
    type(type_error), pointer:: error

    Return Value class(type_list), pointer

procedure, public :: get_string => dictionary_get_string

  • private function dictionary_get_string(self, key, default, error) result(value)

    Arguments

    Type IntentOptional AttributesName
    class(type_dictionary), intent(in) :: self
    character(len=*), intent(in) :: key
    character(len=*), intent(in), optional :: default
    type(type_error), pointer:: error

    Return Value character(len=string_length)

procedure, public :: get_logical => dictionary_get_logical

  • private function dictionary_get_logical(self, key, default, error) result(value)

    Arguments

    Type IntentOptional AttributesName
    class(type_dictionary), intent(in) :: self
    character(len=*), intent(in) :: key
    logical, intent(in), optional :: default
    type(type_error), pointer:: error

    Return Value logical

procedure, public :: get_integer => dictionary_get_integer

  • private function dictionary_get_integer(self, key, default, error) result(value)

    Arguments

    Type IntentOptional AttributesName
    class(type_dictionary), intent(in) :: self
    character(len=*), intent(in) :: key
    integer, intent(in), optional :: default
    type(type_error), pointer:: error

    Return Value integer

procedure, public :: get_real => dictionary_get_real

  • private function dictionary_get_real(self, key, default, error) result(value)

    Arguments

    Type IntentOptional AttributesName
    class(type_dictionary), intent(in) :: self
    character(len=*), intent(in) :: key
    real(kind=real_kind), intent(in), optional :: default
    type(type_error), pointer:: error

    Return Value real(kind=real_kind)

procedure, public :: set => dictionary_set

  • private subroutine dictionary_set(self, key, value)

    Arguments

    Type IntentOptional AttributesName
    class(type_dictionary), intent(inout) :: self
    character(len=*), intent(in) :: key
    class(type_node), pointer:: value

procedure, public :: set_string => dictionary_set_string

  • private subroutine dictionary_set_string(self, key, value)

    Arguments

    Type IntentOptional AttributesName
    class(type_dictionary), intent(inout) :: self
    character(len=*), intent(in) :: key
    character(len=*), intent(in) :: value

procedure, public :: dump => dictionary_dump

  • private recursive subroutine dictionary_dump(self, unit, indent)

    Arguments

    Type IntentOptional AttributesName
    class(type_dictionary), intent(in) :: self
    integer, intent(in) :: unit
    integer, intent(in) :: indent

procedure, public :: flatten => dictionary_flatten

  • private recursive subroutine dictionary_flatten(self, target, prefix)

    Arguments

    Type IntentOptional AttributesName
    class(type_dictionary), intent(in) :: self
    type(type_dictionary), intent(inout) :: target
    character(len=*), intent(in) :: prefix

procedure, public :: reset_accessed => dictionary_reset_accessed

procedure, public :: set_path => dictionary_set_path

  • private recursive subroutine dictionary_set_path(self, path)

    Arguments

    Type IntentOptional AttributesName
    class(type_dictionary), intent(inout) :: self
    character(len=*), intent(in) :: path

procedure, public :: finalize => dictionary_finalize