AstralTransRocketries/OpenComputers
1
0
Fork 0
mirror of https://github.com/MightyPirates/OpenComputers.git synced 2025-09-12 16:57:32 -04:00
Code Issues Packages Projects Releases Wiki Activity

Merge pull request #983 from Vexatos/patch-17

Browse Source 
Mandatory OPPM Update
This commit is contained in:
Florian "Sangar" Nücke 2015-03-30 13:06:05 +02:00
commit a836a42a5e
1 changed files with 105 additions and 26 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

125
src/main/resources/assets/opencomputers/loot/OPPM/oppm.lua
View File

@ -1,6 +1,11 @@
--[[
OpenPrograms package manager, browser and downloader, for easy access to many programs
Author: Vexatos
Warning! This file is just an auto-installer for OPPM!
DO NOT EVER TRY TO INSTALL A PACKAGE WITH THIS!
Once you ran OPPM once, you can remove the floppy disk
and run the installed OPPM version just fine.
]]
local component = require("component")
local event = require("event")
@ -10,18 +15,22 @@ local serial = require("serialization")
local shell = require("shell")
local term = require("term")
local wget = loadfile("/bin/wget.lua")
local gpu = component.gpu
if not component.isAvailable("internet") then
io.stderr:write("This program requires an internet card to run.")
return
end
local internet = require("internet")
local internet
local wget
local args, options = shell.parse(...)
local function getInternet()
if not component.isAvailable("internet") then
io.stderr:write("This program requires an internet card to run.")
return false
end
internet = require("internet")
wget = loadfile("/bin/wget.lua")
return true
end
local function printUsage()
print("OpenPrograms Package Manager, use this to browse through and download OpenPrograms programs easily")
@ -80,6 +89,9 @@ local function downloadFile(url,path,force)
if options.f or force then
return wget("-fq",url,path)
else
if fs.exists(path) then
error("file already exists and option -f is not enabled")
end
return wget("-q",url,path)
end
end
@ -209,6 +221,67 @@ local function printPackages(packs)
end
end
local function parseFolders(pack, repo, info)
local function getFolderTable(repo, namePath, branch)
local success, filestring = pcall(getContent,"https://api.github.com/repos/"..repo.."/contents/"..namePath.."?ref="..branch)
if not success or filestring:find('"message": "Not Found"') then
io.stderr:write("Error while trying to parse folder names in declaration of package "..pack..".\n")
if filestring:find('"message": "Not Found"') then
io.stderr:write("Folder "..namePath.." does not exist.\n")
else
io.stderr:write(filestring.."\n")
end
io.stderr:write("Please contact the author of that package.\n")
return nil
end
return serial.unserialize(filestring:gsub("%[", "{"):gsub("%]", "}"):gsub("(\"[^%s,]-\")%s?:", "[%1] = "), nil)
end
local function nonSpecial(text)
return text:gsub("([%^%$%(%)%%%.%[%]%*%+%-%?])", "%%%1")
end
local function unserializeFiles(files, repo, namePath, branch, relPath)
if not files then return nil end
local tFiles = {}
for _,v in pairs(files) do
if v["type"] == "file" then
local newPath = v["download_url"]:gsub("https?://raw.githubusercontent.com/"..nonSpecial(repo).."(.+)$", "%1"):gsub("/*$",""):gsub("^/*","")
tFiles[newPath] = relPath
elseif v["type"] == "dir" then
local newFiles = unserializeFiles(getFolderTable(repo, relPath.."/"..v["name"], branch), repo, branch, fs.concat(relPath, v["name"]))
for p,q in pairs(newFiles) do
tFiles[p] = q
end
end
end
return tFiles
end
local newInfo = info
for i,j in pairs(info.files) do
if string.find(i,"^:") then
local iPath = i:gsub("^:","")
local branch = string.gsub(iPath,"^(.-)/.+","%1"):gsub("/*$",""):gsub("^/*","")
local namePath = string.gsub(iPath,".-(/.+)$","%1"):gsub("/*$",""):gsub("^/*","")
local absolutePath = j:find("^//")
local files = unserializeFiles(getFolderTable(repo, namePath, branch), repo, namePath, branch, j:gsub("^//","/"))
if not files then return nil end
for p,q in pairs(files) do
if absolutePath then
newInfo.files[p] = "/"..q
else
newInfo.files[p] = q
end
end
newInfo.files[i] = nil
end
end
return newInfo
end
local function getInformation(pack)
local success, repos = pcall(getRepos)
if not success or repos==-1 then
@ -223,7 +296,7 @@ local function getInformation(pack)
elseif type(lPacks) == "table" then
for k in pairs(lPacks) do
if k==pack then
return lPacks[k],j.repo
return parseFolders(pack, j.repo, lPacks[k]),j.repo
end
end
end
@ -234,7 +307,7 @@ local function getInformation(pack)
for i,j in pairs(lRepos.repos) do
for k in pairs(j) do
if k==pack then
return j[k],i
return parseFolders(pack, i, j[k]),i
end
end
end
@ -271,14 +344,17 @@ local function provideInfo(pack)
print("Note: "..info.note)
done = true
end
if info.files then
print("Number of files: "..tostring(#info.files))
done = true
end
if not done then
print("No information provided.")
end
end
local tPacks = readFromFile(1)
local function installPackage(pack,path,update)
local tPacks = readFromFile(1)
update = update or false
if not pack then
printUsage()
@ -309,8 +385,12 @@ local function installPackage(pack,path,update)
if update then
print("Updating package "..pack)
path = nil
if not tPacks[pack] then
io.stderr:write("error while checking update path")
return
end
for i,j in pairs(info.files) do
if tPacks[pack] then
if not string.find(j,"^//") then
for k,v in pairs(tPacks[pack]) do
if k==i then
path = string.gsub(fs.path(v),j.."/?$","/")
@ -320,9 +400,6 @@ local function installPackage(pack,path,update)
if path then
break
end
else
io.stderr:write("error while checking update path")
return
end
end
path = shell.resolve(string.gsub(path,"^/?","/"),nil)
@ -381,7 +458,8 @@ local function installPackage(pack,path,update)
if success and response then
tPacks[pack][i] = nPath
else
term.write("Error while installing files for package '"..pack.."'. Reverting installation... ")
response = response or "no error message"
term.write("Error while installing files for package '"..pack.."': "..response..". Reverting installation... ")
fs.remove(nPath)
for o,p in pairs(tPacks[pack]) do
fs.remove(p)
@ -405,7 +483,8 @@ local function installPackage(pack,path,update)
if success and response then
tPacks[pack][i] = nPath
else
term.write("Error while installing dependency package '"..i.."'. Reverting installation... ")
response = response or "no error message"
term.write("Error while installing files for package '"..pack.."': "..response..". Reverting installation... ")
fs.remove(nPath)
for o,p in pairs(tPacks[pack]) do
fs.remove(p)
@ -429,11 +508,6 @@ local function installPackage(pack,path,update)
end
local function uninstallPackage(pack)
local info,repo = getInformation(pack)
if not info then
print("Package does not exist")
return
end
local tFiles = readFromFile(1)
if not tFiles then
io.stderr:write("Error while trying to read package names")
@ -443,7 +517,8 @@ local function uninstallPackage(pack)
end
if not tFiles[pack] then
print("Package has not been installed.")
print("If it has, you have to remove it manually.")
print("If it has, the package could not be identified.")
print("In this case you have to remove it manually.")
return
end
term.write("Removing package files...")
@ -482,13 +557,17 @@ end
if options.iKnowWhatIAmDoing then
if args[1] == "list" then
if not getInternet() then return end
local packs = listPackages(args[2])
printPackages(packs)
elseif args[1] == "info" then
if not getInternet() then return end
provideInfo(args[2])
elseif args[1] == "install" then
if not getInternet() then return end
installPackage(args[2],args[3],false)
elseif args[1] == "update" then
if not getInternet() then return end
updatePackage(args[2])
elseif args[1] == "uninstall" then
uninstallPackage(args[2])