feat(string_t): get_json_value logical mold/result

Author: rouson

src/sourcery/sourcery_string_m.f90

@@ -15,7 +15,9 @@ module sourcery_string_m
     procedure :: is_allocated
     procedure :: get_json_key
     procedure :: get_json_string_scalar_value
-    generic :: get_json_value => get_json_string_scalar_value
+    procedure :: get_json_logical_scalar_value
+    generic :: get_json_value => &
+                 get_json_string_scalar_value, get_json_logical_scalar_value
     procedure :: equivalent
     generic :: operator(==) => equivalent
   end type
@@ -62,6 +64,13 @@ elemental module function get_json_string_scalar_value(self, key, mold) result(v
       type(string_t) :: value_
     end function
 
+    elemental module function get_json_logical_scalar_value(self, key, mold) result(value_)
+      implicit none
+      class(string_t), intent(in) :: self, key
+      logical, intent(in) :: mold
+      logical value_
+    end function
+
     elemental module function equivalent(lhs, rhs) result(lhs_eqv_rhs)
       implicit none
       class(string_t), intent(in) :: lhs, rhs

src/sourcery/sourcery_string_s.f90

@@ -54,7 +54,7 @@
 
     character(len=:), allocatable :: raw_line
 
-    call assert(key==self%get_json_key(), "key==self%get_json_key()", key)
+    call assert(key==self%get_json_key(), "key==self%get_string_scalar_json_value()", key)
 
     raw_line = self%string()
     associate(text_after_colon => raw_line(index(raw_line, ':')+1:))
@@ -71,6 +71,27 @@
 
   end procedure
 
+  module procedure get_json_logical_scalar_value
+    character(len=:), allocatable :: raw_line, string_value
+
+    call assert(key==self%get_json_key(), "get_json_logical_scalar_value: key==self%get_json_key()", key)
+
+    raw_line = self%string()
+    associate(text_after_colon => raw_line(index(raw_line, ':')+1:))
+      associate(comma => index(text_after_colon, ','))
+        if (comma == 0) then
+          string_value = trim(adjustl((text_after_colon)))
+        else 
+          string_value = trim(adjustl((text_after_colon(:comma-1))))
+        end if
+        call assert(string_value=="true" .or. string_value=="false", &
+          'get_json_logical_scalar_value: string_value=="true" .or. string_value="false"', string_value)
+        value_ = string_value == "true"
+      end associate
+    end associate
+
+  end procedure
+
   module procedure equivalent
     lhs_eqv_rhs = lhs%string() == rhs%string()
   end procedure

test/string_test.f90

@@ -2,6 +2,7 @@ module string_test_m
   use sourcery_m, only : test_t, test_result_t, string_t
   implicit none
 
+
   private
   public :: string_test_t
 
@@ -24,7 +25,8 @@ 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 key string from colon-separated key/value pair", extracts_key()), &
-      test_result_t("extracting string value from colon-separated key/value pair", extracts_string_scalar_value()) &
+      test_result_t("extracting string value from colon-separated key/value pair", extracts_string_scalar_value()), &
+      test_result_t("extracting logical value from colon-separated key/value pair", extracts_logical_scalar_value()) &
     ]
   end function
 
@@ -54,4 +56,22 @@ function extracts_string_scalar_value() result(passed)
     end associate
   end function
 
+  function extracts_logical_scalar_value() result(passed)
+    logical passed
+    
+    associate( &
+      key_true_pair => string_t('"yada yada" : true'), &
+      key_false_pair => string_t('"blah blah" : false'), &
+      trailing_comma => string_t('"trailing comma" : true,') &
+    )
+      associate( &
+         true => key_true_pair%get_json_value(key=string_t("yada yada"), mold=.true.), &
+         false => key_false_pair%get_json_value(key=string_t("blah blah"), mold=.true.), &
+         true_too => trailing_comma%get_json_value(key=string_t("trailing comma"), mold=.true.) &
+      )
+        passed = true .and. true_too .and. .not. false
+      end associate
+    end associate
+  end function
+
 end module string_test_m