mirror of https://github.com/20kdc/OC-KittenOS.git
31 lines
691 B
Lua
31 lines
691 B
Lua
-- This is released into the public domain.
|
|
-- No warranty is provided, implied or otherwise.
|
|
|
|
-- Installer Compression Verification Tool --
|
|
local alg, tarName = ...
|
|
local u = require("libs.frw")
|
|
|
|
io.stderr:write("verifying... ")
|
|
local p = u.progress()
|
|
|
|
local tarData = u.read(tarName)
|
|
|
|
local total = ""
|
|
function M(t)
|
|
assert(#t == 512)
|
|
total = total .. t
|
|
p(#total / #tarData)
|
|
end
|
|
|
|
dofile(alg .. "/instdeco.lua")
|
|
|
|
L(u.read(alg .. "/output.bin"))
|
|
|
|
if total ~= tarData then
|
|
io.stderr:write("\n" .. #total .. " : " .. #tarData .. "\n")
|
|
u.write(alg .. "/vfyerr.bin", total)
|
|
error("VERIFICATION FAILURE : see inst/" .. alg .. "/vfyerr.bin!")
|
|
end
|
|
io.stderr:write("\nverification success\n")
|
|
|