refactor: move source files to src/ directory

src/lib/log.lua

@@ -0,0 +1,143 @@
+local fs, computer, gpu
+local chunkSize = 1024
+if require then
+  fs = require("filesystem")
+  computer = require("computer")
+  gpu = require("component").gpu
+else
+  local loadfile = ...
+  fs = loadfile("/lib/filesystem.lua")(loadfile)
+  computer = _G.computer
+  gpu = loadfile("/lib/component.lua")(loadfile).gpu
+end
+
+local resX, resY = gpu.getResolution()
+local log = {}
+if not _G.logSettings then
+  _G.logSettings = { -- We have to preload the library just for this :P
+    ["printLogs"] = true, -- FIXME: Or do we?
+    ["printerY"] = 1,
+  }
+end
+
+function getlines(s)
+  if s:sub(-1) ~= "\n" then
+    s = s .. "\n"
+  end
+  return s:gmatch("(.-)\n")
+end
+
+local function writeToScreen(text)
+  -- Print onscreen
+  if text:sub(1, 4) == "INFO" then -- Set color
+    gpu.setForeground(0xFFFFFF)
+  elseif text:sub(1, 4) == "WARN" then
+    gpu.setForeground(0xFFFF00)
+  elseif text:sub(1, 5) == "ERROR" then
+    gpu.setForeground(0xFF0000)
+  end
+  local i = 0
+  for line in getlines(text) do
+    line = line:gsub("\t", "  ")
+    repeat -- Line wrapping
+      if _G.logSettings.printerY > resY then
+        gpu.copy(1, 2, resX, resY - 1, 0, -1)
+        _G.logSettings.printerY = resY
+      end
+      gpu.set(1, _G.logSettings.printerY, line .. string.rep(" ", resX - #line))
+      line = line:sub(resX + 1)
+      _G.logSettings.printerY = _G.logSettings.printerY + 1
+    until line == ""
+  end
+end
+
+local logFileSizeLimit = 16384
+
+local function writeToLog(path, text)
+  fs.makeDirectory("halyde/logs") -- Git likes to not clone empty directories
+  local handle = fs.open(path, "a")
+  if handle then
+    handle:write(text .. "\n")
+    handle:close()
+  end
+
+  -- Log trimming if it gets too long
+  if fs.size(path) > logFileSizeLimit then
+    local sizeCounter = 0
+    local readHandle = fs.open(path, "r", false) -- Making sure buffering is disabled, otherwise this whole thing is pointless
+    local currentChunk = ""
+    readHandle:seek("end", -chunkSize)
+    repeat
+      currentChunk = readHandle:read(chunkSize)
+      readHandle:seek(-chunkSize * 2)
+      sizeCounter = sizeCounter + chunkSize
+    until sizeCounter >= logFileSizeLimit * 0.75
+    while true do
+      local infoEntry = currentChunk:find("INFO [", 1, true)
+      local warnEntry = currentChunk:find("WARN [", 1, true)
+      local errorEntry = currentChunk:find("ERROR [", 1, true)
+      if not infoEntry and not warnEntry and not errorEntry then
+        readHandle:seek(-chunkSize)
+      else
+        readHandle:seek(
+          math.min(
+            infoEntry or math.huge or math.maxinteger,
+            warnEntry or math.huge or math.maxinteger,
+            errorEntry or math.huge or math.maxinteger
+          ) - 1
+        )
+        break
+      end
+      if readHandle:seek("cur") == 0 then -- Failsafe to prevent infinite loops
+        break
+      end
+    end
+    local writeHandle = fs.open(path, "w")
+    while true do
+      local tmpdata = readHandle:read(math.huge or math.maxinteger)
+      if not tmpdata then
+        break
+      end
+      writeHandle:write(tmpdata)
+    end
+    readHandle:close()
+    writeHandle:close()
+  end
+
+  if _G.logSettings.printLogs then
+    writeToScreen(text)
+  end
+end
+
+setmetatable(log, {
+  ["__index"] = function(_, index)
+    return {
+      ["logpath"] = fs.concat("/halyde/logs/", index .. ".log"),
+      ["info"] = function(text)
+        writeToLog(
+          fs.concat("/halyde/logs/", index .. ".log"),
+          "INFO [" .. string.format("%.2f", computer.uptime()) .. "] " .. text
+        )
+      end,
+      ["warn"] = function(text)
+        writeToLog(
+          fs.concat("/halyde/logs/", index .. ".log"),
+          "WARN [" .. string.format("%.2f", computer.uptime()) .. "] " .. text
+        )
+      end,
+      ["error"] = function(text)
+        writeToLog(
+          fs.concat("/halyde/logs/", index .. ".log"),
+          "ERROR [" .. string.format("%.2f", computer.uptime()) .. "] " .. text
+        )
+      end,
+    }
+  end,
+})
+
+function log.setPrintLogs(setting) -- Yes, this works with the metatable.
+  checkArg(1, setting, "boolean")
+  _G.logSettings.printLogs = setting
+end
+
+return log