json_get_by_path_jsonpath_bracket Subroutine

private subroutine json_get_by_path_jsonpath_bracket(json, me, path, p, found, create_it, was_created)

Returns the json_value pointer given the path string, using the “JSON Pointer” path specification defined by the JSONPath “bracket-notation”.

The first character $ is optional, and signifies the root of the structure. If it is not present, then the first key is taken to be in the me object.

Single or real quotes may be used.

Example

    type(json_core) :: json
    type(json_value),pointer :: dat,p
    logical :: found
    !...
    call json%initialize(path_mode=3)
    call json%get(dat,"$['store']['book'][1]['title']",p,found)

See also

Reference

Note

Uses 1-based array indices (same as json_get_by_path_default, but unlike json_get_by_path_rfc6901 which uses 0-based indices).

Note

When create_it=True, if the variable already exists and is a type that is not compatible with the usage in the path, then it is destroyed and replaced with what is specified in the path. Note that this applies the all variables in the path as it is created. Currently, this behavior is different from json_get_by_path_default.

Note

JSON null values are used here for unknown variables when create_it is True.

Warning

Note that if using single quotes, this routine cannot parse a key containing ']. If using real quotes, this routine cannot parse a key containing "]. If the key contains both '] and "], there is no way to parse it using this routine.

Type Bound

json_core

Arguments

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

a JSON linked list
character(kind=CK, len=*), intent(in) :: path

path to the variable (using JSONPath “bracket-notation”)
type(json_value), intent(out), pointer :: p

pointer to the variable specify by path
logical(kind=LK), intent(out), optional :: found

true if it was found
logical(kind=LK), intent(in), optional :: create_it

if a variable is not present in the path, then it is created. the leaf node is returned as a null json type and can be changed by the caller.
logical(kind=LK), intent(out), optional :: was_created

if create_it is true, this will be true if the variable was actually created. Otherwise it will be false.

Calls

proc~~json_get_by_path_jsonpath_bracket~~CallsGraph proc~json_get_by_path_jsonpath_bracket json_core%json_get_by_path_jsonpath_bracket none~add json_core%add proc~json_get_by_path_jsonpath_bracket->none~add none~get_child json_core%get_child proc~json_get_by_path_jsonpath_bracket->none~get_child none~throw_exception json_core%throw_exception proc~json_get_by_path_jsonpath_bracket->none~throw_exception proc~convert json_core%convert proc~json_get_by_path_jsonpath_bracket->proc~convert proc~json_clear_exceptions json_core%json_clear_exceptions proc~json_get_by_path_jsonpath_bracket->proc~json_clear_exceptions proc~json_value_create json_value_create proc~json_get_by_path_jsonpath_bracket->proc~json_value_create proc~string_to_integer string_to_integer proc~json_get_by_path_jsonpath_bracket->proc~string_to_integer proc~to_null json_core%to_null proc~json_get_by_path_jsonpath_bracket->proc~to_null 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~json_throw_exception json_core%json_throw_exception none~throw_exception->proc~json_throw_exception proc~convert->none~throw_exception 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 none~info json_core%info proc~convert->none~info proc~json_value_replace json_core%json_value_replace proc~convert->proc~json_value_replace proc~destroy_json_data destroy_json_data proc~to_null->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_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_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~throw_exception proc~json_value_add_member->none~info 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 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_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~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_info->none~throw_exception proc~json_info_by_path->none~info none~get json_core%get proc~json_info_by_path->none~get proc~json_value_create_array->proc~json_value_create proc~to_array json_core%to_array 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~to_object json_core%to_object proc~json_value_create_object->proc~to_object none~destroy json_core%destroy proc~json_value_remove->none~destroy proc~name_strings_equal json_core%name_strings_equal proc~name_equal->proc~name_strings_equal 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_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~json_value_insert_after_child_by_index->none~get_child proc~json_value_insert_after_child_by_index->none~insert_after proc~lowercase_string lowercase_string proc~name_strings_equal->proc~lowercase_string proc~to_array->proc~destroy_json_data proc~to_object->proc~destroy_json_data 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->proc~json_get_by_path_jsonpath_bracket proc~json_get_by_path->none~throw_exception proc~json_get_by_path->proc~json_clear_exceptions 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_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~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->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->proc~destroy_json_data proc~json_value_destroy->none~destroy proc~to_integer->proc~destroy_json_data proc~to_logical->proc~destroy_json_data proc~to_string->proc~destroy_json_data 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~add proc~json_get_by_path_default->none~get_child proc~json_get_by_path_default->none~throw_exception proc~json_get_by_path_default->proc~json_clear_exceptions proc~json_get_by_path_default->proc~json_value_create proc~json_get_by_path_default->proc~string_to_integer proc~json_get_by_path_default->proc~to_null proc~json_get_by_path_default->proc~to_array proc~json_get_by_path_default->proc~to_object proc~json_get_by_path_rfc6901->none~get_child 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->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~replace_string replace_string proc~decode_rfc6901->proc~replace_string proc~json_string_info->none~throw_exception proc~json_string_info->proc~json_clear_exceptions proc~json_string_info->none~info proc~json_string_info->none~get

