队列
Type | Visibility | Attributes | Name | Initial | |||
---|---|---|---|---|---|---|---|
integer, | public | :: | len | = | 0 |
number of nodes in the queue |
Enqueue an item to the queue
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(queue_int), | intent(inout) | :: | self | |||
integer, | intent(in) | :: | item |
Dequeue an item from the queue
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(queue_int), | intent(inout) | :: | self | |||
integer, | intent(out), | optional | :: | item |
Get an queue_int_iterator for the queue
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(queue_int), | intent(in) | :: | self |
Clear the queue
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(queue_int), | intent(inout) | :: | self |
type queue_int
private
integer, public :: len = 0 !! number of nodes in the queue
type(node), pointer :: head => null() !! head of the queue
type(node), pointer :: tail => null() !! tail of the queue
contains
procedure :: enqueue => queue_enqueue
procedure :: dequeue => queue_dequeue
procedure :: iterator
procedure :: clear => queue_clear
end type queue_int