Aller au contenu

Module:sv-adj

Définition, traduction, prononciation, anagramme et synonyme sur le dictionnaire libre Wiktionnaire.

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

local bases = require('Module:bases')
local p = {}

function p.getWikitext(frame)
	-- Reçoit l'appel du modèle
	local args     = frame:getParent().args
	local title    = mw.title.getCurrentTitle()
	local pagename = args["mot"] or args[1] or title.text
	local forms    = p.getForms(pagename, args)
	
	if args.noncomp then
		return p.getTable(pagename, forms, args)
	end
	return p.getTableComp(pagename, forms, args)
end

function p.getForms(pagename, args)
	local last_1                = mw.ustring.sub(pagename, -1, -1)
	local last_2                = mw.ustring.sub(pagename, -2, -1)
	local last_4                = mw.ustring.sub(pagename, -4, -1)
	local without_last_1        = mw.ustring.sub(pagename, 1, -2)
	local without_last_2        = mw.ustring.sub(pagename, 1, -3)
	local without_last_3        = mw.ustring.sub(pagename, 1, -4)
	local ends_with_vowel_d     = not not mw.ustring.find(last_2, "[aouåeiyäö]d")
	local ends_with_consonant_d = not not mw.ustring.find(last_2, "[bcdfghjklmnpqrstvwxz]d")
	local ends_with_vowel       = not not mw.ustring.find(last_1, "[aouåeiyäö]")
	
	local plural = nil
	local neuter = pagename .. "t"
	
	-- Paramètre 'alt'
	if args['alt'] or args['e'] then
		if last_1 == "m" then  -- équivaut à args['raj'] = "m"
			args['rac'] = pagename .. "m"
		elseif last_1 == "t" then
			neuter      = pagename
		elseif last_4 == "mmen" or last_4 == "nnen" or last_4 == "mmal" then
			neuter      = last_1 == "n" and without_last_1 .. "t" or neuter
			args['rac'] = without_last_3 .. last_1
		elseif last_2 == "el" or last_2 == "en" or last_2 == "er" then
			neuter      = last_1 == "n" and without_last_1 .. "t" or neuter
			args['rac'] = without_last_2 .. last_1
		elseif last_2 == "dd" then
			neuter      = without_last_2 .. "tt"
		elseif last_2 == "ad" or args['e'] then
			neuter      = without_last_1 .. "t"
			plural      = pagename .. "e"
		elseif last_2 == "nn" or ends_with_consonant_d then
			neuter      = without_last_1 .. "t"
		end
	end
	
	-- Déclinaison régulière
	local common        = pagename
	local masc          = (args['rac'] or pagename) .. "e"
	local comp          = (args['rac'] or pagename) .. "are"
	local attr_sup      = (args['rac'] or pagename) .. "aste"
	local attr_sup_masc = (args['rac'] or pagename) .. "aste"
	local pred_sup      = (args['rac'] or pagename) .. "ast"
	plural              = plural or (args['rac'] or pagename) .. "a"
	
	--
	if args['raj'] then
		masc            = pagename .. args['raj'] .. "e"
		plural          = pagename .. args['raj'] .. "a"
		comp            = pagename .. args['raj'] .. "are"
		attr_sup        = pagename .. args['raj'] .. "aste"
		attr_sup_masc   = pagename .. args['raj'] .. "aste"
		pred_sup        = pagename .. args['raj'] .. "ast"
	end
	if args['rac-comp'] or args['rac-sup'] then
		comp            = (args['rac-comp'] .. "re") or comp
		attr_sup        = (args['rac-sup'] or args['rac-comp']) .. "ste"
		attr_sup_masc   = (args['rac-sup'] or args['rac-comp']) .. "ste"
		pred_sup        = (args['rac-sup'] or args['rac-comp']) .. "st"
	end
	
	if ends_with_vowel then
		neuter = pagename .. "tt"
	end
	
	local forms = {}
	forms.sing_indef_comm_pos = args[1] or common
	forms.sing_indef_neut_pos = args[2] or args['n'] or args['neutre'] or neuter
	forms.sing_def_masc_pos   = args[3] or args['masc'] or masc
	forms.sing_def_aut_pos    = args[4] or plural
	forms.plur_pos            = args[5] or args['pl'] or plural
	forms.comp                = args['noncomp'] and '' or args[6] or comp
	forms.sup_attr_masc       = args['noncomp'] and '' or args[7] or attr_sup_masc
	forms.sup_attr            = args['noncomp'] and '' or args[8] or attr_sup
	forms.sup_pred            = args['noncomp'] and '' or args[9] or pred_sup
	
	return forms
