local args = {...}
local tbl = args[1]
local dat = args[2]
table.remove(args, 1)
table.remove(args, 1)

function getfile(path)
	for i=1, #tbl do
		if (tbl[i].name == path) then
			return dat:sub(tbl[i].pos, tbl[i].pos+tbl[i].filesize-1)
		end
	end
end

if debug.debug then
	for i=1, #tbl do
		print(tbl[i].name, tbl[i].filesize)
	end
	print("Zorya NEO Installer")
	print("This was made for OpenComputers, and, as such, is not compatible with your system.")
	os.exit(0)
end

local comp = component or require("component")
local computer = computer or require("computer")

--[[local baddr = computer.getBootAddress()
local c = comp.proxy(baddr)
print("Making directories...")
c.makeDirectory(".zy2")
c.makeDirectory(".zy2/mods")
c.makeDirectory(".zy2/lib")
print("Copying files...")
for i=1, #tbl do
	if (tbl[i].name:sub(1, 13) ~= "installer_dat" and tbl[i].name:sub(1, 4) ~= "bios" and tbl[i].mode & 32768 ~= 0) then
		local h = c.open(".zy2/"..tbl[i].name, "w")
		c.write(h, getfile(tbl[i].name))
		c.close(h)
	end
end
computer.pullSignal(0)
print("Flashing BIOS...")
local eeprom = comp.proxy(comp.list("eeprom")())
eeprom.set(getfile("bios/managed.bios"))
eeprom.setData(baddr)]]

--pastebin installer: HW3rz1gt
local characters = {
	"╔", "╗", "═", "║", "╚", "╝"
}
local computer = computer or require("computer")
local fsaddr = args[1] or computer.getBootAddress()
--print(fsaddr)
local component = component or require("component")
local proxy, list = component.proxy, component.list
local gpu = proxy(list("gpu")())
if (not gpu.getScreen()) then
	gpu.bind(list("screen")())
end
local usepal
if (gpu.getDepth() > 1) then
	usepal = true
	gpu.setPaletteColor(0, 0x000000)
	gpu.setPaletteColor(1, 0xFFFFFF)
	gpu.setPaletteColor(2, 0x4444FF)
	gpu.setPaletteColor(3, 0xFF7F44)
	gpu.setPaletteColor(4, 0x00007F)
	gpu.setPaletteColor(5, 0x7F00FF)
	gpu.setPaletteColor(6, 0x595959)
end
local function gc(c)
	if usepal then
		return c, true
	end
	return (c == 1) and 1 or 0
