@gamely/gly-engine-lite 0.3.6 → 0.3.8

package/dist/main.lua

@@ -1,37 +1,37 @@
-local b25c2 = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
-local r25c2 = function(i, f)
+local b2967 = {0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0,0}
+local r2967 = function(i, f)
 return function()
 local c = f()
-b25c2[i] = function() return c end
+b2967[i] = function() return c end
 return c
 end
 end
 local math = ((function() local x, y = pcall(require, 'math'); return x and y end)()) or _G.math
-local function m25c2()
-local version = b25c2[1]('source_version')
-local loadcore = b25c2[2]('source_shared_engine_loadcore')
-local loadgame = b25c2[3]('source_shared_engine_loadgame')
-local engine_encoder = b25c2[4]('source_engine_api_data_encoder')
-local engine_game = b25c2[5]('source_engine_api_system_app')
-local engine_hash = b25c2[6]('source_engine_api_data_hash')
-local engine_http = b25c2[7]('source_engine_api_io_http')
-local engine_i18n = b25c2[8]('source_engine_api_data_i18n')
-local engine_key = b25c2[9]('source_engine_api_system_key')
-local engine_env = b25c2[10]('source_engine_api_system_getenv')
-local engine_log = b25c2[11]('source_engine_api_debug_log')
-local engine_math = b25c2[12]('source_engine_api_math_basic')
-local engine_math_clib = b25c2[13]('source_engine_api_math_clib')
-local engine_math_random = b25c2[14]('source_engine_api_math_random')
-local engine_array = b25c2[15]('source_engine_api_data_array')
-local engine_media = b25c2[16]('source_engine_api_io_media')
-local engine_api_draw_fps = b25c2[17]('source_engine_api_draw_fps')
-local engine_api_draw_text = b25c2[18]('source_engine_api_draw_text')
-local engine_api_draw_poly = b25c2[19]('source_engine_api_draw_poly')
-local engine_raw_memory = b25c2[20]('source_engine_api_raw_memory')
-local callback_http = b25c2[21]('source_engine_protocol_http_callback')
-local application_default = b25c2[22]('source_shared_var_object_root')
-local color = b25c2[23]('source_engine_api_system_color')
-local std = b25c2[24]('source_shared_var_object_std')
+local function m2967()
+local version = b2967[1]('source_version')
+local loadcore = b2967[2]('source_shared_engine_loadcore')
+local loadgame = b2967[3]('source_shared_engine_loadgame')
+local engine_encoder = b2967[4]('source_engine_api_data_encoder')
+local engine_game = b2967[5]('source_engine_api_system_app')
+local engine_hash = b2967[6]('source_engine_api_data_hash')
+local engine_http = b2967[7]('source_engine_api_io_http')
+local engine_i18n = b2967[8]('source_engine_api_data_i18n')
+local engine_key = b2967[9]('source_engine_api_system_key')
+local engine_env = b2967[10]('source_engine_api_system_getenv')
+local engine_log = b2967[11]('source_engine_api_debug_log')
+local engine_math = b2967[12]('source_engine_api_math_basic')
+local engine_math_clib = b2967[13]('source_engine_api_math_clib')
+local engine_math_random = b2967[14]('source_engine_api_math_random')
+local engine_array = b2967[15]('source_engine_api_data_array')
+local engine_media = b2967[16]('source_engine_api_io_media')
+local engine_api_draw_fps = b2967[17]('source_engine_api_draw_fps')
+local engine_api_draw_text = b2967[18]('source_engine_api_draw_text')
+local engine_api_draw_poly = b2967[19]('source_engine_api_draw_poly')
+local engine_raw_memory = b2967[20]('source_engine_api_raw_memory')
+local callback_http = b2967[21]('source_engine_protocol_http_callback')
+local application_default = b2967[22]('source_shared_var_object_root')
+local color = b2967[23]('source_engine_api_system_color')
+local std = b2967[24]('source_shared_var_object_std')
 local application = application_default
 local engine = {
 keyboard = function(a, b, c, d) end,
@@ -193,12 +193,12 @@ version=version
 }
 return P
 end
