Sware: 1 revision imported

2026-04-21T12:45:22Z

1 revision imported

← Older revision	Revision as of 12:45, 21 April 2026
(No difference)

wikt>Theknightwho: Clean-up.

2024-03-30T00:53:49Z

Clean-up.

New page

local export = {}
local gsub = mw.ustring.gsub
local match = mw.ustring.match
local sub = mw.ustring.sub
local cons = "ببپتثجچحخدذرزژسشصضطظعغفقکگلࣇمنݨویہھٹڈڑ"
local cons5 = "ببپتثجچحخدذرزژسشصضطظعغفقکگلࣇمنݨوہھٹڈڑ"
local cons3 = "ھ"
local vowels = "ایئےۓوؤآ"
local ZZP = "َُِ"
local conv = {
["क"] = "ک", ["ख"] = "کھ", ["ग"] = "گ", ["घ"] = "گھ", ["ङ"] = "ن",
["च"] = "چ", ["छ"] = "چھ", ["ज"] = "ج", ["झ"] = "جھ", ["ञ"] = "ڃ",
["ट"] = "ٹ", ["ठ"] = "ٹھ", ["ड"] = "ڈ", ["ढ"] = "ڈھ", ["ण"] = "ݨ",
["त"] = "ت", ["थ"] = "تھ", ["द"] = "د", ["ध"] = "دھ", ["न"] = "ن",
["प"] = "پ", ["फ"] = "پھ", ["ब"] = "ب", ["भ"] = "بھ", ["म"] = "م",
["य"] = "+ی+", ["र"] = "ر", ["ल"] = "ل", ["व"] = "+و+", ["ळ"] = "ࣇ",
["श"] = "ش", ["ष"] ="شؕ", ["स"] = "س", ["ह"] = "ہ",
['क़'] = 'ق', ['ख़'] = 'خ', ['ग़'] = 'غ', ['ऴ'] = 'ࣇ',
['ज़'] = 'ز', ['ष़'] = 'ࣇ', ['झ़'] = 'ژ', ['श़'] = 'ژ', ['ड़'] = 'ڑ', ['ढ़'] = 'ڑھ',
['फ़'] = 'ف', ['थ़'] = 'ث', ['ऩ'] = 'ن', ['ऱ'] = 'ر',
-- ['ज्ञ'] = 'گْی',

["अ"] = "اَ", ["आ"] = "آ", ["इ"] = "اِ", ["ई"] = "اِی", ["उ"] = "اُ", ["ऊ"] = "اُو", ["ऋ"] = "ر", ["ॠ"] = "ر",
["ऌ"] = "ل", ["ॡ"] = "ل", ["ए"] = "ای", ["ऐ"] = "اَی", ["ओ"] = "او", ["औ"] = "اَو",
["ऑ"] = "آ",
["ऍ"] = "ای",
["ऒ"] = "آ",
["ऎ"] = "ای",

["ा"] = "ا", ["ि"] = "ِ", ["ी"] = "ِی",
["ु"] = "ُ", ["ू"] = "ُو",
["ृ"] = "ر",
["ॄ"] = "ر",
["ॢ"] = "ل",
["ॣ"] = "ل",
["े"] = "ی",
["ै"] = "َی",
["ो"] = "و",
["ौ"] = "َو",
["ॉ"] = "‍ا",
["ॅ"] = "ی",
["ॊ"] = "آ",
["ॆ"] = "ای",
["्"] = "ْ",

["ँ"] = "ں",
["ं"] = "ں", ["ः"] = "ہ", ["ऽ"] = "",

["०"] = "٠", ["१"] = "١", ["२"] = "٢", ["३"] = "٣", ["४"] = "٤", ["५"] = "٥", ["६"] = "٦", ["७"] = "٧", ["८"] = "٨", ["९"] = "٩",

["॥"] = " ", ["।"] = "۔",
["?"] = "؟", ["—"] = ":",
[";"] = "؛", ["%"] = "٪", [","] = "،", ["!"] = "!",

["ᳵ"] = "خ", ["ᳶ"] = "ف",

["ॐ"] = "اوم",

["*"] = "*",
['॰'] = '.',
}

