Create pakager.lua
This commit is contained in:
Caden Ream
GitHub
230
pakager.lua
Normal file
230
pakager.lua
Normal file
@@ -0,0 +1,230 @@
|
|||||||
|
shell.setAlias("pakager","/pakager.lua")
|
||||||
|
|
||||||
|
local function char_to_hex(c)
|
||||||
|
return string.format("%%%02X", string.byte(c))
|
||||||
|
end
|
||||||
|
|
||||||
|
local function urlencode(url)
|
||||||
|
if url == nil then
|
||||||
|
return
|
||||||
|
end
|
||||||
|
url = url:gsub("\n", "\r\n")
|
||||||
|
url = url:gsub("([^%w ])", char_to_hex)
|
||||||
|
url = url:gsub(" ", "+")
|
||||||
|
return url
|
||||||
|
end
|
||||||
|
|
||||||
|
local function hex_to_char(x)
|
||||||
|
return string.char(tonumber(x, 16))
|
||||||
|
end
|
||||||
|
|
||||||
|
local function urldecode(url)
|
||||||
|
if url == nil then
|
||||||
|
return
|
||||||
|
end
|
||||||
|
url = url:gsub("+", " ")
|
||||||
|
url = url:gsub("%%(%x%x)", hex_to_char)
|
||||||
|
return url
|
||||||
|
end
|
||||||
|
|
||||||
|
local function split(inputstr, sep)
|
||||||
|
if sep == nil then
|
||||||
|
sep = "%s"
|
||||||
|
end
|
||||||
|
local t = {}
|
||||||
|
for str in string.gmatch(inputstr, "([^"..sep.."]+)") do
|
||||||
|
table.insert(t, str)
|
||||||
|
end
|
||||||
|
return t
|
||||||
|
end
|
||||||
|
|
||||||
|
if not fs.exists("/.pakages") then
|
||||||
|
fs.makeDir("/.pakages")
|
||||||
|
end
|
||||||
|
|
||||||
|
if not fs.exists("/.aliases") then
|
||||||
|
local file = fs.open("/.aliases","w")
|
||||||
|
file.write("{}")
|
||||||
|
file.close()
|
||||||
|
end
|
||||||
|
if not fs.exists("/.repos") then
|
||||||
|
local file = fs.open("/.repos","w")
|
||||||
|
file.write("")
|
||||||
|
file.close()
|
||||||
|
end
|
||||||
|
|
||||||
|
if not fs.exists("/startup") then
|
||||||
|
fs.makeDir("/startup")
|
||||||
|
end
|
||||||
|
|
||||||
|
local function getrepos()
|
||||||
|
local out = {}
|
||||||
|
local file = fs.open("/.repos","r")
|
||||||
|
while true do
|
||||||
|
local line = file.readLine()
|
||||||
|
if not line then break end
|
||||||
|
local repo = split(line," ")
|
||||||
|
if #repo == 2 then
|
||||||
|
out[#out+1] = {type=repo[1],location=repo[2]}
|
||||||
|
end
|
||||||
|
end
|
||||||
|
file.close()
|
||||||
|
return out
|
||||||
|
end
|
||||||
|
if not fs.exists("/startup/pakagers.lua") then
|
||||||
|
local file = fs.open("/startup/pakagers.lua","w")
|
||||||
|
file.write([[local file = fs.open("/.aliases","r")
|
||||||
|
local aliases = textutils.unserialise(file.readAll())
|
||||||
|
for pakname,pakaliases in pairs(aliases) do
|
||||||
|
for _,alias in ipairs(pakaliases) do
|
||||||
|
shell.setAlias(alias[1],"\"/"..fs.combine("/.pakages/"..pakname,alias[2])..'"')
|
||||||
|
end
|
||||||
|
end
|
||||||
|
]])
|
||||||
|
file.close()
|
||||||
|
end
|
||||||
|
|
||||||
|
local function addAliases(pkaliases,name)
|
||||||
|
for _,i in ipairs(pkaliases) do
|
||||||
|
print(i[1],"->","/"..fs.combine("/.pakager/"..name,i[2]))
|
||||||
|
shell.setAlias(i[1],"\"/"..fs.combine("/.pakages/"..name,i[2])..'"')
|
||||||
|
end
|
||||||
|
local filer = fs.open("/.aliases","r")
|
||||||
|
local aliases = textutils.unserialise(filer.readAll())
|
||||||
|
aliases[name] = pkaliases
|
||||||
|
filer.close()
|
||||||
|
local file = fs.open("/.aliases","w")
|
||||||
|
file.write(textutils.serialise(aliases))
|
||||||
|
file.close()
|
||||||
|
end
|
||||||
|
|
||||||
|
local function install(pak)
|
||||||
|
local pak = textutils.unserialise(pak)
|
||||||
|
local files = pak.files
|
||||||
|
local name = pak.name
|
||||||
|
print("installing "..name)
|
||||||
|
local function inst(dir,data)
|
||||||
|
for k,i in pairs(data) do
|
||||||
|
if type(i) == "table" then
|
||||||
|
fs.makeDir(fs.combine(dir,k))
|
||||||
|
inst(fs.combine(dir,k),i)
|
||||||
|
else
|
||||||
|
print("installed",fs.combine(dir,k))
|
||||||
|
local file = fs.open(fs.combine(dir,k),"w")
|
||||||
|
file.write(i)
|
||||||
|
file.close()
|
||||||
|
end
|
||||||
|
end
|
||||||
|
end
|
||||||
|
inst("/.pakages/"..name,files)
|
||||||
|
print("finished installation")
|
||||||
|
print("adding aliases")
|
||||||
|
addAliases(pak.aliases,name)
|
||||||
|
print("installation complete")
|
||||||
|
end
|
||||||
|
|
||||||
|
local args = {...}
|
||||||
|
local operation = table.remove(args,1)
|
||||||
|
|
||||||
|
if operation == "strap" then
|
||||||
|
local dir = ""
|
||||||
|
if not args[1]:sub(1) == "/" then
|
||||||
|
dir = args[1]
|
||||||
|
else
|
||||||
|
dir = fs.combine(shell.dir(),args[1])
|
||||||
|
end
|
||||||
|
if fs.exists(dir) then
|
||||||
|
local pak = fs.open(dir,"r")
|
||||||
|
install(pak.readAll())
|
||||||
|
pak.close()
|
||||||
|
else
|
||||||
|
print("file not found")
|
||||||
|
end
|
||||||
|
elseif operation == "makepkg" then
|
||||||
|
local dir = ""
|
||||||
|
if not (args[2] or ""):sub(1) == "/" then
|
||||||
|
dir = args[2]
|
||||||
|
else
|
||||||
|
dir = fs.combine(shell.dir(),args[2] or "")
|
||||||
|
end
|
||||||
|
print("making "..args[1])
|
||||||
|
local function scan(dir)
|
||||||
|
local ls = fs.list(dir)
|
||||||
|
local out = {}
|
||||||
|
for _,i in ipairs(ls) do
|
||||||
|
if fs.isDir(fs.combine(dir,i)) then
|
||||||
|
out[i] = scan(fs.combine(dir,i))
|
||||||
|
else
|
||||||
|
print("scanned /"..fs.combine(dir,i))
|
||||||
|
local file = fs.open(fs.combine(dir,i),"r")
|
||||||
|
out[i] = file.readAll()
|
||||||
|
file.close()
|
||||||
|
end
|
||||||
|
end
|
||||||
|
return out
|
||||||
|
end
|
||||||
|
local out = {}
|
||||||
|
print("scanning")
|
||||||
|
out.files = scan(dir)
|
||||||
|
print("done scanning")
|
||||||
|
out.name = args[1]
|
||||||
|
out.aliases = {}
|
||||||
|
local file = fs.open("/"..out.name..".pkg","w")
|
||||||
|
file.write(textutils.serialise(out))
|
||||||
|
file.close()
|
||||||
|
print("wrote to /"..out.name..".pkg")
|
||||||
|
elseif operation == "remove" then
|
||||||
|
if fs.exists("/.pakages/"..args[1]) then
|
||||||
|
print("removing "..args[1])
|
||||||
|
fs.delete("/.pakages/"..args[1])
|
||||||
|
local filer = fs.open("/.aliases","r")
|
||||||
|
local aliases = textutils.unserialise(filer.readAll())
|
||||||
|
filer.close()
|
||||||
|
print("removing aliases")
|
||||||
|
local file = fs.open("/.aliases","w")
|
||||||
|
for _,i in ipairs(aliases[args[1]]) do
|
||||||
|
shell.clearAlias(i[1])
|
||||||
|
end
|
||||||
|
aliases[args[1]] = nil
|
||||||
|
file.write(textutils.serialise(aliases))
|
||||||
|
file.close()
|
||||||
|
print("done removing")
|
||||||
|
else
|
||||||
|
print("pakage not installed")
|
||||||
|
end
|
||||||
|
elseif operation == "install" then
|
||||||
|
local repos = getrepos()
|
||||||
|
local pak = ""
|
||||||
|
for _,i in ipairs(repos) do
|
||||||
|
if i.type == "id" then
|
||||||
|
peripheral.find("modem",rednet.open)
|
||||||
|
rednet.send(tonumber(i.location),args[1],"getpkg")
|
||||||
|
local id,proto = -1
|
||||||
|
repeat
|
||||||
|
id,pak,proto = rednet.receive(nil,4)
|
||||||
|
until id == tonumber(i.location) or id == nil and (proto == "sendpkg" or proto == "refusal")
|
||||||
|
rednet.close()
|
||||||
|
elseif i.type == "url" then
|
||||||
|
local url = i.location:gsub("{PAKAGE}",urlencode(args[1]))
|
||||||
|
pak = http.get(url).readAll()
|
||||||
|
end
|
||||||
|
if pak ~= nil and pak ~= "" then
|
||||||
|
install(pak)
|
||||||
|
break
|
||||||
|
end
|
||||||
|
end
|
||||||
|
if pak == "" or pak == nil then
|
||||||
|
print("pakage not found")
|
||||||
|
end
|
||||||
|
elseif operation == "repos" then
|
||||||
|
local repos = getrepos()
|
||||||
|
if #repos == 0 then
|
||||||
|
print("no repos found you might want to add some")
|
||||||
|
else
|
||||||
|
for _,i in ipairs(repos) do
|
||||||
|
print("type: "..i.type,"location: "..i.location)
|
||||||
|
end
|
||||||
|
end
|
||||||
|
elseif operation == "installed" then
|
||||||
|
print(table.unpack(fs.list("/.pakages")))
|
||||||
|
end
|
||||||
Reference in New Issue
Block a user