feat(string): get_json_value real mold/result

Author: rouson

src/sourcery/sourcery_string_m.f90

@@ -14,12 +14,13 @@ module sourcery_string_m
     generic :: string => as_character
     procedure :: is_allocated
     procedure :: get_json_key
+    procedure :: get_json_real_value
     procedure :: get_json_string_value
     procedure :: get_json_logical_value
     procedure :: get_json_integer_value
     procedure :: get_json_integer_array_value
     generic :: get_json_value => &
-                 get_json_string_value, get_json_logical_value, get_json_integer_array_value, get_json_integer_value
+      get_json_string_value, get_json_logical_value, get_json_integer_array_value, get_json_integer_value, get_json_real_value
     procedure :: equivalent
     generic :: operator(==) => equivalent
   end type
@@ -60,6 +61,13 @@ elemental module function get_json_key(self) result(unquoted_key)
       type(string_t) unquoted_key
     end function
 
+    elemental module function get_json_real_value(self, key, mold) result(value_)
+      implicit none
+      class(string_t), intent(in) :: self, key
+      real, intent(in) :: mold
+      real value_
+    end function
+
     elemental module function get_json_string_value(self, key, mold) result(value_)
       implicit none
       class(string_t), intent(in) :: self, key, mold

src/sourcery/sourcery_string_s.f90

@@ -51,6 +51,25 @@
 
   end procedure
 
+  module procedure get_json_real_value
+    character(len=:), allocatable :: raw_line, string_value
+
+    call assert(key==self%get_json_key(), "string_s(get_json_real_value): key==self%get_json_key()", key)
+
+    raw_line = self%string()
+    associate(text_after_colon => raw_line(index(raw_line, ':')+1:))
+      associate(trailing_comma => index(text_after_colon, ','))
+        if (trailing_comma == 0) then
+          string_value = trim(adjustl((text_after_colon)))
+        else 
+          string_value = trim(adjustl((text_after_colon(:trailing_comma-1))))
+        end if
+        read(string_value, fmt=*) value_
+      end associate
+    end associate
+
+  end procedure
+
   module procedure get_json_string_value
 
     character(len=:), allocatable :: raw_line

test/string_test.f90

@@ -25,6 +25,7 @@ function results() result(test_results)
     test_results = [ &
       test_result_t("is_allocated() result .true. if & only if the string_t component(s) is/are allocated", check_allocation()), &
       test_result_t("extracting a key string from a colon-separated key/value pair", extracts_key()), &
+      test_result_t("extracting a real value from a colon-separated key/value pair", extracts_real_value()), &
       test_result_t("extracting a string value from a colon-separated key/value pair", extracts_string_value()), &
       test_result_t("extracting a logical value from a colon-separated key/value pair", extracts_logical_value()), &
       test_result_t("extracting an integer array value from a colon-separated key/value pair", extracts_integer_array_value()), &
@@ -50,6 +51,14 @@ function extracts_key() result(passed)
     end associate
   end function
 
+  function extracts_real_value() result(passed)
+    logical passed
+    
+    associate(line => string_t('"pi" : 3.14159'))
+      passed = line%get_json_value(key=string_t("pi"), mold=2.71828) == 3.14159
+    end associate
+  end function
+
   function extracts_string_value() result(passed)
     logical passed