end

function p.getTableComp(pagename, forms, args)
	
	local m = ''
	if args.masc == '' then
		m = "—\n| —"
	else
		m = bases.lien_modele(forms.sing_def_masc_pos, 'sv') .. "\n"..
			"| " .. bases.lien_modele(forms.sup_attr_masc, 'sv')
	end
	
	-- Construction du code wikitext du tableau
	local txt = '{| class="flextable"\n'..
				'! class="invisible" |\n'..
				'|-\n'..
				"! rowspan=2 colspan=3 |''Déclinaison de " .. pagename .. "''\n"..
				"! rowspan=2| Positif\n"..
				"! rowspan=2| Comparatif\n"..
				"! colspan=2| Superlatif\n"..
				"|-\n"..
				"! Attributif\n"..
				"! Prédicatif\n"..
				"|-\n"..
				"! rowspan=4| Singulier\n"..
				"! rowspan=2| Indéfini\n"..
				"! Commun\n"..
				"| " .. bases.lien_modele(pagename, 'sv') .. "\n"..
				"| rowspan=5| " .. bases.lien_modele(forms.comp, 'sv') .. "\n"..
				"| rowspan=2| —\n"..
				"| rowspan=2| " .. bases.lien_modele(forms.sup_pred, 'sv') .. "\n"..
				"|-\n"..
				"! Neutre\n"..
				"| " .. bases.lien_modele(forms.sing_indef_neut_pos, 'sv') .. "\n"..
				"|-\n"..
				"! rowspan=2| Défini\n"..
				"! Masculin\n"..
				"| " .. m .. "\n"..
				"| rowspan=2| —\n"..
				"|-\n"..
				"! Autres\n"..
				"| " .. bases.lien_modele(forms.sing_def_aut_pos, 'sv') .. "\n"..
				"| " .. bases.lien_modele(forms.sup_attr, 'sv') .. "\n"..
				"|-\n"..
				"! colspan=3| Pluriel\n"..
				"| " .. bases.lien_modele(forms.plur_pos, 'sv') .. "\n"..
				"| " .. bases.lien_modele(forms.sup_attr, 'sv') .. "\n"..
				"| " .. bases.lien_modele(forms.sup_pred, 'sv') .. "\n"..
				"|}\n"
	return txt
end

function p.getTable(pagename, forms, args)
	
	local m = ''
	if args.masc == '' then
		m = "—"
	else
		m = bases.lien_modele(forms.sing_def_masc_pos, 'sv')
	end
	
	-- Construction du code wikitext du tableau
	local txt = '{| class="flextable"\n'..
				'! class="invisible" |\n'..
				'|-\n'..
				"! colspan=3 |''Déclinaison de " .. pagename .. "''\n"..
				"! Positif\n"..
				"|-\n"..
				"! rowspan=4| Singulier\n"..
				"! rowspan=2| Indéfini\n"..
				"! Commun\n"..
				"| " .. bases.lien_modele(pagename, 'sv') .. "\n"..
				"|-\n"..
				"! Neutre\n"..
				"| " .. bases.lien_modele(forms.sing_indef_neut_pos, 'sv') .. "\n"..
				"|-\n"..
				"! rowspan=2| Défini\n"..
				"! Masculin\n"..
				"| " .. m .. "\n"..
				"|-\n"..
				"! Autres\n"..
				"| " .. bases.lien_modele(forms.sing_def_aut_pos, 'sv') .. "\n"..
				"|-\n"..
				"! colspan=3| Pluriel\n"..
				"| " .. bases.lien_modele(forms.plur_pos, 'sv') .. "\n"..
				"|}[[Catégorie:Adjectifs incomparables en suédois]]\n"
	return txt
end

return p