cnpm/tpm
Archived
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

更新 'tpm.lua'

Browse Source
This commit is contained in:
Kirigaya Kazuto 2018-06-19 19:58:26 +08:00
parent 02c357146f
commit 92726e3aa2
1 changed files with 118 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

118
tpm.lua
View File

@ -309,10 +309,128 @@ local function tpm_install_github(url)
return tpm_install_github_real(repo_fullname,branch)
end
local function tpm_install_kgit_real(repo,branch)
local config_url=resolve_cngit(repo,"mainfest.txt",branch)
local ret,data,code=doRealDownload(config_url)
if(not ret) then
return false,"Failed to download mainfest from repo " .. repo .. ". Error: " .. data
end
if(code~=200) then
return false,"Got response code " .. code .. " while downloading mainfest from repo " .. repo
end
local flg,tb=tpm_mainfest_loader(data)
if(not flg) then
return false,"Invalid mainfest in repo " .. repo .. " Error: " .. tb
end
-- Debug
tpm_mainfest_show(tb)
-- Check
if(tpm_is_installed(tb.libname)) then
print("Package " .. tb.libname .. " is already installed.")
return true
end
-- Depends
if(tb.depends~=nil) then
print("Analyzing dependency...")
local dependsz=#tb.depends
local cnt_now=1
for k,v in pairs(tb.depends) do
print("[" .. cnt_now .. "/" .. dependsz .. "] Checking " .. v .. "...")
local ret,msg=tpm_install(v)
if(not ret) then
return false,"An error occurs while analyzing dependency: " .. v .. ". Error: " .. msg
end
cnt_now=cnt_now+1
end
end
-- Make directories
if(tb.dirs~=nil) then
for k,v in pairs(tb.dirs) do
print("Making directory " .. v)
filesystem.makeDirectory(v)
end
end
-- Download
for k,v in pairs(tb.files) do
io.write("Downloading file " .. k .. "...")
local xret,xdata,xcode=doRealDownload(resolve_cngit(repo,k,branch))
if(not xret) then
print("[Failed]")
return false,"Failed to download " .. k
elseif(xcode~=200) then
print("[Failed]")
return false,"Response code is " .. xcode .. " while downloading " .. k
else
local xret,xmsg=WriteStringToFile(xdata,v)
if(not xret) then
print("[Write Failed]")
return false,"Failed to write to file " .. v .. " while downloading " .. k
end
-- OK here
print("[OK]")
end
end
-- Run Setup
if(tb.setup~=nil) then
print("Running setup...")
local setup_file=tb.files[tb.setup]
local setup_fn,err=loadfile(setup_file)
if(setup_fn==nil) then
print("Failed to start setup program. Error: " .. err)
end
local ret,msg=pcall(setup_fn)
if(not ret) then
printf("Failed to run setup program. Error: " .. msg)
end
end
-- Update software list
print("Updating software info...")
local flg,installed_lst=tpm_get_installed_list()
table.insert(installed_lst,tb)
tpm_set_installed_list(installed_lst)
print("Software info updated.")
return true
end
local function tpm_install_kgit(url)
local a=string.find(url,"/")
if(a==nil) then
return false,"Unknown format of kgit url"
end
local author=string.sub(url,1,a-1)
local reponame=''
local b=string.find(url,"/",a+1)
-- Branch set to master by default
local branch="master"
if(b~=nil) then
reponame=string.sub(url,a+1,b-1)
branch=string.sub(url,b+1)
else
reponame=string.sub(url,a+1)
end
local repo_fullname=author .. "/" .. reponame
print("Checking kgit repo " .. repo_fullname .. " at branch " .. branch .." ...")
return tpm_install_kgit_real(repo_fullname,branch)
end
local function tpm_install(install_url)
print("tpm_install: ",install_url)
if(beginWith(install_url,"github+")) then
return tpm_install_github(string.sub(install_url,string.len("github+")+1))
elseif(beginWith(install_url,"kgit+")) then
return tpm_install_kgit(string.sub(install_url,string.len("kgit+")+1))
elseif(beginWith(install_url,"http+")) then
return tpm_install_http(string.sub(install_url,string.len("http+")+1))
else