json_add_member_by_path Subroutine

private subroutine json_add_member_by_path(json, me, path, p, found, was_created)

Add a new member (json_value pointer) to a JSON structure, given the path.

Warning

If the path points to an existing variable in the structure, then this routine will destroy it and replace it with the new value.

Type Bound

json_core

Arguments

Type IntentOptional Attributes Name
class(json_core), intent(inout) :: json
type(json_value), pointer :: me

the JSON structure
character(kind=CK, len=*), intent(in) :: path

the path to the variable
type(json_value), intent(in), pointer :: p

the value to add
logical(kind=LK), intent(out), optional :: found

if the variable was found
logical(kind=LK), intent(out), optional :: was_created

if the variable had to be created

Calls

proc~~json_add_member_by_path~~CallsGraph proc~json_add_member_by_path json_core%json_add_member_by_path none~create json_core%create proc~json_add_member_by_path->none~create none~info json_core%info proc~json_add_member_by_path->none~info none~throw_exception json_core%throw_exception proc~json_add_member_by_path->none~throw_exception proc~json_clear_exceptions json_core%json_clear_exceptions proc~json_add_member_by_path->proc~json_clear_exceptions proc~json_value_replace json_core%json_value_replace proc~json_add_member_by_path->proc~json_value_replace proc~json_create_by_path json_core%json_create_by_path none~create->proc~json_create_by_path proc~json_info json_core%json_info none~info->proc~json_info proc~json_info_by_path json_core%json_info_by_path none~info->proc~json_info_by_path proc~json_throw_exception json_core%json_throw_exception none~throw_exception->proc~json_throw_exception 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_create_by_path->none~throw_exception proc~json_create_by_path->proc~json_clear_exceptions proc~integer_to_string integer_to_string proc~json_create_by_path->proc~integer_to_string proc~json_get_by_path_default json_core%json_get_by_path_default proc~json_create_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_create_by_path->proc~json_get_by_path_jsonpath_bracket proc~json_info->none~throw_exception proc~json_info_by_path->none~info none~get json_core%get proc~json_info_by_path->none~get none~destroy json_core%destroy proc~json_value_remove->none~destroy proc~destroy_json_core json_core%destroy_json_core none~destroy->proc~destroy_json_core proc~json_value_destroy json_core%json_value_destroy none~destroy->proc~json_value_destroy proc~json_get_alloc_string_vec json_core%json_get_alloc_string_vec none~get->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->proc~json_get_alloc_string_vec_by_path proc~json_get_array json_core%json_get_array none~get->proc~json_get_array proc~json_get_array_by_path json_core%json_get_array_by_path none~get->proc~json_get_array_by_path proc~json_get_by_path json_core%json_get_by_path none~get->proc~json_get_by_path proc~json_get_integer json_core%json_get_integer none~get->proc~json_get_integer proc~json_get_integer_by_path json_core%json_get_integer_by_path none~get->proc~json_get_integer_by_path proc~json_get_integer_vec json_core%json_get_integer_vec none~get->proc~json_get_integer_vec proc~json_get_integer_vec_by_path json_core%json_get_integer_vec_by_path none~get->proc~json_get_integer_vec_by_path proc~json_get_logical json_core%json_get_logical none~get->proc~json_get_logical proc~json_get_logical_by_path json_core%json_get_logical_by_path none~get->proc~json_get_logical_by_path proc~json_get_logical_vec json_core%json_get_logical_vec none~get->proc~json_get_logical_vec proc~json_get_logical_vec_by_path json_core%json_get_logical_vec_by_path none~get->proc~json_get_logical_vec_by_path proc~json_get_real json_core%json_get_real none~get->proc~json_get_real proc~json_get_real32 json_core%json_get_real32 none~get->proc~json_get_real32 proc~json_get_real32_by_path json_core%json_get_real32_by_path none~get->proc~json_get_real32_by_path proc~json_get_real32_vec json_core%json_get_real32_vec none~get->proc~json_get_real32_vec proc~json_get_real32_vec_by_path json_core%json_get_real32_vec_by_path none~get->proc~json_get_real32_vec_by_path proc~json_get_real_by_path json_core%json_get_real_by_path none~get->proc~json_get_real_by_path proc~json_get_real_vec json_core%json_get_real_vec none~get->proc~json_get_real_vec proc~json_get_real_vec_by_path json_core%json_get_real_vec_by_path none~get->proc~json_get_real_vec_by_path proc~json_get_string json_core%json_get_string none~get->proc~json_get_string proc~json_get_string_by_path json_core%json_get_string_by_path none~get->proc~json_get_string_by_path proc~json_get_string_vec json_core%json_get_string_vec none~get->proc~json_get_string_vec proc~json_get_string_vec_by_path json_core%json_get_string_vec_by_path none~get->proc~json_get_string_vec_by_path proc~json_get_by_path_default->none~throw_exception proc~json_get_by_path_default->proc~json_clear_exceptions none~add json_core%add proc~json_get_by_path_default->none~add none~get_child json_core%get_child proc~json_get_by_path_default->none~get_child proc~json_value_create json_value_create proc~json_get_by_path_default->proc~json_value_create proc~string_to_integer string_to_integer proc~json_get_by_path_default->proc~string_to_integer 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~throw_exception proc~json_get_by_path_jsonpath_bracket->proc~json_clear_exceptions proc~json_get_by_path_jsonpath_bracket->none~add proc~json_get_by_path_jsonpath_bracket->none~get_child 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~string_to_integer proc~json_get_by_path_jsonpath_bracket->proc~to_null proc~json_value_insert_after_child_by_index->none~insert_after proc~json_value_insert_after_child_by_index->none~get_child proc~json_value_add_integer json_core%json_value_add_integer none~add->proc~json_value_add_integer proc~json_value_add_integer_vec json_core%json_value_add_integer_vec none~add->proc~json_value_add_integer_vec proc~json_value_add_logical json_core%json_value_add_logical none~add->proc~json_value_add_logical proc~json_value_add_logical_vec json_core%json_value_add_logical_vec none~add->proc~json_value_add_logical_vec proc~json_value_add_member json_core%json_value_add_member none~add->proc~json_value_add_member proc~json_value_add_null json_core%json_value_add_null none~add->proc~json_value_add_null proc~json_value_add_real json_core%json_value_add_real none~add->proc~json_value_add_real proc~json_value_add_real32 json_core%json_value_add_real32 none~add->proc~json_value_add_real32 proc~json_value_add_real32_vec json_core%json_value_add_real32_vec none~add->proc~json_value_add_real32_vec proc~json_value_add_real_vec json_core%json_value_add_real_vec none~add->proc~json_value_add_real_vec proc~json_value_add_string json_core%json_value_add_string none~add->proc~json_value_add_string proc~json_value_add_string_vec json_core%json_value_add_string_vec none~add->proc~json_value_add_string_vec 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~convert->none~info proc~convert->none~throw_exception proc~convert->proc~json_value_replace 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_get_alloc_string_vec->none~get none~string_info json_core%string_info proc~json_get_alloc_string_vec->none~string_info proc~json_get_alloc_string_vec_by_path->none~throw_exception proc~json_get_alloc_string_vec_by_path->proc~json_clear_exceptions proc~json_get_alloc_string_vec_by_path->none~get proc~flag_not_found flag_not_found proc~json_get_alloc_string_vec_by_path->proc~flag_not_found proc~json_get_array->none~throw_exception proc~json_get_array_by_path->none~throw_exception proc~json_get_array_by_path->proc~json_clear_exceptions proc~json_get_array_by_path->none~get proc~json_get_by_path->none~throw_exception proc~json_get_by_path->proc~json_clear_exceptions proc~json_get_by_path->proc~integer_to_string proc~json_get_by_path->proc~json_get_by_path_default 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 proc~json_get_integer->proc~string_to_integer proc~json_get_integer_by_path->none~throw_exception proc~json_get_integer_by_path->proc~json_clear_exceptions proc~json_get_integer_by_path->none~get proc~json_get_integer_by_path->proc~flag_not_found proc~json_get_integer_vec->none~get proc~json_get_integer_vec_by_path->none~throw_exception proc~json_get_integer_vec_by_path->proc~json_clear_exceptions proc~json_get_integer_vec_by_path->none~get proc~json_get_integer_vec_by_path->proc~flag_not_found proc~json_get_logical->none~throw_exception proc~json_get_logical_by_path->none~throw_exception proc~json_get_logical_by_path->proc~json_clear_exceptions proc~json_get_logical_by_path->none~get proc~json_get_logical_by_path->proc~flag_not_found proc~json_get_logical_vec->none~get proc~json_get_logical_vec_by_path->none~throw_exception proc~json_get_logical_vec_by_path->proc~json_clear_exceptions proc~json_get_logical_vec_by_path->none~get proc~json_get_logical_vec_by_path->proc~flag_not_found proc~json_get_real->none~throw_exception proc~string_to_real string_to_real proc~json_get_real->proc~string_to_real proc~json_get_real32->none~get proc~json_get_real32_by_path->none~get proc~json_get_real32_vec->none~get proc~json_get_real32_vec_by_path->none~get proc~json_get_real_by_path->none~throw_exception proc~json_get_real_by_path->proc~json_clear_exceptions proc~json_get_real_by_path->none~get proc~json_get_real_by_path->proc~flag_not_found proc~json_get_real_vec->none~get proc~json_get_real_vec_by_path->none~throw_exception proc~json_get_real_vec_by_path->proc~json_clear_exceptions proc~json_get_real_vec_by_path->none~get proc~json_get_real_vec_by_path->proc~flag_not_found proc~json_get_string->none~throw_exception proc~json_get_string->proc~integer_to_string proc~escape_string escape_string proc~json_get_string->proc~escape_string proc~real_to_string real_to_string proc~json_get_string->proc~real_to_string proc~json_get_string_by_path->none~throw_exception proc~json_get_string_by_path->proc~json_clear_exceptions proc~json_get_string_by_path->none~get proc~json_get_string_by_path->proc~flag_not_found proc~json_get_string_vec->none~get proc~json_get_string_vec_by_path->none~throw_exception proc~json_get_string_vec_by_path->proc~json_clear_exceptions proc~json_get_string_vec_by_path->none~get proc~json_get_string_vec_by_path->proc~flag_not_found proc~json_value_destroy->none~destroy proc~destroy_json_data destroy_json_data proc~json_value_destroy->proc~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~json_value_create_null json_core%json_value_create_null none~create_null->proc~json_value_create_null proc~json_value_create_object json_core%json_value_create_object none~create_object->proc~json_value_create_object 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_rfc6901->none~throw_exception proc~json_get_by_path_rfc6901->proc~json_clear_exceptions proc~json_get_by_path_rfc6901->none~get_child 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~json_value_add_integer->none~add none~create_integer json_core%create_integer proc~json_value_add_integer->none~create_integer proc~json_value_add_integer_vec->none~add proc~json_value_add_integer_vec->none~create_array proc~json_value_add_logical->none~add none~create_logical json_core%create_logical proc~json_value_add_logical->none~create_logical proc~json_value_add_logical_vec->none~add proc~json_value_add_logical_vec->none~create_array proc~json_value_add_member->none~info proc~json_value_add_member->none~throw_exception proc~json_value_add_null->none~add proc~json_value_add_null->none~create_null proc~json_value_add_real->none~add none~create_real~2 json_core%create_real proc~json_value_add_real->none~create_real~2 proc~json_value_add_real32->none~add proc~json_value_add_real32_vec->none~add proc~json_value_add_real_vec->none~add proc~json_value_add_real_vec->none~create_array proc~json_value_add_string->none~add none~create_string json_core%create_string proc~json_value_add_string->none~create_string proc~json_value_add_string_vec->none~add proc~json_value_add_string_vec->none~create_array proc~json_value_get_child->none~throw_exception proc~json_value_get_child_by_index->none~throw_exception proc~json_value_get_child_by_index->proc~json_clear_exceptions proc~json_value_get_child_by_name->none~throw_exception proc~json_value_get_child_by_name->proc~json_clear_exceptions proc~name_equal json_core%name_equal proc~json_value_get_child_by_name->proc~name_equal proc~compact_real_string compact_real_string proc~real_to_string->proc~compact_real_string proc~json_value_create_integer json_core%json_value_create_integer none~create_integer->proc~json_value_create_integer proc~json_value_create_logical json_core%json_value_create_logical none~create_logical->proc~json_value_create_logical proc~json_value_create_real32 json_core%json_value_create_real32 none~create_real~2->proc~json_value_create_real32 proc~json_value_create_string json_core%json_value_create_string none~create_string->proc~json_value_create_string proc~replace_string replace_string proc~decode_rfc6901->proc~replace_string proc~json_string_info->none~info proc~json_string_info->none~throw_exception proc~json_string_info->proc~json_clear_exceptions proc~json_string_info->none~get 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 proc~name_strings_equal json_core%name_strings_equal proc~name_equal->proc~name_strings_equal proc~json_value_create_integer->proc~json_value_create proc~to_integer json_core%to_integer proc~json_value_create_integer->proc~to_integer proc~json_value_create_logical->proc~json_value_create proc~to_logical json_core%to_logical proc~json_value_create_logical->proc~to_logical proc~json_value_create_real32->none~create_real~2 proc~json_value_create_string->proc~json_value_create proc~to_string json_core%to_string proc~json_value_create_string->proc~to_string proc~lowercase_string lowercase_string proc~name_strings_equal->proc~lowercase_string proc~to_integer->proc~destroy_json_data proc~to_logical->proc~destroy_json_data proc~to_string->proc~destroy_json_data

