Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(AbstractFrameworkComponent), | intent(in) | :: | component |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(AbstractFrameworkComponent), | intent(in) | :: | component | |||
class(ConcreteComposite), | intent(in), | target | :: | parent |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ConcreteComposite), | intent(in), | target | :: | parent |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ConcreteComposite), | intent(inout), | target | :: | this | ||
character(len=*), | intent(in) | :: | name | |||
class(AbstractComposite), | intent(in) | :: | composite |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ConcreteComposite), | intent(in), | target | :: | this | ||
character(len=*), | intent(in) | :: | name |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ConcreteComposite), | intent(in), | target | :: | this | ||
integer, | intent(in) | :: | i |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ConcreteComposite), | intent(in), | target | :: | this | ||
integer, | intent(in) | :: | i |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ConcreteComposite), | intent(in), | target | :: | this | ||
character(len=*), | intent(in) | :: | name |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ConcreteComposite), | intent(in), | target | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ConcreteComposite), | intent(in) | :: | this |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ConcreteComposite), | intent(in) | :: | this |
$ procedure :: is_leaf $ procedure :: is_root
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ConcreteComposite), | intent(inout) | :: | this | |||
class(AbstractFrameworkComponent), | intent(in) | :: | component |
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(ConcreteComposite), | intent(inout) | :: | this | |||
class(AbstractFrameworkComponent), | intent(in) | :: | component |
type, extends(AbstractComposite) :: ConcreteComposite private class(AbstractFrameworkComponent), allocatable :: component type(StringCompositeMap) :: children type(StringVector) :: children_names class(ConcreteComposite), pointer :: parent => null() contains procedure :: add_child procedure :: get_child_by_name, get_child_by_index procedure :: get_parent procedure :: get_component procedure :: set_component procedure :: get_num_children procedure :: initialize !!$ procedure :: is_leaf !!$ procedure :: is_root end type ConcreteComposite