Some API cleanup for consistency.

-added new APIs to replace json_value_create (i.e., json_create_object, etc.).
-renamed son_value_get to json_value_get_child.  Added additional error checking.
-renamed some of the internal routines.
In json_value_print, names are not trimmed if they end with spaces (which is allowed in JSON).

Author: jacobwilliams

README.md

@@ -105,19 +105,17 @@ of pointers.  See the json_example.f90 file for more examples.
 
         use json_module
 
-        type(json_value),pointer    :: p, inp
+        type(json_value),pointer :: p, inp
         logical :: found
 
         ! initialize the module
         call json_initialize()
 
         ! initialize the structure:
-        call json_value_create(p)
-        call to_object(p)
+        call json_create_object(p)
 
         ! add an "inputs" object to the structure:
-        call json_value_create(inp)
-        call to_object(inp,'inputs')
+        call json_create_object(inp,'inputs')
         call json_value_add(p, inp) !add it to the root
 
         ! add some data to inputs:

build.sh

@@ -39,6 +39,8 @@ else
 
 	FCOMPILER='gnu'
 	FCOMPILERFLAGS='-c -O2 -fbacktrace -Wall -Wextra -Wno-maybe-uninitialized -pedantic -std=f2008'
+	#FCOMPILERFLAGS='-c -O2 -fbacktrace -fall-intrinsics -Wall -Wextra -Wno-maybe-uninitialized -pedantic -std=f2008'
+	
 fi
 
 #build the stand-alone library:

src/json_example.f90

@@ -252,12 +252,11 @@ subroutine test_4()
     write(*,'(A)') ''
     write(*,'(A)') 'creating structure'
 
-    call json_value_create(p)            !create the value and associate the pointer
-    call to_object(p,dir//filename4)     !add the file name as the name of the overall structure
+    call json_create_object(p,dir//filename4)     !create the value and associate the pointer
+                                                  !add the file name as the name of the overall structure
 
     !config structure:
-    call json_value_create(inp)          !an object
-    call to_object(inp,'INPUTS')
+    call json_create_object(inp,'INPUTS')    !an object
     !add just integers:
     do i=1,100
         write(istr,fmt='(I10)') i
@@ -320,20 +319,18 @@ subroutine test_2()
     write(*,'(A)') ''
 
     !root:
-    call json_value_create(p)           ! create the value and associate the pointer
-    call to_object(p,dir//filename2)    ! add the file name as the name of the overall structure
+    call json_create_object(p,dir//filename2)    ! create the value and associate the pointer
+                                                 ! add the file name as the name of the overall structure
 
     write(*,'(A)') ''
     write(*,'(A)') 'initialize the structure...'
 
     !config structure:
-    call json_value_create(inp)             !an object
-    call to_object(inp,'inputs')
+    call json_create_object(inp,'inputs')   !an object
     call json_value_add(p, inp)
 
     !trajectory structure:
-    call json_value_create(traj)            !an array
-    call to_array(traj,'trajectory')
+    call json_create_array(traj,'trajectory')    !an array
     call json_value_add(p, traj)
 
     write(*,'(A)') ''
@@ -395,8 +392,7 @@ subroutine add_variables_to_input(me, variable, units, frame, center, rdata)
     nullify(var)
 
     !create the object before data can be added:
-    call json_value_create(var)
-    call to_object(var,'')    !name does not matter
+    call json_create_object(var,'')    !name does not matter
 
     !variable info:
     call json_value_add(var, 'VARIABLE',trim(variable))