acf/util.lua


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
42

--[[
Copyright (c) 2012-2013 Kaarle Ritvanen
See LICENSE file for license details
--]]

module(..., package.seeall)

function setdefault(t, k, v)
   if t[k] == nil then t[k] = v end
   return t[k]
end

function setdefaults(dst, src)
   for k, v in pairs(src) do if dst[k] == nil then dst[k] = v end end
   return dst
end

function copy(var)
   return type(var) == 'table' and setdefaults({}, var) or var
end

function map(func, tbl)
   local res = {}
   for k, v in pairs(tbl) do res[k] = func(copy(v)) end
   return res
end


local pth = require('acf.path')
require 'lfs'

function loadmods(subdir)
   local comps = pth.split('/acf/'..subdir)
   local res = {}
   for modfile in lfs.dir(pth.join(unpack(comps))) do
      if stringy.endswith(modfile, '.lua') then
	 local name = string.sub(modfile, 1, -5)
	 res[name] = require(table.concat(comps, '.')..'.'..name)
      end
   end
   return res
end