Lua中的LPeg.re大小写不敏感匹配

你可以尝试调整此语法：

local re = require're'

local p = re.compile[[
    pattern <- ((s? { <name> }) / s / .)* !.
    name    <- (<owner> s? '.' s?)? <prefix> <ident>
    owner   <- (S Y S) / (P U B L I C)
    prefix  <- (G V '_'? '$') / (V '_'? '$') / (D B A '_') / (C D B '_')
    ident   <- [_$#%w]+
    s       <- (<comment> / %s)+
    comment <- '--' (!%nl .)*
    A       <- [aA]
    B       <- [bB]
    C       <- [cC]
    D       <- [dD]
    G       <- [gG]
    I       <- [iI]
    L       <- [lL]
    P       <- [pP]
    S       <- [sS]
    U       <- [uU]
    V       <- [vV]
    Y       <- [yY]
    ]]
local m = { p:match[[
,sys.dba_objects,       --should return  "sys.dba_objects"
SyS.Dba_OBJECTS
cdb_objects
dba_hist_snapshot)      --should return  "dba_hist_snapshot"
]] }
print(unpack(m))

上面的代码将打印匹配表m：

sys.dba_objects SyS.Dba_OBJECTS cdb_objects     dba_hist_snapshot

请注意，大小写不敏感很难通过词法分析器实现，因此每个字母都必须有一个单独的规则 - 最终需要更多这样的规则。

此语法处理示例中的注释并跳过它们以及空格符，因此“应返回”后的匹配不会出现在输出中。

您可以调整prefix和ident规则以指定对象名称中的其他前缀和允许的字符。

注意：!.表示文件结束。 !%nl表示“不是行尾”。 !p和&p构建非消耗模式，即在匹配时不会增加当前输入指针（仅对输入进行测试）。

注意2：使用unpack进行print是一个不好的方法。

注意3：这是一个LPEG可追踪的 re，可用于调试语法。在re.compile的第三个参数中传递true以获取测试/匹配/跳过每个规则和位置访问时的执行跟踪。

最终我得到了一个解决方案，但不够优雅，即在re.compile、re.find、re.match和re.gsub函数中添加一个额外的参数case_insensitive。当参数值为true时，调用case_insensitive_pattern重写模式:

...
local fmt="[%s%s]"
local function case_insensitive_pattern(quote,pattern)
    -- 查找可选的 '%' (group 1)，后跟任何字符 (group 2)
    local stack={}
    local is_letter=nil
    local p = pattern:gsub("(%%?)(.)",
        function(percent, letter)
            if percent ~= "" or not letter:match("%a") then
                -- 如果 '%' 匹配，或者`letter`不是字母，则"原样返回"
                if is_letter==false then
                    stack[#stack]=stack[#stack]..percent .. letter
                else
                    stack[#stack+1]=percent .. letter
                    is_letter=false
                end
            else
                if is_letter==false then
                    stack[#stack]=quote..stack[#stack]..quote
                    is_letter=true
                end
                -- 否则，返回大小写不敏感的字符类所匹配的字母
                stack[#stack+1]=fmt:format(letter:lower(), letter:upper())
            end
            return ""
        end)
    if is_letter==false then
        stack[#stack]=quote..stack[#stack]..quote
    end
    if #stack<2 then return stack[1] or (quote..pattern..quote) end
    return '('..table.concat(stack,' ')..')'
end

local function compile (p, defs, case_insensitive)
  if mm.type(p) == "pattern" then return p end   -- 已编译
  if case_insensitive==true then
    p=p:gsub([[(['"'])([^\n]-)(%1)]],case_insensitive_pattern):gsub("%(%s*%((.-)%)%s*%)","(%1)")
  end
  local cp = pattern:match(p, 1, defs)
  if not cp then error("incorrect pattern", 3) end
  return cp
end
...