minetest_x_bows/bin/lua-language-server-3.5.6-l.../script/glob/matcher.lua

160 lines
3.5 KiB
Lua
Raw Normal View History

2022-11-03 10:37:33 -05:00
local m = require 'lpeglabel'
local Slash = m.S('/\\')^1
local Symbol = m.S',{}[]*?/\\'
local Char = 1 - Symbol
local Path = (1 - m.S[[\/*?"<>|]])^1 * Slash
local NoWord = #(m.P(-1) + Symbol)
local function whatHappened()
return m.Cmt(m.P(1)^1, function (...)
print(...)
end)
end
local mt = {}
mt.__index = mt
mt.__name = 'matcher'
function mt:exp(state, index)
local exp = state[index]
if not exp then
return
end
if exp.type == 'word' then
return self:word(exp, state, index + 1)
elseif exp.type == 'char' then
return self:char(exp, state, index + 1)
elseif exp.type == '**' then
return self:anyPath(exp, state, index + 1)
elseif exp.type == '*' then
return self:anyChar(exp, state, index + 1)
elseif exp.type == '?' then
return self:oneChar(exp, state, index + 1)
elseif exp.type == '[]' then
return self:range(exp, state, index + 1)
elseif exp.type == '/' then
return self:slash(exp, state, index + 1)
end
end
function mt:word(exp, state, index)
local current = self:exp(exp.value, 1)
local after = self:exp(state, index)
if after then
return current * Slash * after
else
return current
end
end
function mt:char(exp, state, index)
local current = m.P(exp.value)
local after = self:exp(state, index)
if after then
return current * after * NoWord
else
return current * NoWord
end
end
function mt:anyPath(_, state, index)
local after = self:exp(state, index)
if after then
return m.P {
'Main',
Main = after
+ Path * m.V'Main'
}
else
return Path^0
end
end
function mt:anyChar(_, state, index)
local after = self:exp(state, index)
if after then
return m.P {
'Main',
Main = after
+ Char * m.V'Main'
}
else
return Char^0
end
end
function mt:oneChar(_, state, index)
local after = self:exp(state, index)
if after then
return Char * after
else
return Char
end
end
function mt:range(exp, state, index)
local after = self:exp(state, index)
local ranges = {}
local selects = {}
for _, range in ipairs(exp.value) do
if #range == 1 then
selects[#selects+1] = range[1]
elseif #range == 2 then
ranges[#ranges+1] = range[1] .. range[2]
end
end
local current = m.S(table.concat(selects)) + m.R(table.unpack(ranges))
if after then
return current * after
else
return current
end
end
function mt:slash(_, state, index)
local after = self:exp(state, index)
if after then
return after
else
self.needDirectory = true
return nil
end
end
function mt:pattern(state)
if state.root then
local after = self:exp(state, 1)
if after then
return m.C(after)
else
return nil
end
else
return m.C(self:anyPath(nil, state, 1))
end
end
function mt:isNeedDirectory()
return self.needDirectory == true
end
function mt:isNegative()
return self.state.neg == true
end
function mt:__call(path)
return self.matcher:match(path)
end
return function (state, options)
local self = setmetatable({
options = options,
state = state,
}, mt)
self.matcher = self:pattern(state)
if not self.matcher then
return nil
end
return self
end