Make shit less ass fuck shit fuck ass shit ass bruh what is this code

2026-06-06 19:00:37 +03:00
parent 202f6d42ac
commit 4d6dbadc32
87 changed files with 1497 additions and 954 deletions
@@ -32,6 +32,11 @@ function filesystem.canonical(path)
  return "/" .. table.concat(segList, "/")
 end

+function filesystem.basename(path)
+  checkArg(1, path, "string")
+  return path:match("/([^/]+)/?$") or ""
+end
+
 function filesystem.concat(path1, path2)
  checkArg(1, path1, "string")
  checkArg(2, path2, "string")
@@ -67,6 +72,13 @@ function filesystem.absolutePath(path) -- returns the address and absolute path
  return address, path
 end

+function filesystem.parent(path)
+  checkArg(1, path, "string")
+  local p = filesystem.canonical(path)
+  -- return "/" on "/"
+  return p == "/" and "/" or (p:match("^(.*)/[^/]+/?$") or "/")
+end
+
 function filesystem.exists(path) -- check if path exists
  checkArg(1, path, "string")
  local address, absPath = filesystem.absolutePath(path)
@@ -475,14 +487,12 @@ local function copyContent(fromHandle, toHandle)
  if not (fromHandle and toHandle) then
    return
  end
-  local memory = math.floor(computer.freeMemory() * 0.8)
-  local tmpdata
  while true do
-    tmpdata = fromHandle:read(memory)
+    local tmpdata = fromHandle.read(2048)
    if not tmpdata then
      break
    end
-    local status, reason = toHandle:write(tmpdata)
+    local status, reason = toHandle.write(tmpdata)
    if status ~= true then
      break
    end
@@ -492,7 +502,6 @@ local function copyContent(fromHandle, toHandle)
 end

 local function copyRecursive(fromAddress, fromAbsPath, toAddress, toAbsPath)
-  -- TODO: make this use copyContent
  if fromAbsPath:sub(-1) == "/" then
    fromAbsPath = fromAbsPath:sub(1, -2)
  end
@@ -506,31 +515,21 @@ local function copyRecursive(fromAddress, fromAbsPath, toAddress, toAbsPath)
  end
  for i = 1, #fileList do
    local fromFile, toFile = fromAbsPath .. "/" .. fileList[i], toAbsPath .. "/" .. fileList[i]
-    --[[ local handle = component.invoke(fromAddress, "open", fromFile, "r")
-    local data, tmpdata = "", nil
-    repeat
-      tmpdata = component.invoke(fromAddress, "read", handle, math.huge or math.maxinteger)
-      data = data .. (tmpdata or "")
-    until not tmpdata
-    tmpdata = component.invoke(fromAddress, "close", handle)
-    local handle = component.invoke(toAddress, "open", toFile, "w")
-    component.invoke(toAddress, "write", handle, data)
-    component.invoke(toAddress, "close", handle) ]]
    local fromHandle = component.invoke(fromAddress, "open", fromFile, "r")
    local toHandle = component.invoke(toAddress, "open", toFile, "w")
    copyContent({
      ["read"] = function(...)
-        return component.invoke(fromAddress, "read", handle, ...)
+        return component.invoke(fromAddress, "read", fromHandle, ...)
      end,
      ["close"] = function(...)
-        return component.invoke(fromAddress, "close", handle, ...)
+        return component.invoke(fromAddress, "close", fromHandle, ...)
      end,
    }, {
      ["write"] = function(...)
-        return component.invoke(fromAddress, "write", handle, ...)
+        return component.invoke(toAddress, "write", toHandle, ...)
      end,
      ["close"] = function(...)
-        return component.invoke(fromAddress, "close", handle, ...)
+        return component.invoke(toAddress, "close", toHandle, ...)
      end,
    })
  end
@@ -545,6 +544,10 @@ function filesystem.isDirectory(path)
  return component.invoke(address, "isDirectory", absPath)
 end

+function filesystem.isFile(path)
+  return not filesystem.isDirectory(path) and filesystem.exists(path)
+end
+
 function filesystem.rename(fromPath, toPath)
  checkArg(1, fromPath, "string")
  checkArg(2, toPath, "string")
