Module:Deranize

Use with Template:Deranize. {{deranize|mamıeq doe}} renders like so: 󱚰󱚺󱚰󱚹󱛂󱚴 󱚶󱛃󱚴 ().

---

-- neither mw.ustring.toNFD nor mw.ustring.match works properly, so resorting to this for the time being (lol)
local detone = {
  ["a"] = {"a", 1},
  ["u"] = {"u", 1},
  ["ı"] = {"ı", 1},
  ["o"] = {"o", 1},
  ["e"] = {"e", 1},
  ["á"] = {"a", 2},
  ["ú"] = {"u", 2},
  ["í"] = {"ı", 2},
  ["ó"] = {"o", 2},
  ["é"] = {"e", 2},
  ["ä"] = {"a", 3},
  ["ü"] = {"u", 3},
  ["ï"] = {"ı", 3},
  ["ö"] = {"o", 3},
  ["ë"] = {"e", 3},
  ["â"] = {"a", 4},
  ["û"] = {"u", 4},
  ["î"] = {"ı", 4},
  ["ô"] = {"o", 4},
  ["ê"] = {"e", 4},
}

local deranimap = {
  -- consonants
  ["m"]  = "󱚰", -- DERANI LETTER MAMEI
  ["m_"] = "󱚱", -- DERANI LETTER MAMEI CODA
  ["b"]  = "󱚲", -- DERANI LETTER BUBUE
  ["p"]  = "󱚳", -- DERANI LETTER PIPOQ
  ["f"]  = "󱚴", -- DERANI LETTER FOFUAQ
  ["n"]  = "󱚵", -- DERANI LETTER NANAQ
  ["d"]  = "󱚶", -- DERANI LETTER DUDEO
  ["t"]  = "󱚷", -- DERANI LETTER TITIEQ
  ["z"]  = "󱚸", -- DERANI LETTER ZOZEO
  ["c"]  = "󱚹", -- DERANI LETTER CECOA
  ["s"]  = "󱚺", -- DERANI LETTER SAQSEOQ
  ["r"]  = "󱚻", -- DERANI LETTER RAIRUA
  ["l"]  = "󱚼", -- DERANI LETTER LAOLIQ
  ["nh"] = "󱚽", -- DERANI LETTER NHANHOQ
  ["j"]  = "󱚾", -- DERANI LETTER JUJUO
  ["ch"] = "󱚿", -- DERANI LETTER CHICHAO
  ["sh"] = "󱛀", -- DERANI LETTER SHOSHIA
  ["ꝡ"]  = "󱛁", -- DERANI LETTER VEVA
  ["q_"] = "󱛂", -- DERANI LETTER AQ-AQ
  ["g"]  = "󱛃", -- DERANI LETTER GUGUI
  ["k"]  = "󱛄", -- DERANI LETTER KIKUE
  ["'"]  = "󱛅", -- DERANI LETTER O-AOMO
  ["h"]  = "󱛆", -- DERANI LETTER HEHAQ
  -- vowels
  ["a"]  = "󱚺", -- DERANI LETTER SAQSEOQ
  ["ı"]  = "󱚹", -- DERANI LETTER CECOA
  ["u"]  = "󱚲", -- DERANI LETTER BUBUE
  ["o"]  = "󱛃", -- DERANI LETTER GUGUI
  ["e"]  = "󱚴", -- DERANI LETTER FOFUAQ
  -- tone marks
  [2]    = "󱛊", -- DERANI COMBINING RISING TONE
  [3]    = "󱛋", -- DERANI COMBINING LOW GLOTTAL TONE
  [4]    = "󱛌", -- DERANI COMBINING RISING-FALLING TONE
  -- TODO: the rest of the owl
}

function deranize(frame)
  assert(frame.args[1] ~= nil and frame.args[2] == nil, "This function requires exactly one argument")
  local normalized = mw.ustring.gsub(mw.ustring.lower(frame.args[1]), "i", "ı")
  mw.log(normalized)
  local res = {}
  local ix = 1
  local len = mw.ustring.len(normalized)
  -- NB. this is not PCRE regex, see https://www.mediawiki.org/wiki/Extension:Scribunto/Lua_reference_manual#Ustring_patterns
  --              ↓ initpos (these ones eval to an index)                     precoda ↓        ↓ postcoda
  --                ↓ initial               ↓ medial                ↓ final             ↓ coda   ↓ lingeringvowel
  local toaqre = "()([mbpfndtzcsrljꝡgk']?h?)([auıoeáúíóéäüïöëâûîôê])([auıoe]?[auıoe]?)()([qm]?)()([auıoe]?)"
  while ix < len do
    local shouldbreak = false
    local initpos, initial, medial, final, precoda, coda, postcoda, lingeringvowel = mw.ustring.match(normalized, toaqre, ix)
    if initpos == nil then
      shouldbreak = true
      initpos = nil
    end
    mw.log(table.concat({ix, initpos, initial, medial, final, precoda, coda, postcoda, lingeringvowel}, ", "))
    res[#res+1] = mw.ustring.toNFC(mw.ustring.sub(normalized, ix, initpos - 1))
    if shouldbreak then break end
    if coda == "m" and lingeringvowel ~= "" then
      coda = ""
      ix = precoda
    else
      ix = postcoda
    end
    local nucleus, tone = unpack(detone[medial])
    local glyphs = {initial, nucleus, tone}
    if coda ~= "" then
      glyphs[#glyphs+1] = coda .. "_"
    end
    for _, fin in ipairs(mw.text.split(final, "")) do
      glyphs[#glyphs+1] = fin
    end
    for _, glyph in ipairs(glyphs) do
      local mapped = deranimap[glyph]
      if mapped then
      	res[#res+1] = mapped
      end
    end
    -- TODO: actually implement derani hiatus symbol, o'aomo, etc. insertion logic here 🤪
  end
  return table.concat(res)
end

return {deranize = deranize}