Module:ar-pronunciation

La documentation pour ce module peut être créée à Module:ar-pronunciation/Documentation

local export = {}

local str_gsub = string.gsub
local ugsub = mw.ustring.gsub

local correspondences = {
  ["ʾ"] = "ʔ",
  ["ṯ"] = "θ",
  ["j"] = "d͡ʒ",
  ["ḥ"] = "ħ",
  ["ḵ"] = "x",
  ["ḏ"] = "ð",
  ["š"] = "ʃ",
  ["ṣ"] = "sˁ",
  ["ḍ"] = "dˁ",
  ["ṭ"] = "tˁ",
  ["ẓ"] = "ðˁ",
  ["ž"] = "ʒ",
  ["ʿ"] = "ʕ",
  ["ḡ"] = "ɣ",
  ["ḷ"] = "ɫ",
  ["ū"] = "uː",
  ["ī"] = "iː",
  ["ā"] = "aː",
  ["y"] = "j",
  ["g"] = "ɡ",
  ["ē"] = "eː",
  ["ō"] = "oː",
  [""] = "",
}

local vowels = "aāeēiīoōuū"
local vowel = "[" .. vowels .. "]"
local long_vowels = "āēīōū"
local long_vowel = "[" .. long_vowels .. "]"
local consonant = "[^" .. vowels .. ". -]"
local syllabify_pattern = "(" .. vowel .. ")(" .. consonant .. "?)(" .. consonant .. "?)(" .. vowel .. ")"
local tie = "‿"
local closed_syllable_shortening_pattern = "(" .. long_vowel .. ")(" .. tie .. ")" .. "(" .. consonant .. ")"

local function syllabify(text)
  text = ugsub(text, "%-(" .. consonant .. ")%-(" .. consonant .. ")", "%1.%2")
  text = str_gsub(text, "%-", ".")

  -- Add syllable breaks.
  for _ = 1, 2 do
    text = ugsub(
        text,
        syllabify_pattern,
        function(a, b, c, d)
          if c == "" and b ~= "" then
            c, b = b, ""
          end

          return a .. b .. "." .. c .. d
        end
    )
  end

  -- Add ties between word-final vowels and word-initial consonant clusters.
  text = ugsub(
      text,
      "(" .. vowel .. ") (" .. consonant .. ")%.?(" .. consonant .. ")",
      "%1" .. tie .. "%2.%3"
  )

  return text
end

local function closed_syllable_shortening(text)
  local shorten = {
    ["ā"] = "a",
    ["ē"] = "e",
    ["ī"] = "i",
    ["ō"] = "o",
    ["ū"] = "u",
  }

  text = ugsub(text,
      closed_syllable_shortening_pattern,
      function(vowel, tie, consonant)
        return shorten[vowel] .. tie .. consonant
      end)

  return text
end

function export.link(term)
  return "[[" .. term .. "#ar|" .. term .. "]]"
end

function export.toIPA(list, silent_error)
  local translit

  if list.tr then
    translit = list.tr
  elseif list.arabic then
    --	Returns an error if the word contains alphabetic characters that are not Arabic.

    translit = require("Module:ar-translit").tr(list.arabic)

    if not translit then
      if silent_error then
        return ''
      else
        error('Erreur de translitération pour « ' .. list.arabic .. ' ».')
      end
    end
  else
    if silent_error then
      return ''
    else
      error('Aucun texte en arabe ou translitération n’a été fourni à la fonction « toIPA ».')
    end
  end

  translit = str_gsub(translit, "llāh", "ḷḷāh")
  translit = ugsub(translit, "([iī] ?)ḷḷ", "%1ll")

  -- Remove the transliterations of any tāʾ marbūṭa not marked with a sukūn.
  translit = str_gsub(translit, "%(t%)", "")
  -- Prodelision after tāʾ marbūṭa
  translit = ugsub(translit, "(" .. vowel .. ") " .. vowel, "%1 ")

  translit = syllabify(translit)
  translit = closed_syllable_shortening(translit)

  local output = ugsub(translit, ".", correspondences)

  output = str_gsub(output, "%-", "")

  return output
end

function export.show(frame)
  local params = {
    [1] = {},
    ["tr"] = {},
  }

  local args = require("Module:paramètres").process(frame:getParent().args, params)
  local arabic = args[1]
  local transliteration = args.tr

  if not (arabic or transliteration) then
    error("Veuillez fournir du texte en arabe ou une transcription.")
  end

  return export.toIPA { arabic = arabic, tr = transliteration }
end

return export