json_file_module – JSON-Fortran

Help

Higher-level json_file interface for the json_value type.

License

JSON-Fortran is released under a BSD-style license. See the LICENSE file for details.

Used By

Help

Interfaces

json_file

Derived Types

json_file

Functions

initialize_json_file initialize_json_file_v2 json_file_failed

Subroutines

Interfaces

public interface json_file

Structure constructor to initialize a json_file object with an existing json_value object, and either the json_core settings or a json_core instance.

private function initialize_json_file(p, verbose, compact_reals, print_signs, real_format, spaces_per_tab, strict_type_checking, trailing_spaces_significant, case_sensitive_keys, no_whitespace, unescape_strings, comment_char, path_mode, path_separator, compress_vectors, allow_duplicate_keys, escape_solidus) result(file_object)

Author: Izaak Beekman
Date: 07/23/2015

Cast a json_value object as a json_file object. It also calls the initialize() method.

Arguments

Type	Intent	Optional	Attributes		Name
type(json_value),	intent(in),	optional	pointer	::	p	`json_value` object to cast as a `json_file` object
logical(kind=LK),	intent(in),	optional		::	verbose	mainly useful for debugging (default is false)
logical(kind=LK),	intent(in),	optional		::	compact_reals	to compact the real number strings for output (default is true)
logical(kind=LK),	intent(in),	optional		::	print_signs	always print numeric sign (default is false)
character(kind=CDK,len=*),	intent(in),	optional		::	real_format	Real number format: 'E' [default], '*', 'G', 'EN', or 'ES'
integer(kind=IK),	intent(in),	optional		::	spaces_per_tab	number of spaces per tab for indenting (default is 2)
logical(kind=LK),	intent(in),	optional		::	strict_type_checking	if true, no integer, double, or logical type conversions are done for the `get` routines (default is false)
logical(kind=LK),	intent(in),	optional		::	trailing_spaces_significant	for name and path comparisons, is trailing space to be considered significant. (default is false)
logical(kind=LK),	intent(in),	optional		::	case_sensitive_keys	for name and path comparisons, are they case sensitive. (default is true)
logical(kind=LK),	intent(in),	optional		::	no_whitespace	if true, printing the JSON structure is done without adding any non-significant spaces or linebreaks (default is false)
logical(kind=LK),	intent(in),	optional		::	unescape_strings	If false, then the raw escaped string is returned from json_get_string and similar routines. If true [default], then the string is returned unescaped.
character(kind=CK,len=1),	intent(in),	optional		::	comment_char	If present, this character is used to denote comments in the JSON file, which will be ignored if present. Example: `!` or `#`. Setting this to a blank string disables the ignoring of comments. (Default is `!`).
integer(kind=IK),	intent(in),	optional		::	path_mode	How the path strings are interpreted in the `get_by_path` routines: * 1 – Default way (see json_get_by_path_default) [Default] * 2 – as RFC 6901 "JSON Pointer" paths (see json_get_by_path_rfc6901)
character(kind=CK,len=1),	intent(in),	optional		::	path_separator	The `path` separator to use in the "default" mode for the paths in the various `get_by_path` routines. Example: `.` [default] or `%`. Note: if `path_mode/=1` then this is ignored.
logical(kind=LK),	intent(in),	optional		::	compress_vectors	If true, then arrays of integers, nulls, doubles, and logicals are printed all on one line. [Note: `no_whitespace` will override this option if necessary]. (Default is False).
logical(kind=LK),	intent(in),	optional		::	allow_duplicate_keys
logical(kind=LK),	intent(in),	optional		::	escape_solidus

Return Value type(json_file)

private function initialize_json_file_v2(json_value_object, json_core_object) result(file_object)

Author: Jacob Williams
Date: 4/26/2016

Cast a json_value pointer and a json_core object as a json_file object.

Arguments

Type	Intent	Optional	Attributes		Name
type(json_value),	intent(in),		pointer	::	json_value_object
type(json_core),	intent(in)			::	json_core_object

Return Value type(json_file)

Derived Types

type, public :: json_file

The json_file is the main public class that is used to open a file and get data from it.

Components

Type	Visibility	Attributes		Name		Initial
type(json_core),	private		::	core			The instance of the json_core factory used for this file.
type(json_value),	private,	pointer	::	p	=>	null()	the JSON structure read from the file

Constructor

Structure constructor to initialize a json_file object with an existing json_value object, and either the json_core settings or a json_core instance.

private function initialize_json_file(p, verbose, compact_reals, print_signs, real_format, spaces_per_tab, strict_type_checking, trailing_spaces_significant, case_sensitive_keys, no_whitespace, unescape_strings, comment_char, path_mode, path_separator, compress_vectors, allow_duplicate_keys, escape_solidus)	Cast a json_value object as a json_file object. It also calls the `initialize()` method.
private function initialize_json_file_v2(json_value_object, json_core_object)	Cast a json_value pointer and a json_core object as a json_file object.

Type-Bound Procedures

