Module:User:Redboywild

Hello, you have come here looking for the meaning of the word Module:User:Redboywild. In DICTIOUS you will not only get to know all the dictionary meanings for the word Module:User:Redboywild, but we will also tell you about its etymology, its characteristics and you will know how to say Module:User:Redboywild in singular and plural. Everything you need to know about the word Module:User:Redboywild you have here. The definition of the word Module:User:Redboywild will help you to be more precise and correct when speaking or writing your texts. Knowing the definition ofModule:User:Redboywild, as well as those of other words, enriches your vocabulary and provides you with more and better linguistic resources.
This module sandbox lacks a documentation subpage. You may create it.
Useful links: subpage list • links • transclusions • testcases • user page • user talk page • userspace

This is a private module sandbox of Redboywild, for their own experimentation. Items in this module may be added and removed at Redboywild's discretion; do not rely on this module's stability. 


local export={}
local pos_functions = {}
local lang = require("Module:languages").getByCode("ro")

PAGENAME = mw.title.getCurrentTitle().text

function export.show(frame)
	local args = frame:getParent().args
	NAMESPACE = mw.title.getCurrentTitle().nsText
	PAGENAME = mw.title.getCurrentTitle().text
	
	local poscat = frame.args or error("Part of speech has not been specified. Please pass parameter 1 to the module invocation.")
	
	local params = {
		 = {},
		 = {type = "boolean"},
	}
	
	if pos_functions then
		for key, val in pairs(pos_functions.params) do
			params = val
		end
	end
	
	args = require("Module:parameters").process(args, params)
	
	local genders = {}
	local inflections = {}
	local categories = args and {"Romanian suffixes"} or {"Romanian " .. poscat}
	local sort_key = {}
	local appendix = {}
	
	if pos_functions then
		local head2 = pos_functions.func(class, args, genders, inflections, categories, poscat, appendix)
		head = head or head2
	end
	
	if #appendix == 0 then
		appendix = ""
	end
	
	return
		require("Module:headword").full_headword(lang, sc, head, nil, genders, inflections, categories, nil) .. appendix
end

local function remove_duplicates(array)
	local hm = {}
	for key, val in ipairs(array) do
		if hm then
			table.remove(array, key)
		else
			hm = true
		end
	end
end

local function compare(a1, a2)
	if #a1 == #a2 then
		local hm = {}
		for key, val in ipairs(a1) do
			hm = true
		end
		for key, val in ipairs(a2) do
			if not hm then
				return false
			end
		end
		return true
	else
		return false
	end
end

vow_changes = {
	 = {"ă", "e"},
	 = {"e"},
	 = {"a", "ea"}, -- "a" is a special case
	 = {"e"},
	 = {"oa"},
	 = {"o"},
}

vow_change_forms = {
	 = {}, -- this might not actually be a thing, hmm
	 = {},
	 = {mp = true, fp = true},
	 = {f = true},
	 = {f = true, fp = true}, --deșert
	 = {f = true},
	 = {mp = true, fp = true},
	 = {f = true, fp = true},
	 = {mp = true},
}

cons_changes = {
	 = {"șt"},
	 = {"șt"},
}

local function split_vow(vow)
	local pre, post = "", ""
	if vow:match("^") then
		pre = mw.ustring.sub(vow, 1, 1)
		vow = mw.ustring.sub(vow, 2)
	end
	if vow:match("$") then
		post = mw.ustring.sub(vow, -1)
		vow = mw.ustring.sub(vow, 1, -2)
	end
	return pre, vow, post
end

local function find_vow_change(word1, word2)
	if word1 == word2 then
		return {} --???
	else
		local stem, pre, vow, post, cons, res
		stem, vow, cons = split(word1)
		pre, vow, post = split_vow(vow)
		if vow_changes then
			for key, val in pairs(vow_changes) do
				res = stem .. pre .. val .. post .. cons
				res = mw.ustring.gsub(res, "iea", "ia")
				res = mw.ustring.gsub(res, "iă", "ie")
				--res = mw.ustring.gsub(res, "()ea", "%1a")
				if word2 == res then
					if val == "a" and pre == "" and stem:find("$") then
						val = "a2"
					end
					return vow_change_forms or error("Unrecognized vowel change")
				end
			end
			local stem2 = split(word2)
			return find_vow_change(stem, stem2) or "nope"
		end
	end
