rime.lua

----------------------------------------
------ wirting by 98wubi-------
------ http://98wb.ys168.com/--------
----------------------------------------
-- Method example-------------------
--  translators:
--      - "lua_translator@time_date"
-----------------------------------

charset_comment_filter = require("charset_comment_filter") --Unicode分区提示
core2022 = require("core2022_filter") --自定义字符集过滤（常用字集）
-- dz_ci = require("dz_ci_filter") --单字模式 这个别用，有问题的
-- number_translator = require("number")
lua_unicode_display_filter = require("unicode_display")  --Unicode编码提示
calculator_translator = require("calculator_translator")  --简易计算器
exe_processor = require("exe")  -- 网页启动器
shijian2_translator = require("shijian2") -- 高级时间


-- --=========================================================关键字修改--==========================================================
-- --==========================================================--==========================================================
rv_var = { week_var = "week", date_var = "date", nl_var = "nl", time_var = "time", jq_var = "jq", switch_keyword = "next", help =
"help", switch_schema = "mode" } -- 编码关键字修改
trad_keyword = "zh_trad" -- 简繁切换switcher参数
single_keyword = "single_char" -- 单字过滤switcher参数
spelling_keyword = "new_spelling" -- 拆分switcher参数
spelling_kw = "tig_spelling" -- 拆分switcher参数
GB2312_keyword = "GB2312" -- GB2312开关switcher参数
candidate_keywords = { { "简繁", "簡繁", trad_keyword }, { "拆分", "拆分", spelling_keyword }, { "拆分", "拆分", spelling_kw }, { "GB2312过滤", "GB2312過濾", GB2312_keyword }, { "单字模式", "單字模式", single_keyword } } -- 活动开关项关键字
-- --==========================================================--==========================================================
-- --==========================================================--==========================================================
-- 拆分数据匹配
new_spelling = require("new_spelling")
tig_spelling = require("tig_spelling")
-- 监控并记录精准造词至文件等，必须配置lua_processor@submit_text_processor
submit_text_processor = require("Submit_text")
helper = require("helper")
switch_processor = require("switcher")
require("lunarDate")
require("lunarJq")
require("lunarGz")
require("number")
-- --=========================================================;获取Rime程序目录/用户目录/同步目录路径===========================
-- --==========================================================98资源库http://98wb.ys168.com/===============================
function GetRimeAllDir()
    local sync_dir = rime_api.get_sync_dir()          -- 获取同步资料目录
    -- local rime_version=rime_api.get_rime_version()         -- 获取rime版本号macos无效
    local shared_data_dir = rime_api.get_shared_data_dir() -- 获取程序目录data路径
    local user_data_dir = rime_api.get_user_data_dir() -- 获取用户目录路径
    return {
        sync_dir = sync_dir or ""
        ,
        rime_version = rime_version or ""
        ,
        shared_data_dir = shared_data_dir or ""
        ,
        user_data_dir = user_data_dir or ""
    }
end

local function get_schema_name(schema_id)
    local user_data_dir = rime_api.get_user_data_dir() -- 获取用户目录路径
    local schema_name = ""
    if user_data_dir:find("/") then user_data_dir = user_data_dir .. "/" .. schema_id .. ".schema.yaml" else user_data_dir =
        user_data_dir .. "\\" .. schema_id .. ".schema.yaml" end
    local file = io.open(user_data_dir, "rb")
    if file then
        for line in file:lines() do
            local m, n = line:match("(%s*name%:%s)%s*%p*([^%c%s]+)%p*")
            if m and n then
                return n:gsub("[']+$", ""):gsub('["]+$', '')
            end
        end
        file:close()
        return schema_name
    end
    return schema_name
end

local function get_schema_list()
    local user_data_dir = rime_api.get_user_data_dir()
    if user_data_dir:find("/") then user_data_dir = user_data_dir .. "/build/default.yaml" else user_data_dir =
        user_data_dir .. "\\build\\default.yaml" end
    local file = io.open(user_data_dir, "rb")
    if file then
        local schema_list = {}
        for line in file:lines() do
            local m, n = line:match("(%-%s*schema%:%s)([^%c%s]+)")
            if m and n then
                local name = get_schema_name(n)
                if name ~= "" then table.insert(schema_list, { n, name }) end
            end
        end
        file:close()
        return schema_list
    end
end

