Zum Inhalt springen

„Modul:Umschrift“ – Versionsunterschied

aus AufEinWort, der freien Forschung
Zum nächsten Versionsunterschied →

Nikolaos (Diskussion | Beiträge)

12 Benutzergruppen
266.583 Bearbeitungen
Die Seite wurde neu angelegt: „-- Stand 5. August 2024, 17:12 -- Erzeugt die lateinische Umschrift eines Textes in anderer Schriftart local Umschrift = {} function Umschrift.main(frame) Zeichensatz = "homogen" -- Annahme homogener Zeichensatz in Übersetzung if (frame.args.Zs ~= nil) then if (frame.args.Zs == "inhomogen") then Zeichensatz = "inhomogen" end end Sprachkuerzel = frame.args.spr if (Sprachkuerzel == "ab") then return Umschrift.ab(frame.args[1]) elseif (Spra…“
 
KKeine Bearbeitungszusammenfassung
Zeile 4: Zeile 4:


function Umschrift.main(frame)
function Umschrift.main(frame)
Zeichensatz = "homogen" -- Annahme homogener Zeichensatz in Übersetzung
if (frame.args.Zs ~= nil) then
if (frame.args.Zs == "inhomogen") then
Zeichensatz = "inhomogen"
end
end
Sprachkuerzel = frame.args.spr
Sprachkuerzel = frame.args.spr
if (Sprachkuerzel == "ab") then
if (Sprachkuerzel == "ab") then
return Umschrift.ab(frame.args[1])
return Umschrift.ab(frame.args[1])
elseif (Sprachkuerzel == "abq") then
elseif (Sprachkuerzel == "agrDIN") then
return Umschrift.abq(frame.args[1])
return Umschrift.agrDIN(frame.args[1])
elseif (Sprachkuerzel == "ady") then
elseif (Sprachkuerzel == "agrEIN") then
return Umschrift.ady(frame.args[1])
return Umschrift.agrEIN(frame.args[1])
elseif (Sprachkuerzel == "alt") or (Sprachkuerzel == "atv") then
return Umschrift.alt(frame.args[1])
elseif (Sprachkuerzel == "av") then
return Umschrift.av(frame.args[1])
elseif (Sprachkuerzel == "ba") then
return Umschrift.ba(frame.args[1])
elseif (Sprachkuerzel == "be") then
return Umschrift.be(frame.args[1])
elseif (Sprachkuerzel == "bg") then
return Umschrift.bg(frame.args[1])
elseif (Sprachkuerzel == "bua") or (Sprachkuerzel == "bxr") then
return Umschrift.bua(frame.args[1])
elseif (Sprachkuerzel == "ce") then
return Umschrift.ce(frame.args[1])
elseif (Sprachkuerzel == "chm") then
return Umschrift.chm(frame.args[1])
elseif (Sprachkuerzel == "ckt") then
return Umschrift.ckt(frame.args[1])
elseif (Sprachkuerzel == "crh") then
return Umschrift.crh(frame.args[1])
elseif (Sprachkuerzel == "cv") then
return Umschrift.cv(frame.args[1])
elseif (Sprachkuerzel == "dng") then
return Umschrift.dng(frame.args[1])
elseif (Sprachkuerzel == "grc") then
return Umschrift.grc(frame.args[1])
elseif (Sprachkuerzel == "kbd") then
return Umschrift.kbd(frame.args[1])
elseif (Sprachkuerzel == "kca") then
return Umschrift.kca(frame.args[1])
elseif (Sprachkuerzel == "kk") then
return Umschrift.kk(frame.args[1])
elseif (Sprachkuerzel == "kv") then
return Umschrift.kv(frame.args[1])
elseif (Sprachkuerzel == "krc") then
return Umschrift.krc(frame.args[1])
elseif (Sprachkuerzel == "ky") then
return Umschrift.ky(frame.args[1])
elseif (Sprachkuerzel == "mdf") then
return Umschrift.mdf(frame.args[1])
elseif (Sprachkuerzel == "mk") then
return Umschrift.mk(frame.args[1])
elseif (Sprachkuerzel == "mn") then
return Umschrift.mn(frame.args[1])
elseif (Sprachkuerzel == "os") then
return Umschrift.os(frame.args[1])
elseif (Sprachkuerzel == "ru") then
return Umschrift.ru(frame.args[1])
elseif (Sprachkuerzel == "sah") then
return Umschrift.sah(frame.args[1])
elseif (Sprachkuerzel == "sh") or (Sprachkuerzel == "sr") or
  (Sprachkuerzel == "bs") then
return Umschrift.sh(frame.args[1], Sprachkuerzel)
elseif (Sprachkuerzel == "tg") then
return Umschrift.tg(frame.args[1])
elseif (Sprachkuerzel == "tt") then
return Umschrift.tt(frame.args[1])
elseif (Sprachkuerzel == "tyv") then
return Umschrift.tyv(frame.args[1])
elseif (Sprachkuerzel == "udm") then
return Umschrift.udm(frame.args[1])
elseif (Sprachkuerzel == "uk") then
return Umschrift.uk(frame.args[1])
elseif (Sprachkuerzel == "uum") then
return Umschrift.uum(frame.args[1])
end
end
end
end
Zeile 87: Zeile 16:
-- Erzeugt die lateinische Umschrift eines Textes in altgriechischer Schrift
-- Erzeugt die lateinische Umschrift eines Textes in altgriechischer Schrift
-- gemäß DIN 31634 (siehe auch Wikipedia:Griechisches Alphabet)
-- gemäß DIN 31634 (siehe auch Wikipedia:Griechisches Alphabet)
function Umschrift.grc(str)
function Umschrift.agrDIN(str)
   local newstr = ""
   local newstr = ""
   local newcp = 0
   local newcp = 0
Zeile 426: Zeile 355:
end
end
-- Umschlüsselung altgriechischer Zahlzeichen in arabische Ziffern  
-- Umschlüsselung altgriechischer Zahlzeichen in arabische Ziffern  
-- Umschrift Altgriechisch in Anlehnung an englisches Wiktionary (EIN)
function Umschrift.grcZZ(str)
function Umschrift.grcZZ(str)
local ZZ = "ΑΒΓΔΕϚΖΗΘΙΚΛΜΝΞΟΠϞΡΣΤΥΦΧΨΩϠ"
local ZZ = "ΑΒΓΔΕϚΖΗΘΙΚΛΜΝΞΟΠϞΡΣΤΥΦΧΨΩϠ"
Zeile 534: Zeile 464:
end
end


-- Erzeugt die lateinische Umschrift eines abasinischen Textes in kyrillischer Schrift
-- Rückgabe der Umschrift für agrDIN
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
-- Hinweis: Doppelte Definitionen vermeiden. agrEIN ist bereits definiert.
function Umschrift.abq(str)
  local abqkyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯяӀӏ"
  local abqlat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnOoPpRrSsTtUuFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂ⇇"
  return Umschrift.ISO9(str,abqkyr,abqlat,"Abasinisch")
end


-- Erzeugt die lateinische Umschrift eines abchasischen Textes in kyrillischer Schrift
   local export = {}
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.ab(str)
   local abkyr = "АаБбВвГгӶӷДдЕеЖжЗзӠӡИиКкҚқЛлМмНнОоПпԤԥРрСсТтҬҭУуФфХхҲҳЦцЧчҶҷҼҽШшЫыҨҩь"
  local ablat = "AaBbVvGgĞğDdEeŽžZzŹźIiKkĶķLlMmNnOoPpṔṕRrSsTtŢţUuFfHhḨḩCcČčÇçČ芚YyÒòʹ"
  local newstr = ""
  local newcp = 0
  local cp = 0
  local element = ""
  local strlen = mw.ustring.len(str)
  local j = 0
  local Kat = ""


  for cp = 1, strlen do
-- Debug-Funktion für Inline-Ausgabe
element = (mw.ustring.sub(str, cp, cp))
local function debug(msg)
if (element == "Ҟ") then
return "[DEBUG: " .. msg .. "]"
newstr = newstr .. "K̄"
elseif (element == "ҟ") then
newstr = newstr .. "k̄"
elseif (element == "Ҵ") then
newstr = newstr .. "C̄"
elseif (element == "ҵ") then
newstr = newstr .. "c̄"
elseif (element == "Ҿ") then
newstr = newstr .. "Č̦"
elseif (element == "ҿ") then
newstr = newstr .. "č̦"
elseif (element == "Џ") then
newstr = newstr .. "D̂"
elseif (element == "џ") then
newstr = newstr .. "d̂"
elseif (element == "ә") then
newstr = newstr .. "a̋"
else
  newcp = (mw.ustring.find(abkyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(ablat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (Abchasisch)]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
  end
  end
  return newstr .. Kat
end
end


-- Erzeugt die lateinische Umschrift eines adygeischen Textes in kyrillischer Schrift
-- Basistabelle für Zeichenersetzung (lautnah)
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
local ersetzungen_phon = {
function Umschrift.ady(str)
["γγ"] = "ng",
  local adykyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯяӀӏ"
["γκ"] = "nk",
  local adylat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnOoPpRrSsTtUuFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂ⇇"
["γξ"] = "nx",
  return Umschrift.ISO9(str,adykyr,adylat,"Adygeisch")
["γχ"] = "nch",
end
["θ"] = "th",
["φ"] = "ph",
["χ"] = "kh",
["α"] = "a", ["β"] = "b", ["γ"] = "g", ["δ"] = "d", ["ε"] = "e",
["ζ"] = "z", ["η"] = "ē", ["ι"] = "i", ["κ"] = "k", ["λ"] = "l",
["μ"] = "m", ["ν"] = "n", ["ξ"] = "x", ["ο"] = "o", ["π"] = "p",
["ρ"] = "r", ["σ"] = "s", ["ς"] = "s", ["τ"] = "t", ["υ"] = "u",
["ω"] = "ō",


-- Erzeugt die lateinische Umschrift eines süd- und nordaltaischen Textes in kyrillischer Schrift
-- Großbuchstaben
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
["Α"] = "A", ["Β"] = "B", ["Γ"] = "G", ["Δ"] = "D", ["Ε"] = "E",
function Umschrift.alt(str)
["Ζ"] = "Z", ["Η"] = "Ē", ["Ι"] = "I", ["Κ"] = "K", ["Λ"] = "L",
  local altkyr = "АаБбВвГгДдјЕеЁёЖжЗзИиЙйКкЛлМмНнҤҥОоӦӧПпРрСсТтУуӰӱФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
["Μ"] = "M", ["Ν"] = "N", ["Ξ"] = "X", ["Ο"] = "O", ["Π"] = "P",
  local altlat = "AaBbVvGgDďǰEeË뎞ZzIiJjKkLlMmNnṄṅOoÖöPpRrSsTtUuÜüFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
["Ρ"] = "R", ["Σ"] = "S", ["Τ"] = "T", ["Υ"] = "U", ["Φ"] = "Ph",
  local newstr = ""
["Χ"] = "Kh", ["Θ"] = "Th", ["Ω"] = "Ō"
  local newcp = 0
}
  local cp = 0
  local element = ""
  local strlen = mw.ustring.len(str)
  local j = 0
  local Kat = ""
  local Sprache = "Altaisch"
  if (Sprachkuerzel == "atv") then Sprache = "Nordaltaisch" end


  for cp = 1, strlen do
-- Akzentwahrende Umsetzungen (vereinfachte Beispiele)
element = (mw.ustring.sub(str, cp, cp))
local diakritika_phon = {
if (element == "Ј") then
["ῐ"] = "ĭ", ["ῑ"] = "ī",
newstr = newstr .. "J̌"
["ῠ"] = "ŭ", ["ῡ"] = "ū",
else
["ά"] = "á", ["έ"] = "é", ["ή"] = "ḗ", ["ί"] = "í",
  newcp = (mw.ustring.find(altkyr, element, 1, true))
["ό"] = "ó", ["ύ"] = "ú", ["ώ"] = "ṓ",
  if (newcp) then
["ὰ"] = "à", ["ὲ"] = "è", ["ὴ"] = "è", ["ὶ"] = "ì",
  newstr = newstr .. (mw.ustring.sub(altlat, newcp, newcp))
["ὸ"] = "ò", ["ὺ"] = "ù", ["ὼ"] = "ò",
  else
["ᾶ"] = "â", ["ῖ"] = "î", ["ῦ"] = "û", ["ῶ"] = "ô",
  j = mw.ustring.find(element, "%a", 1)
["ϊ"] = "ï", ["ϋ"] = "ü", ["ΐ"] = "ḯ", ["ΰ"] = "ǘ",
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (" .. Sprache .. ")]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
  end
  end
  return newstr .. Kat
end


-- Erzeugt die lateinische Umschrift eines awarischen Textes in kyrillischer Schrift
-- Großbuchstaben mit Diakritika
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
["Ά"] = "Á", ["Έ"] = "É", ["Ή"] = "Ḗ", ["Ί"] = "Í",
function Umschrift.av(str)
["Ό"] = "Ó", ["Ύ"] = "Ú", ["Ώ"] = "Ṓ"
  local avkyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯяӀӏ"
}
  local avlat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnOoPpRrSsTtUuFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂ⇇"
  return Umschrift.ISO9(str,avkyr,avlat,"Awarisch")
end


-- Erzeugt die lateinische Umschrift eines weißrussischen Textes in kyrillischer Schrift
-- Transkription mit Akzentübertragung
-- gemäß DIN 1460 (siehe https://de.wikipedia.org/wiki/Kyrillisches_Alphabet#Belarussisch)
function export.grc_phon(text)
function Umschrift.be(str)
if not text then return debug("Kein Text übergeben") end
  local newstr = ""
local out = text
  local newcp = 0
  local cp = 0
  local kyr = "АаБбВвГ㥴ДдЕеЁёЖжЗзІіЙйКкЛлМмНнОоПпРрСсТтУуЎўФфЦцЧчШшЫыЭэ"
  local lat = "AaBbVvHhGgDdEeË뎞ZzIiJjKkLlMmNnOoPpRrSsTtUuŬŭFfCcČ芚YyĖė"
  local element = ""
  local j = 0
  local Kat = ""


  for cp = 1, mw.ustring.len(str) do
-- Ersetze Akzente durch entsprechende Lautzeichen
element = (mw.ustring.sub(str, cp, cp))
for k, v in pairs(diakritika_phon) do
  if (element == "Ъ") or (element == "ъ") or (element == "’") then
out = mw.ustring.gsub(out, k, v)
  newstr = newstr .. '"'
end
elseif (element == "Ь") or (element == "ь") then
  newstr = newstr .. "ʹ"
elseif (element == "Х") then
  newstr = newstr .. "Ch"
elseif (element == "х") then
  newstr = newstr .. "ch"
elseif (element == "Ю") then
  newstr = newstr .. "Ju"
elseif (element == "ю") then
  newstr = newstr .. "ju"
elseif (element == "Я") then
  newstr = newstr .. "Ja"
elseif (element == "я") then
  newstr = newstr .. "ja"
  else
  newcp = (mw.ustring.find(kyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(lat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (Weißrussisch)]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
    end
  end
  return newstr .. Kat
end


-- Erzeugt die lateinische Umschrift eines baschkirischen Textes in kyrillischer Schrift
-- Wende phonologische Transliteration an
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
for k, v in pairs(ersetzungen_phon) do
function Umschrift.ba(str)
out = mw.ustring.gsub(out, k, v)
  local newstr = ""
end
  local newcp = 0
  local cp = 0
  local bakyr = "АаБбВвГгҒғДдЕеЁёЖжЗзИиЙйКкҠҡЛлМмНнҢңОоӨөПпРрСсҪҫТтУуҮүФфХхҺһЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local balat = "AaBbVvGgĠġDdEeË뎞ZzIiJjKkǨǩLlMmNnṆṇOoÔôPpRrSsȘșTtUuÙùFfHhḤḥCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  local element = ""
  local strlen = mw.ustring.len(str)
  local j = 0
  local Kat = ""


  for cp = 1, strlen do
return debug("Phonologische Umschrift abgeschlossen") .. " → " .. out
element = (mw.ustring.sub(str, cp, cp))
if (element == "Ҙ") then
newstr = newstr .. "Z̦"
elseif (element == "ҙ") then
newstr = newstr .. "z̦"
elseif (element == "Ә") then
newstr = newstr .. "A̋"
elseif (element == "ә") then
newstr = newstr .. "a̋"
else
  newcp = (mw.ustring.find(bakyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(balat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (Baschkirisch)]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
  end
  end
  return newstr .. Kat
end
end


-- Dispatcher für unterschiedliche Modi (z.B. DIN, phonologisch, IPA)
function export.main(frame)
local args = frame.args
local pargs = frame:getParent() and frame:getParent().args or {}
local spr = args["spr"] or pargs["spr"] or ""
local modus = args["modus"] or pargs["modus"] or "din"
local wort = args[1] or pargs[1] or ""


-- Erzeugt die lateinische Umschrift eines bulgarischen Textes in kyrillischer Schrift
if spr == "grc" and modus == "din" then
-- gemäß DIN 1460 (siehe Wiktionary:Kyrillisches Alphabet#Bulgarisch)
return export.grc_din(wort)
function Umschrift.bg(str)
elseif spr == "grc" and modus == "phon" then
  local newstr = ""
return export.grc_phon(wort)
  local newcp = 0
end
  local cp = 0
  local kyr = "АаБбВвГгДдЕеЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфЦцЧчШшЫы"
  local lat = "AaBbVvGgDdEeŽžZzIiJjKkLlMmNnOoPpRrSsTtUuFfCcČ芚Yy"
  local element = ""
  local strlen = mw.ustring.len(str)
  local j = 0
  local Kat = ""


  for cp = 1, strlen do
return debug("Kein gültiger Modus oder Sprache")
element = (mw.ustring.sub(str, cp, cp))
  if (element == "Ъ") then
newstr = newstr .. "Ă"
  elseif (element == "ъ") then
if (cp == strlen) then
newstr = newstr .. '"'
else
newstr = newstr .. 'ă'
end
elseif (element == "Ь") or (element == "ь") then
  newstr = newstr .. "ʹ"
elseif (element == "Х") then
  newstr = newstr .. "Ch"
elseif (element == "х") then
  newstr = newstr .. "ch"
elseif (element == "Щ") then
  newstr = newstr .. "Št"
elseif (element == "щ") then
  newstr = newstr .. "št"
elseif (element == "Ю") then
  newstr = newstr .. "Ju"
elseif (element == "ю") then
  newstr = newstr .. "ju"
elseif (element == "Я") then
  newstr = newstr .. "Ja"
elseif (element == "я") then
  newstr = newstr .. "ja"
elseif (element == "Ѝ" ) then
  newstr = newstr .. "Ì"
elseif (element == "ѝ" ) then
  newstr = newstr .. "ì"
  else
  newcp = (mw.ustring.find(kyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(lat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (Bulgarisch)]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
    end
  end
  return newstr .. Kat
end
 
-- Erzeugt die lateinische Umschrift eines burjatischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.bua(str)
  local buakyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоӨөПпРрСсТтУуҮүФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯяҺһ"
  local bualat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnOoÔôPpRrSsTtUuÙùFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâḤḥ"
  local Sprache = "Burjatisch"
  if (Sprachkuerzel == "bxr") then Sprache = "Russisches Burjatisch" end
  return Umschrift.ISO9(str,buakyr,bualat,Sprache)
end
 
-- Erzeugt die lateinische Umschrift eines tschetschenischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.ce(str)
  local cekyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯяӀӏ"
  local celat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnOoPpRrSsTtUuFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂ⇇"
  return Umschrift.ISO9(str,cekyr,celat,"Tschetschenisch")
end
end


-- Erzeugt die lateinische Umschrift eines Mari Textes in kyrillischer Schrift
return export
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.chm(str)
  local chmkyr = "АаӒӓБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнҤҥОоӦӧПпРрСсТтУуӰӱФфХхЦцЧчШшЩщЪъЫыӸӹЬьЭэЮюЯя"
  local chmlat = "AaÄäBbVvGgDdEeË뎞ZzIiJjKkLlMmNnṄṅOoÖöPpRrSsTtUuÜüFfHhCcČ芚ŜŝʺʺYyŸÿʹʹÈèÛûÂâ‵"
  return Umschrift.ISO9(str,chmkyr,chmlat,"Mari")
end
 
-- Erzeugt die lateinische Umschrift eines tschuktschischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.ckt(str)
  local cktkyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкӃӄЛлԒԓМмНнӇӈОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯяʼ"
  local cktlat = "AaBbVvGgDdEeË뎞ZzIiJjKkḲḳLlĻļMmNnŇňOoPpRrSsTtUuFfHhCcČ芚ŜŝʺʺYy’’ÈèÛûÂâ‵"
  return Umschrift.ISO9(str,cktkyr,cktlat,"Tschuktschisch")
end
 
-- Erzeugt die lateinische Umschrift eines krimtatarischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.crh(str)
  local crhkyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local crhlat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnOoPpRrSsTtUuFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  return Umschrift.ISO9(str,crhkyr,crhlat,"Krimtatarisch")
end
 
-- Erzeugt die lateinische Umschrift eines tschuwaschischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.cv(str)
  local cvkyr = "АаӐӑБбВвГгДдЕеЁёӖӗЖжЗзИиЙйКкЛлМмНнОоПпРрСсҪҫТтУуӲӳФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local cvlat = "AaĂăBbVvGgDdEeËëĔĕŽžZzIiJjKkLlMmNnOoPpRrSsÇçTtUuŰűFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  return Umschrift.ISO9(str,cvkyr,cvlat,"Tschuwaschisch")
end
 
-- Erzeugt die lateinische Umschrift eines kabardinischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.kbd(str)
  local kbdkyr = "АаЭэБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЮюЯяӀӏ"
  local kbdlat = "AaÈèBbVvGgDdEeË뎞ZzIiJjKkLlMmNnOoPpRrSsTtUuFfHhCcČ芚ŜŝʺʺYyʹʹÛûÂ⇇"
  return Umschrift.ISO9(str,kbdkyr,kbdlat,"Kabardinisch")
end
 
-- Erzeugt die lateinische Umschrift eines chantischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.kca(str)
  local newstr = ""
  local newcp = 0
  local cp = 0
  local kcakyr = "АаӒӓӐӑБбВвГгДдЕеЁёӘәЖжЗзИиЙйКкӃӄЛлԒԓМмНнӇӈОоŎŏӦӧӨөӪӫПпРрСсТтУуӰӱЎўФфХхӼӽЦцЧчҶҷШшЩщЪъЫыЬьЭэЄєЮюЯя"
  local kcalat = "AaÄäĂăBbVvGgDdEeËëÀàŽžZzIiJjKkḲḳLlĻļMmNnṆṇOoŎŏÖöÔôŐőPpRrSsTtUuÜüŬŭFfHhḤḥCcČčÇ犚ŜŝʺʺYyʹʹÈèÊêÛûÂâ"
  kcakyr = kcakyr .. "ҚқӅӆҢңҲҳ" -- alternative Zeichen
  kcalat = kcalat .. "ĶķĻļṆṇḨḩ"
  local element = ""
  local strlen = mw.ustring.len(str)
  local j = 0
  local Kat = ""
 
  for cp = 1, strlen do
element = (mw.ustring.sub(str, cp, cp))
if (element == "Ӛ") then
newstr = newstr .. "A̋"
elseif (element == "ӛ") then
newstr = newstr .. "a̋"
elseif (element == "Є̈") then
newstr = newstr .. "Ê̈̋"
elseif (element == "є̈") then
newstr = newstr .. "ê̈̋"
elseif (element == "Ю̆") then
newstr = newstr .. "Û̆"
elseif (element == "ю̆") then
newstr = newstr .. "û̆̋"
elseif (element == "Я̆") then
newstr = newstr .. "Û̆"
elseif (element == "я̆̆") then
newstr = newstr .. "û̆̋"
else
  newcp = (mw.ustring.find(kcakyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(kcalat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (Chantisch)]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
  end
  end
  return newstr .. Kat
end
-- Erzeugt die lateinische Umschrift eines dunganischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.dng(str)
  local dngkyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнҢңӘәОоПпРрСсТтУуЎўҮүФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local dnglat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnṆṇÀàOoPpRrSsTtUuŬŭÙùFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  local newstr = ""
  local newcp = 0
  local cp = 0
  local element = ""
  local strlen = mw.ustring.len(str)
  local j = 0
  local Kat = ""
 
  for cp = 1, strlen do
element = (mw.ustring.sub(str, cp, cp))
if (element == "Җ") then
newstr = newstr .. "Ž̧"
elseif (element == "җ") then
newstr = newstr .. "ž̧"
else
  newcp = (mw.ustring.find(dngkyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(dnglat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (Dunganisch)]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
  end
  end
  return newstr .. Kat
end
 
-- Erzeugt die lateinische Umschrift eines kasachischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.kk(str)
  local newstr = ""
  local newcp = 0
  local cp = 0
  local kkkyr = "АаБбВвГгҒғДдЕеЁёЖжЗзИиЙйКкҚқЛлМмНнҢңОоӨөПпРрСсТтУуҰұҮүФфХхҺһЦцЧчШшЩщЪъЫыІіЬьЭэЮюЯя"
  local kklat = "AaBbVvGgĠġDdEeË뎞ZzIiJjKkĶķLlMmNnṆṇOoÔôPpRrSsTtUuÚúÙùFfHhḤḥCcČ芚ŜŝʺʺYyÌìʹʹÈèÛûÂâ"
  local element = ""
  local strlen = mw.ustring.len(str)
  local j = 0
  local Kat = ""
 
  for cp = 1, strlen do
element = (mw.ustring.sub(str, cp, cp))
if (element == "Ә") then
newstr = newstr .. "A̋"
elseif (element == "ә") then
newstr = newstr .. "a̋"
else
  newcp = (mw.ustring.find(kkkyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(kklat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (Kasachisch)]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
  end
  end
  return newstr .. Kat
end
 
-- Erzeugt die lateinische Umschrift eines Komi Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.kv(str)
  local kvkyr = "АаБбВвГгДдЕеЁёЖжЗзИиІіЙйКкЛлМмНнОоӦӧПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local kvlat = "AaBbVvGgDdEeË뎞ZzIiÌìJjKkLlMmNnOoÖöPpRrSsTtUuFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  return Umschrift.ISO9(str,kvkyr,kvlat,"Komi")
end
 
-- Erzeugt die lateinische Umschrift eines karatschai-balkarischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.krc(str)
  local krckyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоӨөПпРрСсТтУуҮүЎўФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local krclat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnOoÔôPpRrSsTtUuÙùŬŭFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  return Umschrift.ISO9(str,krckyr,krclat,"Karatschai-Balkarisch")
end
 
-- Erzeugt die lateinische Umschrift eines kirgisischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.ky(str)
  local kykyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнҢңОоӨөПпРрСсТтУуҮүФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local kylat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnṆṇOoÔôPpRrSsTtUuÙùFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  return Umschrift.ISO9(str,kykyr,kylat,"Kirgisisch")
end
 
-- Erzeugt die lateinische Umschrift eines mazedonischen Textes in kyrillischer Schrift
-- gemäß DIN 1460 (siehe Wikipedia:Kyrillisches_Alphabet#Mazedonisch)
function Umschrift.mk(str)
  local newstr = ""
  local newcp = 0
  local cp = 0
  local kyr = "АаБбВвГгДдЃѓЕеЖжЗзИиЈјКкЛлМмНнОоПпРрСсЌќТтУуФфХхЦцЧчШш"
  local lat = "AaBbVvGgDdǴǵEeŽžZzIiJjKkLlMmNnOoPpRrSsḰḱTtUuFfHhCcČ芚"
  local element = ""
  local j = 0
  local Kat = ""
 
  for cp = 1, mw.ustring.len(str) do
element = (mw.ustring.sub(str, cp, cp))
if (element == "Ѕ") then
  newstr = newstr .. "Dz"
elseif (element == "ѕ") then
  newstr = newstr .. "dz"
elseif (element == "ʼ") then
newstr = newstr .. '"'
elseif (element == "Џ") then
  newstr = newstr .. "Dž"
elseif (element == "џ") then
  newstr = newstr .. "dž"
elseif (element == "Њ") then
  newstr = newstr .. "Nj"
elseif (element == "њ") then
  newstr = newstr .. "nj"
elseif (element == "Љ") then
  newstr = newstr .. "Lj"
elseif (element == "љ") then
  newstr = newstr .. "lj"
elseif (element == "Ѝ" ) then
  newstr = newstr .. "Ì"
elseif (element == "ѝ" ) then
  newstr = newstr .. "ì"
  else
  newcp = (mw.ustring.find(kyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(lat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (Mazedonisch)]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
    end
  end
  return newstr .. Kat
end
 
-- Erzeugt die lateinische Umschrift eines mokschanischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.mdf(str)
  local mdfkyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local mdflat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnOoPpRrSsTtUuFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  return Umschrift.ISO9(str,mdfkyr,mdflat,"Mokscha")
end
 
-- Erzeugt die lateinische Umschrift eines mongolischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.mn(str)
  local mnkyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоӨөПпРрСсТтУуҮүФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local mnlat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnOoÔôPpRrSsTtUuÙùFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  return Umschrift.ISO9(str,mnkyr,mnlat,"Mongolisch")
end
 
-- Erzeugt die lateinische Umschrift eines ossetischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.os(str)
  local oskyr = "АаӔӕБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local oslat = "AaÆæBbVvGgDdEeË뎞ZzIiJjKkLlMmNnOoPpRrSsTtUuFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  return Umschrift.ISO9(str,oskyr,oslat,"Ossetisch")
end
 
-- Erzeugt die lateinische Umschrift eines russischen Textes in kyrillischer Schrift
-- gemäß DIN 1460 (siehe Wiktionary:Russisch/Umschrift)
function Umschrift.ru(str)
  local newstr = ""
  local newcp = 0
  local cp = 0
  local kyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнОоПпРрСсТтУуФфЦцЧчШшЫыЭэ"
  local lat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnOoPpRrSsTtUuFfCcČ芚YyĖė"
  local element = ""
  local j = 0
  local Kat = ""
 
  for cp = 1, mw.ustring.len(str) do
element = (mw.ustring.sub(str, cp, cp))
  if (element == "Ъ") or (element == "ъ")  or (element == "’") then
  newstr = newstr .. '"'
elseif (element == "Ь") or (element == "ь") then
  newstr = newstr .. "ʹ"
elseif (element == "Х") then
  newstr = newstr .. "Ch"
elseif (element == "х") then
  newstr = newstr .. "ch"
elseif (element == "Щ") then
  newstr = newstr .. "Šč"
elseif (element == "щ") then
  newstr = newstr .. "šč"
elseif (element == "Ю") then
  newstr = newstr .. "Ju"
elseif (element == "ю") then
  newstr = newstr .. "ju"
elseif (element == "Я") then
  newstr = newstr .. "Ja"
elseif (element == "я") then
  newstr = newstr .. "ja"
  else
  newcp = (mw.ustring.find(kyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(lat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (Russisch)]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
    end
  end
  return newstr .. Kat
end
 
-- Erzeugt die lateinische Umschrift eines jakutischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.sah(str)
  local sahkyr = "АаБбВвГгҔҕДдЕеЁёЖжЗзИиЙйКкЛлМмНнҤҥОоӨөПпРрСсҺһТтУуҮүФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local sahlat = "AaBbVvGgĞǧDdEeË뎞ZzIiJjKkLlMmNnṄṅOoÔôPpRrSsḤḥTtUuÙùFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  return Umschrift.ISO9(str,sahkyr,sahlat,"Jakutisch")
end
 
-- Erzeugt die lateinische Umschrift eines serbokroatischen/serbischen Textes in kyrillischer Schrift
-- gemäß DIN 1460 (siehe Wikipedia:Kyrillisches_Alphabet#Serbisch, Serbokroatisch und Montenegrinisch)
function Umschrift.sh(str, lan)
  local newstr = ""
  local newcp = 0
  local cp = 0
  local kyr = "АаБбВвГгДдЂђЕеЖжЗзИиЈјКкЛлМмНнОоПпРрСсЌќТтЋћУуФфХхЦцЧчШш"
  local lat = "AaBbVvGgDdĐđEeŽžZzIiJjKkLlMmNnOoPpRrSsḰḱTtĆćUuFfHhCcČ芚"
  local element = ""
  local j = 0
  local Kat = ""
  local Sprache = ""
 
  for cp = 1, mw.ustring.len(str) do
element = (mw.ustring.sub(str, cp, cp))
if (element == "Љ") then
  newstr = newstr .. "Lj"
elseif (element == "љ") then
  newstr = newstr .. "lj"
elseif (element == "Њ") then
  newstr = newstr .. "Nj"
elseif (element == "њ") then
  newstr = newstr .. "nj"
elseif (element == "Џ") then
  newstr = newstr .. "Dž"
elseif (element == "џ") then
  newstr = newstr .. "dž"
  else
  newcp = (mw.ustring.find(kyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(lat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  if (lan == "sr") then Sprache = "Serbisch"
  elseif (lan == "sh") then Sprache = "Serbokroatisch"
  elseif (lan == "bs") then Sprache = "Bosnisch"
  end
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (" .. Sprache ..")]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
    end
  end
  return newstr .. Kat
end
 
-- Erzeugt die lateinische Umschrift eines tadschikischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.tg(str)
  local tgkyr = "АаБбВвГгҒғДдЕеЁёЖжЗзИиӢӣЙйКкҚқЛлМмНнОоПпРрСсТтУуӮӯФфХхҲҳЧчҶҷШшЪъЭэЮюЯя"
  local tglat = "AaBbVvGgĠġDdEeË뎞ZzIiĪīJjKkĶķLlMmNnOoPpRrSsTtUuŪūFfHhḨḩČčÇ犚ʺʺÈèÛûÂâ"
  return Umschrift.ISO9(str,tgkyr,tglat,"Tadschikisch")
end
 
-- Erzeugt die lateinische Umschrift eines tatarischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.tt(str)
  local newstr = ""
  local newcp = 0
  local cp = 0
  local ttkyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнҢңОоӨөПпРрСсТтУуҮүФфХхҺһЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local ttlat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnṆṇOoÔôPpRrSsTtUuÙùFfHhḤḥCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  local element = ""
  local strlen = mw.ustring.len(str)
  local j = 0
  local Kat = ""
 
  for cp = 1, strlen do
element = (mw.ustring.sub(str, cp, cp))
if (element == "Ә") then
newstr = newstr .. "A̋"
elseif (element == "ә") then
newstr = newstr .. "a̋"
  elseif (element == "Җ") then
newstr = newstr .. "Ž̧"
  elseif (element == "җ") then
newstr = newstr .. "ž̧"
else
  newcp = (mw.ustring.find(ttkyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(ttlat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (Tatarisch)]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
  end
  end
  return newstr .. Kat
end
 
-- Erzeugt die lateinische Umschrift eines tuwinischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.tyv(str)
  local tyvkyr = "АаБбВвГгДдЕеЁёЖжЗзИиЙйКкЛлМмНнҢңОоӨөПпРрСсТтУуҮүФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local tyvlat = "AaBbVvGgDdEeË뎞ZzIiJjKkLlMmNnṆṇOoÔôPpRrSsTtUuÙùFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  return Umschrift.ISO9(str,tyvkyr,tyvlat,"Tuwinisch")
end
-- Standardroutine für die Umsetzung von kyrillischen Texten gemäß ISO 9
function Umschrift.ISO9(Text,Kyrillisch,Latein,Sprache)
  local newstr = ""
  local newcp = 0
  local cp = 0
  local element = ""
  local strlen = mw.ustring.len(Text)
  local j = 0
  local Kat = ""
 
  for cp = 1, strlen do
element = (mw.ustring.sub(Text, cp, cp))
  newcp = (mw.ustring.find(Kyrillisch, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(Latein, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (" .. Sprache .. ")]]"
  else
  newstr = newstr .. (mw.ustring.sub(Text, cp, cp))
  end
  end
  end
  return newstr .. Kat
end
 
-- Erzeugt die lateinische Umschrift eines udmurtischen Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.udm(str)
  local udmkyr = "АаБбВвГгДдЕеЁёЖжЗзИиӤӥЙйКкЛлМмНнОоӦӧПпРрСсТтУуФфХхЦцЧчШшЩщЪъЫыЬьЭэЮюЯя"
  local udmlat = "AaBbVvGgDdEeË뎞ZzIiÎîJjKkLlMmNnOoÖöPpRrSsTtUuFfHhCcČ芚ŜŝʺʺYyʹʹÈèÛûÂâ"
  local newstr = ""
  local newcp = 0
  local cp = 0
  local element = ""
  local strlen = mw.ustring.len(str)
  local j = 0
  local Kat = ""
 
  for cp = 1, strlen do
element = (mw.ustring.sub(str, cp, cp))
if (element == "Ӝ") then
newstr = newstr .. "Z̄"
elseif (element == "ӝ") then
newstr = newstr .. "z̄"
elseif (element == "Ӟ") then
newstr = newstr .. "Z̈"
elseif (element == "ӟ") then
newstr = newstr .. "z̈"
elseif (element == "Ӵ") then
newstr = newstr .. "C̈"
elseif (element == "ӵ") then
newstr = newstr .. "c̈"
else
  newcp = (mw.ustring.find(udmkyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(udmlat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (Udmurtisch)]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
  end
  end
  return newstr .. Kat
end
 
-- Erzeugt die lateinische Umschrift eines ukrainischen Textes in kyrillischer Schrift
-- gemäß DIN 1460 (siehe Wikipedia Kyrillisches_Alphabet#Ukrainisch)
function Umschrift.uk(str)
  local newstr = ""
  local newcp = 0
  local cp = 0
  local kyr = "АаБбВвГ㥴ДдЕеЁёЖжЗзИиІіЇїЙйКкЛлМмНнОоПпРрСсТтУуФфЦцЧчШш"
  local lat = "AaBbVvHhGgDdEeË뎞ZzYyIiÏïJjKkLlMmNnOoPpRrSsTtUuFfCcČ芚"
  local element = ""
  local j = 0
  local Kat = ""
 
  for cp = 1, mw.ustring.len(str) do
element = (mw.ustring.sub(str, cp, cp))
  if (element == "Ъ") or (element == "ъ")  or (element == "ʼ") then
  newstr = newstr .. '"'
  elseif (element == "Є") then
  newstr = newstr .. "Je"
  elseif (element == "є") then
  newstr = newstr .. "je"
elseif (element == "Ь") or (element == "ь") then
  newstr = newstr .. "ʹ"
elseif (element == "Х") then
  newstr = newstr .. "Ch"
elseif (element == "х") then
  newstr = newstr .. "ch"
elseif (element == "Щ") then
  newstr = newstr .. "Šč"
elseif (element == "щ") then
  newstr = newstr .. "šč"
elseif (element == "Ю") then
  newstr = newstr .. "Ju"
elseif (element == "ю") then
  newstr = newstr .. "ju"
elseif (element == "Я") then
  newstr = newstr .. "Ja"
elseif (element == "я") then
  newstr = newstr .. "ja"
  else
  newcp = (mw.ustring.find(kyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(lat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (Ukrainisch)]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
    end
  end
  return newstr .. Kat
end
 
-- Erzeugt die lateinische Umschrift eines Urum-Textes in kyrillischer Schrift
-- gemäß ISO 9 (siehe Wikipedia:ISO 9)
function Umschrift.uum(str)
  local newstr = ""
  local newcp = 0
  local cp = 1
  local uumkyr = "АаБбВвГ㥴ДдЕеЖжЗзИиЙйКкЛлМмНнОоӦӧПпРрСсТтУуӰӱФфХхЧчШшЫыЭэ"
  local uumlat = "AaBbVvGgǦǧDdEeŽžZzIiJjKkLlMmNnOoÖöPpRrSsTtUuÜüFfHhČ芚YyÈè"
  local element = ""
  local j = 0
  local Kat = ""
  local Digraph = ""
  local strlen = mw.ustring.len(str)
 
  while cp <= strlen do
Digraph = (mw.ustring.sub(str, cp, cp+1))
if (Digraph == "Д'") then
  newstr = newstr .. "Ď"
  cp = cp + 2
elseif (Digraph == "д'") then
  newstr = newstr .. "ď"
  cp = cp + 2
elseif (Digraph == "Т'") then
newstr = newstr .. 'Ť'
  cp = cp + 2
elseif (Digraph == "т'") then
  newstr = newstr .. "ť"
  cp = cp + 2
  else
element = mw.ustring.sub(str, cp, cp)
  newcp = (mw.ustring.find(uumkyr, element, 1, true))
  if (newcp) then
  newstr = newstr .. (mw.ustring.sub(uumlat, newcp, newcp))
  else
  j = mw.ustring.find(element, "%a", 1)
  if (j and Zeichensatz == "homogen") then
  newstr = newstr .. "■"
  Kat = "[[Kategorie:Wartung falsche Übersetzungen (Urum)]]"
  else
  newstr = newstr .. (mw.ustring.sub(str, cp, cp))
  end
  end
  cp = cp + 1
    end
  end
  return newstr .. Kat
end
return Umschrift

Version vom 20. April 2025, 10:35 Uhr

Die Dokumentation für dieses Modul kann unter Modul:Umschrift/Doku erstellt werden 

-- Stand 5. August 2024, 17:12
-- Erzeugt die lateinische Umschrift eines Textes in anderer Schriftart 
local Umschrift = {}

function Umschrift.main(frame)
	Sprachkuerzel = frame.args.spr
	if (Sprachkuerzel == "ab") then
		return Umschrift.ab(frame.args[1])
	elseif (Sprachkuerzel == "agrDIN") then
		return Umschrift.agrDIN(frame.args[1])
	elseif (Sprachkuerzel == "agrEIN") then
		return Umschrift.agrEIN(frame.args[1])
	end
end

-- Erzeugt die lateinische Umschrift eines Textes in altgriechischer Schrift
-- gemäß DIN 31634 (siehe auch Wikipedia:Griechisches Alphabet)
function Umschrift.agrDIN(str)
  local newstr = ""
  local newcp = 0
  local cp = 1
  local grb = "βΒδΔγΓϊΪκΚλΛμΜνΝπϖΠρῤϱΡσςΣτΤϋΫξΞζΖ;·Ϝϝ"
  local lat = "bBdDgGïÏkKlLmMnNppPrrrRssStTÿŸxXzZ?;Ww"
  local element = ""
  local strlen = mw.ustring.len(str)
  local j = 0
  local Kat = ""
  local possible2 = "y"
  local first = ""
  local second = ""
  local endgef = 0
  local Blank = "%s" -- whitespace
  local blgef = 0
  local pgef = 0

  while cp <= strlen do
-- Blank und Interpunktionen abarbeiten
	first = mw.ustring.sub(str, cp, cp)
	while (cp <= strlen and (first == " " or mw.ustring.find(first, "%p", 1))) do
		if first == ";" then
			newstr = newstr .. "?"
		elseif first == "·" then
			newstr = newstr .. ";"
		else
			newstr = newstr .. first
		end
		cp = cp + 1
		first = mw.ustring.sub(str, cp, cp)
	end
-- Zahlschrift überprüfen
	if cp <= strlen - 1 then
		blgef = mw.ustring.find(mw.ustring.sub(str, cp, strlen), Blank, 1)
		pgef = mw.ustring.find(mw.ustring.sub(str, cp, strlen), "%p", 1)
		endgef = strlen + 1
		if (blgef) then endgef = cp + blgef - 1 end
		if (pgef) then
			if pgef < endgef then endgef = cp + pgef - 1 end
		end
		local cpend = endgef - 1
		if (mw.ustring.sub(str, cpend, cpend) == "ʹ" or
			mw.ustring.sub(str, cp, cp) == "͵") then
			-- Zahlschrift ermitteln
			newstr = newstr .. Umschrift.grcZZ(mw.ustring.sub(str, cp, cpend))
			cp = endgef
		end
	end
-- zweistellige Buchstabenkominationen
	if (cp + 1 <= strlen and possible2 == "y") then
		element = (mw.ustring.sub(str, cp, cp+1))
		first = (mw.ustring.sub(str, cp, cp))
		second = (mw.ustring.sub(str, cp+1, cp+1))
  		if (first == "α" and mw.ustring.find("υύὺῠῡὐὔὒῦὖ", second, 1, true)) then
			newstr = newstr .. "au"
			cp = cp + 2
	  	elseif (first == "Α" and mw.ustring.find("υύὺῠῡὐὔὒῦὖ", second, 1, true)) then
			newstr = newstr .. "Au" 
			cp = cp + 2
		elseif (element == "αϋ") then
	  		newstr = newstr .. "aÿ"
			cp = cp + 2
		elseif (element == "Αϋ") then
  			newstr = newstr .. "Aÿ"
			cp = cp + 2
		elseif (first == "α" and mw.ustring.find("ἱἵἳἷ", second, 1, true)) then
			newstr = newstr .. "hai"
			cp = cp + 2
		elseif (first == "Α" and mw.ustring.find("ἱἵἳἷ", second, 1, true)) then
			newstr = newstr .. "Hai"
			cp = cp + 2
		elseif (first == "ε" and mw.ustring.find("ἱἵἳἷ", second, 1, true)) then
			newstr = newstr .. "hei"
			cp = cp + 2
		elseif (first == "Ε" and mw.ustring.find("ἱἵἳἷ", second, 1, true)) then
			newstr = newstr .. "Hei"
			cp = cp + 2
		elseif (first == "ε" and mw.ustring.find("ὑὕὓὗ", second, 1, true)) then
			newstr = newstr .. "heu"
			cp = cp + 2
		elseif (first == "Ε" and mw.ustring.find("ὑὕὓὗ", second, 1, true)) then
			newstr = newstr .. "Heu" 
			cp = cp + 2
		elseif (first == "ε" and mw.ustring.find("υύὺῠῡὐὔὒῦὖ", second, 1, true)) then
			newstr = newstr .. "eu"
			cp = cp + 2
		elseif (first == "Ε" and mw.ustring.find("υύὺῠῡὐὔὒῦὖ", second, 1, true)) then
			newstr = newstr .. "Eu" 
			cp = cp + 2
  		elseif (element == "ηυ") then
			newstr = newstr .. "ēu"
			cp = cp + 2
	  	elseif (element == "Ηυ") then
			newstr = newstr .. "Ēu" 
			cp = cp + 2
		elseif (element == "γγ") then
			newstr = newstr .. "ng"
			cp = cp + 2
		elseif (element == "Γγ") then
			newstr = newstr .. "Ng"
			cp = cp + 2
		elseif (element == "γκ") then
			if (cp == 1 or (cp > 1 and mw.ustring.sub(str, cp-1, cp-1) == " ")) then
				newstr = newstr .. "gk"
			else
				newstr = newstr .. "nk"
			end
			cp = cp + 2
		elseif (element == "Γk") then
			if (cp == 1 or (cp > 1 and mw.ustring.sub(str, cp-1, cp-1) == " ")) then
				newstr = newstr .. "Gk"
			else
				newstr = newstr .. "Nk"
			end
			cp = cp + 2
		elseif (element == "γξ") then
	  		newstr = newstr .. "nx"
			cp = cp + 2
		elseif (element == "Γξ") then
	  		newstr = newstr .. "Nx"
			cp = cp + 2
		elseif (element == "γχ") then
	  		newstr = newstr .. "nch"
	  		cp = cp + 2
		elseif (element == "Γχ") then
	  		newstr = newstr .. "Nch"
	  		cp = cp + 2
		elseif (element == "ηυ") then
	  		newstr = newstr .. "ēu"
	  		cp = cp + 2
		elseif (element == "Ηυ") then
	  		newstr = newstr .. "Ēu"
	  		cp = cp + 2
		elseif (first == "η" and mw.ustring.find("ὑὕὓὗ", second, 1, true)) then
	  		newstr = newstr .. "hēu"
	  		cp = cp + 2
		elseif (first == "Η" and mw.ustring.find("ὑὕὓὗ", second, 1, true)) then
	  		newstr = newstr .. "Hēu"
	  		cp = cp + 2
		elseif (first == "ο" and mw.ustring.find("ἱἵἳἷ", second, 1, true)) then
			newstr = newstr .. "hoi"
			cp = cp + 2
		elseif (first == "Ο" and mw.ustring.find("ἱἵἳἷ", second, 1, true)) then
			newstr = newstr .. "Hoi"
			cp = cp + 2
		elseif (first == "ο" and mw.ustring.find("ὑὕὓὗ", second, 1, true)) then
	  		newstr = newstr .. "hu"
	  		cp = cp + 2
		elseif (first == "Ο" and mw.ustring.find("ὑὕὓὗ", second, 1, true)) then
	  		newstr = newstr .. "Hu"
	  		cp = cp + 2
		elseif (first == "ο" and mw.ustring.find("υύὺῠῡὐὔὒῦὖ", second, 1, true)) then
			newstr = newstr .. "u"
			cp = cp + 2
		elseif (first == "Ο" and mw.ustring.find("υύὺῠῡὐὔὒῦὖ", second, 1, true)) then
			newstr = newstr .. "U"
			cp = cp + 2
		elseif (first == "υ" and mw.ustring.find("ἱἵἳἷ", second, 1, true)) then
			newstr = newstr .. "hyi"
			cp = cp + 2
		elseif (first == "Υ" and mw.ustring.find("ἱἵἳἷ", second, 1, true)) then
			newstr = newstr .. "Hyi"
			cp = cp + 2
		elseif (element == "ῤῥ") then
	  		newstr = newstr .. "rrh"
	  		cp = cp + 2
	  	else
	  		possible2 = "n"
		end
	elseif (cp <= strlen) then
-- einzelne Buchstaben
		local h_erwartet = ""
		element = mw.ustring.sub(str, cp, cp)
		if (cp == 1) then
			h_erwartet = "j"
		else
			local zuvor = mw.ustring.sub(str, cp-1, cp-1)
			if (zuvor == " " or mw.ustring.find(zuvor, "%p", 1)) then
				h_erwartet = "j"
			end
		end
		if (element == "θ" or element == "ϑ") then
			newstr = newstr .. "th"
		elseif (element == "Θ" or element == "ϴ") then
			newstr = newstr .. "Th"
		elseif (mw.ustring.find("αάὰᾰᾱᾷἀἄἂᾆᾶᾳᾴᾲἆᾀᾄᾂ", element, 1, true)) then
			newstr = newstr .. "a"
		elseif (mw.ustring.find("ΑΆᾺᾸᾹἈἌἊᾎᾼἎᾈᾌᾊ", element, 1, true)) then
			newstr = newstr .. "A"
		elseif (mw.ustring.find("εέὲἐἔἒ", element, 1, true)) then
			newstr = newstr .. "e"
		elseif (mw.ustring.find("ΕΈῈἘἜἚ", element, 1, true)) then
			newstr = newstr .. "E"
		elseif (mw.ustring.find("ηήὴῇἠἤἢᾖῆῃῄῂἦᾐᾔᾒ", element, 1, true)) then
			newstr = newstr .. "ē"
		elseif (mw.ustring.find("ΗΉῊἨἬἪᾞῌἮᾘᾜᾚ", element, 1, true)) then
			newstr = newstr .. "Ē"
		elseif (mw.ustring.find("ἁἅἃᾇἇᾁᾅᾃ", element, 1, true)) then
			if (h_erwartet ~= "") then
				newstr = newstr .. "ha"
			else
				newstr = newstr .. "a"
			end
		elseif (mw.ustring.find("ἉἍἋᾏἏᾉᾍᾋ", element, 1, true)) then
			if (h_erwartet ~= "") then
				newstr = newstr .. "Ha"
			else
				newstr = newstr .. "A"
			end
		elseif (mw.ustring.find("ἑἕἓ", element, 1, true)) then
			if (h_erwartet ~= "") then
				newstr = newstr .. "he"
			else
				newstr = newstr .. "e"
			end
		elseif (mw.ustring.find("ἙἝἛ", element, 1, true)) then
			if (h_erwartet ~= "") then
				newstr = newstr .. "He"
			else
				newstr = newstr .. "E"
			end
		elseif (mw.ustring.find("ἡἥἣᾗἧᾑᾕᾓ", element, 1, true)) then
			if (h_erwartet ~= "") then
				newstr = newstr .. "hē"
			else
				newstr = newstr .. "ē"
			end
		elseif (mw.ustring.find("ἩἭἫᾟἯᾙᾝᾛ", element, 1, true)) then
			if (h_erwartet ~= "") then
				newstr = newstr .. "Hē"
			else
				newstr = newstr .. "Ē"
			end
		elseif (mw.ustring.find("ἱἵἳἷ", element, 1, true)) then
			if (h_erwartet ~= "") then
				newstr = newstr .. "hi"
			else
				newstr = newstr .. "i"
			end
		elseif (mw.ustring.find("ἹἽἻἿ", element, 1, true)) then
			if (h_erwartet ~= "") then
				newstr = newstr .. "Hi"
			else
				newstr = newstr .. "I"
			end
		elseif (mw.ustring.find("ὁὅὃ", element, 1, true)) then
			if (h_erwartet ~= "") then
				newstr = newstr .. "ho"
			else
				newstr = newstr .. "o"
			end
		elseif (mw.ustring.find("ὉὍὋ", element, 1, true)) then
			if (h_erwartet ~= "") then
				newstr = newstr .. "Ho"
			else
				newstr = newstr .. "O"
			end
		elseif (mw.ustring.find("ὡὥὣᾧὧᾡᾥᾣ", element, 1, true)) then
			if (h_erwartet ~= "") then
				newstr = newstr .. "hō"
			else
				newstr = newstr .. "ō"
			end
		elseif (mw.ustring.find("ὩὭὫᾯὯᾩᾭᾫ", element, 1, true)) then
			if (h_erwartet ~= "") then
				newstr = newstr .. "Hō"
			else
				newstr = newstr .. "Ō"
			end
		elseif (mw.ustring.find("ὑὕὓὗ", element, 1, true)) then
			if (h_erwartet ~= "") then
				newstr = newstr .. "hy"
			else
				newstr = newstr .. "y"
			end
		elseif (mw.ustring.find("ὙὝὛὟ", element, 1, true)) then
			if (cp == 1) then
				newstr = newstr .. "Hy"
			else
				newstr = newstr .. "Y"
			end
		elseif (mw.ustring.find("ιίὶῐῑἰἴἲῖἶ", element, 1, true)) then
			newstr = newstr .. "i"
		elseif (mw.ustring.find("ΙΊῚῘῙἸἼἺἾ", element, 1, true)) then
			newstr = newstr .. "I"
		elseif (mw.ustring.find("ΐῒῗ", element, 1, true)) then
			newstr = newstr .. "ï"
		elseif (mw.ustring.find("οόὸὀὄὂ", element, 1, true)) then
			newstr = newstr .. "o"
		elseif (mw.ustring.find("ΟΌῸὈὌὊ", element, 1, true)) then
			newstr = newstr .. "O"
		elseif (mw.ustring.find("ωώὼῷὠὤὢᾦῶῳῴὦᾠᾤᾢ", element, 1, true)) then
			newstr = newstr .. "ō"
		elseif (mw.ustring.find("ΩΏῺὨὬὪᾮῼὮᾨᾬᾪ", element, 1, true)) then
			newstr = newstr .. "Ō"
		elseif (element == "φ") then
			newstr = newstr .. "ph"
		elseif (element == "Φ") then
			newstr = newstr .. "Ph"
		elseif (element == "χ") then
			newstr = newstr .. "ch"
		elseif (element == "Χ") then
			newstr = newstr .. "Ch"
		elseif (element == "ψ") then
			newstr = newstr .. "ps"
		elseif (element == "Ψ") then
			newstr = newstr .. "Ps"
		elseif (element == "ῥ") then
			newstr = newstr .. "rh"
		elseif (element == "Ῥ") then
			newstr = newstr .. "Rh"
		elseif (mw.ustring.find("υύὺῠῡὐὔὒῦὖ", element, 1, true)) then
			newstr = newstr .. "y"
		elseif (mw.ustring.find("ΥΎῪῨῩ", element, 1, true)) then
			newstr = newstr .. "Y"
		elseif (mw.ustring.find("ϋΰῢῧ", element, 1, true)) then
			newstr = newstr .. "ÿ"
		else
			newcp = mw.ustring.find(grb, element, 1, true)
	  		if (newcp) then
	  			newstr = newstr .. (mw.ustring.sub(lat, newcp, newcp))
	  		else
	  			j = mw.ustring.find(element, "%a", 1)
	  			if (j and Zeichensatz == "homogen") then
	  				newstr = newstr .. "■"
	  				Kat = "[[Kategorie:Wartung falsche Übersetzungen (Altgriechisch)]]"
	  			else	
	  				newstr = newstr .. (mw.ustring.sub(str, cp, cp))
	  			end
	  		end
		end
		cp = cp + 1
		possible2 = "y"
    end
  end
  return newstr .. Kat
end
-- Umschlüsselung altgriechischer Zahlzeichen in arabische Ziffern 
-- Umschrift Altgriechisch in Anlehnung an englisches Wiktionary (EIN)
function Umschrift.grcZZ(str)
	local ZZ = "ΑΒΓΔΕϚΖΗΘΙΚΛΜΝΞΟΠϞΡΣΤΥΦΧΨΩϠ"
	local Zahlen = {1,2,3,4,5,6,7,8,9,10,20,30,40,50,60,70,80,90,100,200,300,400,500,600,700,800,900}
	local Suche = ""
	local strlen = mw.ustring.len(str)
	local mio = 0
	local tsd = 0
	local ezh = 0 -- Einer, Zehner, Hunderter
	local Summe = 0
	local Potenz_zuvor = -1
	local Potenz = 0
	local go_on = true
	local endcp = strlen
	local Bereich = ""
	local index = 0
	local cp = strlen
	if (mw.ustring.sub(str, cp, cp) == "ʹ") then
		cp = cp - 1
		while (cp >= 1 and go_on) do
			Suche = mw.ustring.upper(mw.ustring.sub(str,cp,cp))
			index = mw.ustring.find(ZZ, Suche, 1, true)
			if (index == nil) then
				if Suche == "Ϙ" then
					index = 18
				end
			end
			if (index) then
				Potenz = math.floor((index-1)/9)
				if Potenz_zuvor < 0 then
					ezh = Zahlen [index]
					cp = cp - 1
					Potenz_zuvor = Potenz
				elseif (Potenz > Potenz_zuvor) then
					if (cp == 1 or (cp > 1 and mw.ustring.sub(str, cp-1, cp-1) ~= "͵")) then
						ezh = ezh + Zahlen [index]
						cp = cp - 1
						Potenz_zuvor = Potenz
					else
						go_on = false -- Tausender- oder Million-Kennzeichen
					end
				else
					go_on = false -- vermutlicher Tausender-/Millionen-Wert 
				end
			else
				return "Falsches Zahlzeichen: " .. mw.ustring.sub(str,cp,cp)
			end
		end
		endcp = cp -- letztes Zeichen von Millionen oder Tausender
	end
	if cp >= 1 then
		cp = 1
		if mw.ustring.sub(str, 1, 1) ~= "͵" then
			return "Fehlendes Stellenwertsymbol am Beginn"
		end
	end
	while (cp > 0 and cp <= endcp) do
		if (mw.ustring.sub(str, cp, cp+1) == "͵͵" or 
			(mw.ustring.sub(str, cp, cp) ~= "͵" and Bereich == "M")) then -- Millionen
			if (mw.ustring.sub(str, cp, cp+1) == "͵͵") then cp = cp + 2 end
			Bereich = "M"
			Suche = mw.ustring.upper(mw.ustring.sub(str,cp,cp))
			index = mw.ustring.find(ZZ, Suche, 1, true)
			if (index == nil) then
				if Suche == "Ϙ" then
					index = 18
				end
			end
			if (index) then
				mio = mio + Zahlen [index]
				cp = cp + 1
			else
				return "Falsches Zahlzeichen: " .. mw.ustring.sub(str,cp,cp)
			end
		elseif (mw.ustring.sub(str, cp, cp) == "͵" or Bereich == "T") then -- Tausender
			if (mw.ustring.sub(str, cp, cp) == "͵") then cp = cp + 1 end
			Bereich = "T"
			Suche = mw.ustring.upper(mw.ustring.sub(str,cp,cp))
			index = mw.ustring.find(ZZ, Suche, 1, true)
			if (index == nil) then
				if Suche == "Ϙ" then
					index = 18
				end
			end
			if (index) then
				tsd = tsd + Zahlen [index]
				cp = cp + 1
			else
				return "Falsches Zahlzeichen: " .. mw.ustring.sub(str,cp,cp)
			end
		end
	end
	tsd = tsd * 1000
	mio = mio * 1000000
	Summe = mio + tsd + ezh
	Bereich = mw.ustring.format("%d", Summe)
	strlen = mw.ustring.len(Bereich)
	if strlen > 6 then
		return mw.ustring.sub(Bereich, 1, strlen-6) .. "." .. 
		mw.ustring.sub(Bereich, strlen-5, strlen-3) .. "." ..
		mw.ustring.sub(Bereich, strlen-2, strlen)
	elseif strlen > 4 then
		return mw.ustring.sub(Bereich, 1, strlen-3) .. "." ..
		mw.ustring.sub(Bereich, strlen-2, strlen)
	else
		return Bereich
	end
end

-- Rückgabe der Umschrift für agrDIN
-- Hinweis: Doppelte Definitionen vermeiden. agrEIN ist bereits definiert.

  local export = {}

-- Debug-Funktion für Inline-Ausgabe
local function debug(msg)
	return "[DEBUG: " .. msg .. "]"
end

-- Basistabelle für Zeichenersetzung (lautnah)
local ersetzungen_phon = {
	["γγ"] = "ng",
	["γκ"] = "nk",
	["γξ"] = "nx",
	["γχ"] = "nch",
	["θ"] = "th",
	["φ"] = "ph",
	["χ"] = "kh",
	["α"] = "a", ["β"] = "b", ["γ"] = "g", ["δ"] = "d", ["ε"] = "e",
	["ζ"] = "z", ["η"] = "ē", ["ι"] = "i", ["κ"] = "k", ["λ"] = "l",
	["μ"] = "m", ["ν"] = "n", ["ξ"] = "x", ["ο"] = "o", ["π"] = "p",
	["ρ"] = "r", ["σ"] = "s", ["ς"] = "s", ["τ"] = "t", ["υ"] = "u",
	["ω"] = "ō",

	-- Großbuchstaben
	["Α"] = "A", ["Β"] = "B", ["Γ"] = "G", ["Δ"] = "D", ["Ε"] = "E",
	["Ζ"] = "Z", ["Η"] = "Ē", ["Ι"] = "I", ["Κ"] = "K", ["Λ"] = "L",
	["Μ"] = "M", ["Ν"] = "N", ["Ξ"] = "X", ["Ο"] = "O", ["Π"] = "P",
	["Ρ"] = "R", ["Σ"] = "S", ["Τ"] = "T", ["Υ"] = "U", ["Φ"] = "Ph",
	["Χ"] = "Kh", ["Θ"] = "Th", ["Ω"] = "Ō"
}

-- Akzentwahrende Umsetzungen (vereinfachte Beispiele)
local diakritika_phon = {
	["ῐ"] = "ĭ", ["ῑ"] = "ī",
	["ῠ"] = "ŭ", ["ῡ"] = "ū",
	["ά"] = "á", ["έ"] = "é", ["ή"] = "ḗ", ["ί"] = "í",
	["ό"] = "ó", ["ύ"] = "ú", ["ώ"] = "ṓ",
	["ὰ"] = "à", ["ὲ"] = "è", ["ὴ"] = "è", ["ὶ"] = "ì",
	["ὸ"] = "ò", ["ὺ"] = "ù", ["ὼ"] = "ò",
	["ᾶ"] = "â", ["ῖ"] = "î", ["ῦ"] = "û", ["ῶ"] = "ô",
	["ϊ"] = "ï", ["ϋ"] = "ü", ["ΐ"] = "ḯ", ["ΰ"] = "ǘ",

	-- Großbuchstaben mit Diakritika
	["Ά"] = "Á", ["Έ"] = "É", ["Ή"] = "Ḗ", ["Ί"] = "Í",
	["Ό"] = "Ó", ["Ύ"] = "Ú", ["Ώ"] = "Ṓ"
}

-- Transkription mit Akzentübertragung
function export.grc_phon(text)
	if not text then return debug("Kein Text übergeben") end
	local out = text

	-- Ersetze Akzente durch entsprechende Lautzeichen
	for k, v in pairs(diakritika_phon) do
		out = mw.ustring.gsub(out, k, v)
	end

	-- Wende phonologische Transliteration an
	for k, v in pairs(ersetzungen_phon) do
		out = mw.ustring.gsub(out, k, v)
	end

	return debug("Phonologische Umschrift abgeschlossen") .. " → " .. out
end

-- Dispatcher für unterschiedliche Modi (z.B. DIN, phonologisch, IPA)
function export.main(frame)
	local args = frame.args
	local pargs = frame:getParent() and frame:getParent().args or {}
	local spr = args["spr"] or pargs["spr"] or ""
	local modus = args["modus"] or pargs["modus"] or "din"
	local wort = args[1] or pargs[1] or ""

	if spr == "grc" and modus == "din" then
		return export.grc_din(wort)
	elseif spr == "grc" and modus == "phon" then
		return export.grc_phon(wort)
	end

	return debug("Kein gültiger Modus oder Sprache")
end

return export
Abgerufen von „https://aufeinwort.info/w/index.php?title=Modul:Umschrift&oldid=90568“