Module:ain-pron

This module lacks a documentation subpage. Please create it.
Useful links: subpage list • links • transclusions • testcases • sandbox
local export = {}

-- TODO: x /x/ ?
local CONSONANTS = {
    "p", "t", "c", "k",
    "m", "n", "s", "h",
    "w", "r", "y", "'"
}

local VOWELS = {
    "a", "i", "u", "e", "o",
    "á", "í", "ú", "é", "ó",
}

local CONVERSION_TABLE = {
    -- Consonants
     = "p",  = "t",  = "t͡ʃ",  = "k",
     = "m",  = "n",  = "s",   = "h",
     = "w",  = "ɾ",  = "j",   = "",
    -- Vowels
     = "a",  = "i",  = "u",  = "e",  = "o",
     = "á",  = "í",  = "ú",  = "é",  = "ó"
}

-- Append Glottal Stop ruunpe -> ruʔunpe / -> teʔeta
local CONVERSION_TABLE_PHONETIC = {
    -- Consonants
     = "p",  = "t",  = "t͡ʃ",  = "k",
     = "m",  = "n",  = "s",   = "h",
     = "w",  = "ɾ",  = "j",   = "ʔ",
    -- Vowels
     = "a",  = "i",  = "u",  = "e",  = "o",
     = "á",  = "í",  = "ú",  = "é",  = "ó"
}

-- as -> aʃ ( /e.ɾa.mus.ka.ɾe/ -> /e.ɾa.mus.ka.ɾe/  )
local SPECIAL_CODA = {
     = "ʃ",  = "p̚",  = "k̚",  = "t̚",
}

function in_values(item, items)
    for _, v in pairs(items) do
        if v == item then
            return true
        end
    end
    return false
end

function in_keys(item, items)
    for k, _ in pairs(items) do
        if k == item then
            return true
        end
    end
    return false
end

local function convert_syllable(syllable)
    -- yay > jaj
    -- mur > muɾ
    -- an > ʔan
    -- ka > ka
    local result = ""
    for char in mw.ustring.gmatch(syllable, ".") do
        result = result .. CONVERSION_TABLE
    end
    return result
end

local function convert_syllable_phonetic(syllable)
    local result = ""

    if not in_values(mw.ustring.sub(syllable, 1, 1), CONSONANTS) then
        syllable = "'" .. syllable
    end

    for char in mw.ustring.gmatch(syllable, ".") do
        result = result .. CONVERSION_TABLE_PHONETIC
    end

    local l_result = mw.ustring.len(result)

    local coda = ""
    if l_result > 1 then
        coda = mw.ustring.sub(syllable, l_result, l_result)
        if in_keys(coda, SPECIAL_CODA) then
            coda = SPECIAL_CODA
            result = mw.ustring.sub(result, 1, l_result - 1) .. coda
        end
    end

    return result
end

-- local function print_groups(group_ids, temp)
--     local str_buffer = ""
--     for i = 1, #temp do
--         if group_ids ~= nil then
--             str_buffer = str_buffer .. group_ids
--         else
--             str_buffer = str_buffer .. "X"
--         end
--     end
--     print("group_indicies: " .. str_buffer)
--     print("group_contents: " .. temp)
-- end

local function do_convert(romanized)
    local group_ids = {}

    -- Count syllables by vowels and save to a map with onset and nucleus marked
    local syllable_count = 1
    local i = 1
    for char in mw.ustring.gmatch(romanized, ".") do
        -- print("Current Char (No. " .. tostring(i) .. "): " .. char)
        if in_values(char, VOWELS) then
            -- print("-- Current Vowel: " .. char)
            -- print("-- Char Before: " .. mw.ustring.sub(romanized, i - 1, i - 1))
            if in_values(mw.ustring.sub(romanized, i - 1, i - 1), CONSONANTS) then
                -- print("---- Char Before is Consonant")
                group_ids = syllable_count
            end
            group_ids = syllable_count

            syllable_count = syllable_count + 1
        end
        i = i + 1
    end

    -- print_groups(group_ids, romanized)

    -- Fill codas
    local i = 1
    for char in mw.ustring.gmatch(romanized, ".") do
        if group_ids == nil then
            group_ids = group_ids
        end
        i = i + 1
    end

    -- print_groups(group_ids, romanized)
    
    local result = {}
    local i = 1
    local current_group_id = 1
    local head = 1
    local tail = 1
    local content = ""
    while i < mw.ustring.len(romanized) do
        -- print("group_id " .. tostring(group_ids) .. "  " .. tostring(mw.ustring.sub(romanized, i, i)))
        if group_ids ~= current_group_id then
            current_group_id = group_ids
            tail = i - 1
            content = mw.ustring.sub(romanized, head, tail)
            -- print(convert_syllable(content))
            table.insert(result, convert_syllable(content))
            head = i
        end
        i = i + 1
    end
    content = mw.ustring.sub(romanized, head, mw.ustring.len(romanized))
    table.insert(result, convert_syllable(content))
    
    return table.concat(result, ".")
