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 |