generic, public :: add => json_file_add_object, json_file_add_integer, json_file_add_double, json_file_add_logical, json_file_add_string, json_file_add_integer_vec, json_file_add_double_vec, json_file_add_logical_vec, json_file_add_string_vec	Add a variable to a json_file, by specifying the path.
procedure, public :: check_for_errors => json_file_check_for_errors
procedure, public :: clear_exceptions => json_file_clear_exceptions
procedure, public :: destroy => json_file_destroy
procedure, public :: failed => json_file_failed
generic, public :: get => json_file_get_object, json_file_get_integer, json_file_get_double, json_file_get_logical, json_file_get_string, json_file_get_integer_vec, json_file_get_double_vec, json_file_get_logical_vec, json_file_get_string_vec, json_file_get_alloc_string_vec, json_file_get_root	Get a variable from a json_file, by specifying the path.
procedure, public :: get_core => get_json_core_in_file
generic, public :: info => json_file_variable_info
generic, public :: initialize => initialize_json_core_in_file, set_json_core_in_file
procedure, public :: initialize_json_core_in_file
procedure, public :: json_file_add_double
procedure, public :: json_file_add_double_vec
procedure, public :: json_file_add_integer
procedure, public :: json_file_add_integer_vec
procedure, public :: json_file_add_logical
procedure, public :: json_file_add_logical_vec
procedure, public :: json_file_add_object
procedure, public :: json_file_add_string
procedure, public :: json_file_add_string_vec
procedure, public :: json_file_get_alloc_string_vec
procedure, public :: json_file_get_double
procedure, public :: json_file_get_double_vec
procedure, public :: json_file_get_integer
procedure, public :: json_file_get_integer_vec
procedure, public :: json_file_get_logical
procedure, public :: json_file_get_logical_vec
procedure, public :: json_file_get_object
procedure, public :: json_file_get_root
procedure, public :: json_file_get_string
procedure, public :: json_file_get_string_vec
procedure, public :: json_file_load_from_string
procedure, public :: json_file_print_1
procedure, public :: json_file_print_2
procedure, public :: json_file_print_to_console
procedure, public :: json_file_update_integer
procedure, public :: json_file_update_logical
procedure, public :: json_file_update_real
procedure, public :: json_file_update_string
procedure, public :: json_file_variable_info
procedure, public :: json_file_variable_matrix_info
procedure, public :: load_file => json_file_load
generic, public :: load_from_string => json_file_load_from_string
generic, public :: matrix_info => json_file_variable_matrix_info
procedure, public :: move => json_file_move_pointer
procedure, public :: print_error_message => json_file_print_error_message
generic, public :: print_file => json_file_print_to_console, json_file_print_1, json_file_print_2
procedure, public :: print_to_string => json_file_print_to_string
procedure, public :: set_json_core_in_file
procedure, public :: traverse => json_file_traverse
generic, public :: update => json_file_update_integer, json_file_update_logical, json_file_update_real, json_file_update_string	Update a scalar variable in a json_file, by specifying the path.

Functions

private function initialize_json_file(p, verbose, compact_reals, print_signs, real_format, spaces_per_tab, strict_type_checking, trailing_spaces_significant, case_sensitive_keys, no_whitespace, unescape_strings, comment_char, path_mode, path_separator, compress_vectors, allow_duplicate_keys, escape_solidus) result(file_object)

Author: Izaak Beekman
Date: 07/23/2015

Cast a json_value object as a json_file object. It also calls the initialize() method.

Arguments

Type	Intent	Optional	Attributes		Name
type(json_value),	intent(in),	optional	pointer	::	p	`json_value` object to cast as a `json_file` object
logical(kind=LK),	intent(in),	optional		::	verbose	mainly useful for debugging (default is false)
logical(kind=LK),	intent(in),	optional		::	compact_reals	to compact the real number strings for output (default is true)
logical(kind=LK),	intent(in),	optional		::	print_signs	always print numeric sign (default is false)
character(kind=CDK,len=*),	intent(in),	optional		::	real_format	Real number format: 'E' [default], '*', 'G', 'EN', or 'ES'
integer(kind=IK),	intent(in),	optional		::	spaces_per_tab	number of spaces per tab for indenting (default is 2)
logical(kind=LK),	intent(in),	optional		::	strict_type_checking	if true, no integer, double, or logical type conversions are done for the `get` routines (default is false)
logical(kind=LK),	intent(in),	optional		::	trailing_spaces_significant	for name and path comparisons, is trailing space to be considered significant. (default is false)
logical(kind=LK),	intent(in),	optional		::	case_sensitive_keys	for name and path comparisons, are they case sensitive. (default is true)
logical(kind=LK),	intent(in),	optional		::	no_whitespace	if true, printing the JSON structure is done without adding any non-significant spaces or linebreaks (default is false)
logical(kind=LK),	intent(in),	optional		::	unescape_strings	If false, then the raw escaped string is returned from json_get_string and similar routines. If true [default], then the string is returned unescaped.
character(kind=CK,len=1),	intent(in),	optional		::	comment_char	If present, this character is used to denote comments in the JSON file, which will be ignored if present. Example: `!` or `#`. Setting this to a blank string disables the ignoring of comments. (Default is `!`).
integer(kind=IK),	intent(in),	optional		::	path_mode	How the path strings are interpreted in the `get_by_path` routines: * 1 – Default way (see json_get_by_path_default) [Default] * 2 – as RFC 6901 "JSON Pointer" paths (see json_get_by_path_rfc6901)
character(kind=CK,len=1),	intent(in),	optional		::	path_separator	The `path` separator to use in the "default" mode for the paths in the various `get_by_path` routines. Example: `.` [default] or `%`. Note: if `path_mode/=1` then this is ignored.
logical(kind=LK),	intent(in),	optional		::	compress_vectors	If true, then arrays of integers, nulls, doubles, and logicals are printed all on one line. [Note: `no_whitespace` will override this option if necessary]. (Default is False).
logical(kind=LK),	intent(in),	optional		::	allow_duplicate_keys
logical(kind=LK),	intent(in),	optional		::	escape_solidus