end


local function convert_phonetic(romanized)
    local group_ids = {}

    -- Count syllables by vowels and save to a map with onset and nucleus marked
    local syllable_count = 1
    local i = 1
    for char in mw.ustring.gmatch(romanized, ".") do
        if in_values(char, VOWELS) then
            if in_values(mw.ustring.sub(romanized, i - 1, i - 1), CONSONANTS) then
                -- Char Before is Consonant
                group_ids = syllable_count
            end
            group_ids = syllable_count

            syllable_count = syllable_count + 1
        end
        i = i + 1
    end

    -- Fill codas
    local i = 1
    for char in mw.ustring.gmatch(romanized, ".") do
        if group_ids == nil then
            group_ids = group_ids
        end
        i = i + 1
    end

    local result = {}
    local i = 1
    local current_group_id = 1
    local head = 1
    local tail = 1
    local content = ""
    while i < mw.ustring.len(romanized) do
        if group_ids ~= current_group_id then
            current_group_id = group_ids
            tail = i - 1
            content = mw.ustring.sub(romanized, head, tail)
            table.insert(result, convert_syllable_phonetic(content))
            head = i
        end
        i = i + 1
    end
    content = mw.ustring.sub(romanized, head, mw.ustring.len(romanized))
    table.insert(result, convert_syllable_phonetic(content))
    
    

    local result = table.concat(result, ".")
    -- TODO: Phonetic Transcription: konkane /kon.ka.ne/  / ʔ
    result = mw.ustring.gsub(result, "n%.k", "ŋ.k")
    result = mw.ustring.gsub(result, "m%.k", "ŋ.k")
    result = mw.ustring.gsub(result, "n%.m", "m.m")
    result = mw.ustring.gsub(result, "n%.p", "m.p")
    result = mw.ustring.gsub(result, "si", "ʃi")
    result = mw.ustring.gsub(result, "u%.ʔa", "u.wa")
    result = mw.ustring.gsub(result, "u%.ʔe", "u.we")
    result = mw.ustring.gsub(result, "u%.ʔo", "u.wo")
    result = mw.ustring.gsub(result, "i%.ʔa", "i.ja")
    result = mw.ustring.gsub(result, "i%.ʔe", "i.je")
    result = mw.ustring.gsub(result, "i%.ʔo", "i.jo")
    result = mw.ustring.gsub(result, "ɾ%.n", "n.n")
    result = mw.ustring.gsub(result, "ɾ%.t", "t.t")
    result = mw.ustring.gsub(result, "ɾ%.ɾ", "n.ɾ")
    
    return result
 
end


-- local function valid_ainu_word(word)
--     -- TODO:
-- end
function export.ain_IPA(frame)
    local params = {
         = {list = true, allow_holes = true}
    }

    local args = require("Module:parameters").process(frame:getParent().args, params)

    local items = {}

    -- FIXME: IPA(?): /hi.oj.oj/,  → IPA(?): /hi.oj.oj/ 
    for i = 1, math.max(args.maxindex, 1) do
        -- TODO: error("") if not valid Ainu word
        local romanized = args
        if not romanized or romanized == "" then
            romanized = mw.title.getCurrentTitle().text
        end

        -- Normalize
        -- # Lower
        romanized = mw.ustring.lower(romanized)
        -- # Clear special characters such as "-", ".", "="
        romanized = mw.ustring.gsub(romanized, "", "")


        local phonemic = do_convert(romanized)
        local phonetic  = convert_phonetic(romanized)

        table.insert(items, {pron = "/" .. phonemic .. "/"})
        if phonemic ~= phonetic then
            table.insert(items, {pron = ""})
        end
        -- for word in mw.text.gsplit(args, " ") do
        --     table.insert(items, {pron = "/" .. do_convert(word) .. "/"})
        -- end
    end
    -- end

    local lang = require("Module:languages").getByCode("ain")
	return require("Module:IPA").format_IPA_full { lang = lang, items = items }
end

function export.convert(frame)
    -- Get Args
    local temp = frame.args
    return do_convert(temp)
end

return export
Module:ain-pron

Wikious

Boobota

Sagapedia