local nasal_assim_short = {
['क'] = 'ङ्', ['ख'] = 'ङ्', ['ग'] = 'ङ्', ['घ'] = 'ङ्', ['ङ'] = 'ङ्',
['च'] = 'ञ्', ['छ'] = 'ञ्', ['ज'] = 'ञ्', ['झ'] = 'ञ्', ['ञ'] = 'ञ्',
['ट'] = 'ण्', ['ठ'] = 'ण्', ['ड'] = 'ण्', ['ढ'] = 'ण्', ['ण'] = 'ण्',
['त'] = 'न्', ['थ'] = 'न्', ['द'] = 'न्', ['ध'] = 'न्', ['न'] = 'न्',
['प'] = 'म्', ['फ'] = 'म्', ['ब'] = 'म्', ['भ'] = 'म्', ['म'] = 'म्',
['व'] = 'म्', ['य'] = 'ँ', ['ष'] = 'न्', ['श'] = 'न्', ['स'] = 'न्',
['ह'] = 'ँ'
}

local nasal_assim_long = {
['क'] = 'ँ', ['ख'] = 'ँ', ['ग'] = 'ङ्', ['घ'] = 'ङ्', ['ङ'] = 'ङ्',
['च'] = 'ँ', ['छ'] = 'ँ', ['ज'] = 'ञ्', ['झ'] = 'ञ्', ['ञ'] = 'ञ्',
['ट'] = 'ँ', ['ठ'] = 'ँ', ['ड'] = 'ण्', ['ढ'] = 'ण्', ['ण'] = 'ण्',
['त'] = 'न्', ['थ'] = 'न्', ['द'] = 'न्', ['ध'] = 'न्', ['न'] = 'न्',
['प'] = 'ँ', ['फ'] = 'ँ', ['ब'] = 'म्', ['भ'] = 'म्', ['म'] = 'म्',
['ह'] = 'ँ'
}

-- These clusters when occurring word-finally will not trigger a schwa added
-- after them even though the second consonant is in special_cons, which normally
-- causes the extra schwa to be added. NOTE: The clusters are reversed from their
-- ultimate effect, e.g. the first cluster is written 'ml' but actually applies
-- to words ending in 'lm'. The clusters below overall refer to the six clusters
-- describable by [rl][mnv], i.e. rm, rn, rv, lm, ln, lv.
local perm_cl = {
['म्ल'] = true, ['व्ल'] = true, ['न्ल'] = true,
['म्र'] = true, ['व्र'] = true, ['न्र'] = true,
}

local all_cons, special_cons = 'कखगघङचछजझञटठडढतथदधपफबभशषसयरलवहणनम', 'यरलवहनम'
local vowel, vowel_sign = '*َaिुृेोाीूैौॉॅॆॊ\'', 'अइउएओआईऊऋऐऔऑऍ\''
local long_vowel, short_vowel = 'ाीूआईऊ', '*َaिुृॉॅॆॊअइउऋऑऍोैौेओऔएऐ\''
local syncope_pattern = '([' .. vowel .. vowel_sign .. '])(़?[' .. all_cons .. '])َ(़?[' .. all_cons .. '])([ंँ]?[' .. vowel .. vowel_sign .. '])'

local function rev_string(text)
local result, length = {}, mw.ustring.len(text)
for i = length, 1, -1 do
table.insert(result, sub(text, i, i))
end
return table.concat(result)
end