Return Value type(json_file)

private function initialize_json_file_v2(json_value_object, json_core_object) result(file_object)

Author: Jacob Williams
Date: 4/26/2016

Cast a json_value pointer and a json_core object as a json_file object.

Arguments

Type	Intent	Optional	Attributes		Name
type(json_value),	intent(in),		pointer	::	json_value_object
type(json_core),	intent(in)			::	json_core_object

Return Value type(json_file)

private pure function json_file_failed(me) result(failed)

Check error status in the file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(in)			::	me

Return Value logical(kind=LK)

will be true if there has been an error.

Subroutines

private subroutine get_json_core_in_file(me, core)

Get a copy of the json_core in this json_file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(in)			::	me
type(json_core),	intent(out)			::	core

private subroutine initialize_json_core_in_file(me, verbose, compact_reals, print_signs, real_format, spaces_per_tab, strict_type_checking, trailing_spaces_significant, case_sensitive_keys, no_whitespace, unescape_strings, comment_char, path_mode, path_separator, compress_vectors, allow_duplicate_keys, escape_solidus)

Initialize the json_core for this json_file. This is just a wrapper for json_initialize.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
logical(kind=LK),	intent(in),	optional	::	verbose	mainly useful for debugging (default is false)
logical(kind=LK),	intent(in),	optional	::	compact_reals	to compact the real number strings for output (default is true)
logical(kind=LK),	intent(in),	optional	::	print_signs	always print numeric sign (default is false)
character(kind=CDK,len=*),	intent(in),	optional	::	real_format	Real number format: 'E' [default], '*', 'G', 'EN', or 'ES'
integer(kind=IK),	intent(in),	optional	::	spaces_per_tab	number of spaces per tab for indenting (default is 2)
logical(kind=LK),	intent(in),	optional	::	strict_type_checking	if true, no integer, double, or logical type conversions are done for the `get` routines (default is false)
logical(kind=LK),	intent(in),	optional	::	trailing_spaces_significant	for name and path comparisons, is trailing space to be considered significant. (default is false)
logical(kind=LK),	intent(in),	optional	::	case_sensitive_keys	for name and path comparisons, are they case sensitive. (default is true)
logical(kind=LK),	intent(in),	optional	::	no_whitespace	if true, printing the JSON structure is done without adding any non-significant spaces or linebreaks (default is false)
logical(kind=LK),	intent(in),	optional	::	unescape_strings	If false, then the raw escaped string is returned from json_get_string and similar routines. If true [default], then the string is returned unescaped.
character(kind=CK,len=1),	intent(in),	optional	::	comment_char	If present, this character is used to denote comments in the JSON file, which will be ignored if present. Example: `!` or `#`. Setting this to a blank string disables the ignoring of comments. (Default is `!`).
integer(kind=IK),	intent(in),	optional	::	path_mode	How the path strings are interpreted in the `get_by_path` routines: * 1 – Default way (see json_get_by_path_default) [Default] * 2 – as RFC 6901 "JSON Pointer" paths (see json_get_by_path_rfc6901)
character(kind=CK,len=1),	intent(in),	optional	::	path_separator	The `path` separator to use in the "default" mode for the paths in the various `get_by_path` routines. Example: `.` [default] or `%`. Note: if `path_mode/=1` then this is ignored.
logical(kind=LK),	intent(in),	optional	::	compress_vectors	If true, then arrays of integers, nulls, doubles, and logicals are printed all on one line. [Note: `no_whitespace` will override this option if necessary]. (Default is False).
logical(kind=LK),	intent(in),	optional	::	allow_duplicate_keys
logical(kind=LK),	intent(in),	optional	::	escape_solidus

private subroutine json_file_add_double(me, path, val, found, was_created)

Author: Jacob Williams

Add a real(RK) variable value to a JSON file.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CK,len=*),	intent(in)		::	path	the path to the variable
real(kind=RK),	intent(in)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if the variable was found
logical(kind=LK),	intent(out),	optional	::	was_created	if the variable had to be created

private subroutine json_file_add_double_vec(me, path, vec, found, was_created)

Author: Jacob Williams

Add a real(RK) vector to a JSON file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	the path to the variable
real(kind=RK),	intent(in),		dimension(:)	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if the variable was found
logical(kind=LK),	intent(out),	optional		::	was_created	if the variable had to be created

private subroutine json_file_add_integer(me, path, val, found, was_created)

Author: Jacob Williams

Add an integer value to a JSON file.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CK,len=*),	intent(in)		::	path	the path to the variable
integer(kind=IK),	intent(in)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if the variable was found
logical(kind=LK),	intent(out),	optional	::	was_created	if the variable had to be created

private subroutine json_file_add_integer_vec(me, path, vec, found, was_created)

Author: Jacob Williams

