OC-Minitel/Embedded/compress.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)