Returns a pointer to the parent of a json_value. If there is no parent, then a null() pointer is returned.
| Type | Intent | Optional | Attributes | Name | ||
|---|---|---|---|---|---|---|
| class(json_core), | intent(inout) | :: | json | |||
| type(json_value), | intent(in), | pointer | :: | p | JSON object |
|
| type(json_value), | intent(out), | pointer | :: | parent | pointer to parent |
subroutine json_get_parent(json,p,parent)
implicit none
class(json_core),intent(inout) :: json
type(json_value),pointer,intent(in) :: p !! JSON object
type(json_value),pointer,intent(out) :: parent !! pointer to parent
if (associated(p)) then
parent => p%parent
else
nullify(parent)
call json%throw_exception('Error in json_get_parent: '//&
'pointer is not associated.')
end if
end subroutine json_get_parent