librime-lua-script/lua/tools/pattern.lua at main · shewer/librime-lua-script · GitHub

Repository navigation

History

executable file

105 lines (93 loc) · 2.5 KB

Raw

100

101

102

103

#! /usr/bin/env lua

-- pfilter.lua

-- Distributed under terms of the MIT license.

-- PFilter extend Filter

-- PFilter obj PFilter:new( pattern_str ,init_status )

-- pattern_str : string 參見 schema xlit xfrom xderive .....

-- init_status : bool

-- return PFilter object

-- method

-- :onn()

-- :off()

-- :toggle()

-- :status()

-- :set_status( bool)

-- :filter(string)

-- PFilter.Make_pattern( pattern_str) -- class method

-- return filter func

-- pattern_str : string

-- example:

-- PFilter.Make_pattern( "xlit|abcd|ABCD|" )

require 'tools/string'

local List=require 'tools/list'

local function make_xlit(str1,str2)

local tab1=List(str1:split(""))

local tab2=str2:split("")

-- 如果字串長度不一 return str str

if #tab1 ~= #tab2 then

return function(str) return str,str end

end

local strar={}

tab1:each_with_index(function(v,i) strar[v] = tab2[i] end )

-- xlit 主要轉檔程式

local function xlit_pattern(str)

str= str or ""

return List(str:split("")):map(

function(v)

return strar[v] or v

end )

:concat() ,str -- reterun newstr , str

end

return xlit_pattern ,false, nil

end

local function token(__str)

--local str = ( __str == type(__str) and __str) or ""

if "string" ~= type(__str) then

return "","",""

end

local word,chr,substr= __str:gsub( "[$\\]([0-9acdlpsuwxz])", "%%%1")

:gsub("[$\\]U","%%u")

:match("%s*(%w*)(.)(.*[^%s])%s*")

if substr then

--return word,substr:match("(.*)" .. chr .."(.*)")

local str1,str2 = table.unpack( substr:split(chr) )

return word, str1 or "", str2 or ""

end

return "" ,"",""

end

local function make_pattern_func( pattern_str)

local word,str1,str2 = token(pattern_str)

local func

if word == "xform" then

func= function (str)

return str:gsub(str1,str2) , str

end

elseif word == "erase" then

func= function( str)

return str:gsub(str1,"") ,str

end

elseif word == "derive" then

func= function(str )

return str.." "..str:gsub(str1,str2), str

end

elseif word == "xlit" then

func= make_xlit(str1,str2)

elseif word == "func" then

-- 未完成

--func= loadstring(func_table[str] .."()")

end

if func then

return func,false,nil

else

return nil ,true, string.format("(not match /xlit/xform/erase/derive/func/ ): pattern:%s ",str)

end

return make_pattern_func

librime-lua-script/lua/tools/pattern.lua at main · shewer/librime-lua-script · GitHub

Repository navigation

Expand file tree

Breadcrumbs

pattern.lua

Latest commit

History

Breadcrumbs

pattern.lua

File metadata and controls