rime_dirs = GetRimeAllDir()
RimeDefalutDir = ""
enable_schema_list = get_schema_list()
debug_path = debug.getinfo(1, "S").source:sub(2):sub(1, -10)
if rime_dirs.shared_data_dir == debug_path then
    RimeDefalutDir = rime_dirs.shared_data_dir
elseif rime_dirs.user_data_dir == debug_path then
    RimeDefalutDir = rime_dirs.user_data_dir
else
    RimeDefalutDir = debug_path
end
-- --=========================================================精准造词文件存放路径===========================================================
-- 精准造词文件存放路径
userphrasepath = ""
if RimeDefalutDir ~= "" then
    if RimeDefalutDir:find("\\") then
        userphrasepath = RimeDefalutDir .. "\\userphrase.txt"
    elseif RimeDefalutDir:find("/") then
        userphrasepath = RimeDefalutDir .. "/userphrase.txt"
    end
end
-- --=========================================================读取lua目录下hotstring.txt文件===========================================================
-- --======================================================格式：编码+Tab+字符串+Tab+字符串说明========================================================
-- function FileIsExist(name)
--     local f = io.open(name, "r")
--     if f ~= nil then
--         io.close(f)
--         return true
--     else return false end
-- end
--
-- function string.split(str, delimiter)
--     if str == nil or str == '' or delimiter == nil or delimiter == "" then
--         return ""
--     end
--
--     local result = {}
--     for match in (str .. delimiter):gmatch("(.-)" .. delimiter) do
--         table.insert(result, match)
--     end
--     return result
-- end
--
-- local function splitCharPart(str)
--     local part = {}
--     if str == nil or str == '' then
--         return part
--     else
--         part[1], part[2], part[3] = string.match(str:gsub("\r", ""), "^([^%c]+)%c([^%c]+)%c?([^%c]*)")
--         part[1] = part[1]:gsub("[^%a]", ""):lower()
--         if part[1] then
--             part[1] = part[1]:gsub("\\r", "\r")
--             if part[2] then part[2] = part[2]:gsub("\\r", "\r") end
--             if part[3] then part[3] = part[3]:gsub("\\r", "\r") end
--         end
--     end
--
--     return part
-- end
--
-- function table.kIn(tbl, key)
--     if tbl == nil then
--         return false
--     end
--     for k, v in pairs(tbl) do
--         if k == key then
--             return true
--         end
--     end
--     return false
-- end
--
-- 查看某值是否为表tbl中的value值
-- function table.vIn(tbl, value)
--     if tbl == nil then
--         return false
--     end
--     for k, v in pairs(tbl) do
--         if v == value then
--             return true
--         end
--     end
--     return false
-- end
--
-- local function FormatFileContent(FilePath) -- 格式化lua字符串函数
--     local hotstring_obj = {}
--     file = io.open(FilePath, "r")
--     if file ~= nil then
--         for line in file:lines() do
--             local tarr = splitCharPart(line)
--             if tarr[1] then
--                 if type(hotstring_obj[tarr[1]]) ~= "table" then
--                     hotstring_obj[tarr[1]] = {}
--                     table.insert(hotstring_obj[tarr[1]], { tarr[2], tarr[3] })
--                 else
--                     table.insert(hotstring_obj[tarr[1]], { tarr[2], tarr[3] })
--                 end
--             end
--         end
--         io.close(file)
--     end
--     return hotstring_obj
-- end
--
-- function formatRimeDir(FilePath, dirName)
--     FilePath = FilePath or debug.getinfo(1, "S").source:sub(2):sub(1, -10)
--     if FilePath:find("\\") then
--         if dirName:find("/") then dirName = dirName:gsub("/", "\\") end
--         return FilePath .. "\\" .. dirName .. "\\"
--     elseif FilePath:find("/") then
--         if dirName:find("\\") then dirName = dirName:gsub("\\", "/") end
--         return FilePath .. "/" .. dirName .. "/"
--     else
--         if dirName:find("/") then dirName = dirName:gsub("/", "\\") end
--         return FilePath .. "\\" .. dirName .. "\\"
--     end
-- end
--
-- luaDefalutDir = formatRimeDir(RimeDefalutDir, "lua")                  -- 设置lua脚本文件读取全局默认路径为data\lua目录
-- local hotstring_obj = FormatFileContent(luaDefalutDir .. "hotstring.txt") -- 读取hotstring.txt内容并格式化为所需数据格式
-- --====================================================================================================================
--====================================================================================================================
-- --=========================================================读取lua目录下hustring.txt文件===========================================================
-- --======================================================格式：编码+Tab+字符串+Tab+字符串说明========================================================
function FileIsExist(name)
    local f = io.open(name, "r")
    if f ~= nil then
        io.close(f)
        return true
    else return false end