end
--Load palette
gpu.setBackground(gc(0))
local w, h = gpu.getViewport()
gpu.fill(1, 2, w, h-1, " ")
gpu.setBackground(gc(5))
gpu.fill(1, 1, w, 1, " ")
local title = "Zorya NEO Installer v2.0"
local spos = (w/2)-(#title/2)
gpu.setForeground(gc(1))
gpu.set(spos, 1, title)
--[[
gpu.setForeground(gc(1))
gpu.setBackground(gc(5))
gpu.fill(6,6,w-12,h-12, " ")
gpu.set(6,6,characters[1])
gpu.set(w-6,6,characters[2])
gpu.set(6,h-6,characters[5])
gpu.set(w-6,h-6,characters[6])
gpu.fill(7,6,w-13,1,characters[3])
gpu.fill(7,h-6,w-13,1,characters[3])
gpu.fill(6,7,1,h-13,characters[4])
gpu.fill(w-6,7,1,h-13,characters[4])]]

function drawBox(x, y, w, h)
	gpu.setForeground(gc(1))
	gpu.setBackground(gc(5))
	gpu.fill(x,y,x+w,y+h, " ")
	gpu.fill(x,y,w,1,characters[3])
	gpu.fill(x,y+h,w,1,characters[3])
	gpu.fill(x,y,1,h,characters[4])
	gpu.fill(x+w,y,1,h,characters[4])
	gpu.set(x,y,characters[1])
	gpu.set(x+w,y,characters[2])
	gpu.set(x,y+h,characters[5])
	gpu.set(x+w,y+h,characters[6])
end

function drawCenteredBox(x, y)
	local marginx, marginy = (w-x)//2, (h-y)//2
	drawBox(marginx, marginy, x, y)
end

function setStatus(stat, l1, l2)
	l1 = l1 or ""
	l2 = l2 or ""
	gpu.setBackground(gc(5))
	gpu.setForeground(gc(1))
	gpu.fill(7,(h/2)-3, w-13, 1, " ")
	gpu.set((w/2)-(#stat/2), (h/2)-3, stat)
end
function setBar(pos)
	gpu.setBackground(gc(6))
	gpu.fill(8, (h/2)+1, w-16, 1, " ")
	gpu.setBackground(gc((usepal and 2) or 1))
	gpu.fill(8, (h/2)+1, ((w-16)/100)*pos, 1, " ")
	computer.pullSignal(0)
end

function mkdir(fs, path)
	fs.makeDirectory(path)
end

drawCenteredBox(w-8, h-8)

setStatus("Setting up directories...")
setBar(100)
local fs = proxy(fsaddr)
fs.makeDirectory(".zy2")
fs.makeDirectory(".zy2/mods")
fs.makeDirectory(".zy2/lib")

local romfs = fs.open(".zy2/image.tsar", "w")
--fs.write(romfs, "romfs\1\0")

local modes = {
	["fifo"] = 1,
	["char device"] = 2,
	["directory"] = 4,
	["block device"] = 6,
	["file"] = 8,
	["link"] = 0xA,
	["socket"] = 0xC
}
local function getperm(ftype, perm)
	local md = 0
	for i=1, 9 do
		if (perm:sub(i,i) ~= "-") then
			md = md | (1 << (i-1))
		end
	end
	return md | (modes[ftype] << 12)
end

function makeDirectory(path)
	local ent = {
		name = path,
		namesize = #path,
		magic = 0x5f7d,
		mode = getperm("directory", "r-xr-xr-x"),
		uid = 0,
		gid = 0,
		filesize = 0,
		mtime = os.time()
	}
	fs.write(romfs, string.pack("=I2I2I2I2I2I6I6", ent.magic, ent.namesize, ent.mode, ent.uid, ent.gid, ent.filesize, ent.mtime))
	fs.write(romfs, path)
	if ent.namesize & 1 > 0 then
		fs.write(romfs, "\0")
	end
end

makeDirectory(".zy2")
makeDirectory(".zy2/mods")
makeDirectory(".zy2/lib")

function writeFile(path, data)
	--local hand = fs.open(path, "w")
	--fs.write(hand, data)
	--fs.close(hand)
	--fs.write(romfs, string.char(#path)..path)
	--local ext = path:sub(#path-2)
	--fs.write(romfs, string.pack("<i2", #data))
	--if (ext == "lua" or ext == "z2l" or ext == "z2y") then
	--	fs.write(romfs, "x")
	--else
	--	fs.write(romfs, "-")
	--end
	--fs.write(romfs, data)

	local ext = path:sub(#path-2)
	local ent = {
		name = path,
		namesize = #path,
		magic = 0x5f7d,
		mode = getperm("file", ((ext == "lua" or ext == "z2l" or ext == "z2y") and "r-xr-xr-x") or "rw-r--r--"),
		uid = 0,
		gid = 0,
		filesize = #data,
		mtime = os.time()
	}
	fs.write(romfs, string.pack("=I2I2I2I2I2I6I6", ent.magic, ent.namesize, ent.mode, ent.uid, ent.gid, ent.filesize, ent.mtime))
	fs.write(romfs, path)
	if ent.namesize & 1 > 0 then
		fs.write(romfs, "\0")
	end
	fs.write(romfs, data)
	if ent.filesize & 1 > 0 then
		fs.write(romfs, "\0")
	end
end

setStatus("Getting file list...")
setBar(0)
local bios_files = load("return "..getfile("installer_dat/bios_list.lua"))()
setBar(33)
local pkg_files = load("return "..getfile("installer_dat/package_list.lua"))()
setBar(67)
local lang = load("return "..getfile("installer_dat/lang/en_US.lua"))()
setBar(100)

setStatus("Extracting files...")
setBar(0)
for i=1, #pkg_files do
	setStatus("Extracting "..(lang["mod_"..pkg_files[i].cat.."_"..pkg_files[i].name.."_name"] or "#mod_"..pkg_files[i].cat.."_"..pkg_files[i].name.."_name").."... ("..i.." of "..#pkg_files..")")
	setBar(100*(i/#pkg_files))
	writeFile(".zy2/"..pkg_files[i].path, getfile(pkg_files[i].path))
end

writeFile("TRAILER!!!", [[{os="Zorya NEO",version="2.0"}]])

setStatus("Extracting EEPROM...")
setBar(0)
local bios = getfile(bios_files[1].path)

setStatus("Flashing EEPROM...")
setBar(33)
local eeprom = proxy(list("eeprom")())
eeprom.set(bios)
setStatus("Writing configuration data...")
setBar(66)
function hexid_to_binid(addr)
  addr=addr:gsub("%-", "")
  local baddr = ""
  for i=1, #addr, 2 do
    baddr = baddr .. string.char(tonumber(addr:sub(i, i+1), 16))
  end
  return baddr
end
eeprom.setData(fs.address)
eeprom.setLabel("Zorya NEO BIOS v2.0")
setBar(100)
setStatus("Rebooting in 5 seconds...")
if not fs.exists(".zy2/cfg.lua") then
	local hand = fs.open(".zy2/cfg.lua", "w")
	fs.write(hand, string.format([[local menu = loadmod("menu_classic")
menu.add("OpenOS on %s", function()
	return loadmod("loader_openos")("%s")
end)
menu.draw()]], fsaddr:sub(1, 3), fsaddr))
	fs.close(hand)
end
computer = computer or require("computer")
local stime = computer.uptime()
while true do
	setStatus("Rebooting in "..math.ceil(5-(computer.uptime()-stime)).." seconds...")
	if (computer.uptime()-stime > 5) then
		computer.shutdown(true)
	end
	computer.pullSignal(0.01)
	setBar((computer.uptime()-stime)*20)
end