hash_table_create_from_value Subroutine

private subroutine hash_table_create_from_value(me, json, p, status_ok, initial_capacity)

Create a hash table from the children of an existing JSON object. The keys are the object member names and the values are pointers to the associated JSON values.

Type Bound

json_hash_table

Arguments

Type IntentOptional Attributes Name
class(json_hash_table), intent(out) :: me
type(json_core), intent(in) :: json

the JSON core factory to use for this hash table. a copy of this will be made and stored in the table.
type(json_value), pointer :: p

the JSON value whose children will be used to populate the hash table. This must be a JSON object.
logical(kind=LK), intent(out) :: status_ok

true if no problems.
integer(kind=IK), intent(in), optional :: initial_capacity

initial capacity of the hash table (number of buckets). If not provided, it will be set based on the number of members divided by the load factor to minimize the number of resizes needed as members are inserted

Calls

proc~~hash_table_create_from_value~~CallsGraph proc~hash_table_create_from_value json_hash_table%hash_table_create_from_value none~get_child json_core%get_child proc~hash_table_create_from_value->none~get_child none~info~2 json_core%info proc~hash_table_create_from_value->none~info~2 proc~hash_table_insert json_hash_table%hash_table_insert proc~hash_table_create_from_value->proc~hash_table_insert proc~json_clear_exceptions json_core%json_clear_exceptions proc~hash_table_create_from_value->proc~json_clear_exceptions proc~json_failed json_core%json_failed proc~hash_table_create_from_value->proc~json_failed proc~json_get_name_settings json_core%json_get_name_settings proc~hash_table_create_from_value->proc~json_get_name_settings proc~json_get_next json_core%json_get_next proc~hash_table_create_from_value->proc~json_get_next proc~json_value_get_child json_core%json_value_get_child none~get_child->proc~json_value_get_child proc~json_value_get_child_by_index json_core%json_value_get_child_by_index none~get_child->proc~json_value_get_child_by_index proc~json_value_get_child_by_name json_core%json_value_get_child_by_name none~get_child->proc~json_value_get_child_by_name proc~wrap_json_value_get_child_by_name json_core%wrap_json_value_get_child_by_name none~get_child->proc~wrap_json_value_get_child_by_name proc~json_info json_core%json_info none~info~2->proc~json_info proc~json_info_by_path json_core%json_info_by_path none~info~2->proc~json_info_by_path proc~wrap_json_info_by_path json_core%wrap_json_info_by_path none~info~2->proc~wrap_json_info_by_path proc~hash_table_hash json_hash_table%hash_table_hash proc~hash_table_insert->proc~hash_table_hash proc~hash_table_resize json_hash_table%hash_table_resize proc~hash_table_insert->proc~hash_table_resize proc~keys_equal json_hash_table%keys_equal proc~hash_table_insert->proc~keys_equal proc~preprocess_key json_hash_table%preprocess_key proc~hash_table_insert->proc~preprocess_key none~throw_exception~2 json_core%throw_exception proc~json_get_next->none~throw_exception~2 proc~json_throw_exception json_core%json_throw_exception none~throw_exception~2->proc~json_throw_exception proc~wrap_json_throw_exception json_core%wrap_json_throw_exception none~throw_exception~2->proc~wrap_json_throw_exception proc~hash_table_resize->proc~hash_table_insert proc~json_info->none~throw_exception~2 proc~json_info_by_path->none~info~2 none~get~3 json_core%get proc~json_info_by_path->none~get~3 proc~json_value_get_child->none~throw_exception~2 proc~json_value_get_child_by_index->proc~json_clear_exceptions proc~json_value_get_child_by_index->none~throw_exception~2 proc~json_value_get_child_by_name->proc~json_clear_exceptions proc~json_value_get_child_by_name->none~throw_exception~2 proc~name_equal json_core%name_equal proc~json_value_get_child_by_name->proc~name_equal proc~lowercase_string lowercase_string proc~preprocess_key->proc~lowercase_string proc~wrap_json_info_by_path->none~info~2 interface~to_unicode to_unicode proc~wrap_json_info_by_path->interface~to_unicode proc~wrap_json_value_get_child_by_name->interface~to_unicode proc~wrap_json_value_get_child_by_name->none~get~3 proc~to_uni to_uni interface~to_unicode->proc~to_uni proc~to_uni_vec to_uni_vec interface~to_unicode->proc~to_uni_vec proc~json_get_alloc_string_vec json_core%json_get_alloc_string_vec none~get~3->proc~json_get_alloc_string_vec proc~json_get_alloc_string_vec_by_path json_core%json_get_alloc_string_vec_by_path none~get~3->proc~json_get_alloc_string_vec_by_path proc~json_get_array json_core%json_get_array none~get~3->proc~json_get_array proc~json_get_array_by_path json_core%json_get_array_by_path none~get~3->proc~json_get_array_by_path proc~json_get_by_path json_core%json_get_by_path none~get~3->proc~json_get_by_path proc~json_get_integer json_core%json_get_integer none~get~3->proc~json_get_integer proc~json_get_integer_by_path json_core%json_get_integer_by_path none~get~3->proc~json_get_integer_by_path proc~json_get_integer_vec json_core%json_get_integer_vec none~get~3->proc~json_get_integer_vec proc~json_get_integer_vec_by_path json_core%json_get_integer_vec_by_path none~get~3->proc~json_get_integer_vec_by_path proc~json_get_logical json_core%json_get_logical none~get~3->proc~json_get_logical proc~json_get_logical_by_path json_core%json_get_logical_by_path none~get~3->proc~json_get_logical_by_path proc~json_get_logical_vec json_core%json_get_logical_vec none~get~3->proc~json_get_logical_vec proc~json_get_logical_vec_by_path json_core%json_get_logical_vec_by_path none~get~3->proc~json_get_logical_vec_by_path proc~json_get_real json_core%json_get_real none~get~3->proc~json_get_real proc~json_get_real32 json_core%json_get_real32 none~get~3->proc~json_get_real32 proc~json_get_real32_by_path json_core%json_get_real32_by_path none~get~3->proc~json_get_real32_by_path proc~json_get_real32_vec json_core%json_get_real32_vec none~get~3->proc~json_get_real32_vec proc~json_get_real32_vec_by_path json_core%json_get_real32_vec_by_path none~get~3->proc~json_get_real32_vec_by_path proc~json_get_real_by_path json_core%json_get_real_by_path none~get~3->proc~json_get_real_by_path proc~json_get_real_vec json_core%json_get_real_vec none~get~3->proc~json_get_real_vec proc~json_get_real_vec_by_path json_core%json_get_real_vec_by_path none~get~3->proc~json_get_real_vec_by_path proc~json_get_string json_core%json_get_string none~get~3->proc~json_get_string proc~json_get_string_by_path json_core%json_get_string_by_path none~get~3->proc~json_get_string_by_path proc~json_get_string_vec json_core%json_get_string_vec none~get~3->proc~json_get_string_vec proc~json_get_string_vec_by_path json_core%json_get_string_vec_by_path none~get~3->proc~json_get_string_vec_by_path proc~wrap_json_get_alloc_string_vec_by_path json_core%wrap_json_get_alloc_string_vec_by_path none~get~3->proc~wrap_json_get_alloc_string_vec_by_path proc~wrap_json_get_array_by_path json_core%wrap_json_get_array_by_path none~get~3->proc~wrap_json_get_array_by_path proc~wrap_json_get_by_path json_core%wrap_json_get_by_path none~get~3->proc~wrap_json_get_by_path proc~wrap_json_get_integer_by_path json_core%wrap_json_get_integer_by_path none~get~3->proc~wrap_json_get_integer_by_path proc~wrap_json_get_integer_vec_by_path json_core%wrap_json_get_integer_vec_by_path none~get~3->proc~wrap_json_get_integer_vec_by_path proc~wrap_json_get_logical_by_path json_core%wrap_json_get_logical_by_path none~get~3->proc~wrap_json_get_logical_by_path proc~wrap_json_get_logical_vec_by_path json_core%wrap_json_get_logical_vec_by_path none~get~3->proc~wrap_json_get_logical_vec_by_path proc~wrap_json_get_real32_by_path json_core%wrap_json_get_real32_by_path none~get~3->proc~wrap_json_get_real32_by_path proc~wrap_json_get_real32_vec_by_path json_core%wrap_json_get_real32_vec_by_path none~get~3->proc~wrap_json_get_real32_vec_by_path proc~wrap_json_get_real_by_path json_core%wrap_json_get_real_by_path none~get~3->proc~wrap_json_get_real_by_path proc~wrap_json_get_real_vec_by_path json_core%wrap_json_get_real_vec_by_path none~get~3->proc~wrap_json_get_real_vec_by_path proc~wrap_json_get_string_by_path json_core%wrap_json_get_string_by_path none~get~3->proc~wrap_json_get_string_by_path proc~wrap_json_get_string_vec_by_path json_core%wrap_json_get_string_vec_by_path none~get~3->proc~wrap_json_get_string_vec_by_path proc~name_strings_equal json_core%name_strings_equal proc~name_equal->proc~name_strings_equal proc~wrap_json_throw_exception->none~throw_exception~2 proc~wrap_json_throw_exception->interface~to_unicode proc~json_get_alloc_string_vec->none~get~3 none~string_info json_core%string_info proc~json_get_alloc_string_vec->none~string_info proc~json_get_alloc_string_vec_by_path->proc~json_clear_exceptions proc~json_get_alloc_string_vec_by_path->none~throw_exception~2 proc~json_get_alloc_string_vec_by_path->none~get~3 proc~flag_not_found~2 flag_not_found proc~json_get_alloc_string_vec_by_path->proc~flag_not_found~2 proc~json_get_array->none~throw_exception~2 proc~json_get_array_by_path->proc~json_clear_exceptions proc~json_get_array_by_path->none~throw_exception~2 proc~json_get_array_by_path->none~get~3 proc~json_get_by_path->proc~json_clear_exceptions proc~json_get_by_path->none~throw_exception~2 proc~integer_to_string integer_to_string proc~json_get_by_path->proc~integer_to_string proc~json_get_by_path_default json_core%json_get_by_path_default proc~json_get_by_path->proc~json_get_by_path_default proc~json_get_by_path_jsonpath_bracket json_core%json_get_by_path_jsonpath_bracket proc~json_get_by_path->proc~json_get_by_path_jsonpath_bracket proc~json_get_by_path_rfc6901 json_core%json_get_by_path_rfc6901 proc~json_get_by_path->proc~json_get_by_path_rfc6901 proc~json_get_integer->none~throw_exception~2 proc~string_to_integer string_to_integer proc~json_get_integer->proc~string_to_integer proc~json_get_integer_by_path->proc~json_clear_exceptions proc~json_get_integer_by_path->none~throw_exception~2 proc~json_get_integer_by_path->none~get~3 proc~json_get_integer_by_path->proc~flag_not_found~2 proc~json_get_integer_vec->none~get~3 proc~json_get_integer_vec_by_path->proc~json_clear_exceptions proc~json_get_integer_vec_by_path->none~throw_exception~2 proc~json_get_integer_vec_by_path->none~get~3 proc~json_get_integer_vec_by_path->proc~flag_not_found~2 proc~json_get_logical->none~throw_exception~2 proc~json_get_logical_by_path->proc~json_clear_exceptions proc~json_get_logical_by_path->none~throw_exception~2 proc~json_get_logical_by_path->none~get~3 proc~json_get_logical_by_path->proc~flag_not_found~2 proc~json_get_logical_vec->none~get~3 proc~json_get_logical_vec_by_path->proc~json_clear_exceptions proc~json_get_logical_vec_by_path->none~throw_exception~2 proc~json_get_logical_vec_by_path->none~get~3 proc~json_get_logical_vec_by_path->proc~flag_not_found~2 proc~json_get_real->none~throw_exception~2 proc~json_get_real32->none~get~3 proc~json_get_real32_by_path->none~get~3 proc~json_get_real32_vec->none~get~3 proc~json_get_real32_vec_by_path->none~get~3 proc~json_get_real_by_path->proc~json_clear_exceptions proc~json_get_real_by_path->none~throw_exception~2 proc~json_get_real_by_path->none~get~3 proc~json_get_real_by_path->proc~flag_not_found~2 proc~json_get_real_vec->none~get~3 proc~json_get_real_vec_by_path->proc~json_clear_exceptions proc~json_get_real_vec_by_path->none~throw_exception~2 proc~json_get_real_vec_by_path->none~get~3 proc~json_get_real_vec_by_path->proc~flag_not_found~2 proc~json_get_string->none~throw_exception~2 proc~escape_string escape_string proc~json_get_string->proc~escape_string proc~json_get_string->proc~integer_to_string proc~real_to_string real_to_string proc~json_get_string->proc~real_to_string proc~json_get_string_by_path->proc~json_clear_exceptions proc~json_get_string_by_path->none~throw_exception~2 proc~json_get_string_by_path->none~get~3 proc~json_get_string_by_path->proc~flag_not_found~2 proc~json_get_string_vec->none~get~3 proc~json_get_string_vec_by_path->proc~json_clear_exceptions proc~json_get_string_vec_by_path->none~throw_exception~2 proc~json_get_string_vec_by_path->none~get~3 proc~json_get_string_vec_by_path->proc~flag_not_found~2 proc~name_strings_equal->proc~lowercase_string proc~wrap_json_get_alloc_string_vec_by_path->interface~to_unicode proc~wrap_json_get_alloc_string_vec_by_path->none~get~3 proc~wrap_json_get_array_by_path->interface~to_unicode proc~wrap_json_get_array_by_path->none~get~3 proc~wrap_json_get_by_path->interface~to_unicode proc~wrap_json_get_by_path->none~get~3 proc~wrap_json_get_integer_by_path->interface~to_unicode proc~wrap_json_get_integer_by_path->none~get~3 proc~wrap_json_get_integer_vec_by_path->interface~to_unicode proc~wrap_json_get_integer_vec_by_path->none~get~3 proc~wrap_json_get_logical_by_path->interface~to_unicode proc~wrap_json_get_logical_by_path->none~get~3 proc~wrap_json_get_logical_vec_by_path->interface~to_unicode proc~wrap_json_get_logical_vec_by_path->none~get~3 proc~wrap_json_get_real32_by_path->interface~to_unicode proc~wrap_json_get_real32_by_path->none~get~3 proc~wrap_json_get_real32_vec_by_path->interface~to_unicode proc~wrap_json_get_real32_vec_by_path->none~get~3 proc~wrap_json_get_real_by_path->interface~to_unicode proc~wrap_json_get_real_by_path->none~get~3 proc~wrap_json_get_real_vec_by_path->interface~to_unicode proc~wrap_json_get_real_vec_by_path->none~get~3 proc~wrap_json_get_string_by_path->interface~to_unicode proc~wrap_json_get_string_by_path->none~get~3 proc~wrap_json_get_string_vec_by_path->interface~to_unicode proc~wrap_json_get_string_vec_by_path->none~get~3 proc~json_string_info json_core%json_string_info none~string_info->proc~json_string_info proc~valid_json_hex valid_json_hex proc~escape_string->proc~valid_json_hex proc~json_get_by_path_default->none~get_child proc~json_get_by_path_default->proc~json_clear_exceptions proc~json_get_by_path_default->none~throw_exception~2 proc~json_get_by_path_default->proc~string_to_integer none~add~4 json_core%add proc~json_get_by_path_default->none~add~4 proc~json_value_create json_value_create proc~json_get_by_path_default->proc~json_value_create proc~to_array json_core%to_array proc~json_get_by_path_default->proc~to_array proc~to_null json_core%to_null proc~json_get_by_path_default->proc~to_null proc~to_object json_core%to_object proc~json_get_by_path_default->proc~to_object proc~json_get_by_path_jsonpath_bracket->none~get_child proc~json_get_by_path_jsonpath_bracket->proc~json_clear_exceptions proc~json_get_by_path_jsonpath_bracket->none~throw_exception~2 proc~json_get_by_path_jsonpath_bracket->proc~string_to_integer proc~json_get_by_path_jsonpath_bracket->none~add~4 proc~convert json_core%convert proc~json_get_by_path_jsonpath_bracket->proc~convert proc~json_get_by_path_jsonpath_bracket->proc~json_value_create proc~json_get_by_path_jsonpath_bracket->proc~to_null proc~json_get_by_path_rfc6901->none~get_child proc~json_get_by_path_rfc6901->proc~json_clear_exceptions proc~json_get_by_path_rfc6901->none~throw_exception~2 proc~json_get_by_path_rfc6901->proc~string_to_integer proc~decode_rfc6901 decode_rfc6901 proc~json_get_by_path_rfc6901->proc~decode_rfc6901 proc~compact_real_string compact_real_string proc~real_to_string->proc~compact_real_string proc~json_value_add_string_name_ascii json_core%json_value_add_string_name_ascii none~add~4->proc~json_value_add_string_name_ascii proc~json_value_add_string_val_ascii json_core%json_value_add_string_val_ascii none~add~4->proc~json_value_add_string_val_ascii proc~json_value_add_string_vec_name_ascii json_core%json_value_add_string_vec_name_ascii none~add~4->proc~json_value_add_string_vec_name_ascii proc~json_value_add_string_vec_val_ascii json_core%json_value_add_string_vec_val_ascii none~add~4->proc~json_value_add_string_vec_val_ascii proc~convert->none~info~2 proc~convert->none~throw_exception~2 none~create_array json_core%create_array proc~convert->none~create_array none~create_null json_core%create_null proc~convert->none~create_null none~create_object json_core%create_object proc~convert->none~create_object proc~json_value_replace json_core%json_value_replace proc~convert->proc~json_value_replace proc~replace_string replace_string proc~decode_rfc6901->proc~replace_string proc~json_string_info->none~info~2 proc~json_string_info->proc~json_clear_exceptions proc~json_string_info->none~throw_exception~2 proc~json_string_info->none~get~3 proc~destroy_json_data destroy_json_data proc~to_array->proc~destroy_json_data proc~to_null->proc~destroy_json_data proc~to_object->proc~destroy_json_data proc~json_value_create_array json_core%json_value_create_array none~create_array->proc~json_value_create_array proc~wrap_json_value_create_array json_core%wrap_json_value_create_array none~create_array->proc~wrap_json_value_create_array proc~json_value_create_null json_core%json_value_create_null none~create_null->proc~json_value_create_null proc~wrap_json_value_create_null json_core%wrap_json_value_create_null none~create_null->proc~wrap_json_value_create_null proc~json_value_create_object json_core%json_value_create_object none~create_object->proc~json_value_create_object proc~wrap_json_value_create_object json_core%wrap_json_value_create_object none~create_object->proc~wrap_json_value_create_object proc~json_value_add_string_name_ascii->interface~to_unicode proc~json_value_add_string_name_ascii->none~add~4 proc~json_value_add_string_val_ascii->interface~to_unicode proc~json_value_add_string_val_ascii->none~add~4 proc~json_value_add_string_vec_name_ascii->interface~to_unicode proc~json_value_add_string_vec_name_ascii->none~add~4 proc~json_value_add_string_vec_val_ascii->interface~to_unicode proc~json_value_add_string_vec_val_ascii->none~add~4 none~insert_after json_core%insert_after proc~json_value_replace->none~insert_after proc~json_value_remove json_core%json_value_remove proc~json_value_replace->proc~json_value_remove proc~json_value_insert_after json_core%json_value_insert_after none~insert_after->proc~json_value_insert_after proc~json_value_insert_after_child_by_index json_core%json_value_insert_after_child_by_index none~insert_after->proc~json_value_insert_after_child_by_index proc~json_value_create_array->proc~json_value_create proc~json_value_create_array->proc~to_array proc~json_value_create_null->proc~json_value_create proc~json_value_create_null->proc~to_null proc~json_value_create_object->proc~json_value_create proc~json_value_create_object->proc~to_object none~destroy~4 json_core%destroy proc~json_value_remove->none~destroy~4 proc~wrap_json_value_create_array->interface~to_unicode proc~wrap_json_value_create_array->none~create_array proc~wrap_json_value_create_null->interface~to_unicode proc~wrap_json_value_create_null->none~create_null proc~wrap_json_value_create_object->interface~to_unicode proc~wrap_json_value_create_object->none~create_object proc~destroy_json_core json_core%destroy_json_core none~destroy~4->proc~destroy_json_core proc~json_value_destroy json_core%json_value_destroy none~destroy~4->proc~json_value_destroy proc~json_value_insert_after_child_by_index->none~get_child proc~json_value_insert_after_child_by_index->none~insert_after proc~json_value_destroy->proc~destroy_json_data proc~json_value_destroy->none~destroy~4