Add an integer vector to a JSON file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	the path to the variable
integer(kind=IK),	intent(in),		dimension(:)	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if the variable was found
logical(kind=LK),	intent(out),	optional		::	was_created	if the variable had to be created

private subroutine json_file_add_logical(me, path, val, found, was_created)

Author: Jacob Williams

Add a logical(LK) value to a JSON file.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CK,len=*),	intent(in)		::	path	the path to the variable
logical(kind=LK),	intent(in)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if the variable was found
logical(kind=LK),	intent(out),	optional	::	was_created	if the variable had to be created

private subroutine json_file_add_logical_vec(me, path, vec, found, was_created)

Author: Jacob Williams

Add a logical(LK) vector to a JSON file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	the path to the variable
logical(kind=LK),	intent(in),		dimension(:)	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if the variable was found
logical(kind=LK),	intent(out),	optional		::	was_created	if the variable had to be created

private subroutine json_file_add_object(me, path, p, found, was_created)

Author: Jacob Williams

Add a json_value pointer to an object to a JSON file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	the path to the variable
type(json_value),	intent(in),		pointer	::	p	pointer to the variable to add
logical(kind=LK),	intent(out),	optional		::	found	if the variable was found
logical(kind=LK),	intent(out),	optional		::	was_created	if the variable had to be created

private subroutine json_file_add_string(me, path, val, found, was_created)

Author: Jacob Williams

Add a character string to a json file.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CK,len=*),	intent(in)		::	path	the path to the variable
character(kind=CK,len=*),	intent(in)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if the variable was found
logical(kind=LK),	intent(out),	optional	::	was_created	if the variable had to be created

private subroutine json_file_add_string_path_ascii(me, path, val, found, was_created)

Author: Jacob Williams

Wrapper for json_file_add_string where "path" is kind=CDK).

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CDK,len=*),	intent(in)		::	path	the path to the variable
character(kind=CK,len=*),	intent(in)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if the variable was found
logical(kind=LK),	intent(out),	optional	::	was_created	if the variable had to be created

private subroutine json_file_add_string_value_ascii(me, path, val, found, was_created)

Author: Jacob Williams

Wrapper for json_file_add_string where "val" is kind=CDK).

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CK,len=*),	intent(in)		::	path	the path to the variable
character(kind=CDK,len=*),	intent(in)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if the variable was found
logical(kind=LK),	intent(out),	optional	::	was_created	if the variable had to be created

private subroutine json_file_add_string_vec(me, path, vec, found, was_created, ilen)

Author: Jacob Williams

Add a string vector to a JSON file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	the path to the variable
character(kind=CK,len=*),	intent(in),		dimension(:)	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if the variable was found
logical(kind=LK),	intent(out),	optional		::	was_created	if the variable had to be created
integer(kind=IK),	intent(in),	optional	dimension(:)	::	ilen	the string lengths of each element in `value`. If not present, the full `len(value)` string is added for each element.

private subroutine json_file_add_string_vec_path_ascii(me, path, vec, found, was_created, ilen)

Author: Jacob Williams

Alternate version of json_file_add_string_vec, where "path" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	the path to the variable
character(kind=CK,len=*),	intent(in),		dimension(:)	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if the variable was found
logical(kind=LK),	intent(out),	optional		::	was_created	if the variable had to be created
integer(kind=IK),	intent(in),	optional	dimension(:)	::	ilen	the string lengths of each element in `value`. If not present, the full `len(value)` string is added for each element.

private subroutine json_file_add_string_vec_vec_ascii(me, path, vec, found, was_created, ilen)

Author: Jacob Williams

Alternate version of json_file_add_string_vec, where "vec" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	the path to the variable
character(kind=CDK,len=*),	intent(in),		dimension(:)	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if the variable was found
logical(kind=LK),	intent(out),	optional		::	was_created	if the variable had to be created
integer(kind=IK),	intent(in),	optional	dimension(:)	::	ilen	the string lengths of each element in `value`. If not present, the full `len(value)` string is added for each element.

private subroutine json_file_check_for_errors(me, status_ok, error_msg)

Retrieve error status and message from the class.

Arguments

Type	Intent	Attributes		Name
class(json_file),	intent(inout)		::	me
logical(kind=LK),	intent(out)		::	status_ok	true if there were no errors
character(kind=CK,len=:),	intent(out),	allocatable	::	error_msg	the error message (if there were errors)

private pure subroutine json_file_clear_exceptions(me)

Clear exceptions in the class.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me

private subroutine json_file_destroy(me, destroy_core)

Author: Jacob Williams

Destroy the json_value data in a json_file. This must be done when the variable is no longer needed, or will be reused to open a different file. Otherwise a memory leak will occur.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
logical,	intent(in),	optional		::	destroy_core	to also destroy the json_core. default is to leave it as is.

private subroutine json_file_get_alloc_string_vec(me, path, vec, ilen, found)

Author: Jacob Williams
Date: 12/17/2016

Get an (allocatable length) string vector from a JSON file. This is just a wrapper for json_get_alloc_string_vec_by_path.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	the path to the variable
character(kind=CK,len=:),	intent(out),		dimension(:), allocatable	::	vec	value vector
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

private subroutine json_file_get_double(me, path, val, found)

Author: Jacob Williams
Date: 12/9/2013