end

function string.split(str, delimiter)
    if str == nil or str == '' or delimiter == nil or delimiter == "" then
        return ""
    end

    local result = {}
    for match in (str .. delimiter):gmatch("(.-)" .. delimiter) do
        table.insert(result, match)
    end
    return result
end

local function splitCharPart(str)
    local part = {}
    if str == nil or str == '' then
        return part
    else
        part[1], part[2], part[3] = string.match(str:gsub("\r", ""), "^([^%c]+)%c([^%c]+)%c?([^%c]*)")
        part[1] = part[1]:gsub("[^%a]", ""):lower()
        if part[1] then
            part[1] = part[1]:gsub("\\r", "\r")
            if part[2] then part[2] = part[2]:gsub("\\r", "\r") end
            if part[3] then part[3] = part[3]:gsub("\\r", "\r") end
        end
    end

    return part
end

function table.kIn(tbl, key)
    if tbl == nil then
        return false
    end
    for k, v in pairs(tbl) do
        if k == key then
            return true
        end
    end
    return false
end

-- 查看某值是否为表tbl中的value值
function table.vIn(tbl, value)
    if tbl == nil then
        return false
    end
    for k, v in pairs(tbl) do
        if v == value then
            return true
        end
    end
    return false
end

local function FormatFileContent(FilePath) -- 格式化lua字符串函数
    local hotstring_obj = {}
    file = io.open(FilePath, "r")
    if file ~= nil then
        for line in file:lines() do
            local tarr = splitCharPart(line)
            if tarr[1] then
                if type(hotstring_obj[tarr[1]]) ~= "table" then
                    hotstring_obj[tarr[1]] = {}
                    table.insert(hotstring_obj[tarr[1]], { tarr[2], tarr[3] })
                else
                    table.insert(hotstring_obj[tarr[1]], { tarr[2], tarr[3] })
                end
            end
        end
        io.close(file)
    end
    return hotstring_obj
end

function formatRimeDir(FilePath, dirName)
    FilePath = FilePath or debug.getinfo(1, "S").source:sub(2):sub(1, -10)
    if FilePath:find("\\") then
        if dirName:find("/") then dirName = dirName:gsub("/", "\\") end
        return FilePath .. "\\" .. dirName .. "\\"
    elseif FilePath:find("/") then
        if dirName:find("\\") then dirName = dirName:gsub("\\", "/") end
        return FilePath .. "/" .. dirName .. "/"
    else
        if dirName:find("/") then dirName = dirName:gsub("/", "\\") end
        return FilePath .. "\\" .. dirName .. "\\"
    end
end

luaDefalutDir = formatRimeDir(RimeDefalutDir, "lua")                 -- 设置lua脚本文件读取全局默认路径为data\lua目录
local hotstring_obj = FormatFileContent(luaDefalutDir .. "hustring.txt") -- 读取hustring.txt内容并格式化为所需数据格式
-- --====================================================================================================================
--====================================================================================================================
function RunScript(cmd, raw)
    local f = assert(io.popen(cmd, 'r'))
    -- wait(10000);
    local s = assert(f:read('*a'))
    f:close()
    if raw then return s end
    s = string.gsub(s, '^%s+', '')
    s = string.gsub(s, '%s+$', '')
    s = string.gsub(s, '[\n\r]+', ' ')
    return s
end

function RunCapture(filepath)
    file = io.open(filepath, "r")
    if file ~= nil then
        io.popen(filepath)
        file.close(file)
        return 1
    end
    return 0
end

