From 2fa3af5170b06adf40e873ee65cef3ce47648357 Mon Sep 17 00:00:00 2001 From: Izaya Date: Wed, 1 Aug 2018 19:24:56 +1000 Subject: [PATCH] added repoinstaller, still need to write docs --- repoinstaller.lua | 229 ++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 229 insertions(+) create mode 100644 repoinstaller.lua diff --git a/repoinstaller.lua b/repoinstaller.lua new file mode 100644 index 0000000..5969201 --- /dev/null +++ b/repoinstaller.lua @@ -0,0 +1,229 @@ +local serial = require "serialization" +local event = require "event" +local fs = require "filesystem" +local unicode = require "unicode" + +local tArgs = {...} +local ipackages = {} -- installed packages +local rpath = tArgs[1] or install.from +local tpath = tArgs[2] or install.to +if tpath == "//" then + tpath = "/usr/" +end + +tpath, rpath = fs.canonical(tpath), fs.canonical(rpath) + +local fobj = io.open(rpath.."/master/programs.cfg","rb") -- read packages list from floppy +if not fobj then + error("installer disk not properly configured") +end +local packages = serial.unserialize(fobj:read("*a")) +fobj:close() + +local function ripackages() + local fobj = io.open("/etc/opdata.svd","rb") -- attempt to read installed packages + if fobj then + ipackages = serial.unserialize(fobj:read("*a")) + fobj:close() + end +end +ripackages() + +local function wipackages() + local fobj = io.open("/etc/opdata.svd","wb") -- attempt to read installed packages + if fobj then + fobj:write(serial.serialize(ipackages)) + fobj:close() + end +end + +local pkgmap = {} -- alphabetically sorted list of package names +for k,v in pairs(packages) do + pkgmap[#pkgmap+1] = k +end +table.sort(pkgmap) + +local function clear() + io.write("\27[2J\27[H") +end + +function info(pkg) -- shows info for pkg + clear() + print(string.format("%s - %s",pkg,packages[pkg].name)) + print(packages[pkg].description) + if packages[pkg].files then + print("\nFiles:") + for k,v in pairs(packages[pkg].files) do + print(string.format("%s -> %s",k,v)) + end + end + if packages[pkg].dependencies then + print("\nDependencies") + for k,v in pairs(packages[pkg].dependencies) do + print(" - "..k) + end + end +end + +local preamble = false +local fobj = io.open(rpath.."/.info","rb") -- read the pre-inst screen +if fobj then + preamble = fobj:read("*a") + fobj:close() +end + +if preamble then -- display pre-inst screen + clear() + if install.label then + print(install.label .. " installer") + end + print(preamble) + print("Press any key to continue.") + event.pull("key_down") +end + +local selected = 1 + +local function drawmenu() -- draw the menu display - nothing but text and VT100 escape codes + clear() + if install.label then + print(install.label .. " installer") + end + for k,v in pairs(pkgmap) do + if k == selected then + io.write("\27[30;47m") + end + if packages[v].selected then + io.write(" "..unicode.char(0x25A0).." ") + else + io.write(" "..unicode.char(0x25A1).." ") + end + io.write(v) + print("\27[0m") + end + print("Use the arrow keys to navigate. (De)select options with space. View more info by pressing i, and quit by pressing q. Confirm with enter.") +end + +--[[ +Key codes: +0 208 down +0 200 up +13 28 enter +32 57 space +105 23 i +113 16 q +121 21 y +]]-- + +local run, install = true, true +while run do -- menu loop + drawmenu() + local _, _, ch, co = event.pull("key_down") + if ch == 13 and co == 28 then + run = false + elseif ch == 113 and co == 16 then + run = false + install = false + elseif ch == 105 and co == 23 then + info(pkgmap[selected]) + print("\nPress any key to return to the menu.") + event.pull("key_down") + elseif ch == 0 and co == 208 then + selected = selected + 1 + if selected > #pkgmap then + selected = #pkgmap + end + elseif ch == 0 and co == 200 then + selected = selected - 1 + if selected < 1 then + selected = 1 + end + elseif ch == 32 and co == 57 then + packages[pkgmap[selected]].selected = not packages[pkgmap[selected]].selected + end +end + +clear() + +if not install then -- pressed q + print("Aborted.") + return +end + +local toinstall, postinstall = {}, {} -- table of commands to run after installation + +print("Resolving dependencies...") -- build a table of what to install +for k,v in pairs(packages) do + if v.selected then + toinstall[k] = true + if v.dependencies then + for l,m in pairs(v.dependencies) do -- including dependencies + if not toinstall[l] then + print("Package "..k.." depends on "..l) + toinstall[l] = m + end + end + end + end +end + +print("You have selected to install the following packages to "..tpath..":") +for k,v in pairs(toinstall) do + print(" - "..k) +end +print("Continue? [y/N] ") +_, _, _, co = event.pull("key_down") +if co ~= 21 then -- confirm they want the packages installed + print("Aborted.") + return +end + +local function install(pkg,where) -- installs a package, pkg, to where + where = where or tpath + if type(where) ~= string then where = tpath end + print("Installing "..pkg.."...") + if packages[pkg] then + ipackages[pkg] = {} + print("Copying files...") + for l,m in pairs(packages[pkg].files) do + local lseg = fs.segments(l) + if m:sub(1,2) ~= "//" then + if not fs.exists(fs.canonical(where.."/"..m)) then + os.execute("mkdir "..fs.canonical(where.."/"..m)) + end + os.execute("cp -v "..rpath.."/"..l.." "..fs.canonical(where.."/"..m)) + ipackages[pkg][l] = fs.canonical(where.."/"..m).."/"..lseg[#lseg] + else + if not fs.exists(fs.canonical(m:sub(2))) then + os.execute("mkdir "..fs.canonical(m:sub(2))) + end + os.execute("cp -v "..rpath.."/"..l.." "..fs.canonical(m:sub(2))) + ipackages[pkg][l] = fs.canonical(m:sub(2)).."/"..lseg[#lseg] + end + end + if packages[pkg].postinstall then + for k,v in pairs(packages[pkg].postinstall) do + postinstall[#postinstall+1] = v + end + end + else + print("Package not on disk. Attempting to install via oppm.") + print("oppm install "..pkg.." "..where) + wipackages() + os.execute("oppm install "..pkg.." "..where) + ripackages() + end + wipackages() +end + +for k,v in pairs(toinstall) do + install(k,v) +end + +if #postinstall > 0 then + print("Running post-install commands...") + for k,v in pairs(postinstall) do + print(v) + os.execute(v) + end +end