HASTY abstract content class.
A very base class that is intended to be the parent of all contents.
Destroy the content.
Destroy the content.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(content_adt), | intent(inout) | :: | self | The content. |
Return storage status.
Return storage status.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(content_adt), | intent(in) | :: | self | The content. |
Check if the content type is allowed.
Check if the content type is allowed.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(content_adt), | intent(in) | :: | self | The content. |
||
class(*), | intent(in) | :: | content | The content to be stored. |
Set the content of the storage to value passed.
Set the content of the content.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(content_adt), | intent(out) | :: | self | The content. |
||
class(*), | intent(in) | :: | content | The content to be stored. |
Implement ==
operator.
Implement ==
operator.
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(content_adt), | intent(in) | :: | lhs | Left hand side. |
||
class(content_adt), | intent(in) | :: | rhs | Rigth hand side. |
Abstract content class to storage any contents.
procedure(destroy_interface), public, pass(self) :: destroy | Destroy the content. |
procedure(is_filled_interface), public, pass(self) :: is_filled | Return storage status. |
procedure(set_interface), public, pass(self) :: set | Set the content. |
procedure(typeguard_interface), public, pass(self) :: typeguard | Check if the content type is allowed. |
procedure(is_equal_interface), private, pass(lhs) :: is_equal | Implement |
generic, public :: operator(==) => is_equal | Overloading |