mirror of https://github.com/20kdc/OC-KittenOS.git
88 lines
1.5 KiB
Lua
88 lines
1.5 KiB
Lua
-- This is released into the public domain.
|
|
-- No warranty is provided, implied or otherwise.
|
|
|
|
-- This program tries to crunch down the installer a bit further.
|
|
-- Specific target in mind, it has no support for string escapes.
|
|
-- It also does this:
|
|
for i = 1, 3 do
|
|
print(io.read())
|
|
end
|
|
|
|
local sequences = {
|
|
{"\n", " "},
|
|
{" ", " "},
|
|
{" #", "#"},
|
|
{"# ", "#"},
|
|
{" ,", ","},
|
|
{", ", ","},
|
|
{" (", "("},
|
|
{"( ", "("},
|
|
{" )", ")"},
|
|
{") ", ")"},
|
|
{" <", "<"},
|
|
{"< ", "<"},
|
|
{" >", ">"},
|
|
{"> ", ">"},
|
|
{" *", "*"},
|
|
{"* ", "*"},
|
|
{" ~", "~"},
|
|
{"~ ", "~"},
|
|
{" /", "/"},
|
|
{"/ ", "/"},
|
|
{" %", "%"},
|
|
{"% ", "%"},
|
|
{" =", "="},
|
|
{"= ", "="},
|
|
{" -", "-"},
|
|
{"- ", "-"},
|
|
{" +", "+"},
|
|
{"+ ", "+"},
|
|
{".. ", ".."},
|
|
{" ..", ".."},
|
|
{"\"\" ", "\"\""},
|
|
{"=0 t", "=0t"},
|
|
{">0 t", ">0t"},
|
|
{">1 t", ">1t"},
|
|
{"=1 w", "=1w"},
|
|
{"=380 l", "=380l"},
|
|
{"=127 t", "=127t"},
|
|
{"=128 t", "=128t"},
|
|
{">255 t", ">255t"},
|
|
{"=512 t", "=512t"}
|
|
}
|
|
|
|
local function pass(buffer)
|
|
local ob = ""
|
|
local smode = false
|
|
while #buffer > 0 do
|
|
if not smode then
|
|
local ds = true
|
|
while ds do
|
|
ds = false
|
|
for _, v in ipairs(sequences) do
|
|
if buffer:sub(1, #(v[1])) == v[1] then
|
|
buffer = v[2] .. buffer:sub(#(v[1]) + 1)
|
|
ds = true
|
|
end
|
|
end
|
|
end
|
|
end
|
|
local ch = buffer:sub(1, 1)
|
|
buffer = buffer:sub(2)
|
|
ob = ob .. ch
|
|
if ch == "\"" then
|
|
smode = not smode
|
|
end
|
|
end
|
|
return ob
|
|
end
|
|
local op = io.read("*a")
|
|
while true do
|
|
local np = pass(op)
|
|
if np == op then
|
|
io.write(np)
|
|
return
|
|
end
|
|
op = np
|
|
end
|