added remove() method to json_file. Fixes #339

Author: jacobwilliams

src/json_file_module.F90

@@ -169,6 +169,11 @@ module json_file_module
                                     json_file_update_string_val_ascii
 #endif
 
+        !>
+        !  Remove a variable from a [[json_file(type)]]
+        !  by specifying the path.
+        generic,public :: remove =>  MAYBEWRAP(json_file_remove)
+
         !traverse
         procedure,public :: traverse => json_file_traverse
 
@@ -244,6 +249,9 @@ module json_file_module
         procedure :: json_file_update_string_val_ascii
 #endif
 
+        !remove:
+        procedure :: MAYBEWRAP(json_file_remove)
+
         !print_file:
         procedure :: json_file_print_to_console
         procedure :: json_file_print_1
@@ -2192,6 +2200,42 @@ subroutine json_file_traverse(me,traverse_callback)
     end subroutine json_file_traverse
 !*****************************************************************************************
 
+!*****************************************************************************************
+!> author: Jacob Williams
+!  date: 7/7/2018
+!
+!  Remove a variable from a JSON file.
+!
+!@note This is just a wrapper to [[remove_if_present]].
+
+    subroutine json_file_remove(me,path)
+
+    implicit none
+
+    class(json_file),intent(inout)      :: me
+    character(kind=CK,len=*),intent(in) :: path !! the path to the variable
+
+    call me%core%remove_if_present(me%p,path)
+
+    end subroutine json_file_remove
+!*****************************************************************************************
+
+!*****************************************************************************************
+!>
+!  Alternate version of [[json_file_remove]], where "path" is kind=CDK.
+
+    subroutine wrap_json_file_remove(me,path)
+
+    implicit none
+
+    class(json_file),intent(inout)       :: me
+    character(kind=CDK,len=*),intent(in) :: path !! the path to the variable
+
+    call me%remove(to_unicode(path))
+
+    end subroutine wrap_json_file_remove
+!*****************************************************************************************
+
 !*****************************************************************************************
     end module json_file_module
 !*****************************************************************************************

src/tests/jf_test_01.F90

@@ -326,6 +326,14 @@ subroutine test_1(error_cnt)
           end if
       end if
 
+      ! remove a variable using the remove method:
+      call json%remove(json_CK_'version.patch')
+      call json%remove(json_CDK_'version.minor')
+      if (json%failed()) then
+        call json%print_error_message(error_unit)
+        error_cnt = error_cnt + 1
+      end if
+
       write(error_unit,'(A)') ''
       write(error_unit,'(A)') 'printing the modified structure...'
       call json%print_file()