Called by

proc~~json_add_member_by_path~~CalledByGraph proc~json_add_member_by_path json_core%json_add_member_by_path none~add_by_path json_core%add_by_path none~add_by_path->proc~json_add_member_by_path proc~json_add_real32_by_path json_core%json_add_real32_by_path none~add_by_path->proc~json_add_real32_by_path proc~json_add_real32_vec_by_path json_core%json_add_real32_vec_by_path none~add_by_path->proc~json_add_real32_vec_by_path proc~wrap_json_add_member_by_path wrap_json_add_member_by_path proc~wrap_json_add_member_by_path->proc~json_add_member_by_path proc~json_add_real32_by_path->none~add_by_path proc~json_add_real32_vec_by_path->none~add_by_path proc~json_file_add_integer json_file%json_file_add_integer proc~json_file_add_integer->none~add_by_path proc~json_file_add_integer_vec json_file%json_file_add_integer_vec proc~json_file_add_integer_vec->none~add_by_path proc~json_file_add_logical json_file%json_file_add_logical proc~json_file_add_logical->none~add_by_path proc~json_file_add_logical_vec json_file%json_file_add_logical_vec proc~json_file_add_logical_vec->none~add_by_path proc~json_file_add_object json_file%json_file_add_object proc~json_file_add_object->none~add_by_path proc~json_file_add_real json_file%json_file_add_real proc~json_file_add_real->none~add_by_path proc~json_file_add_real32 json_file%json_file_add_real32 proc~json_file_add_real32->none~add_by_path proc~json_file_add_real32_vec json_file%json_file_add_real32_vec proc~json_file_add_real32_vec->none~add_by_path proc~json_file_add_real_vec json_file%json_file_add_real_vec proc~json_file_add_real_vec->none~add_by_path proc~json_file_add_string json_file%json_file_add_string proc~json_file_add_string->none~add_by_path proc~json_file_add_string_vec json_file%json_file_add_string_vec proc~json_file_add_string_vec->none~add_by_path proc~json_update_integer json_core%json_update_integer proc~json_update_integer->none~add_by_path proc~json_update_logical json_core%json_update_logical proc~json_update_logical->none~add_by_path proc~json_update_real json_core%json_update_real proc~json_update_real->none~add_by_path proc~json_update_string json_core%json_update_string proc~json_update_string->none~add_by_path proc~wrap_json_add_real32_by_path wrap_json_add_real32_by_path proc~wrap_json_add_real32_by_path->none~add_by_path proc~wrap_json_add_real32_vec_by_path wrap_json_add_real32_vec_by_path proc~wrap_json_add_real32_vec_by_path->none~add_by_path none~update json_core%update none~update->proc~json_update_integer none~update->proc~json_update_logical none~update->proc~json_update_real none~update->proc~json_update_string proc~json_update_real32 json_core%json_update_real32 none~update->proc~json_update_real32 proc~json_file_add_string_path_ascii json_file_add_string_path_ascii proc~json_file_add_string_path_ascii->proc~json_file_add_string proc~json_file_add_string_value_ascii json_file_add_string_value_ascii proc~json_file_add_string_value_ascii->proc~json_file_add_string proc~json_file_add_string_vec_path_ascii json_file_add_string_vec_path_ascii proc~json_file_add_string_vec_path_ascii->proc~json_file_add_string_vec proc~json_file_add_string_vec_vec_ascii json_file_add_string_vec_vec_ascii proc~json_file_add_string_vec_vec_ascii->proc~json_file_add_string_vec proc~wrap_json_file_add_integer wrap_json_file_add_integer proc~wrap_json_file_add_integer->proc~json_file_add_integer proc~wrap_json_file_add_integer_vec wrap_json_file_add_integer_vec proc~wrap_json_file_add_integer_vec->proc~json_file_add_integer_vec proc~wrap_json_file_add_logical wrap_json_file_add_logical proc~wrap_json_file_add_logical->proc~json_file_add_logical proc~wrap_json_file_add_logical_vec wrap_json_file_add_logical_vec proc~wrap_json_file_add_logical_vec->proc~json_file_add_logical_vec proc~wrap_json_file_add_object wrap_json_file_add_object proc~wrap_json_file_add_object->proc~json_file_add_object proc~wrap_json_file_add_real wrap_json_file_add_real proc~wrap_json_file_add_real->proc~json_file_add_real proc~wrap_json_file_add_real32 wrap_json_file_add_real32 proc~wrap_json_file_add_real32->proc~json_file_add_real32 proc~wrap_json_file_add_real32_vec wrap_json_file_add_real32_vec proc~wrap_json_file_add_real32_vec->proc~json_file_add_real32_vec proc~wrap_json_file_add_real_vec wrap_json_file_add_real_vec proc~wrap_json_file_add_real_vec->proc~json_file_add_real_vec proc~wrap_json_file_add_string wrap_json_file_add_string proc~wrap_json_file_add_string->proc~json_file_add_string proc~wrap_json_file_add_string_vec wrap_json_file_add_string_vec proc~wrap_json_file_add_string_vec->proc~json_file_add_string_vec proc~json_file_update_integer json_file%json_file_update_integer proc~json_file_update_integer->none~update proc~json_file_update_logical json_file%json_file_update_logical proc~json_file_update_logical->none~update proc~json_file_update_real json_file%json_file_update_real proc~json_file_update_real->none~update proc~json_file_update_string json_file%json_file_update_string proc~json_file_update_string->none~update proc~json_update_real32->none~update proc~json_update_string_name_ascii json_update_string_name_ascii proc~json_update_string_name_ascii->none~update proc~json_update_string_val_ascii json_update_string_val_ascii proc~json_update_string_val_ascii->none~update proc~wrap_json_update_integer wrap_json_update_integer proc~wrap_json_update_integer->none~update proc~wrap_json_update_logical wrap_json_update_logical proc~wrap_json_update_logical->none~update proc~wrap_json_update_real wrap_json_update_real proc~wrap_json_update_real->none~update proc~wrap_json_update_real32 wrap_json_update_real32 proc~wrap_json_update_real32->none~update proc~wrap_json_update_string wrap_json_update_string proc~wrap_json_update_string->none~update none~update~2 json_file%update none~update~2->proc~json_file_update_integer none~update~2->proc~json_file_update_logical none~update~2->proc~json_file_update_real none~update~2->proc~json_file_update_string proc~json_file_update_real32 json_file%json_file_update_real32 none~update~2->proc~json_file_update_real32 proc~json_file_update_real32->none~update~2 proc~json_file_update_string_name_ascii json_file_update_string_name_ascii proc~json_file_update_string_name_ascii->none~update~2 proc~json_file_update_string_val_ascii json_file_update_string_val_ascii proc~json_file_update_string_val_ascii->none~update~2 proc~wrap_json_file_update_integer wrap_json_file_update_integer proc~wrap_json_file_update_integer->none~update~2 proc~wrap_json_file_update_logical wrap_json_file_update_logical proc~wrap_json_file_update_logical->none~update~2 proc~wrap_json_file_update_real wrap_json_file_update_real proc~wrap_json_file_update_real->none~update~2 proc~wrap_json_file_update_real32 wrap_json_file_update_real32 proc~wrap_json_file_update_real32->none~update~2 proc~wrap_json_file_update_string wrap_json_file_update_string proc~wrap_json_file_update_string->none~update~2

