installer

ocal updateOnly = (...) == "--update"

local noOverwrite = (...) == "true"

local rootURL = "https://raw.githubusercontent.com"
local githubUsername = "blunty666"

local mainURL = table.concat({rootURL, githubUsername}, "/")

local saveDir = "baseMonitor"
if fs.exists(saveDir) and not fs.isDir(saveDir) then
	printError("Invalid saveDir: ", saveDir)
	return
end

local fileList

if not updateOnly then
	fileList = {
		["baseMonitor"] = {"Tiles", "programs/baseMonitor/baseMonitor.lua"},

		["apis/tiles"] = {"Tiles", "tiles.lua"},
		["apis/guiTiles"] = {"Tiles", "apis/guiTiles.lua"},
		["apis/advancedTiles"] = {"Tiles", "apis/advancedTiles.lua"},
		["apis/remotePeripheralClient"] = {"CC-Programs-and-APIs", "remotePeripheral/remotePeripheralClient.lua"},
	}
else
	fileList = {}
end

local function get(url)
	local response = http.get(url)
	if response then
		local fileData = response.readAll()
		response.close()
		return fileData
	end
	return false
end

local function getDirectoryContents(author, repository, branch, directory, filesOnly)
	local fType, fPath, fName = {}, {}, {}
	local response = get("https://api.github.com/repos/"..author.."/"..repository.."/contents/"..directory.."?ref="..branch)
	if response then
		if response ~= nil then
			for str in response:gmatch('"type":%s*"(%w+)",') do table.insert(fType, str) end
			for str in response:gmatch('"path":%s*"([^\"]+)",') do table.insert(fPath, str) end
			for str in response:gmatch('"name":%s*"([^\"]+)",') do table.insert(fName, str) end
		end
	else
		printError("Can't fetch repository information")
		return nil
	end
	local directoryContents = {}
	for i=1, #fType do
		if filesOnly ~= true or fType[i] ~= "dir" then
			directoryContents[i] = {type = fType[i], path = fPath[i], name = fName[i]}
		end
	end
	return directoryContents
end

local peripheralList = getDirectoryContents(githubUsername, "Tiles", "master", "programs/baseMonitor/peripherals", true)
if peripheralList then
	for _, file in ipairs(peripheralList) do
		local peripheralType = string.gsub(file.name, ".lua$", "")
		if not updateOnly or not fs.exists(fs.combine(saveDir, "peripherals/"..peripheralType)) then
			fileList["peripherals/"..peripheralType] = {"Tiles", file.path}
		end
	end
else
	printError("Could not download peripheralList")
end

local sourceList = getDirectoryContents(githubUsername, "Tiles", "master", "programs/baseMonitor/sources", true)
if sourceList then
	for _, file in ipairs(sourceList) do
		local sourceType = string.gsub(file.name, ".lua$", "")
		if not updateOnly or not fs.exists(fs.combine(saveDir, "sources/"..sourceType)) then
			fileList["sources/"..sourceType] = {"Tiles", file.path}
		end
	end
else
	printError("Could not download sourceList")
end

local function save(fileData, path)
	local handle = fs.open(path, "w")
	if handle then
		handle.write(fileData)
		handle.close()
		return true
	else
		return false
	end
end

for localPath, remotePathDetails in pairs(fileList) do
	local url = table.concat({mainURL, remotePathDetails[1], "master", remotePathDetails[2]}, "/")
	local path = table.concat({saveDir, localPath}, "/")
	if not fs.exists(path) or not (fs.isDir(path) or noOverwrite) then
		local fileData = get(url)
		if fileData then
			if save(fileData, path) then
				print("Download successful: ", localPath)
			else
				printError("Save failed: ", localPath)
			end
		else
			printError("Download failed: ", localPath)
		end
	else
		print("Skipping: ", localPath)
	end
end