Module:fro-utilities

--[[
    Utilities for Old French nouns/adjectives
]]--

local export = {}
local links = require("Module:links")

-- local rfind = mw.ustring.find
local rgsub = mw.ustring.gsub
local rsub = mw.ustring.sub
-- local rmatch = mw.ustring.match

-- Return plural form(s) of a word; also used for nominative singular
function export.pluralize(word)
    local plurals = {}
    
    -- Add one or more plurals by changing FROM to TO1, TO2, TO3, etc.;
    -- return true if plurals were added 
    local function addpl(from, to1, to2, to3, to4, to5, to6, to7, to8, to9)
        local allto = {to1, to2, to3, to4, to5, to6, to7, to8, to9}
        local didsub = false
        for _, to in ipairs(allto) do
          local pl, nsub = rgsub(word, from, to)
          if nsub > 0 then
              table.insert(plurals, pl)
              didsub = true
          end
        end
        return didsub
    end

    -- canonicalize double consonants to single
    word = rgsub(word, '()%1$', '%1')
    -- in the following expr, changes to 'plurals' happen by side effect
    local unused_retval =
    -- consonant + iel/uel pluralizes to -ieus/ueus
    -- for this and other cases involving -l, we have alternatives in
    -- -ls and often in -x (= -us after a vowel)
    addpl('()el$', '%1eus', '%1ex', '%1els') or
    -- other -el pluralizes to -eaus
    addpl('el$', 'eaus', 'eax', 'iaus', 'iax', 'els') or
    -- -ail/eil/oil pluralizes to -auz/euz/ouz
    addpl('()il$', '%1uz', '%1ilz') or
    -- -uil pluralizes to -uz
    addpl('uil$', 'uz', 'uilz') or
    -- other -il/ïl pluralizes to -iz/ïz (or sometimes -is/ïs, depending on word!)
    addpl('()l$', '%1z', '%1lz') or
    -- -ul pluralizes to -us
    addpl('()ul$', '%1us', '%1x', '%1uls') or
    addpl('()l$', '%1s', '%1ls') or
    -- other -l pluralizes to -us
    addpl('l$', 'us', 'x', 'ls') or
    -- -ing pluralizes to -inz
    addpl('()ng$', '%1nz') or
    -- other -ng also pluralizes to -inz, with added -i-
    addpl('ng$', 'inz') or
    -- same for final -gn or -ngn
    addpl('()n?gn$', '%1nz') or
    addpl('n?gn$', 'inz') or
    -- vowel + -in was usually earlier -ing and so pluralizes to -nz
    addpl('()in$', '%1inz') or
    addpl('m$', 'ns') or
    addpl('m$', 'ns') or
    -- single-syllable word does not need é in -es
    addpl('^(*)e$', '%1es') or
    -- other words do
    addpl('e$', 'és') or
    addpl('$', 's') or
    addpl('st$', 'z', 'tz') or
    addpl('$', 'z', 'tz') or
    addpl('é$', 'ez') or
    -- add -s unless ending in -s/x/z
    addpl('()$', '%1s') or
    -- finally use the word unchanged
    table.insert(plurals, word)

    return plurals
end

-- Return feminine form of a word
function export.feminine(word)
    if type(word) == 'table' then word = word.args end

    if rsub(word, -1) == "e" then
        return word
    elseif rsub(word, -2) == "if" then
        return rsub(word, 1, -2) .. 've'
    else
        word = word .. 'e'
        word = rgsub(word, 'ée$', 'ee')

        return word
    end
end

local function generate_noun_forms(word)
    local forms = {}

    forms.nsm = export.pluralize(word)
    forms.nsf = export.feminine(word)
    forms.osm = word
    forms.osf = export.feminine(word)
    forms.npm = word
    forms.npf = export.pluralize(export.feminine(word))
    forms.opm = export.pluralize(word)
    forms.opf = export.pluralize(export.feminine(word))

    -- wikilink the forms
    forms.nsm = links.annotated_link("], ]", nil, "fro")
    forms.nsf = links.annotated_link(forms.nsf, nil, "fro")
    forms.osm = links.annotated_link(forms.osm, nil, "fro")
    forms.osf = links.annotated_link(forms.osf, nil, "fro")
    forms.npm = links.annotated_link(forms.npm, nil, "fro")
    forms.npf = links.annotated_link("], ]", nil, "fro")
    forms.opm = links.annotated_link("], ]", nil, "fro")
    forms.opf = links.annotated_link("], ]", nil, "fro")

    return forms
end

function export.generate_noun_decl_table(frame)
    local word = frame:getParent().args
    local forms = generate_noun_forms(word)

    return [=[<div class="NavFrame" style="clear:both;margin-top:1em;display:inline-block;">
<div class="NavHead" align="left">&nbsp;&nbsp;Declension of <span lang="fro">'']=] .. word .. [=[''</span></div>
<div class="NavContent" align="center">
{| style="float:left;border:1px solid #AAAACC;margin-left:0.5em;margin-bottom:0.5em;text-align:left;" rules="all" cellpadding="3" cellspacing="0"
! style="background-color:#EEEEFF;" | '''Number'''
! style="background-color:#EEEEFF;" | '''Case'''
! style="background-color:#EEEEFF;" | '''Masculine'''
! style="background-color:#EEEEFF;" | '''Feminine'''
|-
| style="background-color:#EEEEEE;" rowspan="2" | '''Singular'''
| style="background-color:#EEEEEE;" | ''']'''
| <span class="inflection-table">]=] .. forms.nsm .. [=[</span>
| <span class="inflection-table">]=] .. forms.nsf .. [=[</span>
|-
| style="background-color:#EEEEEE;" | ''']'''
| <span class="inflection-table">]=] .. forms.osm .. [=[</span>
| <span class="inflection-table">]=] .. forms.osf .. [=[</span>
|-
| style="background-color:#EEEEEE;" rowspan="2" | '''Plural'''
| style="background-color:#EEEEEE;" | '''Subject'''
| <span class="inflection-table">]=] .. forms.npm .. [=[</span>
| <span class="inflection-table">]=] .. forms.npf .. [=[</span>
|-
| style="background-color:#EEEEEE;" | '''Oblique'''
| <span class="inflection-table">]=] .. forms.opm .. [=[</span>
| <span class="inflection-table">]=] .. forms.opf .. [=[</span>
|}
</div>
</div>]=]
end

return export