Open user menu
Files
gr_parser.src
//This implementation deviates from RFC 7159 - The JavaScript Object Notation (JSON) Data Interchange Format <https://tools.ietf.org/html/rfc7159> in the following ways://Section 6 (Numbers):// Leading zeros are allowed// Infinity, -Infinity, NaN are considered valid numbers//Section 7 (Strings): // Escaping characters is not implemented// Literal double quote is represented as "" in a string//usage://json = new JSON//string = json.to_string(object)//object = json.to_object(string)JSON = {}JSON.JSON_QUOTE = """"JSON.JSON_WHITESPACE = [char(9), char(10), char(13), char(32)] //[TAB, LF, CR, Space]JSON.JSON_SYNTAX = [",",":","[","]","{","}"]JSON.NUMBER_SYNTAX = ["-","+","E","e","."]JSON.NULL = nullJSON.sLexString=function(string) if string[0] == self.JSON_QUOTE then string = string[1:] else return [self.NULL, string] end if json_string = "" strlen = string.len if strlen > 0 then i = 0 while i < strlen if string[i] == "\" and string[i+1] == self.JSON_QUOTE then i = i + 2 json_string = json_string + self.JSON_QUOTE continue end if if string[i] == self.JSON_QUOTE then i = i + 1 return [json_string, string[i:]] end if json_string = json_string + string[i] i = i + 1 end while end if exit("<color=#ff0000>JSON string lexer error: Expected end-of-string quote")end functionJSON.sLexNumber=function(string) strlen = string.len if strlen > 8 and string[:9] == "-Infinity" then return ["-Infinity".val, string[9:]] else if strlen > 7 and string[:8] == "Infinity" then return ["Infinity".val, string[8:]] else if strlen > 2 and string[:3] == "NaN" then return ["NaN".val, string[3:]] end if json_number = "" for c in string if (c.code > 47 and c.code < 58) or self.NUMBER_SYNTAX.indexOf(c) != null then json_number = json_number + c else break end if end for number = json_number.val if number == 0 and json_number != "0" then return [self.NULL, string] return [number, string[json_number.len:]]end functionJSON.sLexBool=function(string) strlen=string.len if strlen > 3 and string[:4] == "true" then return [true, string[4:]] if strlen > 4 and string[:5] == "false" then return [false, string[5:]] return [self.NULL, string]end functionJSON.sLexNull=function(string) if string.len > 3 and string[:4] == "null" then return [true, string[4:]] return [false, string]end functionJSON.sLexWhitespace=function(string) if self.JSON_WHITESPACE.indexOf(string[0]) != null then return [string[0], string[1:]] end if return [self.NULL, string]end functionJSON.sLexSyntax=function(string) if self.JSON_SYNTAX.indexOf(string[0]) != null then return [string[0], string[1:]] end if return [self.NULL, string]end functionJSON.sLex=function(string) tokens = [] while string res = self.sLexString(string) if res[0] != null then tokens.push({"token":"string","value":res[0]}) string=res[1] continue end if res = self.sLexNumber(string) if res[0] != null then tokens.push({"token":"number","value":res[0]}) string=res[1] continue end if res = self.sLexBool(string) if res[0] != null then tokens.push({"token":"bool","value":res[0]}) string=res[1] continue end if res = self.sLexNull(string) if res[0] == true then tokens.push({"token":"null","value":self.NULL}) string=res[1] continue end if res = self.sLexSyntax(string) if res[0] != null then tokens.push({"token":"syntax","value":res[0]}) string=res[1] continue end if res = self.sLexWhitespace(string) if res[0] != null then string=res[1] continue end if exit("<color=#ff0000>JSON lexer error: Unexpected character: "+string[0]) end while return tokensend functionJSON.sParseList=function(tokens) if tokens[0] == {"token":"syntax","value":"]"} then return [[], tokens[1:]] json_list = [] while tokens res = self.sParse(tokens) json_list.push(res[0]) tokens = res[1] if tokens[0] == {"token":"syntax","value":"]"} then return [json_list, tokens[1:]] else if tokens[0] != {"token":"syntax","value":","} then exit("<color=#ff0000>JSON parser error: Expected comma after object in list") end if tokens = tokens[1:] end while exit("<color=#ff0000>JSON list parser error: Expected end-of-list bracket")end functionJSON.sParseMap=function(tokens) if tokens[0] == {"token":"syntax","value":"}"} then return [{}, tokens[1:]] json_map = {} while tokens if tokens[0].token == "string" or tokens[0].token == "number" then json_key = tokens[0].value tokens = tokens[1:] else exit("<color=#ff0000>JSON map parser error: Expected string or number key, got: "+tokens[0]) end if if tokens[0] != {"token":"syntax","value":":"} then exit("<color=#ff0000>JSON map parser error: Expected "":"" after key in map, got: "+tokens[0]) end if res = self.sParse(tokens[1:]) json_map[json_key]=res[0] tokens=res[1] if tokens[0] == {"token":"syntax","value":"}"} then return [json_map, tokens[1:]] else if tokens[0] != {"token":"syntax","value":","} then exit("<color=#ff0000>JSON map parser error: Expected "","" after pair in map, got: "+tokens[0]) end if tokens = tokens[1:] end while exit("<color=#ff0000>JSON map parser error: Expected end-of-map brace")end functionJSON.sParse=function(tokens) if tokens then if tokens[0] == {"token":"syntax","value":"["} then return self.sParseList(tokens[1:]) else if tokens[0] == {"token":"syntax","value":"{"} then return self.sParseMap(tokens[1:]) end if return [tokens[0].value, tokens[1:]] end if return nullend functionJSON.oParseList=function(list) list_string = "[" listlen = list.len if listlen then if listlen > 1 then for i in range(0,listlen-2) list_string = list_string + self.to_string(list[i]) + "," end for end if list_string = list_string + self.to_string(list[-1]) end if return list_string + "]"end functionJSON.oParseMap=function(map) map_string = "{" mapkeys = map.indexes maplen = mapkeys.len if maplen then if maplen > 1 then for i in range(0,maplen-2) if typeof(mapkeys[i]) == "string" then map_string = map_string + """" + mapkeys[i] + """" + ":" + self.to_string(map[mapkeys[i]]) + "," else map_string = map_string + mapkeys[i] + ":" + self.to_string(map[mapkeys[i]]) + "," end if end for end if if typeof(mapkeys[-1]) == "string" then map_string = map_string + """" + mapkeys[-1] + """" + ":" + self.to_string(map[mapkeys[-1]]) else map_string = map_string + mapkeys[-1] + ":" + self.to_string(map[mapkeys[-1]]) end if end if return map_string + "}"end functionJSON.to_object=function(string) return self.sParse(self.sLex(string))[0]end functionJSON.to_string=function(object) if typeof(object) == "string" then return """" + object.replace("""", "\""") + """" else if typeof(object) == "number" then return str(object) else if object == null then return null else if typeof(object) == "list" then return self.oParseList(object) else return self.oParseMap(object) end ifend function// --------------------------------------// pretty much try and error to find every character escaped the by json parserescape_list = []escape_list.push({"escaped": char(92)+"...n", "unscaped": char(10)})escape_list.push({"escaped": char(92)+"t", "unscaped": char(9)})escape_list.push({"escaped": char(92)+"u003e", "unscaped": char(62)})escape_list.push({"escaped": char(92)+"u003c", "unscaped": char(60)})escape_list.push({"escaped": char(92)+"u0026", "unscaped": char(38)})unescape = function(string) for set in escape_list string = string.replace(set["escaped"], set["unscaped"]) end for return stringend functionescape = function(string) for set in escape_list string = string.replace(set["unscaped"], set["escaped"]) end for return stringend functionget_folder_table = function(folder, table=null, parent="") if table == null then table = {} index = table.len obj = {"parent": parent, "type": "folder", "name": folder.name} table[str(index)] = obj parent = str(index) index = index + 1 scripts = folder.get_files folders = folder.get_folders for script in scripts obj = {"parent": parent, "type": "script", "name": script.name, "content": escape(script.get_content)} table[str(index)] = obj index = index + 1 end for for folder in folders get_folder_table(folder, table, parent) end for return tableend functioncomputer = get_shell.host_computerroot_path = current_pathroot_folder = computer.File(root_path)import_folder = function() json = new JSON root_folder_name = user_input("(optional, you can press enter to skip and use the root folder name provided in the import string)\nroot folder name: \n") export_string = user_input("export string: \n") table = json.to_object(export_string) file_table = {} for value in table.values key = table.indexOf(value) file_name = value["name"].replace(" ", "_") if value["parent"] == "" then parent_folder = root_folder if root_folder_name != "" then file_name = root_folder_name file_path = parent_folder.path + "/" + file_name if computer.File(file_path) then computer.File(file_path).delete //clear else parent_folder = file_table[value["parent"]]["file"] file_path = parent_folder.path + "/" + file_name end if if value["type"] == "folder" then f_out = computer.create_folder(parent_folder.path, file_name) if f_out != 1 then print(file_path) exit(f_out) end if file = computer.File(file_path) else if value["type"] == "script" then f_out = computer.touch(parent_folder.path, file_name) if f_out != 1 then print(file_path) exit(f_out) end if file = computer.File(file_path) file.set_content(unescape(value["content"])) end if file_table[key] = {"parent": value["parent"], "file": file} print(file_path + " " + value["type"] +" created") end forend functionexport_folder = function() full_path = user_input("full path of the folder:\n") folder = computer.File(full_path) export_obj = get_folder_table(folder) print("\n\nthis is your export string:\n\n") json = new JSON export_string = json.to_string(export_obj) print(export_string)end functionprint("<b>grey repo parser (www.greyrepo.xyz/posts/folder-parser)</b>\nactions:\n[1] import project\n[2] export a local folder")input = user_input("select action:\n")if input == "1" then import_folder()if input == "2" then export_folder()