Get a real(RK) variable value from a JSON file.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CK,len=*),	intent(in)		::	path	the path to the variable
real(kind=RK),	intent(out)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if it was really found

private subroutine json_file_get_double_vec(me, path, vec, found)

Author: Jacob Williams
Date: 1/19/2014

Get a real(RK) vector from a JSON file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	the path to the variable
real(kind=RK),	intent(out),		dimension(:), allocatable	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if it was really found

private subroutine json_file_get_integer(me, path, val, found)

Author: Jacob Williams
Date: 12/9/2013

Get an integer value from a JSON file.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CK,len=*),	intent(in)		::	path	the path to the variable
integer(kind=IK),	intent(out)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if it was really found

private subroutine json_file_get_integer_vec(me, path, vec, found)

Author: Jacob Williams
Date: 1/20/2014

Get an integer vector from a JSON file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	the path to the variable
integer(kind=IK),	intent(out),		dimension(:), allocatable	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if it was really found

private subroutine json_file_get_logical(me, path, val, found)

Author: Jacob Williams
Date: 12/9/2013

Get a logical(LK) value from a JSON file.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CK,len=*),	intent(in)		::	path	the path to the variable
logical(kind=LK),	intent(out)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if it was really found

private subroutine json_file_get_logical_vec(me, path, vec, found)

Author: Jacob Williams
Date: 1/20/2014

Get a logical(LK) vector from a JSON file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	the path to the variable
logical(kind=LK),	intent(out),		dimension(:), allocatable	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if it was really found

private subroutine json_file_get_object(me, path, p, found)

Author: Jacob Williams
Date: 2/3/2014

Get a json_value pointer to an object from a JSON file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	the path to the variable
type(json_value),	intent(out),		pointer	::	p	pointer to the variable
logical(kind=LK),	intent(out),	optional		::	found	if it was really found

private subroutine json_file_get_root(me, p)

Author: Izaak Beekman
Date: 7/23/2015

Get a json_value pointer to the JSON file root.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
type(json_value),	intent(out),		pointer	::	p	pointer to the variable

private subroutine json_file_get_string(me, path, val, found)

Author: Jacob Williams
Date: 12/9/2013

Get a character string from a json file. The output val is an allocatable character string.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	the path to the variable
character(kind=CK,len=:),	intent(out),		allocatable	::	val	value
logical(kind=LK),	intent(out),	optional		::	found	if it was really found

private subroutine json_file_get_string_vec(me, path, vec, found)

Author: Jacob Williams
Date: 1/19/2014

Get a string vector from a JSON file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	the path to the variable
character(kind=CK,len=*),	intent(out),		dimension(:), allocatable	::	vec	value vector
logical(kind=LK),	intent(out),	optional		::	found	if it was really found

private subroutine json_file_load(me, filename, unit)

Author: Jacob Williams
Date: 12/9/2013

Load the JSON data from a file.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CDK,len=*),	intent(in)		::	filename	the filename to open
integer(kind=IK),	intent(in),	optional	::	unit	the unit number to use (if not present, a newunit is used)

private subroutine json_file_load_from_string(me, str)

Author: Jacob Williams
Date: 1/13/2015

Load the JSON data from a string.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	str	string to load JSON data from

private subroutine json_file_move_pointer(to, from)

Author: Jacob Williams
Date: 12/5/2014

Move the json_value pointer from one json_file to another. The "from" pointer is then nullified, but not destroyed.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	to
class(json_file),	intent(inout)			::	from

private subroutine json_file_print_1(me, iunit)

Author: Jacob Williams
Date: 12/9/2013

Prints the JSON file to the specified file unit number.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
integer(kind=IK),	intent(in)			::	iunit	file unit number (must not be -1)

private subroutine json_file_print_2(me, filename)

Author: Jacob Williams
Date: 1/11/2015

Print the JSON structure to the specified filename. The file is opened, printed, and then closed.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	filename	filename to print to

private subroutine json_file_print_error_message(me, io_unit)

This is a wrapper for json_print_error_message.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
integer,	intent(in),	optional		::	io_unit

private subroutine json_file_print_to_console(me)

Author: Jacob Williams
Date: 1/11/2015

Print the JSON file to the console.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me

private subroutine json_file_print_to_string(me, str)

Author: Jacob Williams
Date: 1/11/2015

Print the JSON file to a string.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=:),	intent(out),		allocatable	::	str	string to print JSON data to

private subroutine json_file_traverse(me, traverse_callback)

Author: Jacob Williams
Date: 6/11/2016

Traverse the JSON structure in the file. This routine calls the user-specified json_traverse_callback_func for each element of the structure.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
procedure(json_traverse_callback_func)				::	traverse_callback

private subroutine json_file_update_integer(me, path, val, found)

Author: Jacob Williams
Date: 1/10/2015

Given the path string, if the variable is present in the file, and is a scalar, then update its value. If it is not present, then create it and set its value.

Arguments

Type	Intent		Name
class(json_file),	intent(inout)	::	me
character(kind=CK,len=*),	intent(in)	::	path
integer(kind=IK),	intent(in)	::	val
logical(kind=LK),	intent(out)	::	found

private subroutine json_file_update_logical(me, path, val, found)

Author: Jacob Williams
Date: 1/10/2015

Given the path string, if the variable is present in the file, and is a scalar, then update its value. If it is not present, then create it and set its value.

