to_null Subroutine

  1. json_module.F90
  2. json_module
  3. to_null

private subroutine to_null(me, name)

Arguments

Type IntentOptional AttributesName
type(json_value), intent(inout) :: me
character(kind=CK,len=*), intent(in), optional :: name

if the name is also to be changed.

Description

Change the json_value variable to a null.

Calls

proc~~to_null~~CallsGraph proc~to_null to_null proc~destroy_json_data destroy_json_data proc~to_null->proc~destroy_json_data
Help

Called By

proc~~to_null~~CalledByGraph proc~to_null to_null proc~parse_value parse_value proc~parse_value->proc~to_null proc~parse_object parse_object proc~parse_value->proc~parse_object proc~parse_array parse_array proc~parse_value->proc~parse_array proc~json_value_create_null json_value_create_null proc~json_value_create_null->proc~to_null proc~json_parse_string json_parse_string proc~json_parse_string->proc~parse_value proc~json_parse_file json_parse_file proc~json_parse_file->proc~parse_value proc~parse_object->proc~parse_value proc~parse_object->proc~parse_object proc~parse_array->proc~parse_value proc~wrap_json_parse_string wrap_json_parse_string proc~wrap_json_parse_string->proc~json_parse_string interface~json_parse json_parse interface~json_parse->proc~json_parse_string interface~json_parse->proc~json_parse_file proc~test_14 test_14 proc~test_14->interface~json_parse proc~test_8 test_8 proc~test_8->interface~json_parse proc~json_file_load json_file_load proc~json_file_load->interface~json_parse proc~json_file_load_from_string json_file_load_from_string proc~json_file_load_from_string->interface~json_parse program~jf_test_14 jf_test_14 program~jf_test_14->proc~test_14 program~jf_test_8 jf_test_8 program~jf_test_8->proc~test_8 proc~wrap_json_file_load_from_string wrap_json_file_load_from_string proc~wrap_json_file_load_from_string->proc~json_file_load_from_string proc~wrap_json_value_create_null wrap_json_value_create_null proc~wrap_json_value_create_null->proc~json_value_create_null interface~json_create_null json_create_null interface~json_create_null->proc~json_value_create_null proc~test_10 test_10 proc~test_10->interface~json_create_null program~jf_test_10 jf_test_10 program~jf_test_10->proc~test_10
Help

Source Code

    subroutine to_null(me,name)

    implicit none

    type(json_value),intent(inout)               :: me
    character(kind=CK,len=*),intent(in),optional :: name  !! if the name is also to be changed.

    !set type and value:
    call destroy_json_data(me)
    me%var_type = json_null

    !name:
    if (present(name)) me%name = trim(name)

    end subroutine to_null