--===================================================时间／日期／农历／历法／数字转换输出=================================================================
-- --====================================================================================================================
function CnDate_translator(y)
    local t, cstr, t2, t1
    cstr = { "〇", "一", "二", "三", "四", "五", "六", "七", "八", "九" }
    t = ""
    t1 = tostring(y)
    if t1.len(tostring(t1)) ~= 8 then return t1 end
    for i = 1, t1.len(t1) do
        t2 = cstr[tonumber(t1.sub(t1, i, i)) + 1]
        if i == 5 and t2 ~= "〇" then t2 = "年十" elseif i == 5 and t2 == "〇" then t2 = "年" end
        if i == 6 and t2 ~= "〇" then t2 = t2 .. "月" elseif i == 6 and t2 == "〇" then t2 = "月" end
        --if t.sub(t,t.len(t)-1)=="年" then t2=t2 .. "月" end
        if i == 7 and tonumber(t1.sub(t1, 7, 7)) > 1 then t2 = t2 .. "十" elseif i == 7 and t2 == "〇" then t2 = "" elseif i == 7 and tonumber(t1.sub(t1, 7, 7)) == 1 then t2 =
            "十" end
        if i == 8 and t2 ~= "〇" then t2 = t2 .. "日" elseif i == 8 and t2 == "〇" then t2 = "日" end
        t = t .. t2
    end
    return t
end

local GetLunarSichen = function(time, t)
    local time = tonumber(time)
    local LunarSichen = { "子时(夜半｜三更)", "丑时(鸡鸣｜四更)", "寅时(平旦｜五更)", "卯时(日出)", "辰时(食时)", "巳时(隅中)", "午时(日中)", "未时(日昳)",
        "申时(哺时)", "酉时(日入)", "戌时(黄昏｜一更)", "亥时(人定｜二更)" }
    if tonumber(t) == 1 then sj = math.floor((time + 1) / 2) + 1 elseif tonumber(t) == 0 then sj = math.floor((time + 13) /
        2) + 1 end
    if sj > 12 then return LunarSichen[sj - 12] else return LunarSichen[sj] end
end

--年天数判断
local function IsLeap(y)
    local year = tonumber(y)
    if math.fmod(year, 400) ~= 0 and math.fmod(year, 4) == 0 or math.fmod(year, 400) == 0 then
        return 366
    else
        return 365
    end
end

local format_Time = function()
    if os.date("%p") == "AM" then return "上午" else return "下午" end
end

local format_week = function(n)
    local obj = { "日", "一", "二", "三", "四", "五", "六" }
    if tonumber(n) == 1 then return "周" .. obj[os.date("%w") + 1] else return "星期" .. obj[os.date("%w") + 1] end
end
------------------------lua内置日期变量参考-------------------------------------
--[[
	--%a 星期简称，如Wed	%A 星期全称，如Wednesday
	--%b 月份简称，如Sep	%B 月份全称，如September
	--%c 日期时间格式 (e.g., 09/16/98 23:48:10)
	--%d 一个月的第几天 [01-31]	%j 一年的第几天
	--%H 24小时制 [00-23]	%I 12小时制 [01-12]
	--%M 分钟 [00-59]	%m 月份 (09) [01-12]
	--%p 上午/下午 (pm or am)
	--%S 秒 (10) [00-61]
	--%w 星期的第几天 [0-6 = Sunday-Saturday]	%W 一年的第几周
	--%x 日期格式 (e.g., 09/16/98)	%X 时间格式 (e.g., 23:48:10)
	--%Y 年份全称 (1998)	%y 年份简称 [00-99]
	--%% 百分号
	--os.date() 把时间戳转化成可显示的时间字符串
	--os.time ([table])
--]]
----------------------------------------------------------------

-- 公历日期
function date_translator(input, seg)
    local keyword = rv_var["date_var"]
    if (input == keyword) then
        local dates = {
            os.date("%Y-%m-%d")
            , os.date("%Y-%m-%d 第%W周")
        , os.date("%Y年%m月%d日")
        , CnDate_translator(os.date("%Y%m%d"))
        , os.date("%Y-%m-%d｜%j/" .. IsLeap(os.date("%Y")))
        }
        -- Candidate(type, start, end, text, comment)
        for i = 1, #dates do
            yield(Candidate(keyword, seg.start, seg._end, dates[i], border_began .. "日期" .. border_end))
        end
        dates = nil
    end
end

-- 公历时间
function time_translator(input, seg)
    local keyword = rv_var["time_var"]
    if (input == keyword) then
        local times = {
            os.date("%H:%M:%S")
            , os.date("%Y-%m-%d " .. format_Time() .. "%I:%M")
        }
        for i = 1, #times do
            yield(Candidate(keyword, seg.start, seg._end, times[i], border_began .. "时间" .. border_end))
        end
        times = nil
    end
end

