some code cleanup.

Author: jacobwilliams

src/json_value_module.F90

@@ -879,6 +879,7 @@ module json_value_module
         procedure        :: json_value_print
         procedure        :: string_to_int
         procedure        :: string_to_dble
+        procedure        :: prepare_parser => json_prepare_parser
         procedure        :: parse_end => json_parse_end
         procedure        :: parse_value
         procedure        :: parse_number
@@ -9691,6 +9692,26 @@ recursive subroutine wrap_json_get_array_by_path(json, me, path, array_callback,
     end subroutine wrap_json_get_array_by_path
 !*****************************************************************************************
 
+!*****************************************************************************************
+!>
+!  Internal routine to be called before parsing JSON.
+!  Currently, all this does it allocate the `comment_char` if none was specified.
+
+    subroutine json_prepare_parser(json)
+
+    implicit none
+
+    class(json_core),intent(inout) :: json
+
+    if (json%allow_comments .and. .not. allocated(json%comment_char)) then
+        ! comments are enabled, but user hasn't set the comment char,
+        ! so in this case use the default:
+        json%comment_char = CK_'/!#'
+    end if
+
+    end subroutine json_prepare_parser
+!*****************************************************************************************
+
 !*****************************************************************************************
 !>
 !  Parse the JSON file and populate the [[json_value]] tree.
@@ -9736,12 +9757,7 @@ subroutine json_parse_file(json, file, p, unit)
 
     ! clear any exceptions and initialize:
     call json%initialize()
-
-    if (json%allow_comments .and. .not. allocated(json%comment_char)) then
-        ! comments are enabled, but user hasn't set the comment char,
-        ! so in this case use the default:
-        json%comment_char = CK_'/!#'
-    end if
+    call json%prepare_parser()
 
     if ( present(unit) ) then
 
@@ -9852,12 +9868,7 @@ subroutine json_parse_string(json, p, str)
 
     ! clear any exceptions and initialize:
     call json%initialize()
-
-    if (json%allow_comments .and. .not. allocated(json%comment_char)) then
-        ! comments are enabled, but user hasn't set the comment char,
-        ! so in this case use the default:
-        json%comment_char = CK_'/!#'
-    end if
+    call json%prepare_parser()
 
     ! create the value and associate the pointer
     call json_value_create(p)