working on module refactoring

This commit is contained in:
Manuel Simon Hirsig
2016-10-09 15:25:12 +02:00
parent 867f12d66e
commit f8e64deeed
17 changed files with 757 additions and 799 deletions
-66
View File
@@ -1,66 +0,0 @@
module 'aux.util.color'
include 'green_t'
include 'aux'
include 'aux.util'
include 'aux.control'
local COLORS = {
text = {enabled = {255, 254, 250, 1}, disabled = {147, 151, 139, 1}},
label = {enabled = {216, 225, 211, 1}, disabled = {150, 148, 140, 1}},
link = {153, 255, 255, 1},
window = {background = {24, 24, 24, .93}, border = {30, 30, 30, 1}},
panel = {background = {24, 24, 24, 1}, border = {255, 255, 255, .03}},
content = {background = {42, 42, 42, 1}, border = {0, 0, 0, 0}},
state = {enabled = {70, 180, 70, 1}, disabled = {190, 70, 70, 1}},
blue = {41, 146, 255, 1},
green = {22, 255, 22, 1},
yellow = {255, 255, 0, 1},
orange = {255, 146, 24, 1},
red = {255, 0, 0, 1},
gray = {187, 187, 187, 1},
blizzard = {0, 180, 255, 1},
aux = {255, 255, 154, 1},
}
do
local function index_handler(self, key)
self.private.table = self.private.table[key]
if getn(self.private.table) == 0 then
return self.public
else
local color = copy(self.private.table)
self.private.table = COLORS
return self.private.callback(color)
end
end
function private.color_accessor(callback)
return function()
return index_function({ callback=callback, table=COLORS }, index_handler)
end
end
end
do
local mt = {
__call = function(self, text)
local r, g, b, a = unpack(self)
if text then
return format('|c%02X%02X%02X%02X', a, r*255, g*255, b*255) .. text .. FONT_COLOR_CODE_CLOSE
else
return r, g, b, a
end
end
}
public.color.get = color_accessor(function(color)
local r, g, b, a = unpack(color)
return setmetatable(A(r/255, g/255, b/255, a), mt)
end)
end
public.inline_color.get = color_accessor(function(color)
local r, g, b, a = unpack(color)
return format('|c%02X%02X%02X%02X', a, r, g, b)
end)
-216
View File
@@ -1,216 +0,0 @@
module 'aux.util'
include 'green_t'
include 'aux'
do
local classes, interfaces, objects = {}, {}, setmetatable({}, { __mode='k' })
local private_mt = { __metatable=false }
function private_mt:__newindex(k, v)
classes[self][k] = v
end
local public_mt = { __metatable=false }
function public_mt:__newindex(k, v)
classes[self][k] = v
interfaces[self][k] = function(self, ...)
return classes[self][k](objects[self][k], unpack(arg))
end
end
local proxy_mt = { __metatable=false }
function proxy_mt:__call()
local proxy = setmetatable({}, { __metatable=false, __index=interfaces[self] })
objects[proxy] = setmetatable({}, { __index=classes[self] })
return proxy
end
function public.class()
local class, interface = {}, {}
local private, public, proxy = setmetatable({}, private_mt), setmetatable({}, public_mt), setmetatable({}, proxy_mt)
classes[private], classes[public], classes[proxy] = class, class, class
interfaces[public], interfaces[proxy] = interface, interface
return private, public, proxy
end
end
do
local _state = setmetatable(t, T('__mode', 'kv'))
local __index = function(self, k)
return _state[self].handler({ public=self, private=_state[self].state }, k)
end
function public.index_function(state, handler) -- TODO rename table-accessor, use predicate to stop
local state, self = { handler=handler, state=state }, t
_state[self] = state
return setmetatable(self, { __metatable=false, __index=__index, state=state })
end
end
public.select = vararg-function(arg)
for _ = 1, arg[1] do
tremove(arg, 1)
end
if getn(arg) == 0 then
return nil
else
return unpack(arg)
end
end
public.join = table.concat
function public.range(arg1, arg2)
local i, n = arg2 and arg1 or 1, arg2 or arg1
if i <= n then return first, range(i + 1, n) end
end
function public.replicate(count, value)
if count > 0 then return value, replicate(count - 1, value) end
end
do
local state
local function f()
local temp = state
state = nil
return temp
end
function public.present(v)
state = v
return f
end
end
public.papply = vararg-function(arg)
local f, arg1 = tremove(arg, 1), perm-arg
return vararg-function(arg)
for i = 1, getn(arg) do
tinsert(arg1, arg[i])
end
return f(unpack(arg1))
end
end
public.index = vararg-function(arg)
local t = tremove(arg, 1)
for i = 1, getn(arg) do t = t and t[arg[i]] end return t
end
public.huge = 1.8 * 10 ^ 308
function public.modified.get()
return IsShiftKeyDown() or IsControlKeyDown() or IsAltKeyDown()
end
function public.copy(t)
local copy = _M.t
for k, v in t do copy[k] = v end
table.setn(copy, getn(t))
return setmetatable(copy, getmetatable(t))
end
function public.size(t)
local size = 0
for _ in t do size = size + 1 end
return size
end
function public.key(value, t)
for k, v in t do if v == value then return k end end
end
function public.keys(t)
local keys = _M.t
for k in t do tinsert(keys, k) end
return keys
end
function public.values(t)
local values = _M.t
for _, v in t do tinsert(values, v) end
return values
end
function public.eq(t1, t2)
if not t1 or not t2 then return false end
for key, value in t1 do
if t2[key] ~= value then return false end
end
for key, value in t2 do
if t1[key] ~= value then return false end
end
return true
end
function public.any(t, predicate)
for _, v in t do
if predicate then
if predicate(v) then return true end
elseif v then
return true
end
end
return false
end
function public.all(t, predicate)
for _, v in t do
if predicate then
if not predicate(v) then return false end
elseif not v then
return false
end
end
return true
end
function public.filter(t, predicate)
for k, v in t do
if not predicate(v, k) then t[k] = nil end
end
return t
end
function public.map(t, f)
for k, v in t do t[k] = f(v, k) end
return t
end
function public.trim(str)
return gsub(str, '^%s*(.-)%s*$', '%1')
end
function public.split(str, separator)
local parts = t
while true do
local start_index = strfind(str, separator, 1, true)
if start_index then
local part = strsub(str, 1, start_index - 1)
tinsert(parts, part)
str = strsub(str, start_index + 1)
else
local part = strsub(str, 1)
tinsert(parts, part)
return parts
end
end
end
function public.tokenize(str)
local tokens = t
for token in string.gfind(str, '%S+') do tinsert(tokens, token) end
return tokens
end
function public.bounded(lower_bound, upper_bound, number)
return max(lower_bound, min(upper_bound, number))
end
function public.round(x)
return floor(x + .5)
end
function public.later(t0, t)
return function() return GetTime() - t0 > t end
end
function public.signal() local params
return function(...) params = arg end, function() return params end
end