From 2fa3af5170b06adf40e873ee65cef3ce47648357 Mon Sep 17 00:00:00 2001
From: Izaya <redtailedairways@gmail.com>
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