View difference between Paste ID: zdsKtFFd and 2ZgLdxtF

-local tArgs = {...}
+
 local w, h = term.getSize()
 local lChanged = false
 local pChanged = true
 local mChanged = true
 local numlength = 1
 local type = 1
 local tabNum = 0
 local mode = "edit"
 local clickStart, clickEnd, prevline, currentLine, currentPos
 local cTables, cComTab, program, colTab = {}, {}, {}, {}
 cParTab = {}
 if mode == "edit" then
 	colTab[1] = colors.lightGray
 	colTab[2] = colors.green
 	colTab[3] = colors.red
 	colTab[4] = colors.orange
 	colTab[5] = colors.lightBlue
 	colTab[6] = colors.white
 elseif mode == "read" then
 	colTab[1] = colors.white
 	colTab[2] = colors.white
 	colTab[3] = colors.white
 	colTab[4] = colors.white
 	colTab[5] = colors.white
 	colTab[6] = colors.white
 end
 local location = {
 	["x"] = 1,
 	["y"] = 1
 }
 local position = {
 	["x"] = 1,
 	["y"] = 1
 }
 local conditionals = {
 	["if"] = {"end", colors.red, colors.pink},
 	["while"] = {"end", colors.red, colors.pink},
 	["for"] = {"end", colors.red, colors.pink},
 	["function"] = {"end", colors.red, colors.pink}
 }
 local keywords = {
 	["if"] = colors.yellow,
 	["then"] = colors.yellow,
 	["else"] = colors.yellow,
 	["elseif"] = colors.yellow,
 	["end"] = colors.yellow,
 	["function"] = colors.yellow,
 	["while"] = colors.yellow,
 	["for"] = colors.yellow,
 	["in"] = colors.yellow,
 	["do"] = colors.yellow,
 	["local"] = colors.yellow,
 	["repeat"] = colors.yellow,
 	["until"] = colors.yellow,
 	["next"] = colors.yellow,
 	["and"] = colors.orange,
 	["or"] = colors.orange,
 	["not"] = colors.orange,
 	["true"] = colors.orange,
 	["false"] = colors.orange,
 	["nil"] = colors.gray,
 	["break"] = colors.purple,
 	["return"] = colors.purple,
 	["print"] = colors.pink,
 	["write"] = colors.pink,
 	["pairs"] = colors.pink,
 	["ipairs"] = colors.pink,
 	["type"] = colors.blue,
 	["tostring"] = colors.blue,
 	["tonumber"] = colors.blue,
 	["assert"] = colors.blue,
 	["setmetatable"] = colors.blue
 }
 
