View difference between Paste ID: AqhH7JGe and g2EnDYLp

-local tArg = {...}
+
 local controls = {["\n"]="\\n", ["\r"]="\\r", ["\t"]="\\t", ["\b"]="\\b", ["\f"]="\\f", ["\""]="\\\"", ["\\"]="\\\\"}
 local function isArray(t)
 	local max = 0
 	for k,v in pairs(t) do
 		if type(k) ~= "number" then
 			return false
 		elseif k > max then
 			max = k
 		end
 	end
 	return max == #t
 end
 local whites = {['\n']=true; ['\r']=true; ['\t']=true; [' ']=true; [',']=true; [':']=true}
 local function removeWhite(str)
 	while whites[str:sub(1, 1)] do
 		str = str:sub(2)
 	end
 	return str
 end
 local encodeCommon, arrEncoding, parseNumber, parseString, parseArray, parseMember, parseValue, parseObject, decode, decodeFromFile
 
 ------------------------------------------------------------------ encoding
 
 function encodeCommon(val, pretty, tabLevel, tTracking)
 	local str = ""
 	local function tab(s)
 		str = str .. ("\t"):rep(tabLevel) .. s
 	end
 	function arrEncoding(val, bracket, closeBracket, iterator, loopFunc)
 		str = str .. bracket
 		if pretty then
 			str = str .. "\n"
 			tabLevel = tabLevel + 1
 		end
 		for k,v in iterator(val) do
 			tab("")
 			loopFunc(k,v)
 			str = str .. ","
 			if pretty then str = str .. "\n" end
 		end
 		if pretty then
 			tabLevel = tabLevel - 1
 		end
 		if str:sub(-2) == ",\n" then
 			str = str:sub(1, -3) .. "\n"
 		elseif str:sub(-1) == "," then
 			str = str:sub(1, -2)
 		end
 		tab(closeBracket)
 	end
 	if type(val) == "table" then
 		assert(not tTracking[val], "Cannot encode a table holding itself recursively")
 		tTracking[val] = true
 		if isArray(val) then
 			arrEncoding(val, "[", "]", ipairs, function(k,v)
 				str = str .. encodeCommon(v, pretty, tabLevel, tTracking)
 			end)
 		else
 			arrEncoding(val, "{", "}", pairs, function(k,v)
 				assert(type(k) == "string", "JSON object keys must be strings", 2)
 				str = str .. encodeCommon(k, pretty, tabLevel, tTracking)
 				str = str .. (pretty and ": " or ":") .. encodeCommon(v, pretty, tabLevel, tTracking)
 			end)
 		end
 	elseif type(val) == "string" then
 		str = '"' .. val:gsub("[%c\"\\]", controls) .. '"'
 	elseif type(val) == "number" or type(val) == "boolean" then
 		str = tostring(val)
 	else
 		error("JSON only supports arrays, objects, numbers, booleans, and strings", 2)
 	end
 	return str
 end
 local function encode(val)
 	return encodeCommon(val, false, 0, {})
 end
 local function encodePretty(val)
 	return encodeCommon(val, true, 0, {})
 end
 
 ------------------------------------------------------------------ decoding
 
 local decodeControls = {}
 for k,v in pairs(controls) do
 	decodeControls[v] = k
 end
 local function parseBoolean(str)
 	if str:sub(1, 4) == "true" then
 		return true, removeWhite(str:sub(5))
 	else
 		return false, removeWhite(str:sub(6))
 	end
 end
 local function parseNull(str)
 	return nil, removeWhite(str:sub(5))
 end
 local numChars = {['e']=true; ['E']=true; ['+']=true; ['-']=true; ['.']=true}
 function parseNumber(str)
 	local i = 1
 	while numChars[str:sub(i, i)] or tonumber(str:sub(i, i)) do
 		i = i + 1
 	end
 	local val = tonumber(str:sub(1, i - 1))
 	str = removeWhite(str:sub(i))
 	return val, str
 end
 function parseString(str)
 	str = str:sub(2)
 	local s = ""
 	while str:sub(1,1) ~= "\"" do
 		local next = str:sub(1,1)
 		str = str:sub(2)
 		assert(next ~= "\n", "Unclosed string")
 
 		if next == "\\" then
 			local escape = str:sub(1,1)
 			str = str:sub(2)
 
 			next = assert(decodeControls[next..escape], "Invalid escape character")
 		end
 		s = s .. next
 	end
 	return s, removeWhite(str:sub(2))
 end
 function parseArray(str)
 	str = removeWhite(str:sub(2))
 	local val = {}
 	local i = 1
 	while str:sub(1, 1) ~= "]" do
 		local v = nil
 		v, str = parseValue(str)
 		val[i] = v
 		i = i + 1
 		str = removeWhite(str)
 	end
 	str = removeWhite(str:sub(2))
 	return val, str
 end
 function parseValue(str)
 	local fchar = str:sub(1, 1)
 	if fchar == "{" then
 		return parseObject(str)
 	elseif fchar == "[" then
 		return parseArray(str)
 	elseif tonumber(fchar) ~= nil or numChars[fchar] then
 		return parseNumber(str)
 	elseif str:sub(1, 4) == "true" or str:sub(1, 5) == "false" then
 		return parseBoolean(str)
 	elseif fchar == "\"" then
 		return parseString(str)
 	elseif str:sub(1, 4) == "null" then
 		return parseNull(str)
 	end
 	return nil
 end
 function parseMember(str)
 	local k = nil
 	k, str = parseValue(str)
 	local val = nil
 	val, str = parseValue(str)
 	return k, val, str
 end
 function parseObject(str)
 	str = removeWhite(str:sub(2))
 	local val = {}
 	while str:sub(1, 1) ~= "}" do
 		local k, v = nil, nil
 		k, v, str = parseMember(str)
 		val[k] = v
 		str = removeWhite(str)
 	end
 	str = removeWhite(str:sub(2))
 	return val, str
 end
 function decode(str)
 	str = removeWhite(str)
 	t = parseValue(str)
 	return t
 end
 function decodeFromFile(path)
 	local file = assert(fs.open(path, "r"))
 	local decoded = decode(file.readAll())
 	file.close()
 	return decoded
 end
 
 
 std.storeCatagoryNames = {}
