Hyperion/HyperionOS
6
1
Fork 1
Code Issues Pull Requests Actions Packages Projects Releases 7 Wiki Activity

Update install/data/tarbad

Browse Source
This commit is contained in:
Astronand
2026-03-12 20:59:36 -04:00
parent 099638c735
commit 030e5bfd96
1 changed files with 20 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
install/data/tarbad
View File

@@ -1,3 +1,4 @@
local function octal_to_number(str) local function octal_to_number(str)
str = str:gsub("%z", ""):match("^%s*(.-)%s*$") str = str:gsub("%z", ""):match("^%s*(.-)%s*$")
return tonumber(str, 8) or 0 return tonumber(str, 8) or 0
@@ -97,16 +98,16 @@ local function unpack_tar(tarstr)
local pad = (512 - (size % 512)) % 512 local pad = (512 - (size % 512)) % 512
i = i + size + pad i = i + size + pad
if name ~= "" then if name == "" then goto continue end
local is_dir = typeflag == "5" or name:sub(-1) == "/" local is_dir = typeflag == "5" or name:sub(-1) == "/"
local clean_name = name:gsub("/$", "")
if clean_name ~= "" then local clean_name = name:gsub("/$", "")
if clean_name == "" then goto continue end
local parent_path = clean_name:match("(.+)/") local parent_path = clean_name:match("(.+)/")
local fname = clean_name:match("([^/]+)$") local fname = clean_name:match("([^/]+)$")
if not fname then if not fname then goto continue end
local parent = root local parent = root
if parent_path then if parent_path then
@@ -118,9 +119,8 @@ local function unpack_tar(tarstr)
else else
parent[fname] = { __type = "file", __contents = contents } parent[fname] = { __type = "file", __contents = contents }
end end
end
end ::continue::
end
end end
return flatten(root) return flatten(root)