SimulationCore2/Common/json-fortran/json_parameters.F90

!*****************************************************************************************
!> author: Jacob Williams
!  license: BSD
!
!  Other parameters used by JSON-Fortran.
!  This is a low-level module not meant to be used by a JSON-Fortran user.
!
!### License
!  * JSON-Fortran is released under a BSD-style license.
!    See the [LICENSE](https://github.com/jacobwilliams/json-fortran/blob/master/LICENSE)
!    file for details.

    module json_parameters

    use json_kinds

    implicit none

    public

    character(kind=CDK,len=*),parameter :: json_ext = '.json'   !! JSON file extension

    ! The types of JSON data.
    integer(IK),parameter :: json_unknown   = 0  !! Unknown JSON data type
                                                 !! (see [[json_file_variable_info]] and [[json_info]])
    integer(IK),parameter :: json_null      = 1  !! Null JSON data type
                                                 !! (see [[json_file_variable_info]] and [[json_info]])
    integer(IK),parameter :: json_object    = 2  !! Object JSON data type
                                                 !! (see [[json_file_variable_info]] and [[json_info]])
    integer(IK),parameter :: json_array     = 3  !! Array JSON data type
                                                 !! (see [[json_file_variable_info]] and [[json_info]])
    integer(IK),parameter :: json_logical   = 4  !! Logical JSON data type (`logical(LK)`)
                                                 !! (see [[json_file_variable_info]] and [[json_info]])
    integer(IK),parameter :: json_integer   = 5  !! Integer JSON data type (`integer(IK)`)
                                                 !! (see [[json_file_variable_info]] and [[json_info]]).
    integer(IK),parameter :: json_real      = 6  !! Real number JSON data type (`real(RK)`)
                                                 !! (see [[json_file_variable_info]] and [[json_info]])
    integer(IK),parameter :: json_string    = 7  !! String JSON data type (`character(kind=CK)`)
                                                 !! (see [[json_file_variable_info]] and [[json_info]])
    integer(IK),parameter :: json_double    = json_real  !! Equivalent to `json_real` for
                                                         !! backward compatibility.

    !special JSON characters
    character(kind=CK,len=*),parameter :: space           = CK_' '  !! space character
    character(kind=CK,len=*),parameter :: start_object    = CK_'{'  !! start of a JSON object
    character(kind=CK,len=*),parameter :: end_object      = CK_'}'  !! end of a JSON object
    character(kind=CK,len=*),parameter :: start_array     = CK_'['  !! start of a JSON array
    character(kind=CK,len=*),parameter :: end_array       = CK_']'  !! end of a JSON array
    character(kind=CK,len=*),parameter :: delimiter       = CK_','  !! delimiter for JSON
    character(kind=CK,len=*),parameter :: colon_char      = CK_':'  !! colon character for JSON
    character(kind=CK,len=*),parameter :: start_array_alt = CK_'('  !! alternate start of JSON array for
                                                                    !! [[json_get_by_path_default]]
    character(kind=CK,len=*),parameter :: end_array_alt   = CK_')'  !! alternate end of JSON array for
                                                                    !! [[json_get_by_path_default]]
    character(kind=CK,len=*),parameter :: root            = achar(36, kind=CK)  !! (`$`) root for [[json_get_by_path_default]]
    character(kind=CK,len=*),parameter :: this            = CK_'@'  !! 'this' for [[json_get_by_path_default]]
    character(kind=CK,len=*),parameter :: dot             = CK_'.'  !! path separator for [[json_get_by_path_default]]
    character(kind=CK,len=*),parameter :: tilde           = CK_'~'  !! RFC 6901 escape character
    character(kind=CK,len=*),parameter :: single_quote    = CK_"'"  !! for JSONPath bracket-notation
    character(kind=CK,len=*),parameter :: quotation_mark  = CK_'"'  !! JSON special character
    character(kind=CK,len=*),parameter :: bspace          = achar(8,  kind=CK) !! JSON special character
    character(kind=CK,len=*),parameter :: horizontal_tab  = achar(9,  kind=CK) !! JSON special character
    character(kind=CK,len=*),parameter :: newline         = achar(10, kind=CK) !! JSON special character
    character(kind=CK,len=*),parameter :: formfeed        = achar(12, kind=CK) !! JSON special character
    character(kind=CK,len=*),parameter :: carriage_return = achar(13, kind=CK) !! JSON special character
    character(kind=CK,len=*),parameter :: slash           = achar(47, kind=CK) !! JSON special character
    character(kind=CK,len=*),parameter :: backslash       = achar(92, kind=CK) !! JSON special character

    !> default real number format statement (for writing real values to strings and files).
    !  Note that this can be overridden by calling [[json_initialize]].
#ifdef REAL32
    character(kind=CDK,len=*),parameter :: default_real_fmt = '(ss,E17.8E3)'
#elif REAL128
    character(kind=CDK,len=*),parameter :: default_real_fmt = '(ss,E46.35E5)'
#else
    character(kind=CDK,len=*),parameter :: default_real_fmt = '(ss,E27.17E4)'
#endif

    character(kind=CK,len=*),parameter :: star = CK_'*' !! for invalid numbers and
                                                        !! list-directed real output

#if defined __GFORTRAN__
    !not parameters due to gfortran bug (https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65141)
    character(kind=CK,len=26),protected :: upper = CK_'ABCDEFGHIJKLMNOPQRSTUVWXYZ' !! uppercase characters
    character(kind=CK,len=26),protected :: lower = CK_'abcdefghijklmnopqrstuvwxyz' !! lowercase characters
#else
    character(kind=CK,len=*),parameter :: upper = CK_'ABCDEFGHIJKLMNOPQRSTUVWXYZ' !! uppercase characters
    character(kind=CK,len=*),parameter :: lower = CK_'abcdefghijklmnopqrstuvwxyz' !! lowercase characters
#endif

#if defined __GFORTRAN__
    !not parameters due to gfortran bug (https://gcc.gnu.org/bugzilla/show_bug.cgi?id=65141)
    character(kind=CK,len=4),protected :: null_str  = CK_'null'  !! JSON Null variable string
    character(kind=CK,len=4),protected :: true_str  = CK_'true'  !! JSON logical True string
    character(kind=CK,len=5),protected :: false_str = CK_'false' !! JSON logical False string
#else
    character(kind=CK,len=*),parameter :: null_str  = CK_'null'  !! JSON Null variable string
    character(kind=CK,len=*),parameter :: true_str  = CK_'true'  !! JSON logical True string
    character(kind=CK,len=*),parameter :: false_str = CK_'false' !! JSON logical False string
#endif

    integer, private :: i_      !! just a counter for `control_chars` array
    character(kind=CK,len=*),dimension(32),parameter :: control_chars = &
        [(achar(i_,kind=CK),i_=1,31), achar(127,kind=CK)] !! Control characters, possibly in unicode

    !find out the precision of the floating point number system
    !and set safety factors
    integer(IK),parameter :: rp_safety_factor = 1_IK
    integer(IK),parameter :: rp_addl_safety = 2_IK
    integer(IK),parameter :: real_precision = rp_safety_factor*precision(1.0_RK) + &
                                              rp_addl_safety

    !Get the number of possible digits in the exponent when using decimal number system
    integer(IK),parameter :: maxexp = maxexponent(1.0_RK)
    integer(IK),parameter :: minexp = minexponent(1.0_RK)
    integer(IK),parameter :: real_exponent_digits = floor( 1_IK + log10( &
                                  real(max(maxexp,abs(maxexp)),&
                                  kind=RK) ) )

    integer(IK),parameter :: max_numeric_str_len = real_precision + real_exponent_digits + 6_IK
        !! 6 = sign + leading 0 + decimal + 'E' + exponent sign + 1 extra
    character(kind=CDK,len=*),parameter :: int_fmt  = '(ss,I0)' !! minimum width format for integers

    integer(IK),parameter :: max_integer_str_len = 256_IK !! maximum string length of an integer.
                                                          !! This is totally arbitrary (any way
                                                          !! to get the compiler to tell us this?)

    integer(IK),parameter :: chunk_size = 256_IK  !! for allocatable strings: allocate chunks of this size
    integer(IK),parameter :: unit2str = -1_IK  !! unit number to cause stuff to be
                                               !! output to strings rather than files.
                                               !! See 9.5.6.12 in the F2003/08 standard
    character(kind=CK,len=*),parameter :: blank_chunk = repeat(space, chunk_size) !! a blank string

    integer(IK),parameter :: seq_chunk_size = 256_IK !! chunk size for reading sequential files

    integer(IK),parameter :: stream_chunk_size = 256_IK !! chunk size for reading stream files

    integer(IK),parameter :: print_str_chunk_size = 1000_IK !! chunk size for writing JSON to a string

    integer(IK),parameter :: pushed_char_size = 10_IK !! size for `pushed_char`
                                                      !! array in [[json_core(type)]]

    end module json_parameters
!*****************************************************************************************