mirror of https://github.com/20kdc/OC-KittenOS.git
68 lines
2.3 KiB
Lua
68 lines
2.3 KiB
Lua
-- This is released into the public domain.
|
|
-- No warranty is provided, implied or otherwise.
|
|
|
|
-- KittenOS NEO Installer Generator --
|
|
local alg, tarName, cid = ...
|
|
cid = (cid or "UNKNOWN"):sub(1, 7)
|
|
|
|
local u = require("libs.frw")
|
|
|
|
local tarData = u.read(tarName)
|
|
local tarSectors = math.floor(#tarData / 512)
|
|
|
|
local instSize = 0
|
|
local function put(data)
|
|
io.write(data)
|
|
instSize = instSize + #data
|
|
end
|
|
|
|
put("--" .. cid .. "\n")
|
|
put("--This is released into the public domain. No warranty is provided, implied or otherwise.\n")
|
|
|
|
local instCode = "K=" .. tarSectors .. "\n" .. u.read(alg .. "/instdeco.lua") .. u.read("instbase.lua")
|
|
instCode = require("libs.lexcrunch")(instCode)
|
|
put(instCode)
|
|
|
|
-- the \x00 is the indicator to start reading
|
|
put("--[[\x00")
|
|
|
|
io.stderr:write("compressing...\n")
|
|
local compressedData = require(alg .. ".compress")(tarData)
|
|
u.write(alg .. "/output.bin", compressedData)
|
|
io.stderr:write("compression with " .. alg .. ": " .. #tarData .. " -> " .. #compressedData .. "\n")
|
|
-- Program the read-in state machine
|
|
compressedData = compressedData:gsub("\xFE", "\xFE\xFE")
|
|
compressedData = compressedData:gsub("]]", "]\xFE]")
|
|
|
|
put(compressedData)
|
|
put("]]")
|
|
|
|
local status = ""
|
|
local statusDetail = ""
|
|
local blinkI = ""
|
|
if instSize > 65536 then
|
|
blinkI = "5;31;"
|
|
status = " DO NOT SHIP "
|
|
statusDetail = "The installer is too big to ship safely.\nIt's possible it may crash on Tier 1 systems.\nUpgrade the compression system or remove existing code."
|
|
elseif instSize > 64000 then
|
|
blinkI = "33;"
|
|
status = " Shippable * "
|
|
statusDetail = "The installer is getting dangerously large.\nReserve further room for bugfixes."
|
|
else
|
|
blinkI = "32;"
|
|
status = " All Green "
|
|
statusDetail = "The installer is well within budget with room for features.\nDevelop as normal."
|
|
end
|
|
io.stderr:write("\n")
|
|
local ctS, ctM, ctE = " \x1b[1;" .. blinkI .. "7m", "\x1b[0;7m", "\x1b[0m\n"
|
|
io.stderr:write(ctS .. " " .. ctM .. " " .. ctE)
|
|
io.stderr:write(ctS .. status .. ctM .. string.format(" %07i ", 65536 - instSize) .. ctE)
|
|
io.stderr:write(ctS .. " " .. ctM .. " " .. ctE)
|
|
io.stderr:write("\n")
|
|
io.stderr:write(statusDetail .. "\n")
|
|
io.stderr:write("\n")
|
|
io.stderr:write("Size: " .. instSize .. "\n")
|
|
io.stderr:write(" max. 65536\n")
|
|
io.stderr:write("\n")
|
|
|