Separate downloading and installation

Author: eric-wieser

bootstrap.lua

@@ -0,0 +1,43 @@
+-- Easy installer. Bootstrapped by http://pastebin.com/p8PJVxC4
+
+local base_url, dest = select(1,...)
+dest = dest or 'computercraft-github'
+
+local FILES = {
+	'apis/dkjson',
+	'apis/github',
+	'programs/github',
+	'github'
+}
+
+local function request(url_path)
+	local request = http.get(base_url..'/'..url_path)
+	local status = request.getResponseCode()
+	local response = request.readAll()
+	request.close()
+	return status, response
+end
+
+local function makeFile(file_path, data)
+	local file = fs.open(dest..'/'..file_path,'w')
+	file.write(data)
+	file.close()
+end
+
+-- download github
+for key, path in pairs(FILES) do
+	local try = 0
+	repeat
+		if try >= 3 then
+			printError(('Unable to download %s'):format(path))
+			fs.delete(dest)
+			return
+		end
+		local status, response = request(path)
+		try = try + 1
+	until status ~= 200
+end
+
+print('Downloaded')
+shell.setDir(dest)
+loadfile('install.lua', getfenv())()

github

@@ -0,0 +1,28 @@
+-- Install the program by rewriting dofiles, and creating a link to the program
+
+print("Installing...")
+
+local dest_dir = select(..., 1) or '_build'
+
+local copyAndFix(src_file, src_file)
+	local r = fs.open(src_file, 'r')
+	local data = r.readAll()
+	r.close()
+	local w = fs.open(dest, 'w')
+	data = data:gsub('dofile%("', 'dofile("'..dest_dir..'/')
+	w.write(data)
+	w.close()
+end
+
+for _, folder in ipairs({'api', 'programs'})
+	for _, file in pairs(fs.list(folder)) do
+		copyAndFix(folder..'/'..file, dest_dir..'/'..folder..'/'..file)
+	end
+end
+
+for _, prog in pairs(fs.list('programs')) do
+	local f = fs.open('/'..prog, 'w')
+	f.write([[loadfile('%s', getfenv())()]]:format(shell.resolve(dest_dir..'/programs/'..prog)))
+end
+print("github by Eric Wieser installed!")
+dofile('github')