Called by

proc~~json_get_by_path_jsonpath_bracket~~CalledByGraph proc~json_get_by_path_jsonpath_bracket json_core%json_get_by_path_jsonpath_bracket proc~convert json_core%convert proc~json_get_by_path_jsonpath_bracket->proc~convert none~add json_core%add proc~json_get_by_path_jsonpath_bracket->none~add proc~json_create_by_path json_core%json_create_by_path proc~json_create_by_path->proc~json_get_by_path_jsonpath_bracket 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 json_core%json_get_by_path proc~json_get_by_path->proc~json_get_by_path_jsonpath_bracket proc~json_get_by_path->proc~json_get_by_path_default none~create json_core%create none~create->proc~json_create_by_path none~get json_core%get none~get->proc~json_get_by_path 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_by_path json_core%json_get_array_by_path none~get->proc~json_get_array_by_path 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_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_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_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_add_integer_by_path json_core%json_add_integer_by_path proc~json_add_integer_by_path->none~create none~info json_core%info proc~json_add_integer_by_path->none~info proc~json_add_integer_vec_by_path json_core%json_add_integer_vec_by_path proc~json_add_integer_vec_by_path->none~create proc~json_add_integer_vec_by_path->none~info proc~json_add_integer_vec_by_path->none~add proc~json_add_logical_by_path json_core%json_add_logical_by_path proc~json_add_logical_by_path->none~create proc~json_add_logical_by_path->none~info proc~json_add_logical_vec_by_path json_core%json_add_logical_vec_by_path proc~json_add_logical_vec_by_path->none~create proc~json_add_logical_vec_by_path->none~info proc~json_add_logical_vec_by_path->none~add proc~json_add_member_by_path json_core%json_add_member_by_path proc~json_add_member_by_path->none~create proc~json_add_member_by_path->none~info proc~json_add_real_by_path json_core%json_add_real_by_path proc~json_add_real_by_path->none~create proc~json_add_real_by_path->none~info proc~json_add_real_vec_by_path json_core%json_add_real_vec_by_path proc~json_add_real_vec_by_path->none~create proc~json_add_real_vec_by_path->none~info proc~json_add_real_vec_by_path->none~add proc~json_add_string_by_path json_core%json_add_string_by_path proc~json_add_string_by_path->none~create proc~json_add_string_by_path->none~info proc~json_add_string_vec_by_path json_core%json_add_string_vec_by_path proc~json_add_string_vec_by_path->none~create proc~json_add_string_vec_by_path->none~info proc~json_add_string_vec_by_path->none~add proc~json_file_get_alloc_string_vec json_file%json_file_get_alloc_string_vec proc~json_file_get_alloc_string_vec->none~get proc~json_file_get_integer json_file%json_file_get_integer proc~json_file_get_integer->none~get proc~json_file_get_integer_vec json_file%json_file_get_integer_vec proc~json_file_get_integer_vec->none~get proc~json_file_get_logical json_file%json_file_get_logical proc~json_file_get_logical->none~get proc~json_file_get_logical_vec json_file%json_file_get_logical_vec proc~json_file_get_logical_vec->none~get proc~json_file_get_object json_file%json_file_get_object proc~json_file_get_object->none~get proc~json_file_get_real json_file%json_file_get_real proc~json_file_get_real->none~get proc~json_file_get_real32 json_file%json_file_get_real32 proc~json_file_get_real32->none~get proc~json_file_get_real32_vec json_file%json_file_get_real32_vec proc~json_file_get_real32_vec->none~get proc~json_file_get_real_vec json_file%json_file_get_real_vec proc~json_file_get_real_vec->none~get proc~json_file_get_string json_file%json_file_get_string proc~json_file_get_string->none~get proc~json_file_get_string_vec json_file%json_file_get_string_vec proc~json_file_get_string_vec->none~get 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~get proc~json_get_array_by_path->none~get proc~json_get_integer_by_path->none~get proc~json_get_integer_vec->none~get proc~json_get_integer_vec_by_path->none~get proc~json_get_logical_by_path->none~get proc~json_get_logical_vec->none~get proc~json_get_logical_vec_by_path->none~get 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~get proc~json_get_real_vec->none~get proc~json_get_real_vec_by_path->none~get proc~json_get_string_by_path->none~get proc~json_get_string_vec->none~get proc~json_get_string_vec_by_path->none~get proc~json_info_by_path json_core%json_info_by_path proc~json_info_by_path->none~get proc~json_info_by_path->none~info proc~json_matrix_info_by_path json_core%json_matrix_info_by_path proc~json_matrix_info_by_path->none~get none~matrix_info json_core%matrix_info proc~json_matrix_info_by_path->none~matrix_info proc~json_rename_by_path json_core%json_rename_by_path proc~json_rename_by_path->none~get proc~json_string_info json_core%json_string_info proc~json_string_info->none~get proc~json_string_info->none~info proc~json_update_integer json_core%json_update_integer proc~json_update_integer->none~get none~add_by_path json_core%add_by_path proc~json_update_integer->none~add_by_path proc~json_update_integer->none~info proc~json_update_logical json_core%json_update_logical proc~json_update_logical->none~get proc~json_update_logical->none~add_by_path proc~json_update_logical->none~info proc~json_update_real json_core%json_update_real proc~json_update_real->none~get proc~json_update_real->none~add_by_path proc~json_update_real->none~info proc~json_update_string json_core%json_update_string proc~json_update_string->none~get proc~json_update_string->none~add_by_path proc~json_update_string->none~info proc~json_valid_path json_core%json_valid_path proc~json_valid_path->none~get proc~json_value_remove_if_present json_core%json_value_remove_if_present proc~json_value_remove_if_present->none~get proc~wrap_json_create_by_path wrap_json_create_by_path proc~wrap_json_create_by_path->none~create proc~wrap_json_get_alloc_string_vec_by_path wrap_json_get_alloc_string_vec_by_path proc~wrap_json_get_alloc_string_vec_by_path->none~get proc~wrap_json_get_array_by_path wrap_json_get_array_by_path proc~wrap_json_get_array_by_path->none~get proc~wrap_json_get_by_path wrap_json_get_by_path proc~wrap_json_get_by_path->none~get proc~wrap_json_get_integer_by_path wrap_json_get_integer_by_path proc~wrap_json_get_integer_by_path->none~get proc~wrap_json_get_integer_vec_by_path wrap_json_get_integer_vec_by_path proc~wrap_json_get_integer_vec_by_path->none~get proc~wrap_json_get_logical_by_path wrap_json_get_logical_by_path proc~wrap_json_get_logical_by_path->none~get proc~wrap_json_get_logical_vec_by_path wrap_json_get_logical_vec_by_path proc~wrap_json_get_logical_vec_by_path->none~get proc~wrap_json_get_real32_by_path wrap_json_get_real32_by_path proc~wrap_json_get_real32_by_path->none~get proc~wrap_json_get_real32_vec_by_path wrap_json_get_real32_vec_by_path proc~wrap_json_get_real32_vec_by_path->none~get proc~wrap_json_get_real_by_path wrap_json_get_real_by_path proc~wrap_json_get_real_by_path->none~get proc~wrap_json_get_real_vec_by_path wrap_json_get_real_vec_by_path proc~wrap_json_get_real_vec_by_path->none~get proc~wrap_json_get_string_by_path wrap_json_get_string_by_path proc~wrap_json_get_string_by_path->none~get proc~wrap_json_get_string_vec_by_path wrap_json_get_string_vec_by_path proc~wrap_json_get_string_vec_by_path->none~get proc~wrap_json_value_get_child_by_name wrap_json_value_get_child_by_name proc~wrap_json_value_get_child_by_name->none~get none~add_by_path->proc~json_add_integer_by_path none~add_by_path->proc~json_add_integer_vec_by_path none~add_by_path->proc~json_add_logical_by_path none~add_by_path->proc~json_add_logical_vec_by_path none~add_by_path->proc~json_add_member_by_path none~add_by_path->proc~json_add_real_by_path none~add_by_path->proc~json_add_real_vec_by_path none~add_by_path->proc~json_add_string_by_path none~add_by_path->proc~json_add_string_vec_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 none~get~2 json_file%get none~get~2->proc~json_file_get_alloc_string_vec none~get~2->proc~json_file_get_integer none~get~2->proc~json_file_get_integer_vec none~get~2->proc~json_file_get_logical none~get~2->proc~json_file_get_logical_vec none~get~2->proc~json_file_get_object none~get~2->proc~json_file_get_real none~get~2->proc~json_file_get_real32 none~get~2->proc~json_file_get_real32_vec none~get~2->proc~json_file_get_real_vec none~get~2->proc~json_file_get_string none~get~2->proc~json_file_get_string_vec none~info->proc~json_info_by_path none~matrix_info->proc~json_matrix_info_by_path proc~json_matrix_info json_core%json_matrix_info none~matrix_info->proc~json_matrix_info none~remove_if_present json_core%remove_if_present none~remove_if_present->proc~json_value_remove_if_present none~string_info->proc~json_string_info 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 none~valid_path json_core%valid_path none~valid_path->proc~json_valid_path proc~json_add_string_by_path_path_ascii json_add_string_by_path_path_ascii proc~json_add_string_by_path_path_ascii->proc~json_add_string_by_path proc~json_add_string_by_path_value_ascii json_add_string_by_path_value_ascii proc~json_add_string_by_path_value_ascii->proc~json_add_string_by_path proc~json_add_string_vec_by_path_path_ascii json_add_string_vec_by_path_path_ascii proc~json_add_string_vec_by_path_path_ascii->proc~json_add_string_vec_by_path proc~json_add_string_vec_by_path_value_ascii json_add_string_vec_by_path_value_ascii proc~json_add_string_vec_by_path_value_ascii->proc~json_add_string_vec_by_path proc~wrap_json_add_integer_by_path wrap_json_add_integer_by_path proc~wrap_json_add_integer_by_path->proc~json_add_integer_by_path proc~wrap_json_add_integer_vec_by_path wrap_json_add_integer_vec_by_path proc~wrap_json_add_integer_vec_by_path->proc~json_add_integer_vec_by_path proc~wrap_json_add_logical_by_path wrap_json_add_logical_by_path proc~wrap_json_add_logical_by_path->proc~json_add_logical_by_path proc~wrap_json_add_logical_vec_by_path wrap_json_add_logical_vec_by_path proc~wrap_json_add_logical_vec_by_path->proc~json_add_logical_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~wrap_json_add_real_by_path wrap_json_add_real_by_path proc~wrap_json_add_real_by_path->proc~json_add_real_by_path proc~wrap_json_add_real_vec_by_path wrap_json_add_real_vec_by_path proc~wrap_json_add_real_vec_by_path->proc~json_add_real_vec_by_path proc~wrap_json_add_string_by_path wrap_json_add_string_by_path proc~wrap_json_add_string_by_path->proc~json_add_string_by_path proc~wrap_json_add_string_vec_by_path wrap_json_add_string_vec_by_path proc~wrap_json_add_string_vec_by_path->proc~json_add_string_vec_by_path proc~convert->none~info 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_file_remove json_file%json_file_remove proc~json_file_remove->none~remove_if_present 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_file_valid_path json_file%json_file_valid_path proc~json_file_valid_path->none~valid_path proc~json_file_valid_path_op json_file%json_file_valid_path_op proc~json_file_valid_path_op->none~valid_path proc~json_file_variable_info json_file%json_file_variable_info proc~json_file_variable_info->none~info proc~json_file_variable_matrix_info json_file%json_file_variable_matrix_info proc~json_file_variable_matrix_info->none~matrix_info proc~json_get_path json_core%json_get_path proc~json_get_path->none~info proc~json_is_vector json_core%json_is_vector proc~json_is_vector->none~info proc~json_matrix_info->none~info 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~json_value_add_member json_core%json_value_add_member proc~json_value_add_member->none~info proc~json_value_reverse json_core%json_value_reverse proc~json_value_reverse->none~info 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 proc~wrap_json_file_get_alloc_string_vec wrap_json_file_get_alloc_string_vec proc~wrap_json_file_get_alloc_string_vec->none~get~2 proc~wrap_json_file_get_integer wrap_json_file_get_integer proc~wrap_json_file_get_integer->none~get~2 proc~wrap_json_file_get_integer_vec wrap_json_file_get_integer_vec proc~wrap_json_file_get_integer_vec->none~get~2 proc~wrap_json_file_get_logical wrap_json_file_get_logical proc~wrap_json_file_get_logical->none~get~2 proc~wrap_json_file_get_logical_vec wrap_json_file_get_logical_vec proc~wrap_json_file_get_logical_vec->none~get~2 proc~wrap_json_file_get_object wrap_json_file_get_object proc~wrap_json_file_get_object->none~get~2 proc~wrap_json_file_get_real wrap_json_file_get_real proc~wrap_json_file_get_real->none~get~2 proc~wrap_json_file_get_real32 wrap_json_file_get_real32 proc~wrap_json_file_get_real32->none~get~2 proc~wrap_json_file_get_real32_vec wrap_json_file_get_real32_vec proc~wrap_json_file_get_real32_vec->none~get~2 proc~wrap_json_file_get_real_vec wrap_json_file_get_real_vec proc~wrap_json_file_get_real_vec->none~get~2 proc~wrap_json_file_get_string wrap_json_file_get_string proc~wrap_json_file_get_string->none~get~2 proc~wrap_json_file_get_string_vec wrap_json_file_get_string_vec proc~wrap_json_file_get_string_vec->none~get~2 proc~wrap_json_info_by_path wrap_json_info_by_path proc~wrap_json_info_by_path->none~info proc~wrap_json_matrix_info_by_path wrap_json_matrix_info_by_path proc~wrap_json_matrix_info_by_path->none~matrix_info 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 proc~wrap_json_valid_path wrap_json_valid_path proc~wrap_json_valid_path->none~valid_path proc~wrap_json_value_remove_if_present wrap_json_value_remove_if_present proc~wrap_json_value_remove_if_present->none~remove_if_present none~add->proc~json_value_add_member 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_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 none~get_path json_core%get_path none~get_path->proc~json_get_path none~info~2 json_file%info none~info~2->proc~json_file_variable_info none~matrix_info~2 json_file%matrix_info none~matrix_info~2->proc~json_file_variable_matrix_info none~remove~2 json_file%remove none~remove~2->proc~json_file_remove 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 none~valid_path~2 json_file%valid_path none~valid_path~2->proc~json_file_valid_path 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~json_value_print json_core%json_value_print proc~json_value_print->proc~json_is_vector proc~json_value_print->proc~json_value_print 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_check_children_for_duplicate_keys json_core%json_check_children_for_duplicate_keys proc~json_check_children_for_duplicate_keys->none~get_path 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~json_get_by_path_default->none~add proc~json_print_to_unit json_core%json_print_to_unit proc~json_print_to_unit->proc~json_value_print proc~json_value_add_integer->none~add proc~json_value_add_integer_vec->none~add proc~json_value_add_logical->none~add proc~json_value_add_logical_vec->none~add proc~json_value_add_null->none~add proc~json_value_add_real->none~add 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_string->none~add proc~json_value_add_string_name_ascii json_value_add_string_name_ascii proc~json_value_add_string_name_ascii->none~add proc~json_value_add_string_val_ascii json_value_add_string_val_ascii proc~json_value_add_string_val_ascii->none~add proc~json_value_add_string_vec->none~add proc~json_value_add_string_vec_name_ascii json_value_add_string_vec_name_ascii proc~json_value_add_string_vec_name_ascii->none~add proc~json_value_add_string_vec_val_ascii json_value_add_string_vec_val_ascii proc~json_value_add_string_vec_val_ascii->none~add proc~json_value_to_string json_core%json_value_to_string proc~json_value_to_string->proc~json_value_print proc~parse_array json_core%parse_array proc~parse_array->none~add proc~parse_value json_core%parse_value proc~parse_array->proc~parse_value proc~parse_object json_core%parse_object proc~parse_object->none~add proc~parse_object->proc~parse_object proc~parse_object->proc~parse_value proc~wrap_json_file_remove wrap_json_file_remove proc~wrap_json_file_remove->none~remove~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 proc~wrap_json_file_valid_path wrap_json_file_valid_path proc~wrap_json_file_valid_path->none~valid_path~2 proc~wrap_json_file_variable_info wrap_json_file_variable_info proc~wrap_json_file_variable_info->none~info~2 proc~wrap_json_file_variable_matrix_info wrap_json_file_variable_matrix_info proc~wrap_json_file_variable_matrix_info->none~matrix_info~2 proc~wrap_json_get_path wrap_json_get_path proc~wrap_json_get_path->none~get_path proc~wrap_json_value_add_integer wrap_json_value_add_integer proc~wrap_json_value_add_integer->none~add proc~wrap_json_value_add_integer_vec wrap_json_value_add_integer_vec proc~wrap_json_value_add_integer_vec->none~add proc~wrap_json_value_add_logical wrap_json_value_add_logical proc~wrap_json_value_add_logical->none~add proc~wrap_json_value_add_logical_vec wrap_json_value_add_logical_vec proc~wrap_json_value_add_logical_vec->none~add proc~wrap_json_value_add_null wrap_json_value_add_null proc~wrap_json_value_add_null->none~add proc~wrap_json_value_add_real wrap_json_value_add_real proc~wrap_json_value_add_real->none~add proc~wrap_json_value_add_real32 wrap_json_value_add_real32 proc~wrap_json_value_add_real32->none~add proc~wrap_json_value_add_real32_vec wrap_json_value_add_real32_vec proc~wrap_json_value_add_real32_vec->none~add proc~wrap_json_value_add_real_vec wrap_json_value_add_real_vec proc~wrap_json_value_add_real_vec->none~add proc~wrap_json_value_add_string wrap_json_value_add_string proc~wrap_json_value_add_string->none~add proc~wrap_json_value_add_string_vec wrap_json_value_add_string_vec proc~wrap_json_value_add_string_vec->none~add proc~assign_json_file_to_string json_file%assign_json_file_to_string proc~assign_json_file_to_string->proc~json_value_to_string proc~json_file_print_to_string json_file%json_file_print_to_string proc~json_file_print_to_string->proc~json_value_to_string proc~parse_value->proc~parse_array proc~parse_value->proc~parse_object proc~json_parse_file json_core%json_parse_file proc~json_parse_file->proc~parse_value proc~json_parse_string json_core%json_parse_string proc~json_parse_string->proc~parse_value none~deserialize json_core%deserialize none~deserialize->proc~json_parse_string none~load json_core%load none~load->proc~json_parse_file proc~json_file_load json_file%json_file_load proc~json_file_load->none~load proc~json_file_load_from_string json_file%json_file_load_from_string proc~json_file_load_from_string->none~deserialize proc~wrap_json_parse_string wrap_json_parse_string proc~wrap_json_parse_string->none~deserialize none~deserialize~2 json_file%deserialize none~deserialize~2->proc~json_file_load_from_string proc~assign_string_to_json_file json_file%assign_string_to_json_file proc~assign_string_to_json_file->none~deserialize~2 proc~initialize_json_file_from_string initialize_json_file_from_string proc~initialize_json_file_from_string->none~deserialize~2 proc~initialize_json_file_from_string_v2 initialize_json_file_from_string_v2 proc~initialize_json_file_from_string_v2->none~deserialize~2 proc~wrap_json_file_load_from_string wrap_json_file_load_from_string proc~wrap_json_file_load_from_string->none~deserialize~2 interface~json_file json_file interface~json_file->proc~initialize_json_file_from_string interface~json_file->proc~initialize_json_file_from_string_v2 proc~wrap_assign_string_to_json_file wrap_assign_string_to_json_file proc~wrap_assign_string_to_json_file->proc~assign_string_to_json_file proc~wrap_initialize_json_file_from_string wrap_initialize_json_file_from_string proc~wrap_initialize_json_file_from_string->proc~initialize_json_file_from_string proc~wrap_initialize_json_file_from_string_v2 wrap_initialize_json_file_from_string_v2 proc~wrap_initialize_json_file_from_string_v2->proc~initialize_json_file_from_string_v2

