WIP: config: add simple pretty-printer for tabular data

The next commit needs to output a lot of environment variables, their
types in the config schema, defaults and so on. It looks much more
readable when formatted in the tabular form.

This commits adds a simple tabular formatter for this purpose.

TBD: Add a test.

TBD: Part of #xxxx

NO_DOC=the new module is internal one
NO_CHANGELOG=see NO_DOC

Author: Totktonada

src/box/CMakeLists.txt

@@ -52,6 +52,7 @@ lua_source(lua_sources lua/config/source/env.lua          config_source_env_lua)
 lua_source(lua_sources lua/config/source/file.lua         config_source_file_lua)
 lua_source(lua_sources lua/config/utils/log.lua           config_utils_log_lua)
 lua_source(lua_sources lua/config/utils/schema.lua        config_utils_schema_lua)
+lua_source(lua_sources lua/config/utils/tabulate.lua      config_utils_tabulate_lua)
 
 if (ENABLE_CONFIG_EXTRAS)
     lua_source(lua_sources ${CONFIG_EXTRAS_DIR}/source/etcd.lua config_source_etcd_lua)

src/box/lua/config/utils/tabulate.lua

@@ -0,0 +1,68 @@
+-- Very simple pretty-printer of tabular data.
+--
+-- Example:
+--
+-- tabulate.encode({
+--     {'a', 'b', 'c'},
+--     tabulate.SPACER,
+--     {'d', 'e', 'f'},
+--     {'g', 'h', 'i'},
+-- })
+--
+-- ->
+--
+-- | a | b | c |
+-- | - | - | - |
+-- | d | e | f |
+-- | g | h | i |
+
+local SPACER = {}
+
+-- Format data as a table.
+--
+-- Accepts an array of rows. Each row in an array of values. Each
+-- value is a string.
+local function encode(rows)
+    -- Calculate column widths and columns amount.
+    local column_widths = {}
+    for _i, row in ipairs(rows) do
+        for j, v in ipairs(row) do
+            assert(type(v) == 'string')
+            column_widths[j] = math.max(column_widths[j] or 0, #v)
+        end
+    end
+    local column_count = #column_widths
+
+    -- Use a table as a string buffer.
+    local acc = {}
+
+    -- Add all the values into the accumulator with proper spacing
+    -- around and appropriate separators.
+    for _i, row in ipairs(rows) do
+        if row == SPACER then
+            for j = 1, column_count do
+                local width = column_widths[j]
+                table.insert(acc, '| ')
+                table.insert(acc, ('-'):rep(width))
+                table.insert(acc, ' ')
+            end
+            table.insert(acc, '|\n')
+        else
+            for j = 1, column_count do
+                assert(row[j] ~= nil)
+                local width = column_widths[j]
+                table.insert(acc, '| ')
+                table.insert(acc, row[j]:ljust(width))
+                table.insert(acc, ' ')
+            end
+            table.insert(acc, '|\n')
+        end
+    end
+
+    return table.concat(acc)
+end
+
+return {
+    SPACER = SPACER,
+    encode = encode,
+}

src/box/lua/init.c

@@ -150,7 +150,8 @@ extern char session_lua[],
 	config_source_env_lua[],
 	config_source_file_lua[],
 	config_utils_log_lua[],
-	config_utils_schema_lua[]
+	config_utils_schema_lua[],
+	config_utils_tabulate_lua[]
 #if ENABLE_CONFIG_EXTRAS
 	,
 	config_source_etcd_lua[],
@@ -322,6 +323,10 @@ static const char *lua_sources[] = {
 	"internal.config.utils.schema",
 	config_utils_schema_lua,
 
+	"config/utils/tabulate",
+	"internal.config.utils.tabulate",
+	config_utils_tabulate_lua,
+
 	"config/instance_config",
 	"internal.config.instance_config",
 	config_instance_config_lua,