Returns a pointer to the next of a json_value.
If there is no next, 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 | :: | next | pointer to |
subroutine json_get_next(json,p,next)
implicit none
class(json_core),intent(inout) :: json
type(json_value),pointer,intent(in) :: p !! JSON object
type(json_value),pointer,intent(out) :: next !! pointer to `next`
if (associated(p)) then
next => p%next
else
nullify(next)
call json%throw_exception('Error in json_get_next: '//&
'pointer is not associated.')
end if
end subroutine json_get_next