end

pos_functions = {
	params = {
		 = {},
		 = {list = true},
		 = {list = true},
		 = {list = true},
		 = {list = true},
	},
	func = function(class, args, genders, inflections, categories, poscat, appendix)
		PAGENAME = args or PAGENAME
		
		local types = {
			i = true,
			inv = true,
		}
		
		local type = args
		
		local f, mp, fp = args, args, args
		
		if type == "inv" then
			table.insert(inflections, {label = "invariable"})
			table.insert(categories, "Romanian invariable adjectives")
		else
			table.insert(genders, "m")
			table.insert(genders, "n")
			if #f == 0 then
				table.insert(f, make_feminine2(PAGENAME))
			end
			if #mp == 0 then
				table.insert(mp, export.make_plural_lite(PAGENAME, "m"))
			end
			if #fp == 0 then
				if type == "i" then
					fp = mp
				else
					table.insert(fp, export.make_plural_lite(make_feminine_weird(PAGENAME), "f", "-e"))
				end
			end
			if #f == 1 and f == PAGENAME then
				table.insert(genders, "f")
			else
				f.label = "feminine singular"
				table.insert(inflections, f)
			end
			if compare(mp, fp) then
				mp.label = "masculine, feminine and neuter plural"
				table.insert(inflections, mp)
			else
				mp.label = "masculine plural"
				table.insert(inflections, mp)
				fp.label = "feminine and neuter plural"
				table.insert(inflections, fp)
			end
		end
		return args
	end
}		

local function remove_ending(word)
	if word:match("$") then
		return word:match("(.+)$")
	end
	return word
end
		

local function make_feminine_weird(word, ending)
	ending = ending == "e" and "e" or "ă"
	local f = nil
	if PAGENAME:find("e$") then
		f = PAGENAME
	elseif word:find("i$") then
		f = word .. "e"
	elseif PAGENAME:find("iu$") then
		f = mw.ustring.gsub(PAGENAME, "u$", "e")
	--elseif word:find("u$") then
	--	f = word:sub(1, -2) .. ending
	elseif PAGENAME:match("h?i") then
		f = word .. "e"
	elseif word:match("$") then
		f = word .. ending
	else
		error("Feminine form could not be generated automatically")
	end
	
	if f:match("ă$") then
		f:gsub("ă$", "e")
	end
	f:gsub("iea", "ia")
	return f
end

local function make_feminine2(word)
	local f = nil
	if word:find("e$") then
		f = word
	elseif word:find("i$") then
		f = word .. "e"
	elseif word:find("iu$") then
		f = mw.ustring.gsub(word, "u$", "e")
	elseif word:find("u$") then
		f = word:sub(1, -2) .. "ă"
	elseif word:match("h?i") then
		f = word:sub(1, -2) .. "e"
	elseif word:match("$") then
		f = word .. "ă"
	else
		error("Feminine form could not be generated automatically")
	end
	
	if f:match("ă$") then
		f:gsub("ă$", "e")
	end
	f:gsub("iea", "ia")
	return f
end

local function split(word)
	local stem, vow, cons
	if word:match('$') then
		stem, vow, cons = word:match('^(.-)(-)()$')
	else
		stem, vow, cons = word:match('^(.-)(-)(-)$')
	end
	return stem, vow, cons
end

local function find_cons(cons)
	for i = -3, -1 do
		if consonants and not mw.ustring.match(mw.ustring.sub(cons, 1, i-1), "^$") then
			cons = mw.ustring.sub(cons, 1, i-1) .. consonants
			break
		end
	end
	return cons
end

consonants = {
	str = 'ștr';
	st = 'șt';
	sc = 'șt';
	d = 'z';
	s = 'ș';
	t = 'ț';
	x = 'cș';
}

