This is a linked list to avoid collisions in the hash table buckets.
| Type | Visibility | Attributes | Name | Initial | |||
|---|---|---|---|---|---|---|---|
| character(kind=CK, len=:), | private, | allocatable | :: | key |
string key. if |
||
| type(hash_node_t), | private, | pointer | :: | next | => | null() |
pointer to the next node in the linked list |
| type(json_value), | private, | pointer | :: | value | => | null() |
associated value in the hash table |
type :: hash_node_t !! This is a linked list to avoid collisions in the hash table buckets. private character(kind=CK,len=:), allocatable :: key !! string key. if `case_sensitive_keys=False` then !! this will always be lowercase. type(json_value), pointer :: value => null() !! associated value in the hash table type(hash_node_t), pointer :: next => null() !! pointer to the next node in the linked list end type hash_node_t