-if tArgs[1] and fs.exists(tArgs[1]) then
+
-	for line in io.lines(tArgs[1]) do
+
-		program[#program + 1] = tostring(line)
+
-		program[#program] = program[#program]:gsub("    ", "$___")
+
 	term.setCursorPos(xPos, yPos)
-	if #program == 0 then
+
-		program[1] = ""
+
 	term.write(string)
-elseif tArgs[1] then
+
-	program[1] = ""
+
 local function codeDraw(string, xPos, yPos)
 	local string = string or ""
 	local xPos = xPos - location["x"] + 1
 	local sStart, sEnd = 1, 1 + w - numlength
 	local tabDraw = true
 	local multiComment = false
 	while #string > 0 and xPos <= sEnd do
 		--[[for i in pairs(cComTab) do
 			if mode == "edit" then
 				if not multiComment and (yPos-1 == cComTab[i][1][2]-location["y"] + 1 and xPos-3 >= cComTab[i][1][1]-location["x"] + 1) or (yPos-1 == cComTab[i][2][2]-location["y"]+1 and xPos-2 <= cComTab[i][2][1]-location["x"]+1) or (yPos-1 > cComTab[i][1][2]-location["y"]+1 and yPos-1 < cComTab[i][2][2]-location["y"]+1) then
 					colTab[1] = colors.green
 					colTab[2] = colors.green
 					colTab[3] = colors.green
 					colTab[4] = colors.green
 					colTab[5] = colors.green
 					colTab[6] = colors.green
 					multiComment = true
 					break
 				elseif multiComment then
 					colTab[1] = colors.lightGray
 					colTab[2] = colors.green
 					colTab[3] = colors.red
 					colTab[4] = colors.orange
 					colTab[5] = colors.lightBlue
 					colTab[6] = colors.white
 					multiComment = false
 				end
 			end
 		end]]--
 		if string:find("^%$___") then
 			local _, en = string:find("^%$___")
 			if en >= sStart and xPos <= sEnd then
 				if tabDraw and not multiComment then
 					draw("   |", xPos, yPos, colTab[1], colors.black)
 				else
 					draw("    ", xPos, yPos, colTab[1], colors.black)
 				end
 			end
 			string = string:sub(en + 1)
 			xPos = xPos + en
 		elseif string:find("^%-%-.*") then
 			tabDraw = false
 			local _, en = string:find("^%-%-.*")
 			if en >= sStart and xPos <= sEnd then
 				draw(string:sub(1, en), xPos, yPos, colTab[2], colors.black)
 			end
 			string = string:sub(en + 1)
 			xPos = xPos + en
 		elseif string:find("^\".-[^\\]\"") then
 			tabDraw = false
 			local _, en = string:find("^\".-[^\\]\"")
 			if en >= sStart and xPos <= sEnd then
 				draw(string:sub(1, en), xPos, yPos, colTab[3], colors.black)
 			end
 			string = string:sub(en + 1)
 			xPos = xPos + en
 		elseif string:find("^\'.-[^\\]\'") then
 			tabDraw = false
 			local _, en = string:find("^\'.-[^\\]\'")
 			if en >= sStart and xPos <= sEnd then
 				draw(string:sub(1, en), xPos, yPos, colTab[3], colors.black)
 			end
 			string = string:sub(en + 1)
 			xPos = xPos + en
 		elseif string:find("^\"\"") then
 			tabDraw = false
 			local _, en = string:find("^\"\"")
 			if en >= sStart and xPos <= sEnd then
 				draw(string:sub(1, en), xPos, yPos, colTab[3], colors.black)
 			end
 			string = string:sub(en + 1)
 			xPos = xPos + en
 		elseif string:find("^\'\'") then
 			tabDraw = false
 			local _, en = string:find("^\'\'")
 			if en >= sStart and xPos <= sEnd then
 				draw(string:sub(1, en), xPos, yPos, colTab[3], colors.black)
 			end
 			string = string:sub(en + 1)
 			xPos = xPos + en
 		elseif string:find("^%[%[.-%]%]") then
 			tabDraw = false
 			local _, en = string:find("^%[%[.-%]%]")
 			if en >= sStart and xPos <= sEnd then
 				draw(string:sub(1, en), xPos, yPos, colTab[3], colors.black)
 			end
 			string = string:sub(en + 1)
 			xPos = xPos + en
 		elseif string:find("^%d+") then
 			tabDraw = false
 			local _, en = string:find("^%d+")
 			if en >= sStart and xPos <= sEnd then
 				draw(string:sub(1, en), xPos, yPos, colTab[4], colors.black)
 			end
 			string = string:sub(en + 1)
 			xPos = xPos + en
 		elseif string:find("^%p") then
 			tabDraw = false
 			local _, en = string:find("^%p")
 			if en >= sStart and xPos <= sEnd then
 				draw(string:sub(1, en), xPos, yPos, colTab[5], colors.black)
 			end
 			string = string:sub(en + 1)
 			xPos = xPos + en
 		elseif string:find("^[%a_]+") then
 			tabDraw = false
 			local _, en = string:find("^[%a_]+")
 			local test = string:sub(1, en)
 			local color = colors.white
 			if keywords[test] and mode == "edit" then
 				color = keywords[test]
 			end
 			if multiComment then
 				color = colors.green
 			end
 			if en >= sStart and xPos <= sEnd then
 				draw(string:sub(1, en), xPos, yPos, color, colors.black)
 			end
 			string = string:sub(en + 1)
 			xPos = xPos + en
 		elseif string:find("^[^%w_]") then
 			tabDraw = false
 			local _, en = string:find("^[^%w_]")
 			if en >= sStart and xPos <= sEnd then
 				draw(string:sub(1, en), xPos, yPos, colTab[6], colors.black)
 			end
 			string = string:sub(en + 1)
 			xPos = xPos + en
 		end
 	end
 end
 
 local function printMenu()
 	term.setCursorPos(1, 1)
 	term.setBackgroundColor(colors.lightGray)
 	term.clearLine()
 	draw("Press CTRL for menu...", 1, 1, colors.gray, colors.lightGray)
 end
 
 local function saveFile(codeTable, filename)
 	local tempFile = {}
 	for i, v in ipairs(codeTable) do
 		tempFile[i] = v:gsub("$___", "    ")
 	end
 	local sFile = fs.open(filename, "w")
 	for _, v in ipairs(tempFile) do
 		sFile.writeLine(v)
 	end
 	sFile.close()
 end
 
 local function showProgram()
 	multiComment = false
 	numlength = #tostring(#program - location["y"] + 1 >= h and location["y"] + h - 1  or #program)
 	for y = location["y"], #program - location["y"] + 1 >= h - 1 and location["y"] + h - 2  or #program do
 		codeDraw(program[y], 1 + numlength, y - location["y"] + 2)
     end
 end
 
 local function showProgramLine(line)
 	numlength = #tostring(#program - location["y"] + 1 >= h and location["y"] + h - 1  or #program)
 	codeDraw(program[line], 1 + numlength, line - location["y"] + 2)
 end
 
 local function showNumbers()
 	local activeLoops = {}
 	local up, down
 	for _, v in pairs(cTables) do
 		if currentLine >= v[1] and currentLine <= v[2] then
 			activeLoops[#activeLoops + 1] = {v[1], v[2]}
 		end
 	end
 	if #activeLoops > 0 then
 		local key, mini = 0, #program
 		for i, v in pairs(activeLoops) do
 			if v[2] - v[1] < mini then
 				key, mini = i, v[2] - v[1]
 			end
 		end
 		if key > 0 then
 			up, down = activeLoops[key][1], activeLoops[key][2]
 		end
 	end
 	for y = location["y"], #program - location["y"] + 1 >= h - 1 and location["y"] + h - 2  or #program do
 		local text, back = colors.gray, colors.lightGray
 		if up and down and y > up and y < down then
 			text, back = colors.red, colors.pink
 		elseif up and down and (y == up or y == down) then
 			text, back = colors.pink, colors.red
 		end
 		draw(tostring(y), 1, y - location["y"] + 2, text, back)
 		if #tostring(y) < numlength then
 			write(" ")
 		end
 	end
 end
 
 local function addLetter(char, str, pos)
 	return str:sub(0, pos - 1) .. tostring(char) .. str:sub(pos)
 end
 
 local function removeLetter(str, pos)
 	return str:sub(0, pos) .. str:sub(pos + 2)
 end
 
 local function fixCursorPos()
 	if position["y"] < 1 then
 		pChanged = true
 		location["y"] = location["y"] + position["y"] - 1
-local function checkParenthesis()
+
-	local cancelNum = 0
+
-	local pString = ""
+
-	pBreaks = {}
+
-	local cBrackets = {}
+
-	pBreaks[1] = 0
+
-	for y = 1, #program do
+
-		pString = pString .. program[y]
+
-		pBreaks[y+1] = #program[y] + pBreaks[y]
+
 	elseif location["y"] + h - 1 > #program then
-	while pString:find("[%[%{%(]") do
+
-		local oppChar
+
-		local st, en = pString:find("[%[%{%(]")
+
-		term.setBackgroundColor(colors.magenta)
+
-		local char = pString:sub(st, st)
+
-		if char == "[" then oppChar = "]"
+
-		elseif char == "{" then oppChar = "}"
+
-		elseif char == "(" then oppChar = ")" end
+
-		st, en = pString:find("%b" .. char .. oppChar)
+
-		if st and en then
+
-			local x1, y1, x2, y2
+
-			local active = true
+
-			for i, v in pairs(pBreaks) do
+
-				if st <= v and active then
+
-					x1 = st - pBreaks[i - 1]
+
-					y1 = i - 1
+
-					active = false
+
 					dollarNum = nil
-				if en <= v then
+
-					x2 = en - pBreaks[i - 1]
+
-					y2 = i - 1
+
 		end
-				if x1 and y1 and x2 and y2 then
+
-					cBrackets[#cBrackets + 1] = {x1, y1, x2, y2, char, oppChar}
+
-					break
+
 	end
 	if position["x"] + location["x"] - 1 > #program[position["y"] + location["y"] - 1] then
-			pString = pString:sub(1, st - 1) .. " " .. pString:sub(st + 1)
+
-			pString = pString:sub(1, en - 1) .. " " .. pString:sub(en + 1)
+
-		else
+
-			st, en = pString:find("[%[%{%(]")
+
-			pString = pString:sub(1, st - 1) .. " " .. pString:sub(st + 1)
+
 		position["x"] = 1
 	elseif position["x"] > w - numlength then
-	return cBrackets
+
 		location["x"] = location["x"] + position["x"] - (w-numlength)
 		position["x"] = w - numlength
-local function checkConditionals()
+
-	local cWords = {}
+
-	local active = false
+
-	local cancelNum = 0
+
-	local cConditional = {}
+
-	for y = 1, #program do
+
-		for i in pairs(conditionals) do
+
-			local test = program[y]:gsub(" ", "")
+
-			local st = test:find(i)
+
-			local _, en = program[y]:find(i)
+
-			if st and en then
+
-				if st == 1 and (en == #program[y] or program[y]:sub(en + 1, en + 1) == " ") then
+
-					cWords[#cWords + 1] = {}
+
-					cWords[#cWords][1] = y
+
-					cancelNum = cancelNum + 1
+
-					cConditional[cancelNum] = #cWords
+
-					active = true
+
 term.setCursorBlink(true)
 while true do
 	if mode == "edit" then
-		if active and program[y]:find("end") then
+
-			cWords[cConditional[cancelNum]][2] = y
+
-			cancelNum = cancelNum - 1
+
-			if cancelNum == 0 then
+
-				active = false
+
-				if y > location["y"] + h - 2 then
+
 	if pChanged or program[currentLine]:sub(currentPos - 2, currentPos - 1) == "]]" then
 		--cTables = checkConditionals()
 		term.setBackgroundColor(colors.black)
 		term.clear()
 		showProgram()
-	local rem = {}
+
-	for i = 1, #cWords do
+
-		if not (cWords[i][1] and cWords[i][2]) then
+
-			rem[#rem + 1] = i
+
 		term.setBackgroundColor(colors.black)
 		term.clearLine()
-	for i, v in pairs(rem) do
+
-		table.remove(cWords, v - i + 1)
+
 	end
-	return cWords
+
 		printMenu()
 		mChanged = false
-function checkMultiComments()
+
-	local cComments = {}
+
-	local active = false
+
-	local cancelNum = 0
+
-	local cConditional = {}
+
-	for y = 1, #program do
+
-		if program[y]:find("%-%-%[%[") and not active then
+
-			active = true
+
-			local st = program[y]:find("%-%-%[%[")
+
-			cComments[#cComments + 1] = {}
+
-			cComments[#cComments][1]= {st, y}
+
-		elseif program[y]:find("%]%]") and active then
+
-			active = false
+
-			local _, en = program[y]:find("%]%]")
+
-			cComments[#cComments][2] = {en, y}
+
 	end]]
 	if mode == "edit" then
-	local rem = {}
+
-	for i = 1, #cComments do
+
-		if #cComments[i] < 2  then
+
-			rem[#rem + 1] = i
+
 	local events = {os.pullEvent()}
 	if events[1] == "char" and mode == "edit" then
-	for i, v in pairs(rem) do
+
-		table.remove(cComments, v - i + 1)
+
 		position["x"] = position["x"] + 1
-	return cComments
+
 		if events[2] == keys.up then   --^
 				position["y"] = position["y"] - 1
 		elseif events[2] == keys.down then   --v
 				position["y"] = position["y"] + 1
 		elseif events[2] == keys.right then   -->
 			if (position["x"] + location["x"] - 1) % 4 == 1 and position["x"] + location["x"] - 1 < #program[currentLine] and program[currentLine]:sub(position["x"] + location["x"] - 1, position["x"] + location["x"] + 2) == "$___" then
 				position["x"] = position["x"] + 4
 			elseif currentLine < #program and currentPos > #program[currentLine] then
 				position["x"] = 1 - location["x"] + 1
 				position["y"] = position["y"] + 1
 			else
 				position["x"] = position["x"] + 1
 			end
 		elseif events[2] == keys.left then   --<
 			if (position["x"] + location["x"] - 1) % 4 == 1 and position["x"] + location["x"] - 1 > 4 and program[currentLine]:sub(position["x"] + location["x"] - 5, position["x"] + location["x"] - 2) == "$___" then
 				position["x"] = position["x"] - 4
 			elseif currentLine > 1 and currentPos == 1 then
 				position["x"] = #program[currentLine - 1] + 1
 				position["y"] = position["y"] - 1
 			else
 				position["x"] = position["x"] - 1
 			end
 		end
 		if events[2] == keys.backspace and mode == "edit" then
 			lChanged = true
 			if (position["x"] + location["x"] - 1) % 4 == 1 and position["x"] + location["x"] - 1 > 4 and program[currentLine]:sub(position["x"] + location["x"] - 5, position["x"] + location["x"] - 2) == "$___"  then
 				for i = 1, 4 do
 					program[currentLine] = removeLetter(program[currentLine], location["x"] + position["x"] - 6)
 					position["x"] = position["x"] - 4
 				end
 			elseif currentLine > 1 and currentPos == 1 then
 				position["y"] = position["y"] - 1
 				location["x"] = (location["x"] > #program[currentLine - 1] or location["x"] + w - #tostring(currentLine - 1) < #program[currentLine - 1]) and #program[currentLine - 1] + 1 or location["x"]
 				position["x"] = #program[currentLine - 1] - location["x"] + 2
 				program[currentLine - 1] = program[currentLine - 1] .. (table.remove(program, currentLine))
 				pChanged = true
                         else
 				program[currentLine] = removeLetter(program[currentLine], currentPos - 2)
 				position["x"] = position["x"] - 1
 			end
 		end
 		if events[2] == keys.enter and mode == "edit" then
 			pChanged = true
 			table.insert(program, currentLine + 1, program[currentLine]:sub(position["x"] + location["x"] - 1))
 			program[currentLine] = program[currentLine]:sub(1, position["x"] + location["x"] - 2)
 			program[currentLine + 1] = string.rep("$___", tabNum) .. program[currentLine + 1]
 			position["y"] = position["y"] + 1
 			position["x"] = 1 + tabNum * 4
 		end
 		if events[2] == keys.tab and mode == "edit" then
 			lChanged = true
 			if (position["x"] + location["x"] - 1) % 4 == 1 then
 				program[currentLine] = addLetter("$___", program[currentLine], position["x"] + location["x"] - 1)
 			else
 				local num = (position["x"] + location["x"] - 1) % 4 + 1
 				if num == 4 then num = 2 end
 				program[currentLine] = addLetter(string.rep(" ", num), program[currentLine], position["x"] + location["x"] - 1)
 			end
 			position["x"] = position["x"] + 4
 		end
 	end
 	if events[1] == "mouse_click" and events[2] == 1 and #program >= events[4] + location["y"] - 2 and events[4] > 1 then
 		position["y"] = events[4] - 1
 		position["x"] = events[3] - numlength
 	elseif events[1] == "mouse_drag" and events[2] == 1 then
 		clickEnd = {events[3] + location["x"] - 1, events[4] + location["y"] - 1}
 	end
 	if events[1] == "mouse_scroll" then
 		pChanged = true
 		location["y"] = location["y"] + events[2]
 	end
 end