Source Code

    subroutine json_add_member_by_path(json,me,path,p,found,was_created)

    implicit none

    class(json_core),intent(inout)      :: json
    type(json_value),pointer            :: me           !! the JSON structure
    character(kind=CK,len=*),intent(in) :: path         !! the path to the variable
    type(json_value),pointer,intent(in) :: p            !! the value to add
    logical(LK),intent(out),optional    :: found        !! if the variable was found
    logical(LK),intent(out),optional    :: was_created  !! if the variable had to be created

    type(json_value),pointer :: tmp
    character(kind=CK,len=:),allocatable :: name  !! name of the variable

    if ( .not. json%exception_thrown ) then

        if (.not. associated(p)) then
            call json%throw_exception('Error in json_add_member_by_path:'//&
                                      ' Input pointer p is not associated.',found)
            if (present(found)) then
                found = .false.
                call json%clear_exceptions()
            end if
            if ( present(was_created) ) was_created = .false.
        else

            ! return a pointer to the path (possibly creating it)
            call json%create(me,path,tmp,found,was_created)

            if (.not. associated(tmp)) then

                call json%throw_exception('Error in json_add_member_by_path:'//&
                                          ' Unable to resolve path: '//trim(path),found)
                if (present(found)) then
                    found = .false.
                    call json%clear_exceptions()
                end if

            else

                call json%info(tmp,name=name)

                ! replace it with the new one:
                call json%replace(tmp,p,destroy=.true.)
                call json%rename(p,name)

            end if

        end if

    else
        if ( present(found) ) found = .false.
        if ( present(was_created) ) was_created = .false.
    end if

    end subroutine json_add_member_by_path