-b25c2[1] = r25c2(1, function()
-return '0.3.6'
+b2967[1] = r2967(1, function()
+return '0.3.8'
 end)
-b25c2[2] = r25c2(2, function()
-local zeebo_pipeline = b25c2[25]('source_shared_functional_pipeline')
-local requires = b25c2[26]('source_shared_string_dsl_requires')
+b2967[2] = r2967(2, function()
+local zeebo_pipeline = b2967[25]('source_shared_functional_pipeline')
+local requires = b2967[26]('source_shared_string_dsl_requires')
 local function step_install_libsys(self, lib_name, library, custom, is_system)
 if not is_system then return end
 local ok, msg = pcall(function()
@@ -279,9 +279,9 @@ setup = setup
 }
 return P
 end)
-b25c2[3] = r25c2(3, function()
-local eval_file = b25c2[27]('source_shared_string_eval_file')
-local eval_code = b25c2[28]('source_shared_string_eval_code')
+b2967[3] = r2967(3, function()
+local eval_file = b2967[27]('source_shared_string_eval_file')
+local eval_code = b2967[28]('source_shared_string_eval_code')
 local has_io_open = io and io.open
 local function normalize(app, base)
 if not app then return nil end
@@ -355,7 +355,7 @@ script = script
 }
 return P
 end)
-b25c2[4] = r25c2(4, function()
+b2967[4] = r2967(4, function()
 local function install(std, engine, library, name)
 std = std or {}
 std[name] = {
@@ -369,7 +369,7 @@ install=install
 }
 return P
 end)
-b25c2[5] = r25c2(5, function()
+b2967[5] = r2967(5, function()
 local function reset(std, engine)
 if std.node then
 return function()
@@ -404,11 +404,7 @@ local function install(std, engine, config)
 std = std or {}
 config = config or {}
 std.app = std.app or {}
-std.bus.listen('post_quit', function()
-if config.quit then
-config.quit()
-end
-end)
+std.bus.listen('post_quit', config.quit or config.exit or function() end)
 std.app.title = title(config.set_title)
 std.app.exit = exit(std)
 std.app.reset = reset(std, engine)
@@ -422,7 +418,7 @@ install=install
 }
 return P
 end)
-b25c2[6] = r25c2(6, function()
+b2967[6] = r2967(6, function()
 local function djb2(digest)
 local index = 1
 local hash = 5381
@@ -445,8 +441,8 @@ install = install
 }
 return P
 end)
-b25c2[7] = r25c2(7, function()
-local zeebo_pipeline = b25c2[25]('source_shared_functional_pipeline')
+b2967[7] = r2967(7, function()
+local zeebo_pipeline = b2967[25]('source_shared_functional_pipeline')
 local function json(self)
 self.options['json'] = true
 return self
@@ -612,7 +608,7 @@ install=install
 }
 return P
 end)
-b25c2[8] = r25c2(8, function()
+b2967[8] = r2967(8, function()
 local language = 'en-US'
 local language_default = 'en-US'
 local language_list = {}
@@ -703,7 +699,7 @@ install=install
 }
 return P
 end)
-b25c2[9] = r25c2(9, function()
+b2967[9] = r2967(9, function()
 local function real_key(std, engine, rkey, rvalue)
 local value = (rvalue == 1 or rvalue == true) or false
 local key = engine.key_bindings[rkey] or (std.key.axis[rkey] and rkey)
@@ -752,7 +748,7 @@ return {
 install = install
 }
 end)
-b25c2[10] = r25c2(10, function()
+b2967[10] = r2967(10, function()
 local function setenv(engine)
 return function(varname, value)
 if engine.root ~= engine.current then
@@ -795,53 +791,66 @@ install = install
 }
 return P
 end)
-b25c2[11] = r25c2(11, function()
-local util_decorator = b25c2[29]('source_shared_functional_decorator')
-local logging_types = {
-'none', 'fatal', 'error', 'warn', 'debug', 'info'
-}
-local function level(engine, lpf, lpn, level)
-local l = lpf[level] or lpn[level] or level
-if type(l) ~= 'number' or l <= 0 or l > #logging_types then
+b2967[11] = r2967(11, function()
+local yaml = b2967[29]('source_shared_string_encode_yaml')
+local levels = { none = 0, fatal = 1, error = 2, warn = 3, info = 4, debug = 5, trace = 6}
+local function printer(engine, printers, func_a, func_b)
+local fn_a = func_a and printers[func_a]
+local fn_b = func_b and printers[func_b]
+local func = fn_a or fn_b or function() end
+local level = levels[func_a] or 7
+return function (...)
+local msgs = {...}
+local count = #msgs
+if level <= engine.loglevel then
+local content = ''
+for i = 1, count do
+local v = msgs[i]
+local t = type(v)
+if t == 'table' then
+content = content..'\n'..yaml.encode(v)..'\n'
+elseif t ~= 'function' then
+local add_space = i ~= count and i > 1 and content:sub(-1) ~= '\n'
+local prefix = add_space and ' ' or ''
+content = content..prefix..tostring(v)
+end
+end
+func(content)
+end
+end
+end
+local function level(engine)
+return function(n)
+local lv = levels[n] or (type(n) == 'number' and n) or -1
+if lv < 0 or 6 < lv then
 error('logging level not exist: '..tostring(level)) 
 end
-engine.loglevel = l
+engine.loglevel = lv
 end
-local function init(std, engine, printers)
-local index = 1
-local level_per_func = {}
-local level_per_name = {}
-while index <= #logging_types do
-local ltype = logging_types[index]
-local lfunc = function() end
-if index > 1 and printers[ltype] then
-lfunc = (function (level)
-return function(message)
-if engine.loglevel >= level then
-printers[ltype](message)
-end
-end
-end)(index - 1)
-end
-level_per_func[lfunc] = index - 1
-level_per_name[ltype] = index - 1
-std.log[ltype] = lfunc
-index = index + 1
 end
-std.log.level = util_decorator.prefix3(engine, level_per_func, level_per_name, level)
+local function init(std, engine)
+return function(printers)
+std.log.fatal = printer(engine, printers, 'fatal', 'error')
+std.log.error = printer(engine, printers, 'error')
+std.log.warn = printer(engine, printers, 'warn')
+std.log.info = printer(engine, printers, 'info')
+std.log.debug = printer(engine, printers, 'debug', 'info')
+std.log.trace = printer(engine, printers, 'trace', 'info')
+end    
 end
 local function install(std, engine, printers)
 std.log = std.log or {}
-engine.loglevel = #logging_types
-std.log.init = util_decorator.prefix2(std, engine, init)
+std.log.init = init(std, engine)
+std.log.level = level(engine)
 std.log.init(printers)
+std.log.level('debug')
 end
 local P = {
 install = install
 }
 return P
 end)
-b25c2[12] = r25c2(12, function()
+b2967[12] = r2967(12, function()
 local function abs(value)
 if value < 0 then
 return -value
@@ -939,7 +948,7 @@ install = install
 }
 return P
 end)
-b25c2[13] = r25c2(13, function()
+b2967[13] = r2967(13, function()
 local function install(std)
 assert(math and (1/2 ~= 0))
 std.math = std.math or {}
@@ -974,7 +983,7 @@ install = install
 }
 return P
 end)
-b25c2[14] = r25c2(14, function()
+b2967[14] = r2967(14, function()
 local function install(std)
 assert(math and (1/2 ~= 0))
 std.math = std.math or {}
@@ -990,8 +999,8 @@ install = install
 }
 return P
 end)
-b25c2[15] = r25c2(15, function()
-local util_decorator = b25c2[29]('source_shared_functional_decorator')
+b2967[15] = r2967(15, function()
+local util_decorator = b2967[31]('source_shared_functional_decorator')
 local function array_map(array, func)
 local res = {}
 local index = 1
@@ -1151,7 +1160,7 @@ install = install
 }
 return P
 end)
-b25c2[16] = r25c2(16, function()
+b2967[16] = r2967(16, function()
 local function media_create(node, channels, handler)
 local decorator = function(func)
 func = func or function() end
@@ -1197,7 +1206,7 @@ install=install
 }
 return P
 end)
-b25c2[17] = r25c2(17, function()
+b2967[17] = r2967(17, function()
 local function draw_fps(std, engine, show, pos_x, pos_y)
 if show < 1 then return end
 local x = engine.current.config.offset_x + pos_x
@@ -1245,7 +1254,7 @@ install=install
 }
 return P
 end)
-b25c2[18] = r25c2(18, function()
+b2967[18] = r2967(18, function()
 local function text_put(std, engine, font_previous)
 return function(pos_x, pos_y, text, size)
 size = size or 2
@@ -1277,7 +1286,7 @@ install=install
 }
 return P
 end)
-b25c2[19] = r25c2(19, function()
+b2967[19] = r2967(19, function()
 local function decorator_poo(object, func)
 if not object or not func then return func end
 return function(a, b, c, d)
@@ -1383,7 +1392,7 @@ install=install
 }
 return P
 end)
-b25c2[20] = r25c2(20, function()
+b2967[20] = r2967(20, function()
 local memory_dict_unload = {}
 local memory_dict = {}
 local memory_list = {}
@@ -1437,9 +1446,9 @@ install=install
 }
 return P
 end)
-b25c2[21] = r25c2(21, function()
-local str_http = b25c2[31]('source_shared_string_encode_http')
-local str_url = b25c2[32]('source_shared_string_encode_url')
+b2967[21] = r2967(21, function()
+local str_http = b2967[32]('source_shared_string_encode_http')
+local str_url = b2967[33]('source_shared_string_encode_url')
 local callbacks = {
 ['async-promise'] = function(self)
 return self:promise()
@@ -1508,7 +1517,7 @@ func = native_http_callback
 }
 return P
 end)
-b25c2[22] = r25c2(22, function()
+b2967[22] = r2967(22, function()
 local P = {
 data={
 width=1280,
@@ -1537,7 +1546,7 @@ callbacks={
 }
 return P;
 end)
-b25c2[23] = r25c2(23, function()
+b2967[23] = r2967(23, function()
 local function install(std)
 std.color = std.color or {}
 std.color.white = 0xFFFFFFFF
@@ -1571,7 +1580,7 @@ install = install
 }
 return P
 end)
-b25c2[24] = r25c2(24, function()
+b2967[24] = r2967(24, function()
 local P = {
 milis = 0,
 delta = 0,
@@ -1638,7 +1647,7 @@ any=false
 }
 return P;
 end)
-b25c2[25] = r25c2(25, function()
+b2967[25] = r2967(25, function()
 local function pipe(self)
 return function()
 self:run()
@@ -1687,7 +1696,7 @@ run=run
 }
 return P
 end)
-b25c2[26] = r25c2(26, function()
+b2967[26] = r2967(26, function()
 local function encode(dsl_string)
 local spec = {
 list = {},
@@ -1735,7 +1744,7 @@ should_import = should_import
 }
 return P
 end)
-b25c2[27] = r25c2(27, function()
+b2967[27] = r2967(27, function()
 local function script(src)
 local ok, app = false, nil
 if require then
@@ -1760,7 +1769,7 @@ script = script,
 }
 return P
 end)
-b25c2[28] = r25c2(28, function()
+b2967[28] = r2967(28, function()
 local function script(src)
 local loader = loadstring or load
 if not loader then
@@ -1780,7 +1789,125 @@ script = script,
 }
 return P
 end)
-b25c2[29] = r25c2(29, function()
+b2967[29] = r2967(29, function()
+local function get_max_width(indent)
+if indent <= 40 then
+return 80
+else
+return nil
+end
+end
+local function wrap_text(text, indent)
+local max_width = get_max_width(indent)
+local prefix = string.rep("  ", indent)
+if not max_width then
+local lines = {}
+for line in text:gmatch("[^\n]+") do
+table.insert(lines, prefix .. line)
+end
+return table.concat(lines, "\n")
+end
+local words = {}
+for word in text:gmatch("%S+") do table.insert(words, word) end
+local lines = {}
+local line = ""
+for _, word in ipairs(words) do
+if #line + #word + 1 > max_width - indent * 2 then
+table.insert(lines, prefix .. line)
+line = word
+else
+if line == "" then
+line = word
+else
+line = line .. " " .. word
+end
+end
+end
+if line ~= "" then table.insert(lines, prefix .. line) end
+return table.concat(lines, "\n")
+end
+local function sanitize_key(key)
+if type(key) ~= "string" then
+key = tostring(key)
+end
+key = key:gsub("[^%w_-]", "_")
+return key
+end
+local function should_quote(s)
+if type(s) ~= "string" then return false end
+if s:match("^[^%a_]") or s:match("^%d+$") then
+return true
+end
+if s == "true" or s == "false" or s == "null" then
+return false
+end
+return false
+end
+local function format_string(s, indent)
+if type(s) ~= "string" then
+return tostring(s)
+end
+local max_width = get_max_width(indent)
+if s:find("\n") then
+local lines = {}
+for line in s:gmatch("[^\n]+") do
+if max_width then
+line = wrap_text(line, indent + 1)
+else
+line = string.rep("  ", indent + 1) .. line
+end
+table.insert(lines, line)
+end
+return "|-\n" .. table.concat(lines, "\n")
+elseif max_width and #s > max_width - indent * 2 then
+return ">-\n" .. wrap_text(s, indent + 1)
+elseif should_quote(s) then
+return string.format("%q", s)
+else
+return s
+end
+end
+local function to_yaml(tbl, indent)
+indent = indent or 0
+local yaml = ""
+local prefix = string.rep("  ", indent)
+local nums = {}
+local keys = {}
+for k, v in pairs(tbl) do
+if type(v) ~= "function" then
+if type(k) == "number" then
+table.insert(nums, k)
+else
+table.insert(keys, k)
+end
+end
+end
+table.sort(keys)
+for _, k in ipairs(keys) do
+local v = tbl[k]
+local safe_key = sanitize_key(k)
+if type(v) == "table" then
+yaml = yaml .. prefix .. safe_key .. ":\n" .. to_yaml(v, indent + 1)
+else
+yaml = yaml .. prefix .. safe_key .. ": " .. format_string(v, indent) .. "\n"
+end
+end
+table.sort(nums)
+for _, k in ipairs(nums) do
+local v = tbl[k]
+if type(v) == "table" then
+yaml = yaml .. prefix .. "-\n" .. to_yaml(v, indent + 1)
+else
+yaml = yaml .. prefix .. "- " .. format_string(v, indent) .. "\n"
+end
+end
+return yaml
+end
+return {
+encode = to_yaml
+}
+end)
+b2967[31] = r2967(31, function()
 local function decorator_prefix3(zig, zag, zom, func)
 return function (a, b, c, d, e, f)
 return func(zig, zag, zom, a, b, c, d, e, f)
@@ -1837,7 +1964,7 @@ prefix1_t = table_prefix1
 }
 return P
 end)
-b25c2[31] = r25c2(31, function()
+b2967[32] = r2967(32, function()
 local function is_ok(status)
 return (status and 200 <= status and status < 300) or false
 end
@@ -1983,7 +2110,7 @@ get_user_agent=get_user_agent,
 create_request=create_request
 }
 end)
-b25c2[32] = r25c2(32, function()
+b2967[33] = r2967(33, function()
 local function search_param(param_list, param_dict)
 local index, params = 1, ''
 while param_list and param_dict and index <= #param_list do
@@ -2004,4 +2131,4 @@ search_param = search_param
 }
 return P
 end)
-return m25c2()
+return m2967()

package/package.json

@@ -1,6 +1,6 @@
 {
     "name": "@gamely/gly-engine-lite",
-    "version": "0.3.6",
+    "version": "0.3.8",
     "author": "RodrigoDornelles",
     "license": "Apache-2.0",
     "homepage": "https://docs.gamely.com.br",