Module:fro-headword

From Wiktionary, the free dictionary
Jump to navigation Jump to search

This module needs documentation.
Please document this module by describing its purpose and usage on the documentation page.

local m_fro_utilities = require("Module:fro-utilities")

local export = {}

local lang = require("Module:languages").getByCode("fro")

function export.noun(frame)
    local args = frame:getParent().args
    PAGENAME = mw.title.getCurrentTitle().text
    
    local head = args["head"]; if head == "" then head = nil end
    
    local op = args["op"] or args[2]; if op == "" then op = nil end
    local ns = args["ns"] or args[3]; if ns == "" then ns = nil end
    local np = args["np"] or args[4]; if np == "" then np = nil end
    
    local data = {lang = lang, pos_category = "nouns", categories = {}, heads = {head}, genders = {}, inflections = {}}
	
    -- Process the genders
    local valid_genders = {
        ["m"] = true,
        ["f"] = true,
        ["m-p"] = true,
        ["f-p"] = true}
    
    local g = args[1]
    
    if valid_genders[g] then
        data.genders = {g}
        if g == "m" or g == "m-p" then
            table.insert(data.categories, "Old French masculine nouns")
        else
            table.insert(data.categories, "Old French feminine nouns")
        end
    elseif g == "mf" then
        data.genders = {"m", "f"}
        table.insert(data.categories, "Old French masculine nouns")
        table.insert(data.categories, "Old French feminine nouns")
    else
        data.genders = {"?"}
        table.insert(data.categories, "Requests for gender in Old French entries")
    end
    
    -- Generate default plural forms by adding -s.
    -- Note that these are also used for the nominative singular of masculine nouns.
    local plurals = m_fro_utilities.pluralize(PAGENAME)
    
    -- Insert PART, either a string or array, into TAB. If PART is a string,
    -- split on commas.
    local function insert_part(tab, part)
        if type(part) == "table" then
            for _, form in ipairs(part) do
                table.insert(tab, form)
            end
        else
            local forms = mw.text.split(part, ",")
            for _, form in ipairs(forms) do
                table.insert(tab, form)
            end
        end
    end

    -- Oblique plurals are the same for both genders
    local op_parts = {label = "oblique plural"}

    insert_part(op_parts, op or plurals)    

    -- Nominative forms differ between the genders
    -- If masculine, the singular gets the -s
    -- If feminine, the plural gets the -s
    local ns_parts = {label = "nominative singular"}
    local np_parts = {label = "nominative plural"}
    
    if data.genders[1] == "m" or data.genders[1] == "m-p" then
        insert_part(np_parts, np or PAGENAME)
        insert_part(ns_parts, ns or plurals)
    else
        insert_part(ns_parts, ns or PAGENAME)
        insert_part(np_parts, np or plurals)
    end
    
    -- Add the inflections
    if op == "-" or data.genders[1] == "m-p" or data.genders[1] == "f-p" then
        table.insert(data.inflections, ns_parts)
        table.insert(data.categories, "Old French uncountable nouns")
    else
        table.insert(data.inflections, op_parts)
        table.insert(data.inflections, ns_parts)
        table.insert(data.inflections, np_parts)
    end

    data.gloss = "oblique singular"
    
    return require("Module:headword").full_headword(data)
end
 
return export