View difference between Paste ID: SUx3zHVa and YXx5jjMV

 --[[
  PROGDOR file bundling program
 
 Download with:
  pastebin get YXx5jjMV progdor
  std ld progdor progdor
 
-This is a stable release. You fool!
+This is a beta release. You fool!
 To add:
 	+pastebin upload
 	+pastebin download
 --]]
 
 local doCompress = false --even if this is false, it will decompress compressed files. nifty, huh?
 
 local doPastebin = false
 local tArg = {...}
 local input, outpath
 if tArg[1] == "-p" then --the p is for pastebin
 	doPastebin = true
 	input = tArg[2]
 	outpath = tArg[3]
 else
 	input = tArg[1]
 	outpath = tArg[2]
 end
 
 local progdor = fs.getName(shell.getRunningProgram())
 local dir = shell.dir()
 local displayHelp = function()
 	local txt = progdor.." <input> [output]\nCompression is "..tostring(doCompress):upper().."."
 	return print(txt)
 end
 
 local yield = function()
 	os.queueEvent("yield")
 	os.pullEvent("yield")
 end
 
 -- CCA API START --
 
 local bit = bit32
 local function pack(bn1, bn2)
 	return bit.band(bn1, 0xFF), bit.rshift(bn1, 8) + bit.lshift(bit.band(bn2, 0xF), 4), bit.rshift(bn2, 4)
 end
 local function upack(b1, b2, b3)
 	return (b1 + bit.lshift(bit.band(b2, 0xF), 8)), (bit.lshift(b3,4) + bit.band(bit.rshift(b2, 4), 0xF))
 end
 local function createDict(bool)
 	local ret = {}
 	for i = 1, 255 do
 		if bool then
 			ret[string.char(i)] = i
 		else
 			ret[i] = string.char(i)
 		end
 	end
 	if not bool then ret[256] = 256 end
 	return ret
 end
 local function cp(sInput)
 	local dic = createDict(true)
 	local s = ""
 	local ch
 	local dlen = 256
 	local result = {}
 	local temp
 	for i = 1, #sInput do
 		if dlen == 4095 then
 			result[#result + 1] = dic[s]
 			result[#result + 1] = 256
 			dic = createDict(true)
 			dlen = 256
 			s = ""
 		end
 		ch = sInput:sub(i, i)
 		temp = s..ch
 		if dic[temp] then
 			s = temp
 		else
 			result[#result + 1] = dic[s]
 			dlen = dlen	+1
 			dic[temp] = dlen
 			s = ch
 		end
 	end
 	result[#result + 1] = dic[s]
 
 	return result
 end
 local function dc(data)
 	local dic = createDict(false)
 	local entry
 	local ch
 	local currCode
 	local result = {}
 	result[#result + 1] = dic[data[1]]
 	prefix = dic[data[1]]
 	for i = 2, #data do
 		currCode = data[i]
 		if currCode == 256 then
 			dic = createDict(false)
 			prefix = ""
 		else
 			entry = dic[currCode]
 			if entry then--exists in dictionary
 				ch = entry:sub(1, 1)
 				result[#result + 1] = entry
 				if prefix ~= "" then
 					dic[#dic+1] = prefix .. ch
 				end
 			else
 				ch = prefix:sub(1, 1)
 				result[#result + 1] = prefix..ch
 				dic[#dic + 1] = prefix..ch
 			end
 
 			prefix = dic[currCode]
 		end
 	end
 
 	return table.concat(result)
 end
 local function trim(inp)
 	for i = 0,2 do
 		if inp[#inp] == 0 then
 			inp[#inp] = nil
 		end
 	end
 end
 local function decompress(input)
 	local rec = {}
 	for i = 1, #input, 3 do
 		if i % 66 == 0 then
 			yield()
 		end
 		rec[#rec+1], rec[#rec+2] = upack(input[i], input[i+1] or 0, input[i+2] or 0)
 	end
 	trim(rec)
 	return dc(rec)
 end
 local function compress(input)
 	local rec = {}
 	local data = cp(input)
 	for i=1, #data, 2 do
 		yield()
 		rec[#rec+1], rec[#rec+2], rec[#rec+3] = pack(data[i], data[i+1] or 0)
 	end
 	trim(rec)
 	return rec
 end
 
 -- CCA API END --
 
 local fixstr = function(str)
 	return str:gsub("\\(%d%d%d)",string.char)
 end
 
 local explode = function(div,str)
     if (div=='') then return false end
     local pos,arr = 0,{}
     for st,sp in function() return string.find(str,div,pos,true) end do
         table.insert(arr,str:sub(pos,st-1))
         pos = sp + 1
     end
     table.insert(arr,str:sub(pos))
     return arr
 end
 local sanitize = function(sani,tize)
 	local _,x = string.find(sani,tize)
 	if x then
 		return sani:sub(x+1)
 	else
 		return sani
 	end
 end
 local tablize = function(input)
 	if type(input) == "string" then
 		return explode("\n",input)
 	elseif type(input) == "table" then
 		return table.concat(input,"\n")
 	end
 end
 local compyress = function(input)
 	return string.char(unpack(compress(input)))
 end
 local decompyress = function(input)
 	local out = {}
 	for a = 1, #input do
 		table.insert(out,string.byte(input:sub(a,a)))
 	end
 	return decompress(out)
 end
 local listAll
 listAll = function(_path, _files, noredundant)
 	local path = _path or ""
 	local files = _files or {}
 	if #path > 1 then table.insert(files, path) end
 	for _, file in ipairs(fs.list(path)) do
 		local path = fs.combine(path, file)
 		if (file ~= thisProgram) then
 			local guud = true
 			if guud then
 				if fs.isDir(path) then
 					listAll(path, files, noredundant)
 				else
 					table.insert(files, path)
 				end
 			end
 		end
 	end
 	if noredundant then
 		for a = 1, #files do
 			if fs.isDir(tostring(files[a])) then
 				if #fs.list(tostring(files[a])) ~= 0 then
 					table.remove(files,a)
 				end
 			end
 		end
 	end
 	return files
 end
 if not (input) then
 	return displayHelp()
 end
 if not outpath then
 	outpath = input
 end
 
 local choice = function(input,verbose)
 	if not input then
 		input = "yn"
 	end
 	if verbose then
 		write("[")
 		for a = 1, #input do
 			write(input:sub(a,a):upper())
 			if a < #input then
 				write(",")
 			end
 		end
 		write("]?")
 	end
 	local evt,char
 	repeat
 		evt,char = os.pullEvent("char")
 	until string.find(input:lower(),char:lower())
 	if verbose then
 		print(char:upper())
 	end
 	local pos = string.find(input:lower(),char:lower())
 	return pos, char:lower()
 end
 
 local postToPastebin = function(name, contents)
 	local key = "0ec2eb25b6166c0c27a394ae118ad829"
 	local response = http.post(
 		"http://pastebin.com/api/api_post.php",
 		"api_option=paste&"..
 		"api_dev_key="..key.."&"..
 		"api_paste_format=lua&"..
 		"api_paste_name="..textutils.urlEncode(name).."&"..
 		"api_paste_code="..textutils.urlEncode(contents)
 	)
 	if response then
 		local sResponse = response.readAll()
 		response.close()
 		local sCode = string.match( sResponse, "[^/]+$" )
 		return sCode
 	else
 		return false
 	end
 	return
 end
 
 function doPack(input,output,doCompress,verbose) --make sure that shell exists before using verbose mode
 	local tx = term.getTextColor()
 	if not doPastebin then
 		if not fs.exists(input) then return 3 end
 		if fs.isReadOnly(output) then return 5 end
 	end
 	local packageSelf = true
 	local packageReadOnly = true
 	local ro_asked = false
 	local ps_asked = false
 	if fs.isDir(input) then --if not a package
 		local out = {}
 		local list = listAll(input,nil,true)
 		if verbose then
 			for a = 1, #list do --this checks for self and read-only files
 				if fs.isReadOnly(list[a]) and (not ro_asked) then
 					write("Include read-only files? ")
 					if choice("yn",true) == 2 then
 						packageReadOnly = false
 					end
 					ro_asked = true
 				end
 				if fs.combine("",list[a]) == shell.getRunningProgram() and (not ps_asked) then
 					write("Include self? ")
 					if choice("yn",true) == 2 then
 						packageSelf = false
 					end
 					ps_asked = true
 				end
 			end
 		end
 		for a = 1, #list do --this loop kills fascists
 			local is_self = fs.combine("",list[a]) == fs.combine("",shell.getRunningProgram())
 			if not ((is_self and not packageSelf) or (fs.isReadOnly(list[a]) and not packageReadOnly)) then
 				if verbose then
 					write("[")
 					if term.isColor() then term.setTextColor(colors.lightGray) end
 					write(sanitize(list[a],fs.combine(dir,input)))
 					term.setTextColor(tx)
 					write("]")
 				end
 				if fs.isDir(list[a]) then
 					out[sanitize(list[a],fs.combine(dir,input))] = true
 				else
 					local file = fs.open(list[a],"r")
 					local cont = file.readAll()
 					file.close()
 					if doCompress then
 						out[sanitize(list[a],fs.combine(dir,input))] = tablize(compyress(cont))
 					else
 						out[sanitize(list[a],fs.combine(dir,input))] = tablize(cont)
 					end
 				end
 				local tx = term.getTextColor()
 				if fs.getName(list[a]):lower() == "peasant" then
 					if term.isColor() then
 						term.setTextColor(colors.orange)
 					end
 					print(" BURNINATED")
 				else
 					if term.isColor() then
 						term.setTextColor(colors.green)
 					end
 					print(" GOOD")
 				end
 				term.setTextColor(tx)
 			else
 				if fs.getName(list[a]):lower() == "peasant" then
 					print("Spared "..list[a])
 				else
 					print("Skipped "..list[a])
 				end
 			end
 		end
 		local fullOutput = tostring(doCompress).."\n"..fixstr(textutils.serialize(out))
 		local sCode
 		if doPastebin then
 			print("Uploading...")
 			sCode = postToPastebin(input,fullOutput)
 			return 7, "Code = '"..sCode.."'"
 		else
 			if fs.isDir(output) then fs.delete(output) end
 			local file = fs.open(output,"w")
 			file.write(fullOutput)
 			file.close()
 			return 1
 		end
 	else --if a package
 		local list, isCompy
 		if not doPastebin then
 			local file = fs.open(input,"r")
 			isCompy = file.readLine()
 			list = file.readAll()
 			file.close()
 		else
 			local file = http.get("http://pastebin.com/raw/"..tostring(input))
 			if file then
 				isCompy = file.readLine()
 				list = file.readAll()
 			else
 				return 6
 			end
 		end
 		local list = textutils.unserialize(list)
 		if type(list) ~= "table" then
 			return 4
 		end
 		if fs.exists(output) then
 			fs.delete(output)
 		end
 		local amnt = 0
 		for k,v in pairs(list) do
 			amnt = amnt + 1
 		end
 		local num = 0
 		for k,v in pairs(list) do
 			num = num + 1
 			if v == true then
 				fs.makeDir(fs.combine(output,fs.combine(k,dir)))
 			else
 				local file = fs.open(fs.combine(output,fs.combine(k,dir)),"w")
 				if verbose then
 					write("[")
 					if term.isColor() then term.setTextColor(colors.lightGray) end
 					write(k)
 					term.setTextColor(tx)
 					write("]")
 				end
 				if isCompy:gsub(" ","") == "true" then
 					file.write(decompyress(tablize(v)))
 				else
 					file.write(tablize(v))
 				end
 				file.close()
 				local tx = term.getTextColor()
 				if fs.getName(k):lower() == "peasant" then
 					if term.isColor() then
 						term.setTextColor(colors.orange)
 					end
 					print(" UNBURNINATED")
 				else
 					if term.isColor() then
 						term.setTextColor(colors.green)
 					end
 					print(" GOOD")
 				end
 				term.setTextColor(tx)
 			end
 		end
 		return 2
 	end
 end
 
 local success, res, otherRes = pcall( function() return doPack(input,outpath,doCompress,true) end ) --functionized it!
 
 if not success then
 	term.setTextColor(colors.white)
 	print("\n***Something went wrong!***")
 	return printError(res)
 end
 
 if res then
 	local msgs = {
 		[1] = "Successfully packed '"..input.."/' as '"..outpath.."'",
 		[2] = "Successfully unpacked '"..input.."' to '"..outpath.."/'",
 		[3] = "That file/folder does not exist.",
 		[4] = "That file isn't a packed folder.",
 		[5] = "You don't have permission.",
 		[6] = "Failed to connect.",
 		[7] = "Uploaded successfully.",
 	}
 	print(msgs[res])
 	if otherRes then
 		print(otherRes)
 	end
 end