JSON writer
More...
JSON writer conform to RFC 7159 (https://tools.ietf.org/html/rfc7159).
Example:
type(t_json) :: json
integer :: json_unit
call json%add_object()
call json%add_object()
call json%add(, 1)
call json%add(, 1d0)
call json%add(, )
call json%add(, .true.)
call json%add()
call json%up()
call json%add_object()
call json%add(, [1, 2, 3])
call json%add(, [1d0, 2d0, 3d0])
call json%add(, [, , ])
call json%add(, [.true., .false., .true.])
open(newunit=json_unit, file=, status=)
write(json_unit,'(DT)') json
close(json_unit)
call json%finalize()
Expected output:
{
: {
: 1,
: 1.0000000000000000,
: ,
: true,
: null
},
: {
: [
1,
2,
3
],
: [
1.0000000000000000,
2.0000000000000000,
3.0000000000000000
],
: [
,
,
],
: [
true,
false,
true
]
}
}
◆ json_up()
subroutine mod_json_writer::json_up |
( |
class(t_json), intent(inout) | json | ) |
|
- Parameters
-
[in,out] | json | JSON container |