refac(string): eliminate redundant nomenclature

Author: rouson

src/sourcery/sourcery_string_m.f90

@@ -14,13 +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
+    procedure :: get_json_real
+    procedure :: get_json_string
+    procedure :: get_json_logical
+    procedure :: get_json_integer
+    procedure :: get_json_integer_array
     generic :: get_json_value => &
-      get_json_string_value, get_json_logical_value, get_json_integer_array_value, get_json_integer_value, get_json_real_value
+      get_json_string, get_json_logical, get_json_integer_array, get_json_integer, get_json_real
     procedure :: equivalent
     generic :: operator(==) => equivalent
   end type
@@ -61,34 +61,34 @@ 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_)
+    elemental module function get_json_real(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_)
+    elemental module function get_json_string(self, key, mold) result(value_)
       implicit none
       class(string_t), intent(in) :: self, key, mold
       type(string_t) :: value_
     end function
 
-    elemental module function get_json_integer_value(self, key, mold) result(value_)
+    elemental module function get_json_integer(self, key, mold) result(value_)
       implicit none
       class(string_t), intent(in) :: self, key
       integer, intent(in) ::  mold
       integer value_
     end function
 
-    elemental module function get_json_logical_value(self, key, mold) result(value_)
+    elemental module function get_json_logical(self, key, mold) result(value_)
       implicit none
       class(string_t), intent(in) :: self, key
       logical, intent(in) :: mold
       logical value_
     end function
 
-    pure module function get_json_integer_array_value(self, key, mold) result(value_)
+    pure module function get_json_integer_array(self, key, mold) result(value_)
       implicit none
       class(string_t), intent(in) :: self, key
       integer, intent(in) :: mold(:)

src/sourcery/sourcery_string_s.f90

@@ -51,10 +51,10 @@
 
   end procedure
 
-  module procedure get_json_real_value
+  module procedure get_json_real
     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)
+    call assert(key==self%get_json_key(), "string_s(get_json_real): key==self%get_json_key()", key)
 
     raw_line = self%string()
     associate(text_after_colon => raw_line(index(raw_line, ':')+1:))
@@ -70,11 +70,11 @@
 
   end procedure
 
-  module procedure get_json_string_value
+  module procedure get_json_string
 
     character(len=:), allocatable :: raw_line
 
-    call assert(key==self%get_json_key(), "key==self%get_string_json_value()", key)
+    call assert(key==self%get_json_key(), "key==self%get_string_json()", key)
 
     raw_line = self%string()
     associate(text_after_colon => raw_line(index(raw_line, ':')+1:))
@@ -91,10 +91,10 @@
 
   end procedure
 
-  module procedure get_json_logical_value
+  module procedure get_json_logical
     character(len=:), allocatable :: raw_line, string_value
 
-    call assert(key==self%get_json_key(), "string_s(get_json_logical_value): key==self%get_json_key()", key)
+    call assert(key==self%get_json_key(), "string_s(get_json_logical): key==self%get_json_key()", key)
 
     raw_line = self%string()
     associate(text_after_colon => raw_line(index(raw_line, ':')+1:))
@@ -105,17 +105,17 @@
           string_value = trim(adjustl((text_after_colon(:trailing_comma-1))))
         end if
         call assert(string_value=="true" .or. string_value=="false", &
-          'string_s(get_json_logical_value): string_value=="true" .or. string_value="false"', string_value)
+          'string_s(get_json_logical): string_value=="true" .or. string_value="false"', string_value)
         value_ = string_value == "true"
       end associate
     end associate
 
   end procedure
 
-  module procedure get_json_integer_value
+  module procedure get_json_integer
     character(len=:), allocatable :: raw_line, string_value
 
-    call assert(key==self%get_json_key(), "string_s(get_json_logical_value): key==self%get_json_key()", key)
+    call assert(key==self%get_json_key(), "string_s(get_json_logical): key==self%get_json_key()", key)
 
     raw_line = self%string()
     associate(text_after_colon => raw_line(index(raw_line, ':')+1:))
@@ -131,12 +131,12 @@
 
   end procedure
 
-  module procedure get_json_integer_array_value
+  module procedure get_json_integer_array
     character(len=:), allocatable :: raw_line
     real, allocatable :: real_array(:)
     integer i
 
-    call assert(key==self%get_json_key(), "string_s(get_json_integer_array_value): key==self%get_json_key()", key)
+    call assert(key==self%get_json_key(), "string_s(get_json_integer_array): key==self%get_json_key()", key)
 
     raw_line = self%string()
     associate(colon => index(raw_line, ":"))