minor changes and added a new unit test with escape characters.

Author: jacobwilliams

files/inputs/test1.json

@@ -17,6 +17,7 @@
     "a": {
         "b": 1
     },
+    "escape": " \" \\ \/ \b \f \n \r \t ",
 	"empty_array": [],
 	"empty_object": {},
 	"empty_string": "",

src/json_value_module.F90

@@ -6721,7 +6721,7 @@ subroutine json_get_path(json, p, path, found, use_alt_array_tokens, path_sep)
 
             !get info about the current variable:
             call json%info(tmp,name=name)
-            if (json%path_mode==2) then
+            if (json%path_mode==2_IK) then
                 name = encode_rfc6901(name)
             end if
 
@@ -6731,7 +6731,7 @@ subroutine json_get_path(json, p, path, found, use_alt_array_tokens, path_sep)
                 !get info about the parent:
                 call json%info(tmp%parent,var_type=var_type,&
                                n_children=n_children,name=parent_name)
-                if (json%path_mode==2) then
+                if (json%path_mode==2_IK) then
                     parent_name = encode_rfc6901(parent_name)
                 end if
 
@@ -6758,19 +6758,19 @@ subroutine json_get_path(json, p, path, found, use_alt_array_tokens, path_sep)
                         end if
                     end do
                     select case(json%path_mode)
-                    case(3)
+                    case(3_IK)
                         ! JSONPath "bracket-notation"
                         ! example: `$['key'][1]`
                         ! [note: this uses 1-based indices]
                         call integer_to_string(i,int_fmt,istr)
                         call add_to_path(start_array//single_quote//parent_name//&
                                          single_quote//end_array//&
                                          start_array//trim(adjustl(istr))//end_array,CK_'')
-                    case(2)
+                    case(2_IK)
                         ! rfc6901
                         call integer_to_string(i-1,int_fmt,istr) ! 0-based index
                         call add_to_path(parent_name//slash//trim(adjustl(istr)))
-                    case(1)
+                    case(1_IK)
                         ! default
                         call integer_to_string(i,int_fmt,istr)
                         if (use_brackets) then
@@ -6787,7 +6787,7 @@ subroutine json_get_path(json, p, path, found, use_alt_array_tokens, path_sep)
 
                     !process parent on the next pass
                     select case(json%path_mode)
-                    case(3)
+                    case(3_IK)
                         call add_to_path(start_array//single_quote//name//&
                                          single_quote//end_array,CK_'')
                     case default
@@ -6807,7 +6807,7 @@ subroutine json_get_path(json, p, path, found, use_alt_array_tokens, path_sep)
             else
                 !the last one:
                 select case(json%path_mode)
-                case(3)
+                case(3_IK)
                     call add_to_path(start_array//single_quote//name//&
                                      single_quote//end_array,CK_'')
                 case default
@@ -6836,10 +6836,10 @@ subroutine json_get_path(json, p, path, found, use_alt_array_tokens, path_sep)
         path = CK_''
     else
         select case (json%path_mode)
-        case(3)
+        case(3_IK)
             ! add the outer level object identifier:
             path = root//path
-        case(2)
+        case(2_IK)
             ! add the root slash:
             path = slash//path
         end select
@@ -6866,21 +6866,21 @@ subroutine add_to_path(str,path_sep)
             !! (ignored if `json%path_mode/=1`)
 
         select case (json%path_mode)
-        case(3)
+        case(3_IK)
             ! in this case, the options are ignored
             if (.not. allocated(path)) then
                 path = str
             else
                 path = str//path
             end if
-        case(2)
+        case(2_IK)
             ! in this case, the options are ignored
             if (.not. allocated(path)) then
                 path = str
             else
                 path = str//slash//path
             end if
-        case(1)
+        case(1_IK)
             ! default path format
             if (.not. allocated(path)) then
                 path = str

src/tests/jf_test_1.f90

@@ -153,6 +153,14 @@ subroutine test_1(error_cnt)
       else
         write(error_unit,'(A)') 'data(1).array(2) = '//trim(cval)
       end if
+      write(error_unit,'(A)') ''
+      call json%get('escape', cval)
+      if (json%failed()) then
+        call json%print_error_message(error_unit)
+        error_cnt = error_cnt + 1
+      else
+        write(error_unit,'(A)') 'escape = '//trim(cval)
+      end if
 
       ! get a logical value:
       call json%get('data(1).tf1', lval)