Arguments

Type	Intent		Name
class(json_file),	intent(inout)	::	me
character(kind=CK,len=*),	intent(in)	::	path
logical(kind=LK),	intent(in)	::	val
logical(kind=LK),	intent(out)	::	found

private subroutine json_file_update_real(me, path, val, found)

Author: Jacob Williams
Date: 1/10/2015

Given the path string, if the variable is present in the file, and is a scalar, then update its value. If it is not present, then create it and set its value.

Arguments

Type	Intent		Name
class(json_file),	intent(inout)	::	me
character(kind=CK,len=*),	intent(in)	::	path
real(kind=RK),	intent(in)	::	val
logical(kind=LK),	intent(out)	::	found

private subroutine json_file_update_string(me, path, val, found)

Author: Jacob Williams
Date: 1/10/2015

Given the path string, if the variable is present in the file, and is a scalar, then update its value. If it is not present, then create it and set its value.

Arguments

Type	Intent		Name
class(json_file),	intent(inout)	::	me
character(kind=CK,len=*),	intent(in)	::	path
character(kind=CK,len=*),	intent(in)	::	val
logical(kind=LK),	intent(out)	::	found

private subroutine json_file_update_string_name_ascii(me, path, val, found)

Alternate version of json_file_update_string, where "path" is kind=CDK.

Arguments

Type	Intent		Name
class(json_file),	intent(inout)	::	me
character(kind=CDK,len=*),	intent(in)	::	path
character(kind=CK,len=*),	intent(in)	::	val
logical(kind=LK),	intent(out)	::	found

private subroutine json_file_update_string_val_ascii(me, path, val, found)

Alternate version of json_file_update_string, where "val" is kind=CDK.

Arguments

Type	Intent		Name
class(json_file),	intent(inout)	::	me
character(kind=CK,len=*),	intent(in)	::	path
character(kind=CDK,len=*),	intent(in)	::	val
logical(kind=LK),	intent(out)	::	found

private subroutine json_file_variable_info(me, path, found, var_type, n_children, name)

Author: Jacob Williams
Date: 2/3/2014

Returns information about a variable in a json_file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	path to the variable
logical(kind=LK),	intent(out),	optional		::	found	the variable exists in the structure
integer(kind=IK),	intent(out),	optional		::	var_type	variable type
integer(kind=IK),	intent(out),	optional		::	n_children	number of children
character(kind=CK,len=:),	intent(out),	optional	allocatable	::	name	variable name

private subroutine json_file_variable_matrix_info(me, path, is_matrix, found, var_type, n_sets, set_size, name)

Author: Jacob Williams
Date: 6/26/2016

Returns matrix information about a variable in a json_file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CK,len=*),	intent(in)			::	path	path to the variable
logical(kind=LK),	intent(out)			::	is_matrix	true if it is a valid matrix
logical(kind=LK),	intent(out),	optional		::	found	true if it was found
integer(kind=IK),	intent(out),	optional		::	var_type	variable type of data in the matrix (if all elements have the same type)
integer(kind=IK),	intent(out),	optional		::	n_sets	number of data sets (i.e., matrix rows if using row-major order)
integer(kind=IK),	intent(out),	optional		::	set_size	size of each data set (i.e., matrix cols if using row-major order)
character(kind=CK,len=:),	intent(out),	optional	allocatable	::	name	variable name

private subroutine set_json_core_in_file(me, core)

Set the json_core for this json_file.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
type(json_core),	intent(in)			::	core

private subroutine wrap_json_file_add_double(me, path, val, found, was_created)

Author: Jacob Williams

Alternate version of json_file_add_double, where "path" is kind=CDK.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CDK,len=*),	intent(in)		::	path	the path to the variable
real(kind=RK),	intent(in)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if the variable was found
logical(kind=LK),	intent(out),	optional	::	was_created	if the variable had to be created

private subroutine wrap_json_file_add_double_vec(me, path, vec, found, was_created)

Author: Jacob Williams

Alternate version of json_file_add_double_vec, where "path" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	the path to the variable
real(kind=RK),	intent(in),		dimension(:)	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if the variable was found
logical(kind=LK),	intent(out),	optional		::	was_created	if the variable had to be created

private subroutine wrap_json_file_add_integer(me, path, val, found, was_created)

Author: Jacob Williams

Alternate version of json_file_add_integer, where "path" is kind=CDK.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CDK,len=*),	intent(in)		::	path	the path to the variable
integer(kind=IK),	intent(in)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if the variable was found
logical(kind=LK),	intent(out),	optional	::	was_created	if the variable had to be created

private subroutine wrap_json_file_add_integer_vec(me, path, vec, found, was_created)

Author: Jacob Williams

Alternate version of json_file_add_integer_vec, where "path" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	the path to the variable
integer(kind=IK),	intent(in),		dimension(:)	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if the variable was found
logical(kind=LK),	intent(out),	optional		::	was_created	if the variable had to be created

private subroutine wrap_json_file_add_logical(me, path, val, found, was_created)

Author: Jacob Williams

Alternate version of json_file_add_logical, where "path" is kind=CDK.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CDK,len=*),	intent(in)		::	path	the path to the variable
logical(kind=LK),	intent(in)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if the variable was found
logical(kind=LK),	intent(out),	optional	::	was_created	if the variable had to be created

