"模組:POJ" pán-pún chi-kan bô-kāng--ê tē-hng
刪去的內容 新增的內容
無編輯摘要 |
kái-siān kap chù-sek. |
||
Tē 1 chōa:
-- Pún bô͘-cho͘ kā it-poaⁿ Lô-má-jī kap sò͘-jī pian-e̍k chò Tâi-oân-ōe Pe̍h-ōe-jī.
--
-- Chhiáⁿ sú-iōng "Pang-nô͘:POJ" lâi kek-oa̍h.
local p = {}
-- Kā siaⁿ-tiāu sò͘-jī choán-oāⁿ chò piàn-im hû-hō.
--
function attachTone(a, n)
n = tonumber(n)
Tē 70 chōa:
end
if a == "
local upperN = {"N", "Ń", "Ǹ", "N", "N̂", "Ň", "N̄", "N̍"}
if (n>=1 and n<=8) then return upperN[n] end
Tē 76 chōa:
end
if a == "
local lowerN = {"n", "ń", "ǹ", "n", "n̂", "ň", "n̄", "n̍"}
if (n>=1 and n<=8) then return lowerN[n] end
Tē 105 chōa:
return a
end
return a
end
-- Koat-tēng tó chi̍t-ê goân-im ài thiap piàn-im hû-hō.
-- Thiap siaⁿ-tiāu ê chiàu-pâi: oa_, oe_, o, e, a, u, i, ng, m.
-- Í-hā ê chiàu-pâi nā kái-piàn, su-chhut ē bô-kâng.
function selectVowel(chara, n)
if not chara then return end
-- oa_
oax = {
'Oai',
'oai',
'Oan',
'oan',
'Oah', --5
'oah',
'Oak',
'oak',
'Oat',
'oat', --10
'Oap',
'oap'
}
for i=1, #oax do
if rplce:find(oax[i]) then return rplce:gsub('a', attachTone('a', n)) end
end
OAx = {
'OAI',
'OAN',
'OAH',
'OAT', --5
'OAP',
}
for i=1, #OAx do
if rplce:find(OAx[i]) then return rplce:gsub('A', attachTone('A', n)) end
end
-- oe_
oex = {
'Oei',
'oei',
'Oen',
'oen',
'Oeh', --5
'oeh',
'Oek',
'oek',
'Oet',
'oet', --10
'Oep',
'oep'
}
for i=1, #oex do
if rplce:find(oex[i]) then return rplce:gsub('e', attachTone('e', n)) end
end
OEx = {
'OEI',
'OEN',
'OEH',
'OEK',
'OET', --5
'OEP',
}
for i=1, #OEx do
if rplce:find(OEx[i]) then return rplce:gsub('E', attachTone('E', n)) end
end
-- o, e, a, u, i, ng, m
local oeauingm = {
'oo',
'Oo',
'OO',
'o',
'O', --5
'e',
'E',
'a',
'A',
'u', --10
'U',
'i',
'I',
'ng',
'Ng', --15
'NG',
'm',
'M'
}
local chara = {
'oo',
'Oo',
'Oo',
'o',
'O', --5
'e',
'E',
'a',
'A',
'u', --10
'U',
'i',
'I',
'n',
'N', --15
'N',
'm',
'M'
}
for i=1, #oeauingm do
if rplce:find(oeauingm[i]) then
return rplce:gsub(chara[i], attachTone(chara[i], n))
end
end
end
function p.POJ(frame)
local input = frame.args[1]
if not input then return end
local out = input:gsub("([%a]+)(%d)", selectVowel):gsub("nn", "ⁿ"):gsub("NN", "ⁿ"):gsub("oo", "o͘"):gsub("Oo", "O͘"):gsub("OO", "O͘")
return (out)
|