mirror of
https://github.com/ShadowKatStudios/OC-Minitel.git
synced 2024-11-17 15:58:05 +11:00
60 lines
1.2 KiB
Lua
60 lines
1.2 KiB
Lua
|
local tArgs = {...}
|
||
|
|
local input = tArgs[1]
|
||
|
|
local output = tArgs[2]
|
||
|
|
|
||
|
|
local tKeywords = {"%[%[","]]","function","local","return","end","elseif","then","true","false"}
|
||
|
|
local tAvoid = {}
|
||
|
|
local tCodes = {}
|
||
|
|
local tReplace = {}
|
||
|
|
tAvoid[10] = true
|
||
|
|
tAvoid[27] = true
|
||
|
|
|
||
|
|
for i = 1, 31 do
|
||
|
|
if not tAvoid[i] then
|
||
|
|
tCodes[#tCodes+1] = i
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
for k,v in pairs(tKeywords) do
|
||
|
|
local newchar = table.remove(tCodes,1)
|
||
|
|
tReplace[#tReplace+1] = {v,string.char(newchar)}
|
||
|
|
end
|
||
|
|
|
||
|
|
local f = io.open(input,"rb")
|
||
|
|
if not f then return false end
|
||
|
|
local c = f:read("*a")
|
||
|
|
f:close()
|
||
|
|
local origSize = c:len()
|
||
|
|
for k,v in pairs(tReplace) do
|
||
|
|
v[3] = c:find(v[1])
|
||
|
|
c=c:gsub(v[1],v[2])
|
||
|
|
end
|
||
|
|
local mSize = c:len()
|
||
|
|
c="c=[["..c.."]]for k,v in pairs({"
|
||
|
|
for k,v in pairs(tReplace) do
|
||
|
|
if v[3] then
|
||
|
|
c=c.."{'"..v[2].."','"..v[1].."'}"
|
||
|
|
if k < #tReplace then
|
||
|
|
c=c..","
|
||
|
|
end
|
||
|
|
end
|
||
|
|
end
|
||
|
|
c=c.."})do c=c:gsub(v[1],v[2])end load(c)()"
|
||
|
|
--c=c.."})do c=c:gsub(v[1],v[2])end print(c)"
|
||
|
|
local fullSize = c:len()
|
||
|
|
if output then
|
||
|
|
f=io.open(output,"wb")
|
||
|
|
f:write(c)
|
||
|
|
f:close()
|
||
|
|
end
|
||
|
|
io.write("Original size: ")
|
||
|
|
print(origSize)
|
||
|
|
io.write("Minified size: ")
|
||
|
|
io.write(mSize)
|
||
|
|
io.write("; delta: ")
|
||
|
|
print(origSize - mSize)
|
||
|
|
io.write("RtR size: ")
|
||
|
|
io.write(fullSize)
|
||
|
|
io.write("; delta: ")
|
||
|
|
print(origSize - fullSize)
|