private subroutine wrap_json_file_add_logical_vec(me, path, vec, found, was_created)

Author: Jacob Williams

Alternate version of json_file_add_logical_vec, where "path" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	the path to the variable
logical(kind=LK),	intent(in),		dimension(:)	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if the variable was found
logical(kind=LK),	intent(out),	optional		::	was_created	if the variable had to be created

private subroutine wrap_json_file_add_object(me, path, p, found, was_created)

Author: Jacob Williams

Alternate version of json_file_add_object, where "path" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	the path to the variable
type(json_value),	intent(in),		pointer	::	p	pointer to the variable to add
logical(kind=LK),	intent(out),	optional		::	found	if the variable was found
logical(kind=LK),	intent(out),	optional		::	was_created	if the variable had to be created

private subroutine wrap_json_file_add_string(me, path, val, found, was_created)

Author: Jacob Williams

Alternate version of json_file_add_string, where "path" and "val" are kind=CDK.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CDK,len=*),	intent(in)		::	path	the path to the variable
character(kind=CDK,len=*),	intent(in)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if the variable was found
logical(kind=LK),	intent(out),	optional	::	was_created	if the variable had to be created

private subroutine wrap_json_file_add_string_vec(me, path, vec, found, was_created, ilen)

Author: Jacob Williams

Alternate version of json_file_add_string_vec, where "path" and "vec" are kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	the path to the variable
character(kind=CDK,len=*),	intent(in),		dimension(:)	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if the variable was found
logical(kind=LK),	intent(out),	optional		::	was_created	if the variable had to be created
integer(kind=IK),	intent(in),	optional	dimension(:)	::	ilen	the string lengths of each element in `value`. If not present, the full `len(value)` string is added for each element.

private subroutine wrap_json_file_get_alloc_string_vec(me, path, vec, ilen, found)

Alternate version of json_file_get_alloc_string_vec, where "path" is kind=CDK. This is just a wrapper for wrap_json_get_alloc_string_vec_by_path.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	the path to the variable
character(kind=CK,len=:),	intent(out),		dimension(:), allocatable	::	vec	value vector
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

private subroutine wrap_json_file_get_double(me, path, val, found)

Alternate version of json_file_get_double, where "path" is kind=CDK.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CDK,len=*),	intent(in)		::	path	the path to the variable
real(kind=RK),	intent(out)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if it was really found

private subroutine wrap_json_file_get_double_vec(me, path, vec, found)

Alternate version of json_file_get_double_vec, where "path" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	the path to the variable
real(kind=RK),	intent(out),		dimension(:), allocatable	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if it was really found

private subroutine wrap_json_file_get_integer(me, path, val, found)

Alternate version of json_file_get_integer, where "path" is kind=CDK.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CDK,len=*),	intent(in)		::	path	the path to the variable
integer(kind=IK),	intent(out)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if it was really found

private subroutine wrap_json_file_get_integer_vec(me, path, vec, found)

Alternate version of json_file_get_integer_vec, where "path" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	the path to the variable
integer(kind=IK),	intent(out),		dimension(:), allocatable	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if it was really found

private subroutine wrap_json_file_get_logical(me, path, val, found)

Alternate version of json_file_get_logical, where "path" is kind=CDK.

Arguments

Type	Intent	Optional		Name
class(json_file),	intent(inout)		::	me
character(kind=CDK,len=*),	intent(in)		::	path	the path to the variable
logical(kind=LK),	intent(out)		::	val	value
logical(kind=LK),	intent(out),	optional	::	found	if it was really found

private subroutine wrap_json_file_get_logical_vec(me, path, vec, found)

Alternate version of json_file_get_logical_vec, where "path" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	the path to the variable
logical(kind=LK),	intent(out),		dimension(:), allocatable	::	vec	the value vector
logical(kind=LK),	intent(out),	optional		::	found	if it was really found

private subroutine wrap_json_file_get_object(me, path, p, found)

Alternate version of json_file_get_object, where "path" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	the path to the variable
type(json_value),	intent(out),		pointer	::	p	pointer to the variable
logical(kind=LK),	intent(out),	optional		::	found	if it was really found

private subroutine wrap_json_file_get_string(me, path, val, found)

Alternate version of json_file_get_string, where "path" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	the path to the variable
character(kind=CK,len=:),	intent(out),		allocatable	::	val	value
logical(kind=LK),	intent(out),	optional		::	found	if it was really found

private subroutine wrap_json_file_get_string_vec(me, path, vec, found)

Alternate version of json_file_get_string_vec, where "path" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	the path to the variable
character(kind=CK,len=*),	intent(out),		dimension(:), allocatable	::	vec	value vector
logical(kind=LK),	intent(out),	optional		::	found	if it was really found

private subroutine wrap_json_file_load_from_string(me, str)

Alternate version of json_file_load_from_string, where "str" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	str

private subroutine wrap_json_file_update_integer(me, path, val, found)

Alternate version of json_file_update_integer, where "path" is kind=CDK.

Arguments

Type	Intent		Name
class(json_file),	intent(inout)	::	me
character(kind=CDK,len=*),	intent(in)	::	path
integer(kind=IK),	intent(in)	::	val
logical(kind=LK),	intent(out)	::	found

private subroutine wrap_json_file_update_logical(me, path, val, found)