-- 农历日期
function lunar_translator(input, seg)
    local keyword = rv_var["nl_var"]
    if (input == keyword) then
        local lunar = {
            { Date2LunarDate(os.date("%Y%m%d")) .. JQtest(os.date("%Y%m%d")), border_began .. "公历⇉农历" .. border_end }
            , { Date2LunarDate(os.date("%Y%m%d")) .. GetLunarSichen(os.date("%H"), 1), border_began .. "公历⇉农历" .. border_end }
        , { lunarJzl(os.date("%Y%m%d%H")), border_began .. "公历⇉干支" .. border_end }
        , { LunarDate2Date(os.date("%Y%m%d"), 0), border_began .. "农历⇉公历" .. border_end }
        }
        local leapDate = { LunarDate2Date(os.date("%Y%m%d"), 1) .. "（闰）", border_began .. "农历⇉公历" .. border_end }
        if string.match(leapDate[1], "^(%d+)") ~= nil then table.insert(lunar, leapDate) end
        for i = 1, #lunar do
            yield(Candidate(keyword, seg.start, seg._end, lunar[i][1], lunar[i][2]))
        end
        lunar = nil
    end
end

local function QueryLunarInfo(date)
    local str, LunarDate, LunarGz, result, DateTime
    date = tostring(date)
    result = {}
    str = date:gsub("^(%u+)", "")
    if string.match(str, "^(20)%d%d+$") ~= nil or string.match(str, "^(19)%d%d+$") ~= nil then
        if string.len(str) == 4 then
            str = str .. string.sub(os.date("%m%d%H"), 1)
        elseif string.len(str) == 5 then
            str = str .. string.sub(os.date("%m%d%H"), 2)
        elseif string.len(str) == 6 then
            str = str .. string.sub(os.date("%m%d%H"), 3)
        elseif string.len(str) == 7 then
            str = str .. string.sub(os.date("%m%d%H"), 4)
        elseif string.len(str) == 8 then
            str = str .. string.sub(os.date("%m%d%H"), 5)
        elseif string.len(str) == 9 then
            str = str .. string.sub(os.date("%m%d%H"), 6)
        else
            str = string.sub(str, 1, 10)
        end
        if tonumber(string.sub(str, 5, 6)) > 12 or tonumber(string.sub(str, 5, 6)) < 1 or tonumber(string.sub(str, 7, 8)) > 31 or tonumber(string.sub(str, 7, 8)) < 1 or tonumber(string.sub(str, 9, 10)) > 24 then return
            result end
        LunarDate = Date2LunarDate(str)
        LunarGz = lunarJzl(str)
        DateTime = LunarDate2Date(str, 0)
        if LunarGz ~= nil then
            result = {
                { CnDate_translator(string.sub(str, 1, 8)), border_began .. "中文日期" .. border_end }
                , { LunarDate, border_began .. "公历⇉农历" .. border_end }
            , { LunarGz, border_began .. "公历⇉干支" .. border_end }
            }
            if tonumber(string.sub(str, 7, 8)) < 31 then
                table.insert(result, { DateTime, border_began .. "农历⇉公历" .. border_end })
                local leapDate = { LunarDate2Date(str, 1) .. "（闰）", border_began .. "农历⇉公历" .. border_end }
                if string.match(leapDate[1], "^(%d+)") ~= nil then table.insert(result, leapDate) end
            end
        end
    end

    return result
end

-- 农历查询
function QueryLunar_translator(input, seg) --以任意大写字母开头引导反查农历日期，日期位数不足会以当前日期补全。
    local str, lunar
    if string.match(input, "^(%u+%d+)$") ~= nil then
        str = string.gsub(input, "^(%a+)", "")
        if string.match(str, "^(20)%d%d+$") ~= nil or string.match(str, "^(19)%d%d+$") ~= nil then
            lunar = QueryLunarInfo(str)
            if #lunar > 0 then
                for i = 1, #lunar do
                    yield(Candidate(input, seg.start, seg._end, lunar[i][1], lunar[i][2]))
                end
            end
        end
    end
end

--- 单字模式
function single_char(input, env)
    local b = env.engine.context:get_option(single_keyword)
    local input_text = env.engine.context.input
    for cand in input:iter() do
        if (not b or utf8.len(cand.text) == 1 or table.vIn(rv_var, input_text) or input_text:find("^[%u%p]")) then
            yield(cand)
        end
    end
end

