wrap_json_parse_string Subroutine

private subroutine wrap_json_parse_string(json, p, str)

Alternate version of json_parse_string, where str is kind=CDK.

Arguments

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

output structure
character(kind=CDK, len=*), intent(in) :: str

string with JSON data

Calls

proc~~wrap_json_parse_string~~CallsGraph proc~wrap_json_parse_string wrap_json_parse_string interface~to_unicode to_unicode proc~wrap_json_parse_string->interface~to_unicode none~deserialize~2 json_core%deserialize proc~wrap_json_parse_string->none~deserialize~2 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_parse_string json_core%json_parse_string none~deserialize~2->proc~json_parse_string none~throw_exception json_core%throw_exception proc~json_parse_string->none~throw_exception proc~annotate_invalid_json json_core%annotate_invalid_json proc~json_parse_string->proc~annotate_invalid_json proc~json_check_all_for_duplicate_keys json_core%json_check_all_for_duplicate_keys proc~json_parse_string->proc~json_check_all_for_duplicate_keys proc~json_initialize json_core%json_initialize proc~json_parse_string->proc~json_initialize proc~json_parse_end json_core%json_parse_end proc~json_parse_string->proc~json_parse_end proc~json_prepare_parser json_core%json_prepare_parser proc~json_parse_string->proc~json_prepare_parser proc~json_value_create json_value_create proc~json_parse_string->proc~json_value_create proc~json_throw_exception json_core%json_throw_exception none~throw_exception->proc~json_throw_exception proc~get_current_line_from_file_sequential json_core%get_current_line_from_file_sequential proc~annotate_invalid_json->proc~get_current_line_from_file_sequential proc~get_current_line_from_file_stream json_core%get_current_line_from_file_stream proc~annotate_invalid_json->proc~get_current_line_from_file_stream proc~integer_to_string integer_to_string proc~annotate_invalid_json->proc~integer_to_string proc~json_traverse json_core%json_traverse proc~json_check_all_for_duplicate_keys->proc~json_traverse proc~json_initialize->none~throw_exception proc~json_initialize->proc~integer_to_string proc~json_clear_exceptions json_core%json_clear_exceptions proc~json_initialize->proc~json_clear_exceptions proc~json_parse_end->none~throw_exception proc~pop_char json_core%pop_char proc~json_parse_end->proc~pop_char proc~json_traverse->none~throw_exception

Source Code

    subroutine wrap_json_parse_string(json, p, str)

    implicit none

    class(json_core),intent(inout)       :: json
    type(json_value),pointer             :: p     !! output structure
    character(kind=CDK,len=*),intent(in) :: str   !! string with JSON data

    call json%deserialize(p,to_unicode(str))

    end subroutine wrap_json_parse_string