Skip to content

Commit 6e3b620

Browse files
committed
some cosmetic changes.
1 parent 5f50600 commit 6e3b620

3 files changed

+143
-128
lines changed

src/json_initialize_arguments.inc

+61-46
Original file line numberDiff line numberDiff line change
@@ -1,46 +1,61 @@
1-
logical(LK),intent(in),optional :: verbose !! mainly useful for debugging (default is false)
2-
logical(LK),intent(in),optional :: compact_reals !! to compact the real number strings for output (default is true)
3-
logical(LK),intent(in),optional :: print_signs !! always print numeric sign (default is false)
4-
character(kind=CDK,len=*),intent(in),optional :: real_format !! Real number format: 'E' [default], '*', 'G', 'EN', or 'ES'
5-
integer(IK),intent(in),optional :: spaces_per_tab !! number of spaces per tab for indenting (default is 2)
6-
logical(LK),intent(in),optional :: strict_type_checking !! if true, no integer, double, or logical type
7-
!! conversions are done for the `get` routines
8-
!! (default is false)
9-
logical(LK),intent(in),optional :: trailing_spaces_significant !! for name and path comparisons, is trailing
10-
!! space to be considered significant.
11-
!! (default is false)
12-
logical(LK),intent(in),optional :: case_sensitive_keys !! for name and path comparisons, are they
13-
!! case sensitive. (default is true)
14-
logical(LK),intent(in),optional :: no_whitespace !! if true, printing the JSON structure is
15-
!! done without adding any non-significant
16-
!! spaces or linebreaks (default is false)
17-
logical(LK),intent(in),optional :: unescape_strings !! If false, then the raw escaped
18-
!! string is returned from [[json_get_string]]
19-
!! and similar routines. If true [default],
20-
!! then the string is returned unescaped.
21-
character(kind=CK,len=1),intent(in),optional :: comment_char !! If present, this character is used
22-
!! to denote comments in the JSON file,
23-
!! which will be ignored if present.
24-
!! Example: `!` or `#`. Setting this
25-
!! to a blank string disables the
26-
!! ignoring of comments. (Default is `!`).
27-
integer(IK),intent(in),optional :: path_mode !! How the path strings are interpreted in the
28-
!! `get_by_path` routines:
29-
!!
30-
!! * 1 -- Default way (see [[json_get_by_path_default]])
31-
!! [Default]
32-
!! * 2 -- as RFC 6901 "JSON Pointer" paths
33-
!! (see [[json_get_by_path_rfc6901]])
34-
character(kind=CK,len=1),intent(in),optional :: path_separator !! The `path` separator to use
35-
!! in the "default" mode for
36-
!! the paths in the various
37-
!! `get_by_path` routines.
38-
!! Example: `.` [default] or `%`.
39-
!! Note: if `path_mode/=1`
40-
!! then this is ignored.
41-
logical(LK),intent(in),optional :: compress_vectors !! If true, then arrays of integers,
42-
!! nulls, doubles, and logicals are
43-
!! printed all on one line.
44-
!! [Note: `no_whitespace` will
45-
!! override this option if necessary].
46-
!! (Default is False).
1+
! The argument list for the various `initialize` subroutines.
2+
3+
logical(LK),intent(in),optional :: verbose
4+
!! mainly useful for debugging (default is false)
5+
logical(LK),intent(in),optional :: compact_reals
6+
!! to compact the real number strings for output (default is true)
7+
logical(LK),intent(in),optional :: print_signs
8+
!! always print numeric sign (default is false)
9+
character(kind=CDK,len=*),intent(in),optional :: real_format
10+
!! Real number format: 'E' [default], '*', 'G', 'EN', or 'ES'
11+
integer(IK),intent(in),optional :: spaces_per_tab
12+
!! number of spaces per tab for indenting (default is 2)
13+
logical(LK),intent(in),optional :: strict_type_checking
14+
!! if true, no integer, double, or logical type
15+
!! conversions are done for the `get` routines
16+
!! (default is false)
17+
logical(LK),intent(in),optional :: trailing_spaces_significant
18+
!! for name and path comparisons, is trailing
19+
!! space to be considered significant.
20+
!! (default is false)
21+
logical(LK),intent(in),optional :: case_sensitive_keys
22+
!! for name and path comparisons, are they
23+
!! case sensitive. (default is true)
24+
logical(LK),intent(in),optional :: no_whitespace
25+
!! if true, printing the JSON structure is
26+
!! done without adding any non-significant
27+
!! spaces or linebreaks (default is false)
28+
logical(LK),intent(in),optional :: unescape_strings
29+
!! If false, then the raw escaped
30+
!! string is returned from [[json_get_string]]
31+
!! and similar routines. If true [default],
32+
!! then the string is returned unescaped.
33+
character(kind=CK,len=1),intent(in),optional :: comment_char
34+
!! If present, this character is used
35+
!! to denote comments in the JSON file,
36+
!! which will be ignored if present.
37+
!! Example: `!` or `#`. Setting this
38+
!! to a blank string disables the
39+
!! ignoring of comments. (Default is `!`).
40+
integer(IK),intent(in),optional :: path_mode
41+
!! How the path strings are interpreted in the
42+
!! `get_by_path` routines:
43+
!! * 1 -- Default way (see [[json_get_by_path_default]])
44+
!! [Default]
45+
!! * 2 -- as RFC 6901 "JSON Pointer" paths
46+
!! (see [[json_get_by_path_rfc6901]])
47+
character(kind=CK,len=1),intent(in),optional :: path_separator
48+
!! The `path` separator to use
49+
!! in the "default" mode for
50+
!! the paths in the various
51+
!! `get_by_path` routines.
52+
!! Example: `.` [default] or `%`.
53+
!! Note: if `path_mode/=1`
54+
!! then this is ignored.
55+
logical(LK),intent(in),optional :: compress_vectors
56+
!! If true, then arrays of integers,
57+
!! nulls, doubles, and logicals are
58+
!! printed all on one line.
59+
!! [Note: `no_whitespace` will
60+
!! override this option if necessary].
61+
!! (Default is False).

src/json_string_utilities.F90

+1-1
Original file line numberDiff line numberDiff line change
@@ -144,7 +144,7 @@ end subroutine string_to_integer
144144
!
145145
! Convert a real value to a string.
146146
!
147-
!# Modified
147+
!### Modified
148148
! * Izaak Beekman : 02/24/2015 : added the compact option.
149149
! * Jacob Williams : 10/27/2015 : added the star option.
150150

0 commit comments

Comments
 (0)