Sware: 1 revision imported

2026-04-21T12:00:11Z

1 revision imported

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

wikt>Catonif: polytonic modern greek transliterated as monotonic

2025-08-14T21:18:29Z

polytonic modern greek transliterated as monotonic

← Older revision		Revision as of 21:18, 14 August 2025
Line 33:		Line 33:
	-- transliterates any words or phrases		-- transliterates any words or phrases
	function export.tr(text, lang, sc)		function export.tr(text, lang, sc)

			-- strip polytonic diacritics if present
			if sc == "Polyt" then
			text = mw.ustring.toNFD(text)
			text = gsub(text, "["
			.. U(0x0304) -- macron
			.. U(0x0306) -- breve
			.. U(0x0313) -- smooth breathing
			.. U(0x0314) -- rough breathing
			.. U(0x0345) -- iota subscript
			.. "]", "")
			text = gsub(text, "["
			.. U(0x0300) -- grave
			.. U(0x0342) -- circumflex
			.. "]", acute)
			end

	text = gsub(gsub(text, "χ̌", "š"), "Χ̌", "Š") ~~-- dialectal~~		-- dialectal notation
	text = gsub(gsub(text, "ά̤", "ä́"), "Ά̤", "Ä́") ~~-- dialectal~~		if mw.ustring.find(text, "["..U(0x030C)..U(0x0324).."]") then
	text = gsub(gsub(text, "α̤", "ä"), "Α̤", "Ä") ~~-- dialectal~~		text = gsub(gsub(text, "χ̌", "š"), "Χ̌", "Š")
	text = gsub(gsub(text, "ό̤", "ö́"), "Ό̤", "Ö́") ~~-- dialectal~~		text = gsub(gsub(text, "ά̤", "ä́"), "Ά̤", "Ä́")
	text = gsub(gsub(text, "ο̤", "ö"), "Ο̤", "Ö") ~~-- dialectal~~		text = gsub(gsub(text, "α̤", "ä"), "Α̤", "Ä")
			text = gsub(gsub(text, "ό̤", "ö́"), "Ό̤", "Ö́")
			text = gsub(gsub(text, "ο̤", "ö"), "Ο̤", "Ö")
			end

			-- Greek interrogation mark
	text = gsub(text, "([^A-Za-z0-9])[;" .. erotimatiko .. "]", "%1?")		text = gsub(text, "([^A-Za-z0-9])[;" .. erotimatiko .. "]", "%1?")

Sware: Created page with "local m_str_utils = require("Module:string utilities") local gsub = m_str_utils.gsub local sub = m_str_utils.sub local U = m_str_utils.char local acute = U(0x301) local diaeresis = U(0x308) local erotimatiko = U(0x37E) local export = {} local tt = { ["α"] = "a", ["ά"] = "á", ["β"] = "v", ["γ"] = "g", ["δ"] = "d", ["ε"] = "e", ["έ"] = "é", ["ζ"] = "z", ["η"] = "i", ["ή"] = "í", ["θ"] = "th", ["ι"] = "i", ["ί"] = "í", ["ϊ"] = "ï", ["ΐ"..."

2025-04-13T14:38:20Z

Created page with "local m_str_utils = require("Module:string utilities") local gsub = m_str_utils.gsub local sub = m_str_utils.sub local U = m_str_utils.char local acute = U(0x301) local diaeresis = U(0x308) local erotimatiko = U(0x37E) local export = {} local tt = { ["α"] = "a", ["ά"] = "á", ["β"] = "v", ["γ"] = "g", ["δ"] = "d", ["ε"] = "e", ["έ"] = "é", ["ζ"] = "z", ["η"] = "i", ["ή"] = "í", ["θ"] = "th", ["ι"] = "i", ["ί"] = "í", ["ϊ"] = "ï", ["ΐ"..."

New page

local m_str_utils = require("Module:string utilities")

local gsub = m_str_utils.gsub
local sub = m_str_utils.sub
local U = m_str_utils.char

local acute = U(0x301)
local diaeresis = U(0x308)
local erotimatiko = U(0x37E)

local export = {}

