@gamely/gly-engine-lite 0.3.7 → 0.3.8

package/dist/main.lua

@@ -1,37 +1,37 @@
-local b25ba = {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 r25ba = 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()
-b25ba[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 m25ba()
-local version = b25ba[1]('source_version')
-local loadcore = b25ba[2]('source_shared_engine_loadcore')
-local loadgame = b25ba[3]('source_shared_engine_loadgame')
-local engine_encoder = b25ba[4]('source_engine_api_data_encoder')
-local engine_game = b25ba[5]('source_engine_api_system_app')
-local engine_hash = b25ba[6]('source_engine_api_data_hash')
-local engine_http = b25ba[7]('source_engine_api_io_http')
-local engine_i18n = b25ba[8]('source_engine_api_data_i18n')
-local engine_key = b25ba[9]('source_engine_api_system_key')
-local engine_env = b25ba[10]('source_engine_api_system_getenv')
-local engine_log = b25ba[11]('source_engine_api_debug_log')
-local engine_math = b25ba[12]('source_engine_api_math_basic')
-local engine_math_clib = b25ba[13]('source_engine_api_math_clib')
-local engine_math_random = b25ba[14]('source_engine_api_math_random')
-local engine_array = b25ba[15]('source_engine_api_data_array')
-local engine_media = b25ba[16]('source_engine_api_io_media')
-local engine_api_draw_fps = b25ba[17]('source_engine_api_draw_fps')
-local engine_api_draw_text = b25ba[18]('source_engine_api_draw_text')
-local engine_api_draw_poly = b25ba[19]('source_engine_api_draw_poly')
-local engine_raw_memory = b25ba[20]('source_engine_api_raw_memory')
-local callback_http = b25ba[21]('source_engine_protocol_http_callback')
-local application_default = b25ba[22]('source_shared_var_object_root')
-local color = b25ba[23]('source_engine_api_system_color')
-local std = b25ba[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
-b25ba[1] = r25ba(1, function()
-return '0.3.7'
+b2967[1] = r2967(1, function()
+return '0.3.8'
 end)
-b25ba[2] = r25ba(2, function()
-local zeebo_pipeline = b25ba[25]('source_shared_functional_pipeline')
-local requires = b25ba[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)
-b25ba[3] = r25ba(3, function()
-local eval_file = b25ba[27]('source_shared_string_eval_file')
-local eval_code = b25ba[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)
-b25ba[4] = r25ba(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)
-b25ba[5] = r25ba(5, function()
+b2967[5] = r2967(5, function()
 local function reset(std, engine)
 if std.node then
 return function()
@@ -418,7 +418,7 @@ install=install
 }
 return P
 end)
-b25ba[6] = r25ba(6, function()
+b2967[6] = r2967(6, function()
 local function djb2(digest)
 local index = 1
 local hash = 5381
@@ -441,8 +441,8 @@ install = install
 }
 return P
 end)
-b25ba[7] = r25ba(7, function()
-local zeebo_pipeline = b25ba[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
@@ -608,7 +608,7 @@ install=install
 }
 return P
 end)
-b25ba[8] = r25ba(8, function()
+b2967[8] = r2967(8, function()
 local language = 'en-US'
 local language_default = 'en-US'
 local language_list = {}
@@ -699,7 +699,7 @@ install=install
 }
 return P
 end)
-b25ba[9] = r25ba(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)
@@ -748,7 +748,7 @@ return {
 install = install
 }
 end)
-b25ba[10] = r25ba(10, function()
+b2967[10] = r2967(10, function()
 local function setenv(engine)
 return function(varname, value)
 if engine.root ~= engine.current then
@@ -791,53 +791,66 @@ install = install
 }
 return P
 end)
-b25ba[11] = r25ba(11, function()
-local util_decorator = b25ba[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)
-b25ba[12] = r25ba(12, function()
+b2967[12] = r2967(12, function()
 local function abs(value)
 if value < 0 then
 return -value
@@ -935,7 +948,7 @@ install = install
 }
 return P
 end)
-b25ba[13] = r25ba(13, function()
+b2967[13] = r2967(13, function()
 local function install(std)
 assert(math and (1/2 ~= 0))
 std.math = std.math or {}
@@ -970,7 +983,7 @@ install = install
 }
 return P
 end)
-b25ba[14] = r25ba(14, function()
+b2967[14] = r2967(14, function()
 local function install(std)
 assert(math and (1/2 ~= 0))
 std.math = std.math or {}
@@ -986,8 +999,8 @@ install = install
 }
 return P
 end)
-b25ba[15] = r25ba(15, function()
-local util_decorator = b25ba[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
@@ -1147,7 +1160,7 @@ install = install
 }
 return P
 end)
-b25ba[16] = r25ba(16, function()
+b2967[16] = r2967(16, function()
 local function media_create(node, channels, handler)
 local decorator = function(func)
 func = func or function() end
@@ -1193,7 +1206,7 @@ install=install
 }
 return P
 end)
-b25ba[17] = r25ba(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
@@ -1241,7 +1254,7 @@ install=install
 }
 return P
 end)
-b25ba[18] = r25ba(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
@@ -1273,7 +1286,7 @@ install=install
 }
 return P
 end)
-b25ba[19] = r25ba(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)
@@ -1379,7 +1392,7 @@ install=install
 }
 return P
 end)
-b25ba[20] = r25ba(20, function()
+b2967[20] = r2967(20, function()
 local memory_dict_unload = {}
 local memory_dict = {}
 local memory_list = {}
@@ -1433,9 +1446,9 @@ install=install
 }
 return P
 end)
-b25ba[21] = r25ba(21, function()
-local str_http = b25ba[31]('source_shared_string_encode_http')
-local str_url = b25ba[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()
@@ -1504,7 +1517,7 @@ func = native_http_callback
 }
 return P
 end)
-b25ba[22] = r25ba(22, function()
+b2967[22] = r2967(22, function()
 local P = {
 data={
 width=1280,
@@ -1533,7 +1546,7 @@ callbacks={
 }
 return P;
 end)
-b25ba[23] = r25ba(23, function()
+b2967[23] = r2967(23, function()
 local function install(std)
 std.color = std.color or {}
 std.color.white = 0xFFFFFFFF
@@ -1567,7 +1580,7 @@ install = install
 }
 return P
 end)
-b25ba[24] = r25ba(24, function()
+b2967[24] = r2967(24, function()
 local P = {
 milis = 0,
 delta = 0,
@@ -1634,7 +1647,7 @@ any=false
 }
 return P;
 end)
-b25ba[25] = r25ba(25, function()
+b2967[25] = r2967(25, function()
 local function pipe(self)
 return function()
 self:run()
@@ -1683,7 +1696,7 @@ run=run
 }
 return P
 end)
-b25ba[26] = r25ba(26, function()
+b2967[26] = r2967(26, function()
 local function encode(dsl_string)
 local spec = {
 list = {},
@@ -1731,7 +1744,7 @@ should_import = should_import
 }
 return P
 end)
-b25ba[27] = r25ba(27, function()
+b2967[27] = r2967(27, function()
 local function script(src)
 local ok, app = false, nil
 if require then
@@ -1756,7 +1769,7 @@ script = script,
 }
 return P
 end)
-b25ba[28] = r25ba(28, function()
+b2967[28] = r2967(28, function()
 local function script(src)
 local loader = loadstring or load
 if not loader then
@@ -1776,7 +1789,125 @@ script = script,
 }
 return P
 end)
-b25ba[29] = r25ba(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)
@@ -1833,7 +1964,7 @@ prefix1_t = table_prefix1
 }
 return P
 end)
-b25ba[31] = r25ba(31, function()
+b2967[32] = r2967(32, function()
 local function is_ok(status)
 return (status and 200 <= status and status < 300) or false
 end
@@ -1979,7 +2110,7 @@ get_user_agent=get_user_agent,
 create_request=create_request
 }
 end)
-b25ba[32] = r25ba(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
@@ -2000,4 +2131,4 @@ search_param = search_param
 }
 return P
 end)
-return m25ba()
+return m2967()

package/package.json

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