117 lines
3.4 KiB
Lua
117 lines
3.4 KiB
Lua
--[[
|
|
This file is part of Ice Lua Components.
|
|
|
|
Ice Lua Components is free software: you can redistribute it and/or modify
|
|
it under the terms of the GNU Lesser General Public License as published by
|
|
the Free Software Foundation, either version 3 of the License, or
|
|
(at your option) any later version.
|
|
|
|
Ice Lua Components is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
GNU Lesser General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Lesser General Public License
|
|
along with Ice Lua Components. If not, see <http://www.gnu.org/licenses/>.
|
|
]]
|
|
|
|
function argb_split_to_merged(r,g,b,a)
|
|
a = a or 0xFF
|
|
r = math.min(math.max(0,math.floor(r+0.5)),255)
|
|
g = math.min(math.max(0,math.floor(g+0.5)),255)
|
|
b = math.min(math.max(0,math.floor(b+0.5)),255)
|
|
a = math.min(math.max(0,math.floor(a+0.5)),255)
|
|
return 256*(256*(256*a+r)+g)+b
|
|
end
|
|
|
|
function abgr_split_to_merged(r,g,b,a)
|
|
return argb_split_to_merged(b,g,r,a)
|
|
end
|
|
|
|
function argb_merged_to_split(c)
|
|
-- yuck
|
|
local b = c % (2 ^ 8)
|
|
local g = math.floor(c / (2 ^ 8) % (2 ^ 8))
|
|
local r = math.floor(c / (2 ^ 16) % (2 ^ 8))
|
|
local a = math.floor(c / (2 ^ 24))
|
|
if a < 0 then a = 0 end
|
|
--print(string.format("%08X %d %d %d %d", c, r, g, b, a))
|
|
return a, r, g, b
|
|
end
|
|
|
|
function recolor_component(r,g,b,mdata)
|
|
for i=1,#mdata do
|
|
if mdata[i].r == 0 and mdata[i].g == 0 and mdata[i].b == 0 then
|
|
mdata[i].r = r
|
|
mdata[i].g = g
|
|
mdata[i].b = b
|
|
end
|
|
end
|
|
end
|
|
|
|
function string.split(s, sep, plain)
|
|
local start = 1
|
|
local done = false
|
|
local function pass(i, j, ...)
|
|
if i then
|
|
local seg = s:sub(start, i - 1)
|
|
start = j + 1
|
|
return seg, ...
|
|
else
|
|
done = true
|
|
return s:sub(start)
|
|
end
|
|
end
|
|
local result = {}
|
|
while not done do
|
|
if sep == '' then done = true result[#result+1]=s end
|
|
result[#result+1]=pass(s:find(sep, start, plain))
|
|
end
|
|
return result
|
|
end
|
|
|
|
-- trim the character 'sep' from the left hand side of the string
|
|
function string.triml(s, sep)
|
|
sep = string.byte(sep)
|
|
if s == '' then return s end
|
|
local pos = 1
|
|
while string.byte(s,pos)==sep and #s<=pos do pos = pos + 1 end
|
|
return string.sub(s, pos+1)
|
|
end
|
|
|
|
-- trim the character 'sep' from the right hand side of the string
|
|
function string.trimr(s, sep)
|
|
sep = string.byte(sep)
|
|
if s == '' then return s end
|
|
local pos = #s
|
|
while string.byte(s, pos)==sep and pos>=1 do pos = pos - 1 end
|
|
return string.sub(s, 1, pos)
|
|
end
|
|
|
|
-- trim the character 'sep' from both sides of the string
|
|
function string.trim(s, sep)
|
|
return string.triml(string.trimr(s, sep), sep)
|
|
end
|
|
|
|
function parse_commandline_options(options)
|
|
local user_toggles = {} -- toggle options (key is name, value is position)
|
|
local user_settings = {} -- key-value pairs
|
|
local loose = {} -- loose strings, filenames, etc.
|
|
|
|
for k, v in pairs(options) do
|
|
local setting_pair = string.split(v, "=")
|
|
local first = string.byte(v,1)
|
|
if first==string.byte('-') then -- we are toggling an option or setting a value
|
|
if #setting_pair == 2 then -- we are setting a key to a value
|
|
user_settings[string.triml(setting_pair[1], '-')]=setting_pair[2]
|
|
print(string.triml(setting_pair[1], '-'),"trimmed")
|
|
else
|
|
user_toggles[string.triml(v, '-')]=k
|
|
end
|
|
else -- add to the loose values
|
|
loose[#loose+1] = v
|
|
end
|
|
end
|
|
return loose, user_toggles, user_settings
|
|
end
|