-- 星期
function week_translator(input, seg)
    local keyword = rv_var["week_var"]
    -- local luapath=debug.getinfo(1,"S").source:sub(2):sub(1,-9)   -- luapath.."lua\\user.txt"
    if (input == keyword) then
        local weeks = {
            os.date("%Y年%m月%d日") .. " " .. format_week(1)
            , os.date("%Y年%m月%d日") .. " " .. format_week(0) .. " " .. os.date("%H:%M:%S")
        }
        for i = 1, #weeks do
            yield(Candidate(keyword, seg.start, seg._end, weeks[i], border_began .. "星期" .. border_end))
        end
        weeks = nil
    end
end

--列出当年余下的节气
function Jq_translator(input, seg)
    local keyword = rv_var["jq_var"]
    if (input == keyword) then
        local jqs = GetNowTimeJq(os.date("%Y%m%d"))
        for i = 1, #jqs do
            yield(Candidate(keyword, seg.start, seg._end, jqs[i], border_began .. "节气" .. border_end))
        end
        jqs = nil
    end
end

-------------------------------------------------------------
--[[
	文件lua\hotstring.txt可以自己编辑，也可以用工具编辑，工具98资源库下载http://98wb.ys168.com/ 「小狼毫助手.exe」
	hotstring.txt文件格式：
			编码+tab+内容+tab+注解
		或
			编码+tab+内容
--]]
----------------------------------------------------------------

-- 匹配长字符串
function longstring_translator(input, seg) --编码为小写字母开头为过滤条件为"^(%l+%a+)" 以/开头的"^(%l+)"改为"^/"，编码为大写字母开头改为"^(%u+%a+)"，不分大小写为"^(%a+)"
    local str, m, strings
    if string.match(input, "^(%u+%a+)") ~= nil then
        str = string.gsub(input, "^/", "")
        if type(hotstring_obj) == "table" then
            strings = hotstring_obj[str:lower(str)]
            if type(strings) == "table" then
                for i = 1, #strings do
                    if strings[i][2] ~= "" then m = border_began .. "" .. strings[i][2] .. "" .. border_end else m = "" end
                    yield(Candidate(input, seg.start, seg._end, strings[i][1], m))
                end
            end
        end
    end
end

function number_translator(input, seg)
    local str, num, numberPart
    if string.match(input, "^(%u+%d+)(%.?)(%d*)$") ~= nil then
        str = string.gsub(input, "^(%a+)", "")
        numberPart = number_translatorFunc(str)
        if #numberPart > 0 then
            for i = 1, #numberPart do
                yield(Candidate(input, seg.start, seg._end, numberPart[i][1], numberPart[i][2]))
            end
        end
    end
end

local function set_switch_keywords(input, seg, env)
    local schema = env.engine.schema
    local config = env.engine.schema.config
    local schema_name = env.engine.schema.schema_name or ""
    local schema_id = env.engine.schema.schema_id or ""
    local composition = env.engine.context.composition
    local segment = composition:back()
    local trad_mode = env.engine.context:get_option(trad_keyword)

    if input == rv_var.switch_keyword and #candidate_keywords > 0 or input == rv_var.switch_schema and #enable_schema_list > 0 and trad_mode then
        if schema_name then segment.prompt = " 〔 当前方案：" .. schema_name .. " " .. border_end end
        local cand = nil
        local seg_text = ""
        for i = 1, #candidate_keywords do
            if trad_mode then seg_text = candidate_keywords[i][2] else seg_text = candidate_keywords[i][1] end
            if env.engine.context:get_option(candidate_keywords[i][3]) then
                cand = Candidate(input, seg.start, seg._end, seg_text, "  ✓")
            else
                cand = Candidate(input, seg.start, seg._end, seg_text, "  ✕")
            end
            cand.quality = 100000000
            yield(cand)
        end
    elseif input == rv_var.switch_schema and #enable_schema_list > 0 and not trad_mode then
        local select_index = 1
        for i = 1, #enable_schema_list do
            if enable_schema_list[i][2] then
                local comment = ""
                if enable_schema_list[i][1] == schema_id then
                    comment = "  ☚"
                    select_index = i - 1
                end
                local cand = Candidate(input, seg.start, seg._end, enable_schema_list[i][2], comment)
                segment.selected_index = select_index
                cand.quality = 100000000
                yield(cand)
            end
        end
    end
end

function time_date(input, seg, env)
    date_translator(input, seg)
    time_translator(input, seg)
    week_translator(input, seg)
    lunar_translator(input, seg)
    Jq_translator(input, seg)
    longstring_translator(input, seg)
    QueryLunar_translator(input, seg)
    number_translator(input, seg)
    set_switch_keywords(input, seg, env)
end