Allow constructing string_type instances from integer/logical scalars

Author: awvwgk

doc/specs/stdlib_string_type.md

@@ -123,6 +123,90 @@ end program demo
 ```
 
 
+<!-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -->
+### Constructor from integer scalar
+
+#### Description
+
+The module defines a constructor to create a string type from an integer scalar.
+
+#### Syntax
+
+`res = [[stdlib_string_type(module):string_type(interface)]] (string)`
+
+#### Status
+
+Experimental
+
+#### Class
+
+Elemental function.
+
+#### Argument
+
+`val`: shall be a scalar integer value. It is an `intent(in)` argument.
+
+#### Result value
+
+The result is an instance of `string_type`.
+
+#### Example
+
+```fortran
+program demo
+  use stdlib_string_type
+  implicit none
+  type(string_type) :: string
+  string = string_type(42)
+  ! len(string) == 2
+  string = string_type(-289)
+  ! len(string) == 4
+end program demo
+```
+
+
+<!-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -->
+### Constructor from logical scalar
+
+#### Description
+
+The module defines a constructor to create a string type from a logical scalar.
+
+#### Syntax
+
+`res = [[stdlib_string_type(module):string_type(interface)]] (string)`
+
+#### Status
+
+Experimental
+
+#### Class
+
+Elemental function.
+
+#### Argument
+
+`val`: shall be a scalar logical value. It is an `intent(in)` argument.
+
+#### Result value
+
+The result is an instance of `string_type`.
+
+#### Example
+
+```fortran
+program demo
+  use stdlib_string_type
+  implicit none
+  type(string_type) :: string
+  string = string_type(.true.)
+  ! len(string) == 1
+  string = string_type(.false.)
+  ! len(string) == 1
+end program demo
+```
+
+
 <!-- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -- -->
 ### Assignment of character scalar
 
@@ -143,7 +227,7 @@ Experimental
 
 #### Class
 
-Elemntal subroutine, `assignment(=)`.
+Elemental subroutine, `assignment(=)`.
 
 #### Example
 

src/CMakeLists.txt

@@ -23,6 +23,7 @@ set(fppFiles
     stdlib_quadrature_trapz.fypp
     stdlib_quadrature_simps.fypp
     stdlib_stats_distribution_PRNG.fypp
+    stdlib_string_type.fypp
 )
 
 
@@ -41,7 +42,6 @@ set(SRC
     stdlib_error.f90
     stdlib_kinds.f90
     stdlib_logger.f90
-    stdlib_string_type.f90
     stdlib_strings.f90
     stdlib_system.F90
     ${outFiles}

src/Makefile.manual

@@ -19,14 +19,14 @@ SRCFYPP =\
         stdlib_stats_moment_mask.fypp \
         stdlib_stats_moment_scalar.fypp \
         stdlib_stats_var.fypp \
-	stdlib_stats_distribution_PRNG.fypp
+        stdlib_stats_distribution_PRNG.fypp \
+        stdlib_string_type.fypp
 
 SRC = f18estop.f90 \
       stdlib_error.f90 \
       stdlib_kinds.f90 \
       stdlib_logger.f90 \
       stdlib_strings.f90 \
-      stdlib_string_type.f90 \
       $(SRCGEN)
 
 LIB = libstdlib.a
@@ -110,5 +110,5 @@ stdlib_stats_var.o: \
 stdlib_stats_distribution_PRNG.o: \
         stdlib_kinds.o \
 	stdlib_error.o
-stdlib_string_type.o: stdlib_ascii.o
+stdlib_string_type.o: stdlib_ascii.o stdlib_kinds.o
 stdlib_strings.o: stdlib_ascii.o stdlib_string_type.o

src/stdlib_string_type.f90 renamed to src/stdlib_string_type.fypp

@@ -1,4 +1,5 @@
 ! SPDX-Identifier: MIT
+#:include "common.fypp"
 
 !> Implementation of a string type to hold an arbitrary sequence of characters.
 !>
@@ -13,8 +14,8 @@
 !> The specification of this module is available [here](../page/specs/stdlib_string_type.html).
 module stdlib_string_type
     use stdlib_ascii, only: to_lower_ => to_lower, to_upper_ => to_upper, &
-                            to_title_ => to_title, reverse_ => reverse
-
+       & to_title_ => to_title, reverse_ => reverse, to_char
+    use stdlib_kinds, only : int8, int16, int32, int64
     implicit none
     private
 
@@ -44,6 +45,10 @@ module stdlib_string_type
     !> Constructor for new string instances
     interface string_type
         module procedure :: new_string
+      #:for kind in INT_KINDS
+        module procedure :: new_string_from_integer_${kind}$
+        module procedure :: new_string_from_logical_${kind}$
+      #:endfor
     end interface string_type
 
 
@@ -351,6 +356,24 @@ elemental function new_string(string) result(new)
         end if
     end function new_string
 
+  #:for kind in INT_KINDS
+    !> Constructor for new string instances from an integer of kind ${kind}$.
+    elemental function new_string_from_integer_${kind}$(val) result(new)
+        integer(${kind}$), intent(in) :: val
+        type(string_type) :: new
+        new%raw = to_char(val)
+    end function new_string_from_integer_${kind}$
+  #:endfor
+
+  #:for kind in INT_KINDS
+    !> Constructor for new string instances from a logical of kind ${kind}$.
+    elemental function new_string_from_logical_${kind}$(val) result(new)
+        logical(${kind}$), intent(in) :: val
+        type(string_type) :: new
+        new%raw = to_char(val)
+    end function new_string_from_logical_${kind}$
+  #:endfor
+
 
     !> Assign a character sequence to a string.
     elemental subroutine assign_string_char(lhs, rhs)

src/tests/string/test_string_assignment.f90

@@ -1,7 +1,8 @@
 ! SPDX-Identifier: MIT
 module test_string_assignment
     use stdlib_error, only : check
-    use stdlib_string_type, only : string_type, assignment(=), len
+    use stdlib_kinds, only : int8, int16, int32, int64
+    use stdlib_string_type, only : string_type, assignment(=), operator(==), len
     implicit none
 
 contains
@@ -15,13 +16,57 @@ subroutine test_assignment
         call check(len(string) == 8)
     end subroutine test_assignment
 
+    subroutine test_char_value
+       character(len=128) :: flc
+
+       write(flc, '(g0)') -1026191
+       call check(string_type(-1026191) == trim(flc))
+
+       write(flc, '(g0)') 124787
+       call check(string_type(124787) == trim(flc))
+
+       write(flc, '(g0)') -2_int8
+       call check(string_type(-2_int8) == trim(flc))
+
+       write(flc, '(g0)') 5_int8
+       call check(string_type(5_int8) == trim(flc))
+
+       write(flc, '(g0)') -72_int16
+       call check(string_type(-72_int16) == trim(flc))
+
+       write(flc, '(g0)') -8924889_int32
+       call check(string_type(-8924889_int32) == trim(flc))
+
+       write(flc, '(g0)') 2378405_int32
+       call check(string_type(2378405_int32) == trim(flc))
+
+       write(flc, '(g0)') 921092378411_int64
+       call check(string_type(921092378411_int64) == trim(flc))
+
+       write(flc, '(g0)') -1272835761_int64
+       call check(string_type(-1272835761_int64) == trim(flc))
+
+       write(flc, '(g0)') .true.
+       call check(string_type(.true.) == trim(flc))
+
+       write(flc, '(g0)') .false.
+       call check(string_type(.false.) == trim(flc))
+
+       write(flc, '(g0)') .false._int8
+       call check(string_type(.false._int8) == trim(flc))
+
+       write(flc, '(g0)') .true._int64
+       call check(string_type(.true._int64) == trim(flc))
+    end subroutine test_char_value
+
 end module test_string_assignment
 
 program tester
     use test_string_assignment
     implicit none
 
     call test_assignment
+    call test_char_value
 
 end program tester