-local getTableSize = function(tbl)
+local boardIDs = {}
-	local amnt = 0
+local req = http.get("http://backend.jouhou.ml/api/Boards")
-	for k,v in pairs(tbl) do
+
-		amnt = amnt + 1
+
 end
-	return amnt
+
 for a = 1, #req do
 	boardIDs[req[a].id] = a
-if tArg[1] ~= "storelengthcheck" then
+	std.storeCatagoryNames[#std.storeCatagoryNames+1] = req[a].name
-	std.storeCatagoryNames = {"Programs"}
+
 
 local req = http.get("http://backend.jouhou.ml/api/Posts")
-local req = http.get("http://twijnweb.com/cc/api/v1.0/programs/getall.php")
+
     return false
 end
 req = decode(req.readAll())
 std.storeURLs = {}
-if type(req) ~= "table" then
+
 for k,v in pairs(req) do
-elseif req.programs then
+
-	req = req.programs
+        title = v.id,
-else
+        url = {v.id},
         creator = "n/a",
         description = "Timestamp: "..v.creation,
         catagory = boardIDs[v.id],
-local laURLs = {}
+
         keywords = {tostring(v.content)},
     }
-        title = v.name,
+    std.storeURLs[v.code] = buffer
-        url = "http://get.twijnweb.com/"..v.code,
+
-        creator = v.owner,
+
-        description = v.description,
+std.contextualGet = function(appid)
-        catagory = 1,
+	local url = "http://backend.jouhou.ml/api/Posts/"
 	local out = http.get(url..appid)
-        keywords = {},
+	if out then
 		out = decode(out.readAll())
-	laURLs[v.code] = buffer
+		return out.content
 	else
-if tArg[1] == "storelengthcheck" then
+		return false
-	return getTableSize(laURLs)
+
-else
+