diff options
Diffstat (limited to 'Programs/Firewolf.bup')
| -rw-r--r-- | Programs/Firewolf.bup/Contents/Info.meta | 1 | ||||
| -rw-r--r-- | Programs/Firewolf.bup/Contents/Resources/resources_here.txt | 1 | ||||
| -rw-r--r-- | Programs/Firewolf.bup/Contents/bits-UI/firewolf.lua | 3243 |
3 files changed, 3245 insertions, 0 deletions
diff --git a/Programs/Firewolf.bup/Contents/Info.meta b/Programs/Firewolf.bup/Contents/Info.meta new file mode 100644 index 0000000..8d1c8b6 --- /dev/null +++ b/Programs/Firewolf.bup/Contents/Info.meta @@ -0,0 +1 @@ + diff --git a/Programs/Firewolf.bup/Contents/Resources/resources_here.txt b/Programs/Firewolf.bup/Contents/Resources/resources_here.txt new file mode 100644 index 0000000..8d1c8b6 --- /dev/null +++ b/Programs/Firewolf.bup/Contents/Resources/resources_here.txt @@ -0,0 +1 @@ + diff --git a/Programs/Firewolf.bup/Contents/bits-UI/firewolf.lua b/Programs/Firewolf.bup/Contents/bits-UI/firewolf.lua new file mode 100644 index 0000000..d1ba857 --- /dev/null +++ b/Programs/Firewolf.bup/Contents/bits-UI/firewolf.lua @@ -0,0 +1,3243 @@ + +-- +-- Firewolf +-- Made by GravityScore and 1lann +-- + + + +-- Variables + + +local version = "3.5" +local build = 18 + +local w, h = term.getSize() + +local isMenubarOpen = true +local menubarWindow = nil + +local allowUnencryptedConnections = true +local enableTabBar = true + +local currentWebsiteURL = "" +local builtInSites = {} + +local currentProtocol = "" +local protocols = {} + +local currentTab = 1 +local maxTabs = 5 +local maxTabNameWidth = 8 +local tabs = {} + +local languages = {} + +local history = {} + +local publicDNSChannel = 9999 +local publicResponseChannel = 9998 +local responseID = 41738 + +local httpTimeout = 10 +local searchResultTimeout = 1 +local initiationTimeout = 2 +local animationInterval = 0.125 +local fetchTimeout = 3 +local serverLimitPerComputer = 1 + +local websiteErrorEvent = "firewolf_websiteErrorEvent" +local redirectEvent = "firewolf_redirectEvent" + +local baseURL = "https://raw.githubusercontent.com/1lann/Firewolf/master/src" +local buildURL = baseURL .. "/build.txt" +local firewolfURL = baseURL .. "/client.lua" +local serverURL = baseURL .. "/server.lua" + +local originalTerminal = term.current() + +local firewolfLocation = "/" .. shell.getRunningProgram() +local downloadsLocation = "/downloads" + + +local theme = {} + +local colorTheme = { + background = colors.gray, + accent = colors.red, + subtle = colors.orange, + + lightText = colors.gray, + text = colors.white, + errorText = colors.red, +} + +local grayscaleTheme = { + background = colors.black, + accent = colors.black, + subtle = colors.black, + + lightText = colors.white, + text = colors.white, + errorText = colors.white, +} + + + +-- Utilities + + +local modifiedRead = function(properties) + local text = "" + local startX, startY = term.getCursorPos() + local pos = 0 + + local previousText = "" + local readHistory = nil + local historyPos = 0 + + if not properties then + properties = {} + end + + if properties.displayLength then + properties.displayLength = math.min(properties.displayLength, w - 2) + else + properties.displayLength = w - startX - 1 + end + + if properties.startingText then + text = properties.startingText + pos = text:len() + end + + if properties.history then + readHistory = {} + for k, v in pairs(properties.history) do + readHistory[k] = v + end + end + + if readHistory[1] == text then + table.remove(readHistory, 1) + end + + local draw = function(replaceCharacter) + local scroll = 0 + if properties.displayLength and pos > properties.displayLength then + scroll = pos - properties.displayLength + end + + local repl = replaceCharacter or properties.replaceCharacter + term.setTextColor(theme.text) + term.setCursorPos(startX, startY) + if repl then + term.write(string.rep(repl:sub(1, 1), text:len() - scroll)) + else + term.write(text:sub(scroll + 1)) + end + + term.setCursorPos(startX + pos - scroll, startY) + end + + term.setCursorBlink(true) + draw() + while true do + local event, key, x, y, param4, param5 = os.pullEvent() + + if properties.onEvent then + -- Actions: + -- - exit (bool) + -- - text + -- - nullifyText + + term.setCursorBlink(false) + local action = properties.onEvent(text, event, key, x, y, param4, param5) + if action then + if action.text then + draw(" ") + text = action.text + pos = text:len() + end if action.nullifyText then + text = nil + action.exit = true + end if action.exit then + break + end + end + draw() + end + + term.setCursorBlink(true) + if event == "char" then + local canType = true + if properties.maxLength and text:len() >= properties.maxLength then + canType = false + end + + if canType then + text = text:sub(1, pos) .. key .. text:sub(pos + 1, -1) + pos = pos + 1 + draw() + end + elseif event == "key" then + if key == keys.enter then + break + elseif key == keys.left and pos > 0 then + pos = pos - 1 + draw() + elseif key == keys.right and pos < text:len() then + pos = pos + 1 + draw() + elseif key == keys.backspace and pos > 0 then + draw(" ") + text = text:sub(1, pos - 1) .. text:sub(pos + 1, -1) + pos = pos - 1 + draw() + elseif key == keys.delete and pos < text:len() then + draw(" ") + text = text:sub(1, pos) .. text:sub(pos + 2, -1) + draw() + elseif key == keys.home then + pos = 0 + draw() + elseif key == keys["end"] then + pos = text:len() + draw() + elseif (key == keys.up or key == keys.down) and readHistory then + local shouldDraw = false + if historyPos == 0 then + previousText = text + elseif historyPos > 0 then + readHistory[historyPos] = text + end + + if key == keys.up then + if historyPos < #readHistory then + historyPos = historyPos + 1 + shouldDraw = true + end + else + if historyPos > 0 then + historyPos = historyPos - 1 + shouldDraw = true + end + end + + if shouldDraw then + draw(" ") + if historyPos > 0 then + text = readHistory[historyPos] + else + text = previousText + end + pos = text:len() + draw() + end + end + elseif event == "mouse_click" then + local scroll = 0 + if properties.displayLength and pos > properties.displayLength then + scroll = pos - properties.displayLength + end + + if y == startY and x >= startX and x <= math.min(startX + text:len(), startX + (properties.displayLength or 10000)) then + pos = x - startX + scroll + draw() + elseif y == startY then + if x < startX then + pos = scroll + draw() + elseif x > math.min(startX + text:len(), startX + (properties.displayLength or 10000)) then + pos = text:len() + draw() + end + end + end + end + + term.setCursorBlink(false) + print("") + return text +end + + +local prompt = function(items, x, y, w, h) + local selected = 1 + local scroll = 0 + + local draw = function() + for i = scroll + 1, scroll + h do + local item = items[i] + if item then + term.setCursorPos(x, y + i - 1) + term.setBackgroundColor(theme.background) + term.setTextColor(theme.lightText) + + if scroll + selected == i then + term.setTextColor(theme.text) + term.write(" > ") + else + term.write(" - ") + end + + term.write(item) + end + end + end + + draw() + while true do + local event, key, x, y = os.pullEvent() + + if event == "key" then + if key == keys.up and selected > 1 then + selected = selected - 1 + + if selected - scroll == 0 then + scroll = scroll - 1 + end + elseif key == keys.down and selected < #items then + selected = selected + 1 + end + + draw() + elseif event == "mouse_click" then + + elseif event == "mouse_scroll" then + if key > 0 then + os.queueEvent("key", keys.down) + else + os.queueEvent("key", keys.up) + end + end + end +end + + + +-- GUI + + +local clear = function(bg, fg) + term.setTextColor(fg) + term.setBackgroundColor(bg) + term.clear() + term.setCursorPos(1, 1) +end + + +local fill = function(x, y, width, height, bg) + term.setBackgroundColor(bg) + for i = y, y + height - 1 do + term.setCursorPos(x, i) + term.write(string.rep(" ", width)) + end +end + + +local center = function(text) + local x, y = term.getCursorPos() + term.setCursorPos(math.floor(w / 2 - text:len() / 2) + (text:len() % 2 == 0 and 1 or 0), y) + term.write(text) + term.setCursorPos(1, y + 1) +end + + +local centerSplit = function(text, width) + local words = {} + for word in text:gmatch("[^ \t]+") do + table.insert(words, word) + end + + local lines = {""} + while lines[#lines]:len() < width do + lines[#lines] = lines[#lines] .. words[1] .. " " + table.remove(words, 1) + + if #words == 0 then + break + end + + if lines[#lines]:len() + words[1]:len() >= width then + table.insert(lines, "") + end + end + + for _, line in pairs(lines) do + center(line) + end +end + + + +-- Updating + + +local download = function(url) + http.request(url) + local timeoutID = os.startTimer(httpTimeout) + while true do + local event, fetchedURL, response = os.pullEvent() + if (event == "timer" and fetchedURL == timeoutID) or event == "http_failure" then + return false + elseif event == "http_success" and fetchedURL == url then + local contents = response.readAll() + response.close() + return contents + end + end +end + + +local downloadAndSave = function(url, path) + local contents = download(url) + if contents and not fs.isReadOnly(path) and not fs.isDir(path) then + local f = io.open(path, "w") + f:write(contents) + f:close() + return false + end + return true +end + + +local updateAvailable = function() + local number = download(buildURL) + if not number then + return false, true + end + + if number and tonumber(number) and tonumber(number) > build then + return true, false + end + + return false, false +end + + +local redownloadBrowser = function() + return downloadAndSave(firewolfURL, firewolfLocation) +end + + + +-- Display Websites + + +builtInSites["display"] = {} + + +builtInSites["display"]["firewolf"] = function() + local logo = { + "______ _ __ ", + "| ___| | |/ _|", + "| |_ _ ____ _____ _____ | | |_ ", + "| _|| | __/ _ \\ \\ /\\ / / _ \\| | _|", + "| | | | | | __/\\ V V / <_> | | | ", + "\\_| |_|_| \\___| \\_/\\_/ \\___/|_|_| ", + } + + clear(theme.background, theme.text) + fill(1, 3, w, 9, theme.subtle) + + term.setCursorPos(1, 3) + for _, line in pairs(logo) do + center(line) + end + + term.setCursorPos(1, 10) + center(version) + + term.setBackgroundColor(theme.background) + term.setTextColor(theme.text) + term.setCursorPos(1, 14) + center("Search using the Query Box above") + center("Visit rdnt://help for help using Firewolf.") + + term.setCursorPos(1, h - 2) + center("Made by GravityScore and 1lann") +end + + +builtInSites["display"]["credits"] = function() + clear(theme.background, theme.text) + + fill(1, 6, w, 3, theme.subtle) + term.setCursorPos(1, 7) + center("Credits") + + term.setBackgroundColor(theme.background) + term.setCursorPos(1, 11) + center("Written by GravityScore and 1lann") + print("") + center("RC4 Implementation by AgentE382") +end + + +builtInSites["display"]["help"] = function() + clear(theme.background, theme.text) + + fill(1, 3, w, 3, theme.subtle) + term.setCursorPos(1, 4) + center("Help") + + term.setBackgroundColor(theme.background) + term.setCursorPos(1, 7) + center("Click on the URL bar or press control to") + center("open the query box") + print("") + center("Type in a search query or website URL") + center("into the query box.") + print("") + center("Search for nothing to see all available") + center("websites.") + print("") + center("Visit rdnt://server to setup a server.") + center("Visit rdnt://update to update Firewolf.") +end + + +builtInSites["display"]["server"] = function() + clear(theme.background, theme.text) + + fill(1, 6, w, 3, theme.subtle) + term.setCursorPos(1, 7) + center("Server Software") + + term.setBackgroundColor(theme.background) + term.setCursorPos(1, 11) + if not http then + center("HTTP is not enabled!") + print("") + center("Please enable it in your config file") + center("to download Firewolf Server.") + else + center("Press space to download") + center("Firewolf Server to:") + print("") + center("/fwserver") + + while true do + local event, key = os.pullEvent() + if event == "key" and key == 57 then + fill(1, 11, w, 4, theme.background) + term.setCursorPos(1, 11) + center("Downloading...") + + local err = downloadAndSave(serverURL, "/fwserver") + + fill(1, 11, w, 4, theme.background) + term.setCursorPos(1, 11) + center(err and "Download failed!" or "Download successful!") + end + end + end +end + + +builtInSites["display"]["update"] = function() + clear(theme.background, theme.text) + + fill(1, 3, w, 3, theme.subtle) + term.setCursorPos(1, 4) + center("Update") + + term.setBackgroundColor(theme.background) + if not http then + term.setCursorPos(1, 9) + center("HTTP is not enabled!") + print("") + center("Please enable it in your config") + center("file to download Firewolf updates.") + else + term.setCursorPos(1, 10) + center("Checking for updates...") + + local available, err = updateAvailable() + + term.setCursorPos(1, 10) + if available then + term.clearLine() + center("Update found!") + center("Press enter to download.") + + while true do + local event, key = os.pullEvent() + if event == "key" and key == keys.enter then + break + end + end + + fill(1, 10, w, 2, theme.background) + term.setCursorPos(1, 10) + center("Downloading...") + + local err = redownloadBrowser() + + term.setCursorPos(1, 10) + term.clearLine() + if err then + center("Download failed!") + else + center("Download succeeded!") + center("Please restart Firewolf...") + end + elseif err then + term.clearLine() + center("Checking failed!") + else + term.clearLine() + center("No updates found.") + end + end +end + + + +-- Built In Websites + + +builtInSites["error"] = function(err) + fill(1, 3, w, 3, theme.subtle) + term.setCursorPos(1, 4) + center("Failed to load page!") + + term.setBackgroundColor(theme.background) + term.setCursorPos(1, 9) + center(err) + print("") + center("Please try again.") +end + + +builtInSites["noresults"] = function() + fill(1, 3, w, 3, theme.subtle) + term.setCursorPos(1, 4) + center("No results!") + + term.setBackgroundColor(theme.background) + term.setCursorPos(1, 9) + center("Your search didn't return") + center("any results!") + + os.pullEvent("key") + os.queueEvent("") + os.pullEvent() +end + + +builtInSites["search advanced"] = function(results) + local startY = 6 + local height = h - startY - 1 + local scroll = 0 + + local draw = function() + fill(1, startY, w, height + 1, theme.background) + + for i = scroll + 1, scroll + height do + if results[i] then + term.setCursorPos(5, (i - scroll) + startY) + term.write(currentProtocol .. "://" .. results[i]) + end + end + end + + draw() + while true do + local event, but, x, y = os.pullEvent() + + if event == "mouse_click" and y >= startY and y <= startY + height then + local item = results[y - startY + scroll] + if item then + os.queueEvent(redirectEvent, item) + coroutine.yield() + end + elseif event == "key" then + if but == keys.up then + scroll = math.max(0, scroll - 1) + elseif but == keys.down and #results > height then + scroll = math.min(scroll + 1, #results - height) + end + + draw() + elseif event == "mouse_scroll" then + if but > 0 then + os.queueEvent("key", keys.down) + else + os.queueEvent("key", keys.up) + end + end + end +end + + +builtInSites["search basic"] = function(results) + local startY = 6 + local height = h - startY - 1 + local scroll = 0 + local selected = 1 + + local draw = function() + fill(1, startY, w, height + 1, theme.background) + + for i = scroll + 1, scroll + height do + if results[i] then + if i == selected + scroll then + term.setCursorPos(3, (i - scroll) + startY) + term.write("> " .. currentProtocol .. "://" .. results[i]) + else + term.setCursorPos(5, (i - scroll) + startY) + term.write(currentProtocol .. "://" .. results[i]) + end + end + end + end + + draw() + while true do + local event, but, x, y = os.pullEvent() + + if event == "key" then + if but == keys.up and selected + scroll > 1 then + if selected > 1 then + selected = selected - 1 + else + scroll = math.max(0, scroll - 1) + end + elseif but == keys.down and selected + scroll < #results then + if selected < height then + selected = selected + 1 + else + scroll = math.min(scroll + 1, #results - height) + end + elseif but == keys.enter then + local item = results[scroll + selected] + if item then + os.queueEvent(redirectEvent, item) + coroutine.yield() + end + end + + draw() + elseif event == "mouse_scroll" then + if but > 0 then + os.queueEvent("key", keys.down) + else + os.queueEvent("key", keys.up) + end + end + end +end + + +builtInSites["search"] = function(results) + clear(theme.background, theme.text) + + fill(1, 3, w, 3, theme.subtle) + term.setCursorPos(1, 4) + center(#results .. " Search " .. (#results == 1 and "Result" or "Results")) + + term.setBackgroundColor(theme.background) + + if term.isColor() then + builtInSites["search advanced"](results) + else + builtInSites["search basic"](results) + end +end + + +builtInSites["crash"] = function(err) + fill(1, 3, w, 3, theme.subtle) + term.setCursorPos(1, 4) + center("The website crashed!") + + term.setBackgroundColor(theme.background) + term.setCursorPos(1, 8) + centerSplit(err, w - 4) + print("\n") + center("Please report this error to") + center("the website creator.") +end + + + +-- Menubar + + +local getTabName = function(url) + local name = url:match("^[^/]+") + + if not name then + name = "Search" + end + + if name:sub(1, 3) == "www" then + name = name:sub(5):gsub("^%s*(.-)%s*$", "%1") + end + + if name:len() > maxTabNameWidth then + name = name:sub(1, maxTabNameWidth):gsub("^%s*(.-)%s*$", "%1") + end + + if name:sub(-1, -1) == "." then + name = name:sub(1, -2):gsub("^%s*(.-)%s*$", "%1") + end + + return name:gsub("^%s*(.-)%s*$", "%1") +end + + +local determineClickedTab = function(x, y) + if y == 2 then + local minx = 2 + for i, tab in pairs(tabs) do + local name = getTabName(tab.url) + + if x >= minx and x <= minx + name:len() - 1 then + return i + elseif x == minx + name:len() and i == currentTab and #tabs > 1 then + return "close" + else + minx = minx + name:len() + 2 + end + end + + if x == minx and #tabs < maxTabs then + return "new" + end + end + + return nil +end + + +local setupMenubar = function() + if enableTabBar then + menubarWindow = window.create(originalTerminal, 1, 1, w, 2, false) + else + menubarWindow = window.create(originalTerminal, 1, 1, w, 1, false) + end +end + + +local drawMenubar = function() + if isMenubarOpen then + term.redirect(menubarWindow) + menubarWindow.setVisible(true) + + fill(1, 1, w, 1, theme.accent) + term.setTextColor(theme.text) + + term.setBackgroundColor(theme.accent) + term.setCursorPos(2, 1) + if currentWebsiteURL:match("^[^%?]+") then + term.write(currentProtocol .. "://" .. currentWebsiteURL:match("^[^%?]+")) + else + term.write(currentProtocol .. "://" ..currentWebsiteURL) + end + + term.setCursorPos(w - 5, 1) + term.write("[===]") + + if enableTabBar then + fill(1, 2, w, 1, theme.subtle) + + term.setCursorPos(1, 2) + for i, tab in pairs(tabs) do + term.setBackgroundColor(theme.subtle) + term.setTextColor(theme.lightText) + if i == currentTab then + term.setTextColor(theme.text) + end + + local tabName = getTabName(tab.url) + term.write(" " .. tabName) + + if i == currentTab and #tabs > 1 then + term.setTextColor(theme.errorText) + term.write("x") + else + term.write(" ") + end + end + + if #tabs < maxTabs then + term.setTextColor(theme.lightText) + term.setBackgroundColor(theme.subtle) + term.write(" + ") + end + end + else + menubarWindow.setVisible(false) + end +end + + + +-- RC4 +-- Implementation by AgentE382 + + +local cryptWrapper = function(plaintext, salt) + local key = type(salt) == "table" and {unpack(salt)} or {string.byte(salt, 1, #salt)} + local S = {} + for i = 0, 255 do + S[i] = i + end + + local j, keylength = 0, #key + for i = 0, 255 do + j = (j + S[i] + key[i % keylength + 1]) % 256 + S[i], S[j] = S[j], S[i] + end + + local i = 0 + j = 0 + local chars, astable = type(plaintext) == "table" and {unpack(plaintext)} or {string.byte(plaintext, 1, #plaintext)}, false + + for n = 1, #chars do + i = (i + 1) % 256 + j = (j + S[i]) % 256 + S[i], S[j] = S[j], S[i] + chars[n] = bit.bxor(S[(S[i] + S[j]) % 256], chars[n]) + if chars[n] > 127 or chars[n] == 13 then + astable = true + end + end + + return astable and chars or string.char(unpack(chars)) +end + + +local crypt = function(text, key) + local resp, msg = pcall(cryptWrapper, text, key) + if resp then + return msg + else + return nil + end +end + + + +-- Base64 +-- +-- Base64 Encryption/Decryption +-- By KillaVanilla +-- http://www.computercraft.info/forums2/index.php?/topic/12450-killavanillas-various-apis/ +-- http://pastebin.com/rCYDnCxn +-- + + +local alphabet = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz0123456789+/" + + +local function sixBitToBase64(input) + return string.sub(alphabet, input+1, input+1) +end + + +local function base64ToSixBit(input) + for i=1, 64 do + if input == string.sub(alphabet, i, i) then + return i-1 + end + end +end + + +local function octetToBase64(o1, o2, o3) + local shifted = bit.brshift(bit.band(o1, 0xFC), 2) + local i1 = sixBitToBase64(shifted) + local i2 = "A" + local i3 = "=" + local i4 = "=" + if o2 then + i2 = sixBitToBase64(bit.bor( bit.blshift(bit.band(o1, 3), 4), bit.brshift(bit.band(o2, 0xF0), 4) )) + if not o3 then + i3 = sixBitToBase64(bit.blshift(bit.band(o2, 0x0F), 2)) + else + i3 = sixBitToBase64(bit.bor( bit.blshift(bit.band(o2, 0x0F), 2), bit.brshift(bit.band(o3, 0xC0), 6) )) + end + else + i2 = sixBitToBase64(bit.blshift(bit.band(o1, 3), 4)) + end + if o3 then + i4 = sixBitToBase64(bit.band(o3, 0x3F)) + end + + return i1..i2..i3..i4 +end + + +local function base64ToThreeOctet(s1) + local c1 = base64ToSixBit(string.sub(s1, 1, 1)) + local c2 = base64ToSixBit(string.sub(s1, 2, 2)) + local c3 = 0 + local c4 = 0 + local o1 = 0 + local o2 = 0 + local o3 = 0 + if string.sub(s1, 3, 3) == "=" then + c3 = nil + c4 = nil + elseif string.sub(s1, 4, 4) == "=" then + c3 = base64ToSixBit(string.sub(s1, 3, 3)) + c4 = nil + else + c3 = base64ToSixBit(string.sub(s1, 3, 3)) + c4 = base64ToSixBit(string.sub(s1, 4, 4)) + end + o1 = bit.bor( bit.blshift(c1, 2), bit.brshift(bit.band( c2, 0x30 ), 4) ) + if c3 then + o2 = bit.bor( bit.blshift(bit.band(c2, 0x0F), 4), bit.brshift(bit.band( c3, 0x3C ), 2) ) + else + o2 = nil + end + if c4 then + o3 = bit.bor( bit.blshift(bit.band(c3, 3), 6), c4 ) + else + o3 = nil + end + return o1, o2, o3 +end + + +local function splitIntoBlocks(bytes) + local blockNum = 1 + local blocks = {} + for i=1, #bytes, 3 do + blocks[blockNum] = {bytes[i], bytes[i+1], bytes[i+2]} + blockNum = blockNum+1 + end + return blocks +end + + +function base64Encode(bytes) + local blocks = splitIntoBlocks(bytes) + local output = "" + for i=1, #blocks do + output = output..octetToBase64( unpack(blocks[i]) ) + end + return output +end + + +function base64Decode(str) + local bytes = {} + local blocks = {} + local blockNum = 1 + + for i=1, #str, 4 do + blocks[blockNum] = string.sub(str, i, i+3) + blockNum = blockNum+1 + end + + for i=1, #blocks do + local o1, o2, o3 = base64ToThreeOctet(blocks[i]) + table.insert(bytes, o1) + table.insert(bytes, o2) + table.insert(bytes, o3) + end + + return bytes +end + + + +-- SHA-256 +-- +-- Adaptation of the Secure Hashing Algorithm (SHA-244/256) +-- Found Here: http://lua-users.org/wiki/SecureHashAlgorithm +-- +-- Using an adapted version of the bit library +-- Found Here: https://bitbucket.org/Boolsheet/bslf/src/1ee664885805/bit.lua + + +local MOD = 2^32 +local MODM = MOD-1 + + +local function memoize(f) + local mt = {} + local t = setmetatable({}, mt) + function mt:__index(k) + local v = f(k) + t[k] = v + return v + end + return t +end + + +local function make_bitop_uncached(t, m) + local function bitop(a, b) + local res,p = 0,1 + while a ~= 0 and b ~= 0 do + local am, bm = a % m, b % m + res = res + t[am][bm] * p + a = (a - am) / m + b = (b - bm) / m + p = p * m + end + res = res + (a + b) * p + return res + end + + return bitop +end + + +local function make_bitop(t) + local op1 = make_bitop_uncached(t,2^1) + local op2 = memoize(function(a) + return memoize(function(b) + return op1(a, b) + end) + end) + return make_bitop_uncached(op2, 2 ^ (t.n or 1)) +end + + +local customBxor1 = make_bitop({[0] = {[0] = 0,[1] = 1}, [1] = {[0] = 1, [1] = 0}, n = 4}) + +local function customBxor(a, b, c, ...) + local z = nil + if b then + a = a % MOD + b = b % MOD + z = customBxor1(a, b) + if c then + z = customBxor(z, c, ...) + end + return z + elseif a then + return a % MOD + else + return 0 + end +end + + +local function customBand(a, b, c, ...) + local z + if b then + a = a % MOD + b = b % MOD + z = ((a + b) - customBxor1(a,b)) / 2 + if c then + z = customBand(z, c, ...) + end + return z + elseif a then + return a % MOD + else + return MODM + end +end + + +local function bnot(x) + return (-1 - x) % MOD +end + + +local function rshift1(a, disp) + if disp < 0 then + return lshift(a, -disp) + end + return math.floor(a % 2 ^ 32 / 2 ^ disp) +end + + +local function rshift(x, disp) + if disp > 31 or disp < -31 then + return 0 + end + return rshift1(x % MOD, disp) +end + + +local function lshift(a, disp) + if disp < 0 then + return rshift(a, -disp) + end + return (a * 2 ^ disp) % 2 ^ 32 +end + + +local function rrotate(x, disp) + x = x % MOD + disp = disp % 32 + local low = customBand(x, 2 ^ disp - 1) + return rshift(x, disp) + lshift(low, 32 - disp) +end + + +local k = { + 0x428a2f98, 0x71374491, 0xb5c0fbcf, 0xe9b5dba5, + 0x3956c25b, 0x59f111f1, 0x923f82a4, 0xab1c5ed5, + 0xd807aa98, 0x12835b01, 0x243185be, 0x550c7dc3, + 0x72be5d74, 0x80deb1fe, 0x9bdc06a7, 0xc19bf174, + 0xe49b69c1, 0xefbe4786, 0x0fc19dc6, 0x240ca1cc, + 0x2de92c6f, 0x4a7484aa, 0x5cb0a9dc, 0x76f988da, + 0x983e5152, 0xa831c66d, 0xb00327c8, 0xbf597fc7, + 0xc6e00bf3, 0xd5a79147, 0x06ca6351, 0x14292967, + 0x27b70a85, 0x2e1b2138, 0x4d2c6dfc, 0x53380d13, + 0x650a7354, 0x766a0abb, 0x81c2c92e, 0x92722c85, + 0xa2bfe8a1, 0xa81a664b, 0xc24b8b70, 0xc76c51a3, + 0xd192e819, 0xd6990624, 0xf40e3585, 0x106aa070, + 0x19a4c116, 0x1e376c08, 0x2748774c, 0x34b0bcb5, + 0x391c0cb3, 0x4ed8aa4a, 0x5b9cca4f, 0x682e6ff3, + 0x748f82ee, 0x78a5636f, 0x84c87814, 0x8cc70208, + 0x90befffa, 0xa4506ceb, 0xbef9a3f7, 0xc67178f2, +} + + +local function str2hexa(s) + return (string.gsub(s, ".", function(c) + return string.format("%02x", string.byte(c)) + end)) +end + + +local function num2s(l, n) + local s = "" + for i = 1, n do + local rem = l % 256 + s = string.char(rem) .. s + l = (l - rem) / 256 + end + return s +end + + +local function s232num(s, i) + local n = 0 + for i = i, i + 3 do + n = n*256 + string.byte(s, i) + end + return n +end + + +local function preproc(msg, len) + local extra = 64 - ((len + 9) % 64) + len = num2s(8 * len, 8) + msg = msg .. "\128" .. string.rep("\0", extra) .. len + assert(#msg % 64 == 0) + return msg +end + + +local function initH256(H) + H[1] = 0x6a09e667 + H[2] = 0xbb67ae85 + H[3] = 0x3c6ef372 + H[4] = 0xa54ff53a + H[5] = 0x510e527f + H[6] = 0x9b05688c + H[7] = 0x1f83d9ab + H[8] = 0x5be0cd19 + return H +end + + +local function digestblock(msg, i, H) + local w = {} + for j = 1, 16 do + w[j] = s232num(msg, i + (j - 1)*4) + end + for j = 17, 64 do + local v = w[j - 15] + local s0 = customBxor(rrotate(v, 7), rrotate(v, 18), rshift(v, 3)) + v = w[j - 2] + w[j] = w[j - 16] + s0 + w[j - 7] + customBxor(rrotate(v, 17), rrotate(v, 19), rshift(v, 10)) + end + + local a, b, c, d, e, f, g, h = H[1], H[2], H[3], H[4], H[5], H[6], H[7], H[8] + for i = 1, 64 do + local s0 = customBxor(rrotate(a, 2), rrotate(a, 13), rrotate(a, 22)) + local maj = customBxor(customBand(a, b), customBand(a, c), customBand(b, c)) + local t2 = s0 + maj + local s1 = customBxor(rrotate(e, 6), rrotate(e, 11), rrotate(e, 25)) + local ch = customBxor (customBand(e, f), customBand(bnot(e), g)) + local t1 = h + s1 + ch + k[i] + w[i] + h, g, f, e, d, c, b, a = g, f, e, d + t1, c, b, a, t1 + t2 + end + + H[1] = customBand(H[1] + a) + H[2] = customBand(H[2] + b) + H[3] = customBand(H[3] + c) + H[4] = customBand(H[4] + d) + H[5] = customBand(H[5] + e) + H[6] = customBand(H[6] + f) + H[7] = customBand(H[7] + g) + H[8] = customBand(H[8] + h) +end + + +local function sha256(msg) + msg = preproc(msg, #msg) + local H = initH256({}) + for i = 1, #msg, 64 do + digestblock(msg, i, H) + end + return str2hexa(num2s(H[1], 4) .. num2s(H[2], 4) .. num2s(H[3], 4) .. num2s(H[4], 4) .. + num2s(H[5], 4) .. num2s(H[6], 4) .. num2s(H[7], 4) .. num2s(H[8], 4)) +end + + +local protocolName = "Firewolf" + + + +-- Cryptography + + +local Cryptography = {} +Cryptography.sha = {} +Cryptography.base64 = {} +Cryptography.aes = {} + + +function Cryptography.bytesFromMessage(msg) + local bytes = {} + + for i = 1, msg:len() do + local letter = string.byte(msg:sub(i, i)) + table.insert(bytes, letter) + end + + return bytes +end + + +function Cryptography.messageFromBytes(bytes) + local msg = "" + + for i = 1, #bytes do + local letter = string.char(bytes[i]) + msg = msg .. letter + end + + return msg +end + + +function Cryptography.bytesFromKey(key) + local bytes = {} + + for i = 1, key:len() / 2 do + local group = key:sub((i - 1) * 2 + 1, (i - 1) * 2 + 1) + local num = tonumber(group, 16) + table.insert(bytes, num) + end + + return bytes +end + + +function Cryptography.sha.sha256(msg) + return sha256(msg) +end + + +function Cryptography.aes.encrypt(msg, key) + return base64Encode(crypt(msg, key)) +end + + +function Cryptography.aes.decrypt(msg, key) + return crypt(base64Decode(msg), key) +end + + +function Cryptography.base64.encode(msg) + return base64Encode(Cryptography.bytesFromMessage(msg)) +end + + +function Cryptography.base64.decode(msg) + return Cryptography.messageFromBytes(base64Decode(msg)) +end + + +function Cryptography.channel(text) + local hashed = Cryptography.sha.sha256(text) + + local total = 0 + + for i = 1, hashed:len() do + total = total + string.byte(hashed:sub(i, i)) + end + + return (total % 55530) + 10000 +end + + +function Cryptography.sanatize(text) + local sanatizeChars = {"%", "(", ")", "[", "]", ".", "+", "-", "*", "?", "^", "$"} + + for _, char in pairs(sanatizeChars) do + text = text:gsub("%"..char, "%%%"..char) + end + return text +end + + + +-- Modem + + +local Modem = {} +Modem.modems = {} + + +function Modem.exists() + Modem.exists = false + for _, side in pairs(rs.getSides()) do + if peripheral.isPresent(side) and peripheral.getType(side) == "modem" then + Modem.exists = true + + if not Modem.modems[side] then + Modem.modems[side] = peripheral.wrap(side) + end + end + end + + return Modem.exists +end + + +function Modem.open(channel) + if not Modem.exists then + return false + end + + for side, modem in pairs(Modem.modems) do + modem.open(channel) + rednet.open(side) + end + + return true +end + + +function Modem.close(channel) + if not Modem.exists then + return false + end + + for side, modem in pairs(Modem.modems) do + modem.close(channel) + end + + return true +end + + +function Modem.closeAll() + if not Modem.exists then + return false + end + + for side, modem in pairs(Modem.modems) do + modem.closeAll() + end + + return true +end + + +function Modem.isOpen(channel) + if not Modem.exists then + return false + end + + local isOpen = false + for side, modem in pairs(Modem.modems) do + if modem.isOpen(channel) then + isOpen = true + break + end + end + + return isOpen +end + + +function Modem.transmit(channel, msg) + if not Modem.exists then + return false + end + + if not Modem.isOpen(channel) then + Modem.open(channel) + end + + for side, modem in pairs(Modem.modems) do + modem.transmit(channel, channel, msg) + end + + return true +end + + + +-- Handshake + + +local Handshake = {} + +Handshake.prime = 625210769 +Handshake.channel = 54569 +Handshake.base = -1 +Handshake.secret = -1 +Handshake.sharedSecret = -1 +Handshake.packetHeader = "["..protocolName.."-Handshake-Packet-Header]" +Handshake.packetMatch = "%["..protocolName.."%-Handshake%-Packet%-Header%](.+)" + + +function Handshake.exponentWithModulo(base, exponent, modulo) + local remainder = base + + for i = 1, exponent-1 do + remainder = remainder * remainder + if remainder >= modulo then + remainder = remainder % modulo + end + end + + return remainder +end + + +function Handshake.clear() + Handshake.base = -1 + Handshake.secret = -1 + Handshake.sharedSecret = -1 +end + + +function Handshake.generateInitiatorData() + Handshake.base = math.random(10,99999) + Handshake.secret = math.random(10,99999) + return { + type = "initiate", + prime = Handshake.prime, + base = Handshake.base, + moddedSecret = Handshake.exponentWithModulo(Handshake.base, Handshake.secret, Handshake.prime) + } +end + + +function Handshake.generateResponseData(initiatorData) + local isPrimeANumber = type(initiatorData.prime) == "number" + local isPrimeMatching = initiatorData.prime == Handshake.prime + local isBaseANumber = type(initiatorData.base) == "number" + local isInitiator = initiatorData.type == "initiate" + local isModdedSecretANumber = type(initiatorData.moddedSecret) == "number" + local areAllNumbersNumbers = isPrimeANumber and isBaseANumber and isModdedSecretANumber + + if areAllNumbersNumbers and isPrimeMatching then + if isInitiator then + Handshake.base = initiatorData.base + Handshake.secret = math.random(10,99999) + Handshake.sharedSecret = Handshake.exponentWithModulo(initiatorData.moddedSecret, Handshake.secret, Handshake.prime) + return { + type = "response", + prime = Handshake.prime, + base = Handshake.base, + moddedSecret = Handshake.exponentWithModulo(Handshake.base, Handshake.secret, Handshake.prime) + }, Handshake.sharedSecret + elseif initiatorData.type == "response" and Handshake.base > 0 and Handshake.secret > 0 then + Handshake.sharedSecret = Handshake.exponentWithModulo(initiatorData.moddedSecret, Handshake.secret, Handshake.prime) + return Handshake.sharedSecret + else + return false + end + else + return false + end +end + + + +-- Secure Connection + + +local SecureConnection = {} +SecureConnection.__index = SecureConnection + + +SecureConnection.packetHeaderA = "["..protocolName.."-" +SecureConnection.packetHeaderB = "-SecureConnection-Packet-Header]" +SecureConnection.packetMatchA = "%["..protocolName.."%-" +SecureConnection.packetMatchB = "%-SecureConnection%-Packet%-Header%](.+)" +SecureConnection.connectionTimeout = 0.1 +SecureConnection.successPacketTimeout = 0.1 + + +function SecureConnection.new(secret, key, identifier, distance, isRednet) + local self = setmetatable({}, SecureConnection) + self:setup(secret, key, identifier, distance, isRednet) + return self +end + + +function SecureConnection:setup(secret, key, identifier, distance, isRednet) + local rawSecret + + if isRednet then + self.isRednet = true + self.distance = -1 + self.rednet_id = distance + rawSecret = protocolName .. "|" .. tostring(secret) .. "|" .. tostring(identifier) .. + "|" .. tostring(key) .. "|rednet" + else + self.isRednet = false + self.distance = distance + rawSecret = protocolName .. "|" .. tostring(secret) .. "|" .. tostring(identifier) .. + "|" .. tostring(key) .. "|" .. tostring(distance) + end + + self.identifier = identifier + self.packetMatch = SecureConnection.packetMatchA .. Cryptography.sanatize(identifier) .. SecureConnection.packetMatchB + self.packetHeader = SecureConnection.packetHeaderA .. identifier .. SecureConnection.packetHeaderB + self.secret = Cryptography.sha.sha256(rawSecret) + self.channel = Cryptography.channel(self.secret) + + if not self.isRednet then + Modem.open(self.channel) + end +end + + +function SecureConnection:verifyHeader(msg) + if msg:match(self.packetMatch) then + return true + else + return false + end +end + + +function SecureConnection:sendMessage(msg, rednetProtocol) + local rawEncryptedMsg = Cryptography.aes.encrypt(self.packetHeader .. msg, self.secret) + local encryptedMsg = self.packetHeader .. rawEncryptedMsg + + if self.isRednet then + rednet.send(self.rednet_id, encryptedMsg, rednetProtocol) + return true + else + return Modem.transmit(self.channel, encryptedMsg) + end +end + + +function SecureConnection:decryptMessage(msg) + if self:verifyHeader(msg) then + local encrypted = msg:match(self.packetMatch) + + local unencryptedMsg = nil + pcall(function() unencryptedMsg = Cryptography.aes.decrypt(encrypted, self.secret) end) + if not unencryptedMsg then + return false, "Could not decrypt" + end + + if self:verifyHeader(unencryptedMsg) then + return true, unencryptedMsg:match(self.packetMatch) + else + return false, "Could not verify" + end + else + return false, "Could not stage 1 verify" + end +end + + + +-- RDNT Protocol + + +protocols["rdnt"] = {} + +local header = {} +header.dnsPacket = "[Firewolf-DNS-Packet]" +header.dnsHeaderMatch = "^%[Firewolf%-DNS%-Response%](.+)$" +header.rednetHeader = "[Firewolf-Rednet-Channel-Simulation]" +header.rednetMatch = "^%[Firewolf%-Rednet%-Channel%-Simulation%](%d+)$" +header.responseMatchA = "^%[Firewolf%-" +header.responseMatchB = "%-" +header.responseMatchC = "%-Handshake%-Response%](.+)$" +header.requestHeaderA = "[Firewolf-" +header.requestHeaderB = "-Handshake-Request]" +header.pageRequestHeaderA = "[Firewolf-" +header.pageRequestHeaderB = "-Page-Request]" +header.pageResponseMatchA = "^%[Firewolf%-" +header.pageResponseMatchB = "%-Page%-Response%]%[HEADER%](.-)%[BODY%](.+)$" +header.closeHeaderA = "[Firewolf-" +header.closeHeaderB = "-Connection-Close]" + + +protocols["rdnt"]["setup"] = function() + if not Modem.exists() then + error("No modem found!") + end +end + + +protocols["rdnt"]["fetchAllSearchResults"] = function() + Modem.open(publicDNSChannel) + Modem.open(publicResponseChannel) + Modem.transmit(publicDNSChannel, header.dnsPacket) + Modem.close(publicDNSChannel) + + rednet.broadcast(header.dnsPacket, header.rednetHeader .. publicDNSChannel) + + local uniqueServers = {} + local uniqueDomains = {} + + local timer = os.startTimer(searchResultTimeout) + + while true do + local event, id, channel, protocol, message, dist = os.pullEventRaw() + if event == "modem_message" then + if channel == publicResponseChannel and message:match(header.dnsHeaderMatch) then + if not uniqueServers[tostring(dist)] then + uniqueServers[tostring(dist)] = true + local domain = message:match(header.dnsHeaderMatch) + if not uniqueDomains[domain] then + if not(domain:find("/") or domain:find(":") or domain:find("%?")) and #domain > 4 then + timer = os.startTimer(searchResultTimeout) + uniqueDomains[message:match(header.dnsHeaderMatch)] = tostring(dist) + end + end + end + end + elseif event == "rednet_message" and allowUnencryptedConnections then + if protocol and tonumber(protocol:match(header.rednetMatch)) == publicResponseChannel and channel:match(header.dnsHeaderMatch) then + if not uniqueServers[tostring(id)] then + uniqueServers[tostring(id)] = true + local domain = channel:match(header.dnsHeaderMatch) + if not uniqueDomains[domain] then + if not(domain:find("/") or domain:find(":") or domain:find("%?")) and #domain > 4 then + timer = os.startTimer(searchResultTimeout) + uniqueDomains[domain] = tostring(id) + end + end + end + end + elseif event == "timer" and id == timer then + local results = {} + for k, _ in pairs(uniqueDomains) do + table.insert(results, k) + end + + return results + end + end +end + + +protocols["rdnt"]["fetchConnectionObject"] = function(url) + local serverChannel = Cryptography.channel(url) + local requestHeader = header.requestHeaderA .. url .. header.requestHeaderB + local responseMatch = header.responseMatchA .. Cryptography.sanatize(url) .. header.responseMatchB + + local serializedHandshake = textutils.serialize(Handshake.generateInitiatorData()) + + local rednetResults = {} + local directResults = {} + + local disconnectOthers = function(ignoreDirect) + for k,v in pairs(rednetResults) do + v.close() + end + for k,v in pairs(directResults) do + if k ~= ignoreDirect then + v.close() + end + end + end + + local timer = os.startTimer(initiationTimeout) + + Modem.open(serverChannel) + Modem.transmit(serverChannel, requestHeader .. serializedHandshake) + + rednet.broadcast(requestHeader .. serializedHandshake, header.rednetHeader .. serverChannel) + + -- Extendable to have server selection + + while true do + local event, id, channel, protocol, message, dist = os.pullEventRaw() + if event == "modem_message" then + local fullMatch = responseMatch .. tostring(dist) .. header.responseMatchC + if channel == serverChannel and message:match(fullMatch) and type(textutils.unserialize(message:match(fullMatch))) == "table" then + local key = Handshake.generateResponseData(textutils.unserialize(message:match(fullMatch))) + if key then + local connection = SecureConnection.new(key, url, url, dist) + table.insert(directResults, { + connection = connection, + fetchPage = function(page) + if not connection then + return nil + end + + local fetchTimer = os.startTimer(fetchTimeout) + + local pageRequest = header.pageRequestHeaderA .. url .. header.pageRequestHeaderB .. page + local pageResponseMatch = header.pageResponseMatchA .. Cryptography.sanatize(url) .. header.pageResponseMatchB + + connection:sendMessage(pageRequest, header.rednetHeader .. connection.channel) + + while true do + local event, id, channel, protocol, message, dist = os.pullEventRaw() + if event == "modem_message" and channel == connection.channel and connection:verifyHeader(message) then + local resp, data = connection:decryptMessage(message) + if not resp then + -- Decryption error + elseif data and data ~= page then + if data:match(pageResponseMatch) then + local head, body = data:match(pageResponseMatch) + return body, textutils.unserialize(head) + end + end + elseif event == "timer" and id == fetchTimer then + return nil + end + end + end, + close = function() + if connection ~= nil then + connection:sendMessage(header.closeHeaderA .. url .. header.closeHeaderB, header.rednetHeader..connection.channel) + Modem.close(connection.channel) + connection = nil + end + end + }) + + disconnectOthers(1) + return directResults[1] + end + end + elseif event == "rednet_message" then + local fullMatch = responseMatch .. os.getComputerID() .. header.responseMatchC + if protocol and tonumber(protocol:match(header.rednetMatch)) == serverChannel and channel:match(fullMatch) and type(textutils.unserialize(channel:match(fullMatch))) == "table" then + local key = Handshake.generateResponseData(textutils.unserialize(channel:match(fullMatch))) + if key then + local connection = SecureConnection.new(key, url, url, id, true) + table.insert(rednetResults, { + connection = connection, + fetchPage = function(page) + if not connection then + return nil + end + + local fetchTimer = os.startTimer(fetchTimeout) + + local pageRequest = header.pageRequestHeaderA .. url .. header.pageRequestHeaderB .. page + local pageResponseMatch = header.pageResponseMatchA .. Cryptography.sanatize(url) .. header.pageResponseMatchB + + connection:sendMessage(pageRequest, header.rednetHeader .. connection.channel) + + while true do + local event, id, channel, protocol, message, dist = os.pullEventRaw() + if event == "rednet_message" and protocol and tonumber(protocol:match(header.rednetMatch)) == connection.channel and connection:verifyHeader(channel) then + local resp, data = connection:decryptMessage(channel) + if not resp then + -- Decryption error + elseif data and data ~= page then + if data:match(pageResponseMatch) then + local head, body = data:match(pageResponseMatch) + return body, textutils.unserialize(head) + end + end + elseif event == "timer" and id == fetchTimer then + return nil + end + end + end, + close = function() + connection:sendMessage(header.closeHeaderA .. url .. header.closeHeaderB, header.rednetHeader..connection.channel) + Modem.close(connection.channel) + connection = nil + end + }) + + if #rednetResults == 1 then + timer = os.startTimer(0.2) + end + end + end + elseif event == "timer" and id == timer then + -- Return + if #directResults > 0 then + disconnectOthers(1) + return directResults[1] + elseif #rednetResults > 0 then + local lowestID = math.huge + local lowestResult = nil + for k,v in pairs(rednetResults) do + if v.connection.rednet_id < lowestID then + lowestID = v.connection.rednet_id + lowestResult = v + end + end + + for k,v in pairs(rednetResults) do + if v.connection.rednet_id ~= lowestID then + v.close() + end + end + + return lowestResult + else + return nil + end + end + end +end + + + +-- Fetching Raw Data + + +local fetchSearchResultsForQuery = function(query) + local all = protocols[currentProtocol]["fetchAllSearchResults"]() + local results = {} + if query and query:len() > 0 then + for _, v in pairs(all) do + if v:find(query:lower()) then + table.insert(results, v) + end + end + else + results = all + end + + table.sort(results) + return results +end + + +local getConnectionObjectFromURL = function(url) + local domain = url:match("^([^/]+)") + return protocols[currentProtocol]["fetchConnectionObject"](domain) +end + + +local determineLanguage = function(header) + if type(header) == "table" then + if header.language and header.language == "Firewolf Markup" then + return "fwml" + else + return "lua" + end + else + return "lua" + end +end + + + +-- History + + +local appendToHistory = function(url) + if history[1] ~= url then + table.insert(history, 1, url) + end +end + + + +-- Fetch Websites + + +local loadingAnimation = function() + local state = -2 + + term.setTextColor(theme.text) + term.setBackgroundColor(theme.accent) + + term.setCursorPos(w - 5, 1) + term.write("[= ]") + + local timer = os.startTimer(animationInterval) + + while true do + local event, timerID = os.pullEvent() + if event == "timer" and timerID == timer then + term.setTextColor(theme.text) + term.setBackgroundColor(theme.accent) + + state = state + 1 + + term.setCursorPos(w - 5, 1) + term.write("[ ]") + term.setCursorPos(w - 2 - math.abs(state), 1) + term.write("=") + + if state == 2 then + state = -2 + end + + timer = os.startTimer(animationInterval) + end + end +end + + +local normalizeURL = function(url) + url = url:lower():gsub(" ", "") + if url == "home" or url == "homepage" then + url = "firewolf" + end + + return url +end + + +local normalizePage = function(page) + if not page then page = "" end + page = page:lower() + if page == "" then + page = "/" + end + return page +end + + +local determineActionForURL = function(url) + if url:len() > 0 and url:gsub("/", ""):len() == 0 then + return "none" + end + + if url == "exit" then + return "exit" + elseif builtInSites["display"][url] then + return "internal website" + elseif url == "" then + local results = fetchSearchResultsForQuery() + if #results > 0 then + return "search", results + else + return "none" + end + else + local connection = getConnectionObjectFromURL(url) + if connection then + return "external website", connection + else + local results = fetchSearchResultsForQuery(url) + if #results > 0 then + return "search", results + else + return "none" + end + end + end +end + + +local fetchSearch = function(url, results) + return languages["lua"]["runWithoutAntivirus"](builtInSites["search"], results) +end + + +local fetchInternal = function(url) + return languages["lua"]["runWithoutAntivirus"](builtInSites["display"][url]) +end + + +local fetchError = function(err) + return languages["lua"]["runWithoutAntivirus"](builtInSites["error"], err) +end + + +local fetchExternal = function(url, connection) + if connection.multipleServers then + -- Please forgive me + -- GravityScore forced me to do it like this + -- I don't mean it, I really don't. + connection = connection.servers[1] + end + + local page = normalizePage(url:match("^[^/]+/(.+)")) + local contents, head = connection.fetchPage(page) + if contents then + if type(contents) ~= "string" then + return fetchNone() + else + local language = determineLanguage(head) + return languages[language]["run"](contents, page, connection) + end + else + if connection then + connection.close() + return "retry" + end + return fetchError("A connection error/timeout has occurred!") + end +end + + +local fetchNone = function() + return languages["lua"]["runWithoutAntivirus"](builtInSites["noresults"]) +end + + +local fetchURL = function(url, inheritConnection) + url = normalizeURL(url) + currentWebsiteURL = url + + if inheritConnection then + local resp = fetchExternal(url, inheritConnection) + if resp ~= "retry" then + return resp, false, inheritConnection + end + end + + local action, connection = determineActionForURL(url) + + if action == "search" then + return fetchSearch(url, connection), true + elseif action == "internal website" then + return fetchInternal(url), true + elseif action == "external website" then + local resp = fetchExternal(url, connection) + if resp == "retry" then + return fetchError("A connection error/timeout has occurred!"), false, connection + else + return resp, false, connection + end + elseif action == "none" then + return fetchNone(), true + elseif action == "exit" then + os.queueEvent("terminate") + end + + return nil +end + + + +-- Tabs + + +local switchTab = function(index, shouldntResume) + if not tabs[index] then + return + end + + if tabs[currentTab].win then + tabs[currentTab].win.setVisible(false) + end + + currentTab = index + isMenubarOpen = tabs[currentTab].isMenubarOpen + currentWebsiteURL = tabs[currentTab].url + + term.redirect(originalTerminal) + clear(theme.background, theme.text) + drawMenubar() + + term.redirect(tabs[currentTab].win) + term.setCursorPos(1, 1) + tabs[currentTab].win.setVisible(true) + tabs[currentTab].win.redraw() + + if not shouldntResume then + coroutine.resume(tabs[currentTab].thread) + end +end + + +local closeCurrentTab = function() + if #tabs <= 0 then + return + end + + table.remove(tabs, currentTab) + + currentTab = math.max(currentTab - 1, 1) + switchTab(currentTab, true) +end + + +local loadTab = function(index, url, givenFunc) + url = normalizeURL(url) + + local func = nil + local isOpen = true + local currentConnection = false + + isMenubarOpen = true + currentWebsiteURL = url + drawMenubar() + + if tabs[index] and tabs[index].connection and tabs[index].url then + if url:match("^([^/]+)") == tabs[index].url:match("^([^/]+)") then + currentConnection = tabs[index].connection + else + tabs[index].connection.close() + tabs[index].connection = nil + end + end + + if givenFunc then + func = givenFunc + else + parallel.waitForAny(function() + func, isOpen, connection = fetchURL(url, currentConnection) + end, function() + while true do + local event, key = os.pullEvent() + if event == "key" and (key == 29 or key == 157) then + break + end + end + end, loadingAnimation) + end + + if func then + appendToHistory(url) + + tabs[index] = {} + tabs[index].url = url + tabs[index].connection = connection + tabs[index].win = window.create(originalTerminal, 1, 1, w, h, false) + + tabs[index].thread = coroutine.create(func) + tabs[index].isMenubarOpen = isOpen + tabs[index].isMenubarPermanent = isOpen + + tabs[index].ox = 1 + tabs[index].oy = 1 + + term.redirect(tabs[index].win) + clear(theme.background, theme.text) + + switchTab(index) + end +end + + + +-- Website Environments + + +local getWhitelistedEnvironment = function() + local env = {} + + local function copy(source, destination, key) + destination[key] = {} + for k, v in pairs(source) do + destination[key][k] = v + end + end + + copy(bit, env, "bit") + copy(colors, env, "colors") + copy(colours, env, "colours") + copy(coroutine, env, "coroutine") + + copy(disk, env, "disk") + env["disk"]["setLabel"] = nil + env["disk"]["eject"] = nil + + copy(gps, env, "gps") + copy(help, env, "help") + copy(keys, env, "keys") + copy(math, env, "math") + + copy(os, env, "os") + env["os"]["run"] = nil + env["os"]["shutdown"] = nil + env["os"]["reboot"] = nil + env["os"]["setComputerLabel"] = nil + env["os"]["queueEvent"] = nil + env["os"]["pullEvent"] = function(filter) + while true do + local event = {os.pullEvent(filter)} + if not filter then + return unpack(event) + elseif filter and event[1] == filter then + return unpack(event) + end + end + end + env["os"]["pullEventRaw"] = env["os"]["pullEvent"] + + copy(paintutils, env, "paintutils") + copy(parallel, env, "parallel") + copy(peripheral, env, "peripheral") + copy(rednet, env, "rednet") + copy(redstone, env, "redstone") + copy(redstone, env, "rs") + + copy(shell, env, "shell") + env["shell"]["run"] = nil + env["shell"]["exit"] = nil + env["shell"]["setDir"] = nil + env["shell"]["setAlias"] = nil + env["shell"]["clearAlias"] = nil + env["shell"]["setPath"] = nil + + copy(string, env, "string") + copy(table, env, "table") + + copy(term, env, "term") + env["term"]["redirect"] = nil + env["term"]["restore"] = nil + + copy(textutils, env, "textutils") + copy(vector, env, "vector") + + if turtle then + copy(turtle, env, "turtle") + end + + if http then + copy(http, env, "http") + end + + env["assert"] = assert + env["printError"] = printError + env["tonumber"] = tonumber + env["tostring"] = tostring + env["type"] = type + env["next"] = next + env["unpack"] = unpack + env["pcall"] = pcall + env["xpcall"] = xpcall + env["sleep"] = sleep + env["pairs"] = pairs + env["ipairs"] = ipairs + env["read"] = read + env["write"] = write + env["select"] = select + env["print"] = print + env["setmetatable"] = setmetatable + env["getmetatable"] = getmetatable + + env["_G"] = env + + return env +end + + +local overrideEnvironment = function(env) + local localTerm = {} + for k, v in pairs(term) do + localTerm[k] = v + end + + env["term"]["clear"] = function() + localTerm.clear() + drawMenubar() + end + + env["term"]["scroll"] = function(n) + localTerm.scroll(n) + drawMenubar() + end + + env["shell"]["getRunningProgram"] = function() + return currentWebsiteURL + end +end + +local urlEncode = function(url) + local result = url + + result = result:gsub("%%", "%%a") + result = result:gsub(":", "%%c") + result = result:gsub("/", "%%s") + result = result:gsub("\n", "%%n") + result = result:gsub(" ", "%%w") + result = result:gsub("&", "%%m") + result = result:gsub("%?", "%%q") + result = result:gsub("=", "%%e") + result = result:gsub("%.", "%%d") + + return result +end + +local urlDecode = function(url) + local result = url + + result = result:gsub("%%c", ":") + result = result:gsub("%%s", "/") + result = result:gsub("%%n", "\n") + result = result:gsub("%%w", " ") + result = result:gsub("%%&", "&") + result = result:gsub("%%q", "%?") + result = result:gsub("%%e", "=") + result = result:gsub("%%d", "%.") + result = result:gsub("%%m", "%%") + + return result +end + +local applyAPIFunctions = function(env, connection) + env["firewolf"] = {} + env["firewolf"]["version"] = version + env["firewolf"]["domain"] = currentWebsiteURL:match("^[^/]+") + + env["firewolf"]["redirect"] = function(url) + if type(url) ~= "string" then + return error("string (url) expected, got " .. type(url)) + end + + os.queueEvent(redirectEvent, url) + coroutine.yield() + end + + env["firewolf"]["download"] = function(page) + if type(page) ~= "string" then + return error("string (page) expected") + end + local bannedNames = {"ls", "dir", "delete", "copy", "move", "list", "rm", "cp", "mv", "clear", "cd", "lua"} + + local startSearch, endSearch = page:find(currentWebsiteURL:match("^[^/]+")) + if startSearch == 1 then + if page:sub(endSearch + 1, endSearch + 1) == "/" then + page = page:sub(endSearch + 2, -1) + else + page = page:sub(endSearch + 1, -1) + end + end + + local filename = page:match("([^/]+)$") + if not filename then + return false, "Cannot download index" + end + + for k, v in pairs(bannedNames) do + if filename == v then + return false, "Filename prohibited!" + end + end + + if not fs.exists(downloadsLocation) then + fs.makeDir(downloadsLocation) + elseif not fs.isDir(downloadsLocation) then + return false, "Downloads disabled!" + end + + contents = connection.fetchPage(normalizePage(page)) + if type(contents) ~= "string" then + return false, "Download error!" + else + local f = io.open(downloadsLocation .. "/" .. filename, "w") + f:write(contents) + f:close() + return true, downloadsLocation .. "/" .. filename + end + end + + env["firewolf"]["encode"] = function(vars) + if type(vars) ~= "table" then + return error("table (vars) expected, got " .. type(vars)) + end + + local startSearch, endSearch = page:find(currentWebsiteURL:match("^[^/]+")) + if startSearch == 1 then + if page:sub(endSearch + 1, endSearch + 1) == "/" then + page = page:sub(endSearch + 2, -1) + else + page = page:sub(endSearch + 1, -1) + end + end + + local construct = "?" + for k,v in pairs(vars) do + construct = construct .. urlEncode(tostring(k)) .. "=" .. urlEncode(tostring(v)) .. "&" + end + -- Get rid of that last ampersand + construct = construct:sub(1, -2) + + return construct + end + + env["firewolf"]["query"] = function(page, vars) + if type(page) ~= "string" then + return error("string (page) expected, got " .. type(page)) + end + if vars and type(vars) ~= "table" then + return error("table (vars) expected, got " .. type(vars)) + end + + local startSearch, endSearch = page:find(currentWebsiteURL:match("^[^/]+")) + if startSearch == 1 then + if page:sub(endSearch + 1, endSearch + 1) == "/" then + page = page:sub(endSearch + 2, -1) + else + page = page:sub(endSearch + 1, -1) + end + end + + local construct = page .. "?" + if vars then + for k,v in pairs(vars) do + construct = construct .. urlEncode(tostring(k)) .. "=" .. urlEncode(tostring(v)) .. "&" + end + end + -- Get rid of that last ampersand + construct = construct:sub(1, -2) + + contents = connection.fetchPage(normalizePage(construct)) + if type(contents) == "string" then + return contents + else + return false + end + end + + env["firewolf"]["loadImage"] = function(page) + if type(page) ~= "string" then + return error("string (page) expected, got " .. type(page)) + end + + local startSearch, endSearch = page:find(currentWebsiteURL:match("^[^/]+")) + if startSearch == 1 then + if page:sub(endSearch + 1, endSearch + 1) == "/" then + page = page:sub(endSearch + 2, -1) + else + page = page:sub(endSearch + 1, -1) + end + end + + local filename = page:match("([^/]+)$") + if not filename then + return false, "Cannot load index as an image!" + end + + contents = connection.fetchPage(normalizePage(page)) + if type(contents) ~= "string" then + return false, "Download error!" + else + local colorLookup = {} + for n = 1, 16 do + colorLookup[string.byte("0123456789abcdef", n, n)] = 2 ^ (n - 1) + end + + local image = {} + for line in contents:gmatch("[^\n]+") do + local lines = {} + for x = 1, line:len() do + lines[x] = colorLookup[string.byte(line, x, x)] or 0 + end + table.insert(image, lines) + end + + return image + end + end + + env["center"] = center + env["fill"] = fill +end + + +local getWebsiteEnvironment = function(antivirus, connection) + local env = {} + + if antivirus then + env = getWhitelistedEnvironment() + overrideEnvironment(env) + else + setmetatable(env, {__index = _G}) + end + + applyAPIFunctions(env, connection) + + return env +end + + + +-- FWML Execution + + +local render = {} + +render["functions"] = {} +render["functions"]["public"] = {} +render["alignations"] = {} + +render["variables"] = { + scroll, + maxScroll, + align, + linkData = {}, + blockLength, + link, + linkStart, + markers, + currentOffset, +} + + +local function getLine(loc, data) + local _, changes = data:sub(1, loc):gsub("\n", "") + if not changes then + return 1 + else + return changes + 1 + end +end + + +local function parseData(data) + local commands = {} + local searchPos = 1 + + while #data > 0 do + local sCmd, eCmd = data:find("%[[^%]]+%]", searchPos) + if sCmd then + sCmd = sCmd + 1 + eCmd = eCmd - 1 + + if (sCmd > 2) then + if data:sub(sCmd - 2, sCmd - 2) == "\\" then + local t = data:sub(searchPos, sCmd - 1):gsub("\n", ""):gsub("\\%[", "%["):gsub("\\%]", "%]") + if #t > 0 then + if #commands > 0 and type(commands[#commands][1]) == "string" then + commands[#commands][1] = commands[#commands][1] .. t + else + table.insert(commands, {t}) + end + end + searchPos = sCmd + else + local t = data:sub(searchPos, sCmd - 2):gsub("\n", ""):gsub("\\%[", "%["):gsub("\\%]", "%]") + if #t > 0 then + if #commands > 0 and type(commands[#commands][1]) == "string" then + commands[#commands][1] = commands[#commands][1] .. t + else + table.insert(commands, {t}) + end + end + + t = data:sub(sCmd, eCmd):gsub("\n", "") + table.insert(commands, {getLine(sCmd, data), t}) + searchPos = eCmd + 2 + end + else + local t = data:sub(sCmd, eCmd):gsub("\n", "") + table.insert(commands, {getLine(sCmd, data), t}) + searchPos = eCmd + 2 + end + else + local t = data:sub(searchPos, -1):gsub("\n", ""):gsub("\\%[", "%["):gsub("\\%]", "%]") + if #t > 0 then + if #commands > 0 and type(commands[#commands][1]) == "string" then + commands[#commands][1] = commands[#commands][1] .. t + else + table.insert(commands, {t}) + end + end + + break + end + end + + return commands +end + + +local function proccessData(commands) + searchIndex = 0 + + while searchIndex < #commands do + searchIndex = searchIndex + 1 + + local length = 0 + local origin = searchIndex + + if type(commands[searchIndex][1]) == "string" then + length = length + #commands[searchIndex][1] + local endIndex = origin + for i = origin + 1, #commands do + if commands[i][2] then + local command = commands[i][2]:match("^(%w+)%s-") + if not (command == "c" or command == "color" or command == "bg" + or command == "background" or command == "newlink" or command == "endlink") then + endIndex = i + break + end + elseif commands[i][2] then + + else + length = length + #commands[i][1] + end + if i == #commands then + endIndex = i + end + end + + commands[origin][2] = length + searchIndex = endIndex + length = 0 + end + end + + return commands +end + + +local function parse(original) + return proccessData(parseData(original)) +end + + +render["functions"]["display"] = function(text, length, offset, center) + if not offset then + offset = 0 + end + + return render.variables.align(text, length, w, offset, center); +end + + +render["functions"]["displayText"] = function(source) + if source[2] then + render.variables.blockLength = source[2] + if render.variables.link and not render.variables.linkStart then + render.variables.linkStart = render.functions.display( + source[1], render.variables.blockLength, render.variables.currentOffset, w / 2) + else + render.functions.display(source[1], render.variables.blockLength, render.variables.currentOffset, w / 2) + end + else + if render.variables.link and not render.variables.linkStart then + render.variables.linkStart = render.functions.display(source[1], nil, render.variables.currentOffset, w / 2) + else + render.functions.display(source[1], nil, render.variables.currentOffset, w / 2) + end + end +end + + +render["functions"]["public"]["br"] = function(source) + if render.variables.link then + return "Cannot insert new line within a link on line " .. source[1] + end + + render.variables.scroll = render.variables.scroll + 1 + render.variables.maxScroll = math.max(render.variables.scroll, render.variables.maxScroll) +end + + +render["functions"]["public"]["c "] = function(source) + local sColor = source[2]:match("^%w+%s+(.+)$") or "" + if colors[sColor] then + term.setTextColor(colors[sColor]) + else + return "Invalid color: \"" .. sColor .. "\" on line " .. source[1] + end +end + + +render["functions"]["public"]["color "] = render["functions"]["public"]["c "] + + +render["functions"]["public"]["bg "] = function(source) + local sColor = source[2]:match("^%w+%s+(.+)$") or "" + if colors[sColor] then + term.setBackgroundColor(colors[sColor]) + else + return "Invalid color: \"" .. sColor .. "\" on line " .. source[1] + end +end + + +render["functions"]["public"]["background "] = render["functions"]["public"]["bg "] + + +render["functions"]["public"]["newlink "] = function(source) + if render.variables.link then + return "Cannot nest links on line " .. source[1] + end + + render.variables.link = source[2]:match("^%w+%s+(.+)$") or "" + render.variables.linkStart = false +end + + +render["functions"]["public"]["endlink"] = function(source) + if not render.variables.link then + return "Cannot end a link without a link on line " .. source[1] + end + + local linkEnd = term.getCursorPos()-1 + table.insert(render.variables.linkData, {render.variables.linkStart, + linkEnd, render.variables.scroll, render.variables.link}) + render.variables.link = false + render.variables.linkStart = false +end + + +render["functions"]["public"]["offset "] = function(source) + local offset = tonumber((source[2]:match("^%w+%s+(.+)$") or "")) + if offset then + render.variables.currentOffset = offset + else + return "Invalid offset value: \"" .. (source[2]:match("^%w+%s+(.+)$") or "") .. "\" on line " .. source[1] + end +end + + +render["functions"]["public"]["marker "] = function(source) + render.variables.markers[(source[2]:match("^%w+%s+(.+)$") or "")] = render.variables.scroll +end + + +render["functions"]["public"]["goto "] = function(source) + local location = source[2]:match("%w+%s+(.+)$") + if render.variables.markers[location] then + render.variables.scroll = render.variables.markers[location] + else + return "No such location: \"" .. (source[2]:match("%w+%s+(.+)$") or "") .. "\" on line " .. source[1] + end +end + + +render["functions"]["public"]["box "] = function(source) + local sColor, align, height, width, offset, url = source[2]:match("^box (%a+) (%a+) (%-?%d+) (%-?%d+) (%-?%d+) ?([^ ]*)") + if not sColor then + return "Invalid box syntax on line " .. source[1] + end + + local x, y = term.getCursorPos() + local startX + + if align == "center" or align == "centre" then + startX = math.ceil((w / 2) - width / 2) + offset + elseif align == "left" then + startX = 1 + offset + elseif align == "right" then + startX = (w - width + 1) + offset + else + return "Invalid align option for box on line " .. source[1] + end + + if not colors[sColor] then + return "Invalid color: \"" .. sColor .. "\" for box on line " .. source[1] + end + + term.setBackgroundColor(colors[sColor]) + for i = 0, height - 1 do + term.setCursorPos(startX, render.variables.scroll + i) + term.write(string.rep(" ", width)) + if url:len() > 3 then + table.insert(render.variables.linkData, {startX, startX + width - 1, render.variables.scroll + i, url}) + end + end + + render.variables.maxScroll = math.max(render.variables.scroll + height - 1, render.variables.maxScroll) + term.setCursorPos(x, y) +end + + +render["alignations"]["left"] = function(text, length, _, offset) + local x, y = term.getCursorPos() + if length then + term.setCursorPos(1 + offset, render.variables.scroll) + term.write(text) + return 1 + offset + else + term.setCursorPos(x, render.variables.scroll) + term.write(text) + return x + end +end + + +render["alignations"]["right"] = function(text, length, width, offset) + local x, y = term.getCursorPos() + if length then + term.setCursorPos((width - length + 1) + offset, render.variables.scroll) + term.write(text) + return (width - length + 1) + offset + else + term.setCursorPos(x, render.variables.scroll) + term.write(text) + return x + end +end + + +render["alignations"]["center"] = function(text, length, _, offset, center) + local x, y = term.getCursorPos() + if length then + term.setCursorPos(math.ceil(center - length / 2) + offset, render.variables.scroll) + term.write(text) + return math.ceil(center - length / 2) + offset + else + term.setCursorPos(x, render.variables.scroll) + term.write(text) + return x + end +end + + +render["render"] = function(data, startScroll) + if startScroll == nil then + render.variables.startScroll = 0 + else + render.variables.startScroll = startScroll + end + + render.variables.scroll = startScroll + 1 + render.variables.maxScroll = render.variables.scroll + + render.variables.linkData = {} + + render.variables.align = render.alignations.left + + render.variables.blockLength = 0 + render.variables.link = false + render.variables.linkStart = false + render.variables.markers = {} + render.variables.currentOffset = 0 + + for k, v in pairs(data) do + if type(v[2]) ~= "string" then + render.functions.displayText(v) + elseif v[2] == "<" or v[2] == "left" then + render.variables.align = render.alignations.left + elseif v[2] == ">" or v[2] == "right" then + render.variables.align = render.alignations.right + elseif v[2] == "=" or v[2] == "center" then + render.variables.align = render.alignations.center + else + local existentFunction = false + + for name, func in pairs(render.functions.public) do + if v[2]:find(name) == 1 then + existentFunction = true + local ret = func(v) + if ret then + return ret + end + end + end + + if not existentFunction then + return "Non-existent tag: \"" .. v[2] .. "\" on line " .. v[1] + end + end + end + + return render.variables.linkData, render.variables.maxScroll - render.variables.startScroll +end + + + +-- Lua Execution + + +languages["lua"] = {} +languages["fwml"] = {} + + +languages["lua"]["runWithErrorCatching"] = function(func, ...) + local _, err = pcall(func, ...) + if err then + os.queueEvent(websiteErrorEvent, err) + end +end + + +languages["lua"]["runWithoutAntivirus"] = function(func, ...) + local args = {...} + local env = getWebsiteEnvironment(false) + setfenv(func, env) + return function() + languages["lua"]["runWithErrorCatching"](func, unpack(args)) + end +end + + +languages["lua"]["run"] = function(contents, page, connection, ...) + local func, err = loadstring("sleep(0) " .. contents, page) + if err then + return languages["lua"]["runWithoutAntivirus"](builtInSites["crash"], err) + else + local args = {...} + local env = getWebsiteEnvironment(true, connection) + setfenv(func, env) + return function() + languages["lua"]["runWithErrorCatching"](func, unpack(args)) + end + end +end + + +languages["fwml"]["run"] = function(contents, page, connection, ...) + local err, data = pcall(parse, contents) + if not err then + return languages["lua"]["runWithoutAntivirus"](builtInSites["crash"], data) + end + + return function() + local currentScroll = 0 + local err, links, pageHeight = pcall(render.render, data, currentScroll) + if type(links) == "string" or not err then + term.clear() + os.queueEvent(websiteErrorEvent, links) + else + while true do + local e, scroll, x, y = os.pullEvent() + if e == "mouse_click" then + for k, v in pairs(links) do + if x >= math.min(v[1], v[2]) and x <= math.max(v[1], v[2]) and y == v[3] then + os.queueEvent(redirectEvent, v[4]) + coroutine.yield() + end + end + elseif e == "mouse_scroll" then + if currentScroll - scroll - h >= -pageHeight and currentScroll - scroll <= 0 then + currentScroll = currentScroll - scroll + clear(theme.background, theme.text) + links = render.render(data, currentScroll) + end + elseif e == "key" and scroll == keys.up or scroll == keys.down then + local scrollAmount + + if scroll == keys.up then + scrollAmount = 1 + elseif scroll == keys.down then + scrollAmount = -1 + end + + local scrollLessHeight = currentScroll + scrollAmount - h >= -pageHeight + local scrollZero = currentScroll + scrollAmount <= 0 + if scrollLessHeight and scrollZero then + currentScroll = currentScroll + scrollAmount + clear(theme.background, theme.text) + links = render.render(data, currentScroll) + end + end + end + end + end +end + + + +-- Query Bar + + +local readNewWebsiteURL = function() + local onEvent = function(text, event, key, x, y) + if event == "mouse_click" then + if y == 2 then + local index = determineClickedTab(x, y) + if index == "new" and #tabs < maxTabs then + loadTab(#tabs + 1, "firewolf") + elseif index == "close" then + closeCurrentTab() + elseif index then + switchTab(index) + end + + return {["nullifyText"] = true, ["exit"] = true} + elseif y > 2 then + return {["nullifyText"] = true, ["exit"] = true} + end + elseif event == "key" then + if key == 29 or key == 157 then + return {["nullifyText"] = true, ["exit"] = true} + end + end + end + + isMenubarOpen = true + drawMenubar() + term.setCursorPos(2, 1) + term.setTextColor(theme.text) + term.setBackgroundColor(theme.accent) + term.clearLine() + term.write(currentProtocol .. "://") + + local website = modifiedRead({ + ["onEvent"] = onEvent, + ["displayLength"] = w - 9, + ["history"] = history, + }) + + if not website then + if not tabs[currentTab].isMenubarPermanent then + isMenubarOpen = false + menubarWindow.setVisible(false) + else + isMenubarOpen = true + menubarWindow.setVisible(true) + end + + term.redirect(tabs[currentTab].win) + tabs[currentTab].win.setVisible(true) + tabs[currentTab].win.redraw() + + return + elseif website == "exit" then + error() + end + + loadTab(currentTab, website) +end + + + +-- Event Management + + +local handleKeyDown = function(event) + if event[2] == 29 or event[2] == 157 then + readNewWebsiteURL() + return true + end + + return false +end + + +local handleMouseDown = function(event) + if isMenubarOpen then + if event[4] == 1 then + readNewWebsiteURL() + return true + elseif event[4] == 2 then + local index = determineClickedTab(event[3], event[4]) + if index == "new" and #tabs < maxTabs then + loadTab(#tabs + 1, "firewolf") + elseif index == "close" then + closeCurrentTab() + elseif index then + switchTab(index) + end + + return true + end + end + + return false +end + + +local handleEvents = function() + loadTab(1, "firewolf") + currentTab = 1 + + while true do + drawMenubar() + local event = {os.pullEventRaw()} + drawMenubar() + + local cancelEvent = false + if event[1] == "terminate" then + break + elseif event[1] == "key" then + cancelEvent = handleKeyDown(event) + elseif event[1] == "mouse_click" then + cancelEvent = handleMouseDown(event) + elseif event[1] == websiteErrorEvent then + cancelEvent = true + + loadTab(currentTab, tabs[currentTab].url, function() + builtInSites["crash"](event[2]) + end) + elseif event[1] == redirectEvent then + cancelEvent = true + + if (event[2]:match("^rdnt://(.+)$")) then + event[2] = event[2]:match("^rdnt://(.+)$") + end + + loadTab(currentTab, event[2]) + end + + if not cancelEvent then + term.redirect(tabs[currentTab].win) + term.setCursorPos(tabs[currentTab].ox, tabs[currentTab].oy) + + coroutine.resume(tabs[currentTab].thread, unpack(event)) + + local ox, oy = term.getCursorPos() + tabs[currentTab].ox = ox + tabs[currentTab].oy = oy + end + end +end + + + +-- Main + + +local main = function() + currentProtocol = "rdnt" + currentTab = 1 + + if term.isColor() then + theme = colorTheme + enableTabBar = true + else + theme = grayscaleTheme + enableTabBar = false + end + + setupMenubar() + protocols[currentProtocol]["setup"]() + + clear(theme.background, theme.text) + handleEvents() +end + + +local handleError = function(err) + clear(theme.background, theme.text) + + fill(1, 3, w, 3, theme.subtle) + term.setCursorPos(1, 4) + center("Firewolf has crashed!") + + term.setBackgroundColor(theme.background) + term.setCursorPos(1, 8) + centerSplit(err, w - 4) + print("\n") + center("Please report this error to") + center("GravityScore or 1lann.") + print("") + center("Press any key to exit.") + + os.pullEvent("key") + os.queueEvent("") + os.pullEvent() +end + +local _, err = pcall(main) +term.redirect(originalTerminal) + +Modem.closeAll() + +if err and not err:lower():find("terminate") then + handleError(err) +end + + +clear(colors.black, colors.white) +center("Thanks for using Firewolf " .. version) +center("Made by GravityScore and 1lann") +print("")
\ No newline at end of file |