63 lines
2.0 KiB
Lua
63 lines
2.0 KiB
Lua
-- /bin/ls - Lists files in a directory.
|
|
--
|
|
-- Iterate over the 'children' map exposed via C++.
|
|
|
|
local function format_permissions(perms)
|
|
local rwx = { "-", "-", "-", "-", "-", "-", "-", "-", "-" }
|
|
if(perms & 0x100) ~= 0 then rwx[1] = "r" end -- Owner read.
|
|
if(perms & 0x080) ~= 0 then rwx[2] = "w" end -- Owner write.
|
|
if(perms & 0x040) ~= 0 then rwx[3] = "x" end -- Owner execute.
|
|
if(perms & 0x020) ~= 0 then rwx[4] = "r" end -- Group read.
|
|
if(perms & 0x010) ~= 0 then rwx[5] = "w" end -- Group write.
|
|
if(perms & 0x008) ~= 0 then rwx[6] = "x" end -- Group execute.
|
|
if(perms & 0x004) ~= 0 then rwx[7] = "r" end -- Other read.
|
|
if(perms & 0x002) ~= 0 then rwx[8] = "w" end -- Other write.
|
|
if(perms & 0x001) ~= 0 then rwx[9] = "x" end -- Other execute.
|
|
return table.concat(rwx)
|
|
end
|
|
|
|
local function get_file_size(node)
|
|
if node.type == 0 then -- FILE_NODE.
|
|
return #node.content
|
|
else
|
|
return 0 -- Dirs don't have content size in this context.
|
|
end
|
|
end
|
|
|
|
local function ls_long_format(dir)
|
|
local output = {}
|
|
for name, node in pairs(dir.children) do
|
|
local line_type = (node.type == 1) and "d" or "-"
|
|
local perms = format_permissions(node.permissions)
|
|
local owner = node.owner_id
|
|
local group = node.group_id
|
|
local size = get_file_size(node)
|
|
table.insert(output, string.format("%s%s %d %d %5d %s", line_type, perms, owner, group, size, name))
|
|
end
|
|
table.sort(output)
|
|
return table.concat(output, "\n")
|
|
end
|
|
|
|
local function ls_short_format(dir)
|
|
local output = {}
|
|
for name, node in pairs(dir.children) do
|
|
local display_name = name
|
|
if node.type == 1 then -- DIR_NODE
|
|
display_name = display_name .. "/"
|
|
elseif node.type == 2 then --EXEC_NODE
|
|
display_name = display_name .. "*"
|
|
end
|
|
table.insert(output, display_name)
|
|
end
|
|
table.sort(output)
|
|
return table.concat(output, "\t") -- Tab separated short format.
|
|
end
|
|
|
|
local current_dir = bettola.get_current_dir(context);
|
|
|
|
if arg[1] == "-l" then
|
|
return ls_long_format(current_dir)
|
|
else
|
|
return ls_short_format(current_dir)
|
|
end
|