luaposix 36.2.1

• Index

Examples

• abstract-ns-client.lua
• abstract-ns-server.lua
• dir.lua
• dup2.lua
• fork.lua
• fork2.lua
• getopt.lua
• glob.lua
• limit.lua
• lock.lua
• netlink-uevent.lua
• packet-socket.lua
• ping.lua
• poll.lua
• rt_sched.lua
• signal.lua
• socket.lua
• termios.lua
• tree.lua

Modules

• posix
• posix.ctype
• posix.dirent
• posix.errno
• posix.fcntl
• posix.fnmatch
• posix.glob
• posix.grp
• posix.libgen
• posix.poll
• posix.pwd
• posix.sched
• posix.signal
• posix.stdio
• posix.stdlib
• posix.sys.msg
• posix.sys.resource
• posix.sys.socket
• posix.sys.stat
• posix.sys.statvfs
• posix.sys.time
• posix.sys.times
• posix.sys.utsname
• posix.sys.wait
• posix.syslog
• posix.termio
• posix.time
• posix.unistd
• posix.utime

tree.lua

#! /usr/bin/env lua

-- tree view of the file system like the 'tree' unix utility
-- John Belmonte <jvb@prairienet.org>

local dir = require 'posix.dirent'.dir
local islink = require 'posix.sys.stat'.S_ISLNK
local isdir = require 'posix.sys.stat'.S_ISDIR
local readlink = require 'posix.unistd'.readlink
local stat = require 'posix.sys.stat'.stat

local leaf_indent = '|   '
local tail_leaf_indent = '   '
local leaf_prefix = '|-- '
local tail_leaf_prefix = '`-- '
local link_prefix = ' -> '

local function printf(...)
  io.write(string.format(...))
end

local function do_directory(directory, level, prefix)
   local num_dirs = 0
   local num_files = 0
   local files = dir(directory)
   local last_file_index = #files
   table.sort(files)
   for i, name in ipairs(files) do
      if name ~= '.' and name ~= '..' then
         local full_name = string.format('%s/%s', directory, name)
         local info = assert(stat(full_name))
         local is_tail = (i==last_file_index)
         local prefix2 = is_tail and tail_leaf_prefix or leaf_prefix
         local link = ''
         if islink(info.st_mode) ~= 0 then
            linked_name = assert(readlink(full_name))
            link = string.format('%s%s', link_prefix, linked_name)
         end
         printf('%s%s%s%s\n', prefix, prefix2, name, link)
         if isdir(info.st_mode) ~= 0 then
            local indent = is_tail and tail_leaf_indent or leaf_indent
            -- TODO: cache string concatenation
            sub_dirs, sub_files = do_directory(full_name, level+1,
               prefix .. indent)
            num_dirs = num_dirs + sub_dirs + 1
            num_files = num_files + sub_files
         else
            num_files = num_files + 1
         end
      end
   end
   return num_dirs, num_files
end

local function fore(directory)
   print(directory)
   num_dirs, num_files = do_directory(directory, 0, '')
   printf('\n%d directories, %d files\n', num_dirs, num_files)
end

directory = (arg and #arg > 0) and arg[1] or '.'
fore(directory)