Alternate version of json_get_alloc_string_vec where input is the path.
This is an alternate version of json_get_string_vec_by_path. This one returns an allocatable length character (where the string length is the maximum length of any element in the array). It also returns an integer array of the actual sizes of the strings in the JSON structure.
Note
An alternative to using this routine is to use json_get_array with a callback function that gets the string from each element and populates a user-defined string type.
Note
If the default
argument is used, and default_ilen
is not present,
then ilen
will just be returned as the length of the default
dummy
argument (all elements with the same length).
Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
class(json_core), | intent(inout) | :: | json | |||
type(json_value), | intent(in), | pointer | :: | me | ||
character(kind=CK, len=*), | intent(in) | :: | path | |||
character(kind=CK, len=:), | intent(out), | dimension(:), allocatable | :: | vec | ||
integer(kind=IK), | intent(out), | dimension(:), allocatable | :: | ilen |
the actual length of each character string in the array |
|
logical(kind=LK), | intent(out), | optional | :: | found | ||
character(kind=CK, len=*), | intent(in), | optional, | dimension(:) | :: | default | |
integer(kind=IK), | intent(in), | optional, | dimension(:) | :: | default_ilen |
the actual
length of |
subroutine json_get_alloc_string_vec_by_path(json,me,path,vec,ilen,found,default,default_ilen) implicit none class(json_core),intent(inout) :: json type(json_value),pointer,intent(in) :: me character(kind=CK,len=*),intent(in) :: path character(kind=CK,len=:),dimension(:),allocatable,intent(out) :: vec integer(IK),dimension(:),allocatable,intent(out) :: ilen !! the actual length !! of each character !! string in the array logical(LK),intent(out),optional :: found character(kind=CK,len=*),dimension(:),intent(in),optional :: default integer(IK),dimension(:),intent(in),optional :: default_ilen !! the actual !! length of `default` character(kind=CK,len=*),parameter :: routine = CK_'json_get_alloc_string_vec_by_path' #include "json_get_vec_by_path_alloc.inc" end subroutine json_get_alloc_string_vec_by_path