feat(string_t): build markdown table from array

This commit adds support for, and an example demonstrating,
function invocations of the form

  integer, parameter :: array(*,*) = reshape([1,2,3,4], [2,2])
  markdown_table(string_t(array), side_borders=.true.)

where the function result contains an 1D string_t array in which
each element represents one row of a Markdown table created from
one row of the 2D integer_array.  The above approach leverages the
elemental attribute of the string_t constructor function and
therefore also supports real, double precision, and complex
values.  The approach also works for string_t arrays, in which
case there is no need to invoke the string_t constructor.

Author: rouson

example/markdown-table-from-array.f90

@@ -0,0 +1,24 @@
+program build_markdown_table_from_array
+  !! Build a GitHub Markdown table from an array
+  use julienne_string_m, only : string_t, markdown_table
+  implicit none
+
+  integer row, col
+  integer, parameter :: rows = 3, cols = 4 
+  integer, parameter :: integer_array(*,*) = reshape([([(row*col, row=1,rows)], col=1,cols)], [rows,cols])
+  real, parameter :: real_array(*,*) = reshape([([(real(row*col), row=1,rows)], col=1,cols)], [rows,cols])
+  type(string_t), allocatable :: table_lines(:)
+
+  table_lines = markdown_table(string_t(integer_array), side_borders=.true.)
+
+  do row = 1, size(table_lines)
+    print '(a)', table_lines(row)%string()
+  end do
+
+  table_lines = markdown_table(string_t(real_array), side_borders=.false.)
+
+  do row = 1, size(table_lines)
+    print '(a)', table_lines(row)%string()
+  end do
+
+end program

src/julienne/julienne_string_m.f90

@@ -7,10 +7,11 @@ module julienne_string_m
 
   private
   public :: string_t
-  public :: array_of_strings
-  public :: operator(.cat.) ! element-wise concatenation unary operator
-  public :: operator(.csv.) ! comma-separated values unary operator
-  public :: operator(.sv.)  ! separated-values binary operator
+  public :: array_of_strings ! construct 1D string_t array from a string containing delimited substrings
+  public :: markdown_table   ! construct 1D string_t array in which each element is a GitHub Markdown table row
+  public :: operator(.cat.)  ! element-wise concatenation unary operator
+  public :: operator(.csv.)  ! comma-separated values unary operator
+  public :: operator(.sv.)   ! separated-values binary operator
 
   type, extends(characterizable_t) :: string_t
     private
@@ -163,6 +164,17 @@ pure module function strings_with_string_t_separator(strings, separator) result(
 
   end interface
 
+  interface markdown_table
+
+    pure module function markdown_table_from_strings(array, side_borders) result(lines)
+      implicit none
+      type(string_t), intent(in) :: array(:,:)
+      logical, intent(in) :: side_borders
+      type(string_t) lines(size(array,1))
+    end function
+
+  end interface
+
   interface
 
     pure module function as_character(self) result(raw_string)

src/julienne/julienne_string_s.F90

@@ -112,6 +112,26 @@
 
   end procedure
 
+  module procedure markdown_table_from_strings
+
+    integer row
+    character(len=1), parameter :: column_separator = "|"
+
+    associate(num_rows => size(array,1))
+      !allocate(lines(num_rows))
+      do row = 1, num_rows
+        associate(line => array(row,:) .sv. column_separator)
+          if (side_borders) then
+            lines(row) = line%bracket(column_separator)
+          else
+            lines(row) = line
+          end if
+        end associate
+      end do
+    end associate
+ 
+  end procedure
+
   module procedure array_of_strings
     character(len=:), allocatable :: remainder, next_string
     integer next_delimiter, string_end

src/julienne_m.f90

@@ -7,7 +7,7 @@ module julienne_m
   use julienne_file_m, only : file_t
   use julienne_github_ci_m, only : github_ci
   use julienne_formats_m, only : separated_values, csv
-  use julienne_string_m, only : string_t, operator(.cat.), operator(.csv.), operator(.sv.)
+  use julienne_string_m, only : string_t, operator(.cat.), operator(.csv.), operator(.sv.), array_of_strings, markdown_table
   use julienne_test_m, only : test_t, test_description_substring
   use julienne_test_description_m, only : test_description_t, diagnosis_function_i
   use julienne_test_diagnosis_m, only : test_diagnosis_t