function export.tr(text, lang, sc)
--force word-final anusvara to behave as a pure nasal
text = gsub(text, 'ं$', 'ں')
text = gsub(text, 'ं ', 'ں ')
text = gsub(text, 'ं%-', 'ں-')
text = gsub(text, 'ं%।', 'ں۔')
text = gsub(text, 'ं%,', 'ں،')
--abbreviation dot
text = gsub(text, '॰', '.')
text = gsub(text, '([' .. all_cons .. ']़?)([' .. vowel .. '्]?)', function(c, d)
return c .. (d == "" and 'َ' or d) end)
for word in mw.ustring.gmatch(text, "[ऀऀ-ॿَ*]+") do
local orig_word = word
word = rev_string(word)
word = gsub(word, '^َ(़?)([' .. all_cons .. '])(.)(.?)', function(opt, first, second, third)
return (((match(first, '[' .. special_cons .. ']') and match(second, '्') and not perm_cl[first..second..third])
or match(first .. second, 'य[ी]'))
and 'ا' or "") .. opt .. first .. second .. third end)
while match(word, syncope_pattern) do
word = gsub(word, syncope_pattern, '%1%2%3%4')
end
word = rev_string(word)
--sometimes chandrabindu != anusvara
word = gsub(word, '([' .. short_vowel .. long_vowel .. '])ं([सशषवय])', function(prev, succ)
return prev .. (nasal_assim_short[succ] or "ن") .. succ
end)
word = gsub(word, '([' .. short_vowel .. long_vowel .. '])ँ([सशषवय])', function(prev, succ)
return prev .. "ن" .. succ
end)
--force chandrabindu to behave as anusvara
word = gsub(word, 'ँ', 'ं')
word = gsub(word, '([' .. short_vowel .. '])ं(.़?)', function(prev, succ)
return prev .. (nasal_assim_short[succ] or "ن") .. succ
end)
word = gsub(word, '([' .. long_vowel .. '])ं(.़?)', function(prev, succ)
return prev .. (nasal_assim_long[succ] or "ن") .. succ
end)
-- Convert * to %* so we can match it in a regex.
local escaped_orig_word = gsub(orig_word, "%*", "%*")
text = gsub(text, escaped_orig_word, word)
end
text = gsub(text, '.़?', conv)
text = gsub(text, 'جْڃ', 'گْی')
text = gsub(text, 'ڃز', 'نز')
text = gsub(text, '%*', 'ا')
text = gsub(text, "ک़", "ق")
text = gsub(text, "کھ़", "خ")
text = gsub(text, "گ़", "غ")
text = gsub(text, "پھ़", "ف")
text = gsub(text, "ج़", "ز")
text = gsub(text, "جھ़", "ژ")
text = gsub(text, "ش़", "ژ")
text = gsub(text, "ڈ़" ,"ڑ")
text = gsub(text, "ڈھ़" ,"ڑھ")
text = gsub(text, "([" .. cons5 .. "])ی$", "%1ے")
text = gsub(text, "([رجچبپدتٹثکگلسشزژخقفغنم])(ْ)%1" ,"%1ّ")
text = gsub(text, "([" .. vowels .. ZZP .. "])اِ", "%1ئِ")
text = gsub(text, "([" .. vowels .. ZZP .. "])اُ", "%1ءو")
text = gsub(text, "([" .. vowels .. ZZP .. "])ای", "%1ئے")
text = gsub(text, "([" .. vowels .. cons .. ZZP .. "])اِی", "%1ئی")
text = gsub(text, "([" .. vowels .. cons .. ZZP .. "])اُو", "%1ؤ")
text = gsub(text, "([" .. cons5 .. "])(َ)ی$", "%1َے")
text = gsub(text, "([" .. cons5 .. "])ی ", "%1ے ")
text = gsub(text, "([" .. cons5 .. "])(َ)ی ", "%1َے ")
text = gsub(text, "([" .. cons5 .. "])ی۔", "%1ے۔")
text = gsub(text, "([" .. cons5 .. "])(َ)ی۔", "%1َے۔")
text = gsub(text, "([" .. cons5 .. "])ی،", "%1ے،")
text = gsub(text, "([" .. cons5 .. "])(َ)ی،", "%1َے،")

text = gsub(text, "([" .. cons5 .. "])(ِ)$", "%1ی")
text = gsub(text, "([" .. cons5 .. "])(ُ)$", "%1و")
text = gsub(text, "([" .. cons5 .. "])(ِ) ", "%1ی ")
text = gsub(text, "([" .. cons5 .. "])(ُ) ", "%1و ")
text = gsub(text, "([" .. cons5 .. "])(ِ)۔", "%1ی۔")
text = gsub(text, "([" .. cons5 .. "])(ُ)۔", "%1و۔")
text = gsub(text, "([" .. cons5 .. "])(ِ)،", "%1ی،")
text = gsub(text, "([" .. cons5 .. "])(ُ)،", "%1و،")
text = gsub(text, "([" .. vowels .. cons .. ZZP .. "])او", "%1ؤ")
text = gsub(text, "+", "")
text = gsub(text, "([" .. cons3 .. "])([" .. ZZP .. "])", "%2%1")
text = gsub(text, "ئِی", "ئی")
return mw.ustring.toNFC(text)
end

return export

Module:hi-convert - Revision history

Sware: 1 revision imported

wikt>Theknightwho: Clean-up.