packages stored in compressed state - experimental (with config option)

sys/init/5.unpackage.lua

@@ -0,0 +1,27 @@
+local LZW  = require('opus.compress.lzw')
+local Tar  = require('opus.compress.tar')
+local Util = require('opus.util')
+
+local fs = _G.fs
+
+for _, name in pairs(fs.list('packages')) do
+	local fullName = fs.combine('packages', name)
+	local packageName = name:match('(.+)%.tar%.lzw$')
+	if packageName and not fs.isDir(fullName) then
+		local dir = fs.combine('packages', packageName)
+		if not fs.exists(dir) then
+			local s, m = pcall(function()
+				fs.mount(dir, 'ramfs', 'directory')
+
+				local c = Util.readFile(fullName, 'rb')
+
+				Tar.untar_string(LZW.decompress(c), dir)
+			end)
+			if not s then
+				fs.delete(dir)
+				print('failed to extract ' .. fullName)
+				print(m)
+			end
+		end
+	end
+end