more refactoring.

Author: jacobwilliams

src/json_file_module.F90

@@ -299,9 +299,6 @@ subroutine json_file_print_to_console(me)
 
     class(json_file),intent(inout)  :: me
 
-    !character(kind=CK,len=:),allocatable :: dummy
-
-    !call json_value_print(me%p,iunit=output_unit,str=dummy,indent=1,colon=.true.)
     call json_print(me%p,iunit=output_unit)
 
     end subroutine json_file_print_to_console
@@ -320,12 +317,7 @@ subroutine json_file_print_1(me, iunit)
     class(json_file),intent(inout)  :: me
     integer(IK),intent(in)          :: iunit  !! file unit number (must not be -1)
 
-    !integer(IK) :: i
-    !character(kind=CK,len=:),allocatable :: dummy
-
     if (iunit/=unit2str) then
-        !i = iunit
-        !call json_value_print(me%p,iunit=i,str=dummy,indent=1,colon=.true.)
         call json_print(me%p,iunit=iunit)
     else
         call throw_exception('Error in json_file_print_1: iunit must not be -1.')
@@ -359,18 +351,7 @@ subroutine json_file_print_2(me,filename)
     class(json_file),intent(inout)       :: me
     character(kind=CDK,len=*),intent(in) :: filename  !! filename to print to
 
-    integer(IK) :: iunit,istat
-
-    !...note: why not just call [[json_print_2]] here?
-
-    open(newunit=iunit,file=filename,status='REPLACE',iostat=istat FILE_ENCODING )
-    if (istat==0) then
-        call me%print_file(iunit)    !call the other routine
-        close(iunit,iostat=istat)
-    else
-        call throw_exception('Error in json_file_print_2: could not open file: '//&
-                              trim(filename))
-    end if
+    call json_print(me%p,filename)
 
     end subroutine json_file_print_2
 !*****************************************************************************************

src/json_kinds.F90

@@ -28,7 +28,7 @@
 !      JSON-Fortran procedures since they have been overloaded to accept ```intent(in)```
 !      character arguments of the default (```CDK```) kind. If you find a procedure which does
 !      not accept an ```intent(in)``` literal string argument of default kind, please
-!      [file an issue](https://github.com/jacobwilliams/json-fortran/issues/new) on github.
+!      [file an issue](https://github.com/jacobwilliams/json-fortran/issues/new) on GitHub.
 
     module json_kinds
 

src/json_string_utilities.F90

@@ -15,13 +15,14 @@ module json_string_utilities
     character(kind=CK,len=*),parameter,public :: star = '*' !! for invalid numbers and
                                                             !! list-directed real output
 
-    !*************************************************************************************
+    !******************************************************
     !>
-    !  Convert a 'DEFAULT' kind character input to 'ISO_10646' kind and return it
+    !  Convert a 'DEFAULT' kind character input to
+    !  'ISO_10646' kind and return it
     interface to_unicode
         module procedure to_uni, to_uni_vec
     end interface
-    !*************************************************************************************
+    !******************************************************
 
 # ifdef USE_UCS4
     !******************************************************
@@ -32,6 +33,7 @@ module json_string_utilities
        module procedure ucs4_join_default, default_join_ucs4
     end interface
     public :: operator(//)
+    !******************************************************
 
     !******************************************************
     !>
@@ -41,11 +43,11 @@ module json_string_utilities
        module procedure ucs4_comp_default, default_comp_ucs4
     end interface
     public :: operator(==)
+    !******************************************************
 # endif
 
     public :: integer_to_string
     public :: real_to_string
-    public :: compact_real_string
     public :: valid_json_hex
     public :: to_unicode