Called by

proc~~hash_table_create_from_value~~CalledByGraph proc~hash_table_create_from_value json_hash_table%hash_table_create_from_value proc~initialize_hash json_file%initialize_hash proc~initialize_hash->proc~hash_table_create_from_value

Source Code

    subroutine hash_table_create_from_value(me, json, p, status_ok, initial_capacity)

    class(json_hash_table), intent(out) :: me
    type(json_core), intent(in) :: json !! the JSON core factory to use for this hash table.
                                        !! a copy of this will be made and stored in the table.
    type(json_value), pointer :: p !! the JSON value whose children will be used to populate
                                   !! the hash table. This must be a JSON object.
    logical(LK), intent(out) :: status_ok !! true if no problems.
    integer(IK), intent(in), optional :: initial_capacity !! initial capacity of the hash table (number of buckets).
                                                          !! If not provided, it will be set based on the number of members
                                                          !! divided by the load factor to minimize
                                                          !! the number of resizes needed as members are inserted

    integer(IK) :: i !! counter
    integer(IK) :: n_members !! number of members in the JSON object
    integer (IK) :: var_type !! type of the JSON value
    character(kind=CK,len=:), allocatable :: key !! member names
    type(json_value), pointer :: current !! pointer to current member value
    type(json_value), pointer :: next !! pointer to next member value

    if (.not. associated(p)) then
        status_ok = .false.
        return
    end if

    status_ok = .true. ! will be set to false if any problems are encountered

    me%json = json  ! make a copy
    call me%json%info(p, n_children=n_members, var_type=var_type)
    if (me%json%failed()) then
        call set_error()
        return
    end if
    if (n_members > 0_IK .and. var_type == json_object) then
        if (present(initial_capacity)) then
            me%capacity = initial_capacity
        else
            ! size it initially to the number of members divided by the load factor to minimize
            ! the number of resizes needed as members are inserted.
            me%capacity = ceiling(real(n_members, RK) / me%load_factor)
        end if
        ! enforce a minimum capacity to avoid too many collisions when there are few members
        me%capacity = max(me%capacity, 16_IK)
        ! get the key settings from the JSON object so that the hash
        ! table will be consistent with how keys are compared in the JSON library.
        ! store these in the hash table for easy access.
        call me%json%get_name_settings(case_sensitive_keys = me%case_sensitive_keys, &
                                       trailing_spaces_significant = me%trailing_spaces_significant)
        ! allocate the buckets:
        allocate(me%buckets(0:me%capacity-1))
        ! iterate over each child member and insert into the hash table
        call me%json%get_child(p, 1_IK, current, found=status_ok) ! the first one
        if (.not. status_ok) then
            call set_error() ! should never happen since we know the size
            return
        end if
        do i = 1, n_members
            call me%json%info(current, name=key)
            if (me%json%failed()) then
                call set_error()
                return
            end if
            call me%insert(key, current)
            call me%json%get_next(current, next) ! get the next one in the list of children
            if (me%json%failed()) then
                call set_error()
                return
            end if
            current => next
        end do
    else
        ! can't create a hash table.
        status_ok = .false.
    end if

    contains

        subroutine set_error()
            !! clear any JSON exceptions and set error flag to false.
            call me%json%clear_exceptions()
            status_ok = .false.
        end subroutine set_error

    end subroutine hash_table_create_from_value