function export.make_plural_lite(word, g, ending)
	local pl
	if ending then
		ending = ending:sub(2)
	end
	local suf1, suf2, pre1, pre2 = mw.ustring.sub(word, -1), mw.ustring.sub(word, -2), mw.ustring.sub(word, 1, -2), mw.ustring.sub(word, 1, -3)
	if g == 'm' then
		if suf1 == 'i' then
			pl = word
		else
			local stem, vow, cons = split(word:match('^(.-)?$'))
			cons = find_cons(cons)
			pl = stem .. vow .. cons .. 'i'
		end
	elseif g == 'f' then
		if suf1 == 'a' then
			if suf2 == 'ea' then
				pl = mw.ustring.sub(word, 1, -2) .. 'le'
			elseif suf2 == 'ia' then
				pl = mw.ustring.sub(word, 1, -2) .. 'ele'
			else
				pl = word .. 'le'
			end
		else
			if suf2 == 'ie' then
				if ending == 'e' then
					pl = word
				else
					local stem, vow, cons = split(pre2)
					if cons ~= '' then
						if ending == 'i' then
							pl = stem .. vow .. cons .. 'ii'
						end
					else
						if ending == 'i' then
							pl = stem .. vow .. 'i'
						end
					end
				end
			elseif suf1 == 'e' then
				if ending == 'e' then
					pl = word
				else
					local stem, vow, cons = split(pre1)
					if ending == 'i' then
						cons = find_cons(cons)
						pl = stem .. vow .. cons .. 'i'
					end
				end
			elseif suf1 == 'ă' then
				local stem, vow, cons = split(pre1)
				if ending == 'e' then
					pl = stem .. vow .. cons .. 'e'
				elseif ending == 'i' then
					cons = find_cons(cons)
					pl = stem .. vow .. cons .. 'i'
				end
			end
		end
	end
	return pl
end

local function make_plural_liter(word, g, ending)
	local pl
	local suf1, suf2, pre1, pre2 = mw.ustring.sub(word, -1), mw.ustring.sub(word, -2), mw.ustring.sub(word, 1, -2), mw.ustring.sub(word, 1, -3)
	if g == 'm' then
		if suf1 == 'i' then
			pl = word
		else
			local stem, vow, cons = split(word:match('^(.-)?$'))
			pl = stem .. vow .. cons .. 'i'
		end
	elseif g == 'f' then
		if suf1 == 'a' then
			if suf2 == 'ea' then
				pl = mw.ustring.sub(word, 1, -2) .. 'le'
			elseif suf2 == 'ia' then
				pl = mw.ustring.sub(word, 1, -2) .. 'ele'
			else
				pl = word .. 'le'
			end
		elseif suf2 == 'ie' then
			if ending == 'e' then
				pl = word
			else
				local stem, vow, cons = split(pre2)
				if cons ~= '' then
					if ending == 'i' then
						pl = stem .. vow .. cons .. 'ii'
					end
				else
					if ending == 'i' then
						pl = stem .. vow .. 'i'
					end
				end
			end
		elseif suf1 == 'e' or suf1 == 'ă' then
			if ending == 'e' or ending == 'i' then
				pl = pre1 .. ending
			end
		end
	end
	return pl
end

function export.ro_num(frame)
	local args = frame.args
	local head = args.head
	local type = "card"
	if head:find("lea$") or head:find("ul$") then
		type = "ord"
	end
	
	local genders = {}
	local inflections = {}
	local categories = {}
	local sort_key = {}
	local conj = {}
	
	if pos_functions then
		local head2 = pos_functions(class, args, genders, inflections, categories)
		head = head2
	end
	
	return
		require("Module:headword").full_headword(lang, sc, head, nil, genders,
			inflections, NAMESPACE == "" and categories or {"Romanian numerals"}, nil)
end

pos_functions = function(class, args, genders, inflections, categories)
	local head = args.head or PAGENAME
	function link(head, al)
		if head:find(" ") then
			head = mw.text.split(head, " ")
			head = "] ]"
		end
		return (al and "al " or "") .. head
	end
	table.insert(genders, "m")
	table.insert(genders, "n")
	local f, al, card
	if head:find("lea") then
		if head:match("doilea$") then
			card = head:match("(.-)doilea$")
			f = card .. "doua"
			card = card .. "doi"
		else
			card =  head:match("(.-)u?lea")
			f = card .. "a"
		end
		f = {term = f, alt = "a " .. f}
		al = true
	elseif head:match("ul$") then
		f = head:match("(.-)ul$") .. "a"
		card = "unu"
		al = false
	end
	table.insert(inflections, {label = "ordinal form of", card})
	table.insert(inflections, {label = "feminine", f})
	table.insert(categories, "Romanian numerals")
	table.insert(categories, "Romanian ordinal numbers")
	return link(head, al)
end

return export
Wikious
Boobota
Sagapedia