Source Code

    subroutine json_get_by_path_jsonpath_bracket(json,me,path,p,found,create_it,was_created)

    implicit none

    class(json_core),intent(inout)       :: json
    type(json_value),pointer,intent(in)  :: me          !! a JSON linked list
    character(kind=CK,len=*),intent(in)  :: path        !! path to the variable
                                                        !! (using JSONPath
                                                        !! "bracket-notation")
    type(json_value),pointer,intent(out) :: p           !! pointer to the variable
                                                        !! specify by `path`
    logical(LK),intent(out),optional     :: found       !! true if it was found
    logical(LK),intent(in),optional      :: create_it   !! if a variable is not present
                                                        !! in the path, then it is created.
                                                        !! the leaf node is returned as
                                                        !! a `null` json type and can be
                                                        !! changed by the caller.
    logical(LK),intent(out),optional     :: was_created !! if `create_it` is true, this
                                                        !! will be true if the variable
                                                        !! was actually created. Otherwise
                                                        !! it will be false.

    character(kind=CK,len=:),allocatable :: token  !! a token in the path
                                                   !! (between the `['']` or
                                                   !! `[]` characters)
    integer(IK)              :: istart             !! location of current '['
                                                   !! character in the path
    integer(IK)              :: iend               !! location of current ']'
                                                   !! character in the path
    integer(IK)              :: ival               !! integer array index value
    logical(LK)              :: status_ok          !! error flag
    type(json_value),pointer :: tmp                !! temporary variable for
                                                   !! traversing the structure
    integer(IK)              :: i                  !! counter
    integer(IK)              :: ilen               !! length of `path` string
    logical(LK)              :: real_quotes      !! if the keys are enclosed in `"`,
                                                   !! rather than `'` tokens.
    logical(LK)              :: create             !! if the object is to be created
    logical(LK)              :: created            !! if `create` is true, then this will be
                                                   !! true if the leaf object had to be created
    integer(IK)              :: j                  !! counter of children when creating object

    !TODO instead of reallocating `token` all the time, just
    !     allocate a big size and keep track of the length,
    !     then just reallocate only if necessary.
    !     [would probably be inefficient if there was a very large token,
    !     and then a bunch of small ones... but for similarly-sized ones
    !     it should be way more efficient since it would avoid most
    !     reallocations.]

    nullify(p)

    if (.not. json%exception_thrown) then

        if (present(create_it)) then
            create = create_it
        else
            create = .false.
        end if

        p => me ! initialize
        created = .false.

        if (path==CK_'') then
            call json%throw_exception('Error in json_get_by_path_jsonpath_bracket: '//&
                                      'invalid path specification: '//trim(path),found)
        else

            if (path(1:1)==root .or. path(1:1)==start_array) then ! the first character must be
                                                                  ! a `$` (root) or a `[`
                                                                  ! (element of `me`)

                if (path(1:1)==root) then
                    ! go to the root
                    do while (associated (p%parent))
                        p => p%parent
                    end do
                    if (create) created = .false. ! should always exist
                end if

                !path length (don't need trailing spaces:)
                ilen = len_trim(path)

                if (ilen>1) then

                    istart = 2   ! initialize first '[' location index

                    do

                        if (istart>ilen) exit  ! finished

                        ! must be the next start bracket:
                        if (path(istart:istart) /= start_array) then
                            call json%throw_exception(&
                                    'Error in json_get_by_path_jsonpath_bracket: '//&
                                    'expecting "[", found: "'//trim(path(istart:istart))//&
                                    '" in path: '//trim(path),found)
                            exit
                        end if

                        ! get the next token by checking:
                        !
                        ! * [''] -- is the token after istart a quote?
                        !           if so, then search for the next `']`
                        !
                        ! * [1] -- if not, then maybe it is a number,
                        !          so search for the next `]`

                        ! verify length of remaining string
                        if (istart+2<=ilen) then

                            real_quotes = path(istart+1:istart+1) == quotation_mark   ! ["

                            if (real_quotes .or. path(istart+1:istart+1)==single_quote) then  ! ['

                                ! it might be a key value: ['abc']

                                istart = istart + 1 ! move counter to ' index
                                if (real_quotes) then
                                    iend = istart + index(path(istart+1:ilen),&
                                           quotation_mark//end_array)  ! "]
                                else
                                    iend = istart + index(path(istart+1:ilen),&
                                           single_quote//end_array)  ! ']
                                end if
                                if (iend>istart) then

                                    !     istart  iend
                                    !       |       |
                                    ! ['p']['abcdefg']

                                    if (iend>istart+1) then
                                        token = path(istart+1:iend-1)
                                    else
                                        token = CK_''  ! blank string
                                    end if
                                    ! remove trailing spaces in
                                    ! the token here if necessary:
                                    if (.not. json%trailing_spaces_significant) &
                                        token = trim(token)

                                    if (create) then
                                        ! have a token, create it if necessary

                                        ! we need to convert it into an object here
                                        ! (e.g., if p was also just created)
                                        ! and destroy its data to prevent a memory leak
                                        call json%convert(p,json_object)

                                        ! don't want to throw exceptions in this case
                                        call json%get_child(p,token,tmp,status_ok)
                                        if (.not. status_ok) then
                                            ! have to create this child
                                            ! [make it a null since we don't
                                            ! know what it is yet]
                                            call json_value_create(tmp)
                                            call json%to_null(tmp,token)
                                            call json%add(p,tmp)
                                            status_ok = .true.
                                            created = .true.
                                        else
                                            ! it was already there.
                                            created = .false.
                                        end if
                                    else
                                        ! have a token, see if it is valid:
                                        call json%get_child(p,token,tmp,status_ok)
                                    end if

                                    if (status_ok) then
                                        ! it was found
                                        p => tmp
                                    else
                                        call json%throw_exception(&
                                                'Error in json_get_by_path_jsonpath_bracket: '//&
                                                'invalid token found: "'//token//&
                                                '" in path: '//trim(path),found)
                                        exit
                                    end if
                                    iend = iend + 1 ! move counter to ] index
                                else
                                    call json%throw_exception(&
                                            'Error in json_get_by_path_jsonpath_bracket: '//&
                                            'invalid path: '//trim(path),found)
                                    exit
                                end if

                            else

                                ! it might be an integer value: [123]

                                iend = istart + index(path(istart+1:ilen),end_array)   ! ]
                                if (iend>istart+1) then

                                    ! this should be an integer:
                                    token = path(istart+1:iend-1)

                                    ! verify that there are no spaces or other
                                    ! characters in the string:
                                    status_ok = .true.
                                    do i=1,len(token)
                                        ! It must only contain (0..9) characters
                                        ! (it must be unsigned)
                                        if (scan(token(i:i),CK_'0123456789')<1) then
                                            status_ok = .false.
                                            exit
                                        end if
                                    end do
                                    if (status_ok) then
                                        call string_to_integer(token,ival,status_ok)
                                        if (status_ok) status_ok = ival>0  ! assuming 1-based array indices
                                    end if

                                    if (status_ok) then

                                        ! have a valid integer to use as an index
                                        ! see if this element is really there:
                                        call json%get_child(p,ival,tmp,status_ok)

                                        if (create .and. .not. status_ok) then

                                            ! have to create it:

                                            if (.not.(p%var_type==json_object .or. p%var_type==json_array)) then
                                                ! we need to convert it into an array here
                                                ! (e.g., if p was also just created)
                                                ! and destroy its data to prevent a memory leak
                                                call json%convert(p,json_array)
                                            end if

                                            ! have to create this element
                                            ! [make it a null]
                                            ! (and any missing ones before it)
                                            do j = 1, ival
                                                nullify(tmp)
                                                call json%get_child(p, j, tmp, status_ok)
                                                if (.not. status_ok) then
                                                    call json_value_create(tmp)
                                                    call json%to_null(tmp)  ! array element doesn't need a name
                                                    call json%add(p,tmp)
                                                    if (j==ival) created = .true.
                                                else
                                                    if (j==ival) created = .false.
                                                end if
                                            end do
                                            status_ok = .true.

                                        else
                                            created = .false.
                                        end if

                                        if (status_ok) then
                                            ! found it
                                            p => tmp
                                        else
                                            ! not found
                                            call json%throw_exception(&
                                                    'Error in json_get_by_path_jsonpath_bracket: '//&
                                                    'invalid array index found: "'//token//&
                                                    '" in path: '//trim(path),found)
                                            exit
                                        end if
                                    else
                                        call json%throw_exception(&
                                                'Error in json_get_by_path_jsonpath_bracket: '//&
                                                'invalid token: "'//token//&
                                                '" in path: '//trim(path),found)
                                        exit
                                    end if

                                else
                                    call json%throw_exception(&
                                            'Error in json_get_by_path_jsonpath_bracket: '//&
                                            'invalid path: '//trim(path),found)
                                    exit
                                end if

                            end if

                        else
                            call json%throw_exception(&
                                    'Error in json_get_by_path_jsonpath_bracket: '//&
                                    'invalid path: '//trim(path),found)
                            exit
                        end if

                        ! set up for next token:
                        istart = iend + 1

                    end do

                end if

            else
                call json%throw_exception(&
                        'Error in json_get_by_path_jsonpath_bracket: '//&
                        'expecting "'//root//'", found: "'//path(1:1)//&
                        '" in path: '//trim(path),found)
            end if

        end if

        if (json%exception_thrown) then
            nullify(p)
            if (present(found)) then
                found = .false.
                call json%clear_exceptions()
            end if
        else
            if (present(found)) found = .true.
        end if

        ! if it had to be created:
        if (present(was_created)) was_created = created

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

    end subroutine json_get_by_path_jsonpath_bracket