local tt = {
["α"] = "a", ["ά"] = "á", ["β"] = "v", ["γ"] = "g", ["δ"] = "d",
["ε"] = "e", ["έ"] = "é", ["ζ"] = "z", ["η"] = "i", ["ή"] = "í",
["θ"] = "th", ["ι"] = "i", ["ί"] = "í", ["ϊ"] = "ï", ["ΐ"] = "ḯ",
["κ"] = "k", ["λ"] = "l", ["μ"] = "m", ["ν"] = "n", ["ξ"] = "x",
["ο"] = "o", ["ό"] = "ó", ["π"] = "p", ["ρ"] = "r", ["σ"] = "s",
["ς"] = "s", ["τ"] = "t", ["υ"] = "y", ["ύ"] = "ý", ["ϋ"] = "ÿ",
["ΰ"] = "ÿ́", ["φ"] = "f", ["χ"] = "ch", ["ψ"] = "ps", ["ω"] = "o",
["ώ"] = "ó",
["Α"] = "A", ["Ά"] = "Á", ["Β"] = "V", ["Γ"] = "G", ["Δ"] = "D",
["Ε"] = "E", ["Έ"] = "É", ["Ζ"] = "Z", ["Η"] = "I", ["Ή"] = "Í",
["Θ"] = "Th", ["Ι"] = "I", ["Ί"] = "Í", ["Κ"] = "K", ["Λ"] = "L",
["Μ"] = "M", ["Ν"] = "N", ["Ξ"] = "X", ["Ο"] = "O", ["Ό"] = "Ó",
["Π"] = "P", ["Ρ"] = "R", ["Σ"] = "S", ["Τ"] = "T", ["Υ"] = "Y",
["Ύ"] = "Ý", ["Φ"] = "F", ["Χ"] = "Ch", ["Ψ"] = "Ps", ["Ω"] = "O",
["Ώ"] = "Ó",
-- punctuation
["·"] = ";",
}

-- transliterates any words or phrases
function export.tr(text, lang, sc)

text = gsub(gsub(text, "χ̌", "š"), "Χ̌", "Š") -- dialectal
text = gsub(gsub(text, "ά̤", "ä́"), "Ά̤", "Ä́") -- dialectal
text = gsub(gsub(text, "α̤", "ä"), "Α̤", "Ä") -- dialectal
text = gsub(gsub(text, "ό̤", "ö́"), "Ό̤", "Ö́") -- dialectal
text = gsub(gsub(text, "ο̤", "ö"), "Ο̤", "Ö") -- dialectal

text = gsub(text, "([^A-Za-z0-9])[;" .. erotimatiko .. "]", "%1?")

text = gsub(text, "([αεηΑΕΗ])([υύ])()",
function (vowel, upsilon, position)
-- Find next character that is not whitespace or punctuation.
local following = ""
while true do
local next = sub(text, position, position)
if next == "" then -- reached end of string
break
elseif next:find "[%s%p]" then
position = position + 1
else
following = next
break
end
end
return tt[vowel]
.. (upsilon == "ύ" and acute or "")
.. ((following == "" or ("θκξπσςτφχψ"):find(following, 1, true)) and "f" or "v")
end)

text = gsub(text, "([αεοωΑΕΟΩ])([ηή])",
function (vowel, ita)
if ita == "ή" then
return tt[vowel] .. "i" .. diaeresis .. acute
else
return tt[vowel] .. "i" .. diaeresis
end
end)

text = gsub(text, "[ωΩ][ιί]",
{["ωι"] = "oï", ["ωί"] = "oḯ",
["Ωι"] = "Oï", ["Ωί"] = "Oḯ"})

text = gsub(text, "[οΟ][υύ]",
{["ου"] = "ou", ["ού"] = "oú",
["Ου"] = "Ou", ["Ού"] = "Oú"})

text = gsub(text, "(.?)([μΜ])π",
function (before, mi)
if before == "" or before == " " or before == "-" then
if mi == "Μ" then
return before .. "B"
else
return before .. "b"
end
end
end)

text = gsub(text, "γ([γξχ])", "n%1")

text = gsub(text, ".", tt)

return text
end

return export

Module:el-translit - Revision history

Sware: 1 revision imported

wikt>Catonif: polytonic modern greek transliterated as monotonic