Alternate version of json_file_update_logical, where "path" is kind=CDK.

Arguments

Type	Intent		Name
class(json_file),	intent(inout)	::	me
character(kind=CDK,len=*),	intent(in)	::	path
logical(kind=LK),	intent(in)	::	val
logical(kind=LK),	intent(out)	::	found

private subroutine wrap_json_file_update_real(me, path, val, found)

Alternate version of json_file_update_real, where "path" is kind=CDK.

Arguments

Type	Intent		Name
class(json_file),	intent(inout)	::	me
character(kind=CDK,len=*),	intent(in)	::	path
real(kind=RK),	intent(in)	::	val
logical(kind=LK),	intent(out)	::	found

private subroutine wrap_json_file_update_string(me, path, val, found)

Alternate version of json_file_update_string, where "path" and "val" are kind=CDK.

Arguments

Type	Intent		Name
class(json_file),	intent(inout)	::	me
character(kind=CDK,len=*),	intent(in)	::	path
character(kind=CDK,len=*),	intent(in)	::	val
logical(kind=LK),	intent(out)	::	found

private subroutine wrap_json_file_variable_info(me, path, found, var_type, n_children, name)

Alternate version of json_file_variable_info, where "path" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path
logical(kind=LK),	intent(out),	optional		::	found
integer(kind=IK),	intent(out),	optional		::	var_type
integer(kind=IK),	intent(out),	optional		::	n_children
character(kind=CK,len=:),	intent(out),	optional	allocatable	::	name	variable name

private subroutine wrap_json_file_variable_matrix_info(me, path, is_matrix, found, var_type, n_sets, set_size, name)

Alternate version of json_file_variable_matrix_info, where "path" is kind=CDK.

Arguments

Type	Intent	Optional	Attributes		Name
class(json_file),	intent(inout)			::	me
character(kind=CDK,len=*),	intent(in)			::	path	path to the variable
logical(kind=LK),	intent(out)			::	is_matrix	true if it is a valid matrix
logical(kind=LK),	intent(out),	optional		::	found	true if it was found
integer(kind=IK),	intent(out),	optional		::	var_type	variable type of data in the matrix (if all elements have the same type)
integer(kind=IK),	intent(out),	optional		::	n_sets	number of data sets (i.e., matrix rows if using row-major order)
integer(kind=IK),	intent(out),	optional		::	set_size	size of each data set (i.e., matrix cols if using row-major order)
character(kind=CK,len=:),	intent(out),	optional	allocatable	::	name	variable name

json_file_module Module

Uses:

License

Used By

Interfaces

public interface json_file

Arguments

Return Value type(json_file)

private function initialize_json_file_v2(json_value_object, json_core_object) result(file_object)

Arguments

Return Value type(json_file)

Derived Types

type, public :: json_file

Components

Constructor

Type-Bound Procedures

Functions

Arguments

Return Value type(json_file)

private function initialize_json_file_v2(json_value_object, json_core_object) result(file_object)

Arguments

Return Value type(json_file)

private pure function json_file_failed(me) result(failed)

Arguments

Return Value logical(kind=LK)

Subroutines

private subroutine get_json_core_in_file(me, core)

Arguments

Arguments

private subroutine json_file_add_double(me, path, val, found, was_created)

Arguments

private subroutine json_file_add_double_vec(me, path, vec, found, was_created)

Arguments

private subroutine json_file_add_integer(me, path, val, found, was_created)

Arguments

private subroutine json_file_add_integer_vec(me, path, vec, found, was_created)

Arguments

private subroutine json_file_add_logical(me, path, val, found, was_created)

Arguments

private subroutine json_file_add_logical_vec(me, path, vec, found, was_created)

Arguments

private subroutine json_file_add_object(me, path, p, found, was_created)

Arguments

private subroutine json_file_add_string(me, path, val, found, was_created)

Arguments

private subroutine json_file_add_string_path_ascii(me, path, val, found, was_created)

Arguments

private subroutine json_file_add_string_value_ascii(me, path, val, found, was_created)

Arguments

private subroutine json_file_add_string_vec(me, path, vec, found, was_created, ilen)

Arguments

private subroutine json_file_add_string_vec_path_ascii(me, path, vec, found, was_created, ilen)

Arguments

private subroutine json_file_add_string_vec_vec_ascii(me, path, vec, found, was_created, ilen)

Arguments

private subroutine json_file_check_for_errors(me, status_ok, error_msg)

Arguments

private pure subroutine json_file_clear_exceptions(me)

Arguments

private subroutine json_file_destroy(me, destroy_core)

Arguments

private subroutine json_file_get_alloc_string_vec(me, path, vec, ilen, found)

Arguments

private subroutine json_file_get_double(me, path, val, found)

Arguments

private subroutine json_file_get_double_vec(me, path, vec, found)

Arguments

private subroutine json_file_get_integer(me, path, val, found)

Arguments

private subroutine json_file_get_integer_vec(me, path, vec, found)

Arguments

private subroutine json_file_get_logical(me, path, val, found)

Arguments

private subroutine json_file_get_logical_vec(me, path, vec, found)

Arguments

private subroutine json_file_get_object(me, path, p, found)

Arguments

private subroutine json_file_get_root(me, p)

Arguments

private subroutine json_file_get_string(me, path, val, found)