care-ef-lua 0.2.0

Lua effector for the care tool
Documentation 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41

local posixdirs = {}

local arg = arg
_G.arg = nil

local posixfiles = require 'effectors.posixfiles'

function posixdirs.forroot(root)
  local root = root:gsub('/*$', '/')
  return {
    exists = function(path)
      return posixfiles.osexists(root .. path)
    end,
    query = function(path, shadowpath)
      posixdirs.osquery(root .. path, shadowpath)
    end,
    apply = function(path, shadowpath)
      posixdirs.osapply(root .. path, shadowpath)
    end,
  }
end

function posixdirs.osquery(ospath, shadowpath)
  local mode = posixfiles.stat(ospath, 'directory')
  local fh = assert(io.open(shadowpath, 'w'))
  fh:write(mode..'\n')
  fh:close()
end

function posixdirs.osapply(ospath, shadowpath)
  if not posixfiles.osexists(shadowpath) then
    assert(os.remove(ospath))
    return
  end
  local mode = posixfiles.header(shadowpath)
  assert(os.execute("mkdir '"..ospath.."'"))
  assert(os.execute("chmod "..mode.." '"..ospath.."'"))
end

return posixdirs