Add method to cast json_file as json_value

Author: zbeekman

src/json_module.F90

@@ -385,7 +385,8 @@ module json_module
                                  MAYBEWRAP(json_file_get_integer_vec), &
                                  MAYBEWRAP(json_file_get_double_vec),  &
                                  MAYBEWRAP(json_file_get_logical_vec), &
-                                 MAYBEWRAP(json_file_get_string_vec)
+                                 MAYBEWRAP(json_file_get_string_vec),  &
+                                 json_file_get_root
 
         generic,public :: update =>  MAYBEWRAP(json_file_update_integer),  &
                                      MAYBEWRAP(json_file_update_logical),  &
@@ -412,6 +413,7 @@ module json_module
         procedure :: MAYBEWRAP(json_file_get_double_vec)
         procedure :: MAYBEWRAP(json_file_get_logical_vec)
         procedure :: MAYBEWRAP(json_file_get_string_vec)
+        procedure :: json_file_get_root
 
         !update:
         procedure :: MAYBEWRAP(json_file_update_integer)
@@ -1277,6 +1279,24 @@ subroutine json_file_get_object(me, path, p, found)
     end subroutine json_file_get_object
 !*****************************************************************************************
 
+!*****************************************************************************************
+!> author: Izaak Beekman
+!  date: 7/23/2015
+!
+!  Get a [[json_value]] pointer to the JSON file root.
+
+    subroutine json_file_get_root(me,p)
+
+    implicit none
+
+    class(json_file),intent(inout)       :: me
+    type(json_value),pointer,intent(out) :: p      !! pointer to the variable
+
+    p => me%p
+
+    end subroutine json_file_get_root
+!*****************************************************************************************
+
 !*****************************************************************************************
 !>
 !  Alternate version of [[json_file_get_object]], where "path" is kind=CDK.

src/tests/jf_test_12.f90

@@ -152,6 +152,9 @@ subroutine test_12(error_cnt)
     call my_file%get('$array data.data',fetched_array)
     call check_errors(all(fetched_array == reshape(raw_array,[size(raw_array)])))
 
+    call my_file%get(tmp_json_ptr)
+    call check_errors(associated(tmp_json_ptr,root))
+
     contains
       subroutine check_errors(assertion)
         logical, optional, intent(in) :: assertion