@@ -1,127 +1,48 @@
-local serialize = {}
-
-function serialize.string(str)
-  return '"'..str:gsub("[%z\1-\31\34\92\127-\159]",function(c)
-    local byte = c:byte()
-    if byte== 7 then return "\\a"  end
-    if byte== 8 then return "\\b"  end
-    if byte== 9 then return "\\t"  end
-    if byte==10 then return "\\n"  end
-    if byte==11 then return "\\v"  end
-    if byte==12 then return "\\f"  end
-    if byte==13 then return "\\r"  end
-    if byte==34 then return "\\\"" end
-    if byte==92 then return "\\\\" end
-    return string.format("\\x%02x",byte)
-  end)..'"'
+local function _serialize(value, indent, level, visited)
+  local currentIndent = indent and string.rep(indent, level) or ""
+  local nextIndent = indent and string.rep(indent, level + 1) or ""
+  local sep = indent and "\n" or " "
+  local t = type(value)
+  if t == "nil" then return "nil" end
+  if t == "string" then return string.format("%q", value) end
+  if t == "number" then
+    if value ~= value then return "0/0" end
+    if value ==  math.huge then return "math.huge"  end
+    if value == -math.huge then return "-math.huge" end
+    return tostring(value)
+  end
+  if t == "boolean" then return tostring(value) end
+  if t == "table" then
+    if visited[value] then return "..." end
+    visited[value] = true
+    local items = {}
+    local arrayCount = 0
+    for i = 1, #value do
+      if value[i] ~= nil then arrayCount = i else break end
+    end
+    for i = 1, arrayCount do
+      table.insert(items, nextIndent .. _serialize(value[i], indent, level + 1, visited))
+    end
+    for k, v in pairs(value) do
+      if type(k) ~= "number" or k < 1 or k > arrayCount then
+        local keyStr
+        if type(k) == "string" and k:match("^[%a_][%w_]*$") then
+          keyStr = k
+        else
+          keyStr = "[" .. _serialize(k, indent, level + 1, visited) .. "]"
+        end
+        table.insert(items, nextIndent .. keyStr .. " = " .. _serialize(v, indent, level + 1, visited))
+      end
+    end
+    visited[value] = nil
+    if #items == 0 then return "{}" end
+    return "{" .. sep .. table.concat(items, "," .. sep) .. sep .. currentIndent .. "}"
+  end
+  return tostring(value)
 end

-function serialize.table(tbl,colors,stack)
-  stack = table.copy(stack or {})
-  table.insert(stack,tbl)
-  local keyAmount = 0
-  local keyNumber = true
-  local out = ""
-  local first = true
-
-  for key,val in pairs(tbl) do
-    if not first then out=out..",\n" end
-    first=false
-    out=out.."  "
-    if type(key)=="string" then
-      if key:match("^[%a_][%w_]*$") then
-        out=out..key.."="
-      else
-        out=out..'['..serialize.string(key)..']='
-      end
-    else
-      out=out.."["..tostring(key).."]="
-    end
-    if type(key)~="number" then
-      keyNumber=false
-    end
-
-    local success,reason = pcall(function()
-      local valStr = ""
-      if type(val)=="table" then
-        if #stack>4 or table.find(stack,val) then
-          valStr="..."
-        else
-          valStr=serialize.table(val,colors,stack)
-        end
-      elseif type(val)=="string" then
-        local lines = {}
-        for line in (val.."\n"):gmatch("([^\n]*)\n") do table.insert(lines,line) end
-        if #lines[#lines]==0 then
-          lines[#lines]=nil
-          lines[#lines]=lines[#lines].."\n"
-        end
-        for i=1,#lines do
-          if i<#lines then
-            lines[i]=serialize.string(lines[i].."\n")
-          else
-            lines[i]=serialize.string(lines[i])
-          end
-        end
-        valStr=table.concat(lines," ..\n  ")
-      else
-        valStr=tostring(val)
-      end
-      local lines = {}
-      for line in (valStr.."\n"):gmatch("([^\n]*)\n") do table.insert(lines,line) end
-      out=out..table.concat(lines,"\n  ")
-      lines = nil
-      keyAmount=keyAmount+1
-    end)
-    if not success then
-      if colors then out=out.."\x1b[91m" end
-      out=out.."["..tostring(reason).."]"
-      if colors then out=out.."\x1b[39m" end
-    end
-    coroutine.yield()
-  end
-
-  local metatbl = getmetatable(tbl)
-  local metakeys = {}
-  local metastring = ""
-  if type(metatbl)=="table" then
-    for i,v in pairs(metatbl) do
-      keyNumber=false
-      table.insert(metakeys,i)
-    end
-  end
-  if #metakeys>0 then
-    out=out.."\n  "
-    if colors then metastring=metastring.."\x1b[92m" end
-    if table.find(metakeys,"__tostring") then
-      metastring=metastring.."tostring: "..serialize.string(tostring(tbl)).."\n  "
-      table.remove(metakeys,table.find(metakeys,"__tostring"))
-    end
-    metastring=metastring..table.concat(metakeys,", ")
-    if colors then metastring=metastring.."\x1b[39m" end
-    out=out..metastring
-  end
-
-  if keyAmount==0 then return "{"..metastring.."}" end
-  if keyNumber then
-    -- fix strings not being serialised
-    local vals = {}
-    for _,v in pairs(tbl) do
-      if #vals>=5 and #stack>1 then
-        table.insert(vals,"...")
-        break
-      end
-      if type(v)=="table" then
-        table.insert(vals,serialize.table(v,colors,stack))
-      elseif type(v)=="string" then
-        table.insert(vals,serialize.string(v))
-      else
-        table.insert(vals,tostring(v))
-      end
-    end
-    return "{"..table.concat(vals,", ")..(#metakeys>0 and "\n "..metastring or "").."}"
-  end
-  return "{\n"..out.."\n}"
+function serialize(value, indent)
+  return _serialize(value, indent, 0, {})
 end

 return serialize
@@ -236,7 +236,7 @@ local function startTransaction(dbpath)
  function transaction.addInfo(name,info)
    if not info.type then info.type="package" end
    packInfo[name]=info
-    -- print(require("serialize").table(packInfo))
+    -- print(require("serialize")(packInfo))
  end

  local function getPackInfo(pack)