View source for Module:Gaillean

-- Module:Gaillean — noun declension for Gaillean (YAQ-GA). Backs
-- Template:YAQ-GA-decl. Five regular paradigms, named for the shape of the
-- nominative singular, plus an irregular class that declines from a separate
-- stem. Cases: NOM GEN DAT ACC VOC, singular and plural.
local p = {}
local U = mw.ustring

-- class letter (as given in the lexicon) -> paradigm
local CLASS = { F = "a", M1 = "e", M2 = "at", N1 = "uz", N2 = "u",
                MX = "irr", FX = "irr", NX = "irr" }

-- paradigm = { cut = <what is removed from the citation form>,
--              rows = { {case, sg, pl}, ... } }
local P = {
  a  = { cut = "a",  rows = {
           {"NOM", "a",   "ar"},   {"GEN", "an",  "aori"},
           {"DAT", "ae",  "uz"},   {"ACC", "as",  "ax"},
           {"VOC", "a",   "a"} } },
  e  = { cut = "e",  rows = {
           {"NOM", "e",   "o"},    {"GEN", "in",  "ori"},
           {"DAT", "i",   "uz"},   {"ACC", "ez",  "orz"},
           {"VOC", "",    "or"} } },
  at = { cut = "at", rows = {
           {"NOM", "at",  "o"},    {"GEN", "ant", "ori"},
           {"DAT", "i",   "on"},   {"ACC", "ats", "ae"},
           {"VOC", "a",   "o"} } },
  u  = { cut = "u",  rows = {
           {"NOM", "u",   "ur"},   {"GEN", "un",  "uri"},
           {"DAT", "i",   "uri"},  {"ACC", "u",   "ur"},
           {"VOC", "u",   "ur"} } },
  uz = { cut = "uz", rows = {
           {"NOM", "uz",  "ia"},   {"GEN", "uzn", "iari"},
           {"DAT", "i",   "ibhi"}, {"ACC", "uz",  "ia"},
           {"VOC", "u",   "i"} } },
  -- irregular nouns decline from a stem in -r, supplied with |stem=
  irr = { cut = "r", rows = {
           {"NOM", "LEMMA", "er"},  {"GEN", "un",  "tri"},
           {"DAT", "i",     "z"},   {"ACC", "as",  "ter"},
           {"VOC", "i",     "ia"} } },
}

function p.decl(frame)
  local a = frame:getParent().args
  local word = mw.text.trim(a.word or a[1] or "")
  if word == "" then word = mw.title.getCurrentTitle().text end
  local cls = mw.text.trim(a.class or a[2] or "")
  local key = CLASS[cls]
  if not key then
    return "<span class=\"error\">Gaillean: unknown noun class \"" .. cls .. "\"</span>"
  end
  local par = P[key]
  local stem
  if key == "irr" then
    local s = mw.text.trim(a.stem or "")
    if s == "" then
      return "<span class=\"error\">Gaillean irregular noun: |stem= is required</span>"
    end
    stem = U.gsub(s, "r$", "")
  else
    stem = U.gsub(word, par.cut .. "$", "")
  end
  local out = { '{| class="wikitable" style="text-align:center"',
                '! !! SG !! PL' }
  for _, r in ipairs(par.rows) do
    local sg = (r[2] == "LEMMA") and word or (stem .. r[2])
    local pl = stem .. r[3]
    table.insert(out, "|-")
    table.insert(out, "! " .. r[1])
    table.insert(out, "| '''" .. sg .. "''' || '''" .. pl .. "'''")
  end
  table.insert(out, "|}")
  return table.concat(out, "\n")
end

return p