diff options
Diffstat (limited to 'aconf/path/base.lua')
-rw-r--r-- | aconf/path/base.lua | 159 |
1 files changed, 0 insertions, 159 deletions
diff --git a/aconf/path/base.lua b/aconf/path/base.lua deleted file mode 100644 index 4e2bf8f..0000000 --- a/aconf/path/base.lua +++ /dev/null @@ -1,159 +0,0 @@ ---[[ -Copyright (c) 2012-2015 Kaarle Ritvanen -See LICENSE file for license details ---]] - -local M = {} - - -local object = require('aconf.object') -local class = object.class - -local map = require('aconf.util').map - - -M.Special = class() -function M.Special:tostring() return self.symbol end - -local Up = class(M.Special) -Up.symbol = '..' - -local Wildcard = class(M.Special) -Wildcard.symbol = '*' - - - -M.Syntax = class() - -M.Syntax.up = Up() -M.Syntax.wildcard = Wildcard() - - -function M.Syntax:get_special(comp) - return ({['..']=M.Syntax.up, ['*']=M.Syntax.wildcard})[comp] -end - - -function M.Syntax:is_absolute(path) return path:sub(1, 1) == '/' end - - -function M.Syntax:escape(comp) - if type(comp) == 'table' then - if object.isinstance(object.toinstance(comp), M.Special) then - return comp:tostring() - end - end - if type(comp) == 'number' then return tostring(comp) end - local res = comp:gsub('([\\/])', '\\%1') - return (self:get_special(res) or tonumber(res)) and '\\'..res or res -end - - -function M.Syntax:rawjoin(p1, p2, ...) - if not p2 then return p1 end - if not self:is_absolute(p2) then p2 = '/'..p2 end - return self:rawjoin((p1 == '/' and '' or p1)..p2, ...) -end - -function M.Syntax:join(parent, ...) - local args = map(function(c) return self:escape(c) end, {...}) - if parent > '' then table.insert(args, 1, parent) end - return self:rawjoin(table.unpack(args)) -end - - -function M.Syntax:split(path) - local res = {} - local comp = '' - local escaped - - local function merge(s) - if s > '' then - table.insert( - res, not escaped and (self:get_special(s) or tonumber(s)) or s - ) - end - end - - while true do - local prefix, sep, suffix = path:match('([^\\/]*)([\\/])(.*)') - if not prefix then - merge(comp..path) - return res - end - - comp = comp..prefix - if sep == '\\' then - comp = comp..suffix:sub(1, 1) - escaped = true - path = suffix:sub(2, -1) - else - merge(comp) - comp = '' - escaped = false - path = suffix - end - end -end - - -function M.Syntax:is_unique(path) - for _, comp in ipairs(self:split(path)) do - if comp == self.wildcard then return false end - end - return true -end - -function M.Syntax:is_subordinate(p1, p2) - p1 = self:split(p1) - for i, comp in ipairs(self:split(p2)) do - if p1[i] ~= comp then return false end - end - return true -end - - -function M.Syntax:to_absolute(path, base) - if not self:is_absolute(path) then - path = base..(base ~= '/' and '/' or '')..path - end - local comps = self:split(path) - local i = 1 - while i <= #comps do - if comps[i] == self.up then - if i == 1 then error('Invalid path: '..path) end - table.remove(comps, i - 1) - table.remove(comps, i - 1) - i = i - 1 - else i = i + 1 end - end - return self:join('/', table.unpack(comps)) -end - - -function M.Syntax:parent(path) - local comps = self:split(path) - table.remove(comps) - return self:join('/', table.unpack(comps)) -end - -function M.Syntax:name(path) - local comps = self:split(path) - return comps[#comps] -end - - -function M.Syntax:export(mod) - if not mod then mod = {} end - for k, v in pairs(M.Syntax) do - if k ~= 'export' then - mod[k] = type(v) == 'function' and function(...) - return v(self, ...) - end or v - end - end - return mod -end - - -return M |