Aller au contenu

Module:Codjowoe

Radjouter des hårdêyes
Èn årtike di Wiccionaire.
I gn a nén co di dzo-pådje /doc pol notule d’ esplikêyes. Clitchîz cial po l’ ahiver.
local p = {}
local builder = require("Module:Builder")
local r = require("Module:Riscrijhaedje");
local r_ = r.aclape_bodje_cawe -- alias
local trokes = {"prumire", "deujhinme", "troejhinme", "cwatrinme", "cénkinme"}
local voyale = "^[aâäåeéèêëiîoôuû]"
local croejhete = {}
local codjowas = {}

function p.candje_bodjes(t, bodjes, Y)
	for k,v in pairs(t) do
		if type(v) == "table" then
			t[k] = p.candje_bodjes(v, bodjes, Y)
		else
			local bodje, caw = nil
			bdjcaw = mw.text.split(v, "-", true)
			bodje = bdjcaw[1]
			if bdjcaw[2] ~= nil then
				caw = bdjcaw[2]
			end
			bodje = string.gsub(bodje, "([A-C])", function(AC) return bodjes[AC] end)
			if caw ~= nil then
				if Y ~= nil then
					caw = string.gsub(caw, "Y([1-3])", function(y) return Y[tonumber(y)] end)
				end
				t[k] = r_(bodje, caw)
			else
				t[k] = bodje
			end
			
		end
	end
	return t
end

function html_tavlea_codjowa_hardeye(codjowas)
	local loyens = {}
	if type(codjowas) == "string" then
		codjowas = {codjowas}
	end
	if type(codjowas) == "table" then
		for i,c in ipairs(codjowas) do
			cl = string.gsub(c, "[()]", "") -- v(i)ni > vini
			table.insert(loyens,"[["..cl.."#Codjowa|"..c.."]]")
		end
	end
	return table.concat(loyens, ", ")
end

-- pwaire : tins simpe + ripassé
function html_tavlea_tins_pwaire(simpe, compoze)
	local div = mw.html.create("div")
	          :attr("class", "codjowaedje-tins-pwaire")
	          :node(simpe)
	          :node(compoze)
	return div
end

-- prezintrece, erirece, ...
function html_tavlea_tins(tite, codjowas, hardeye)
	if hardeye ~= false then hardeye = true end
	local div_title = mw.html.create("div")
	          :attr("class", "codjowaedje-tins-title")
	          :wikitext(dobe)
	          :wikitext(tite)
	local div_tins = mw.html.create("div")
	          :attr("class", "codjowaedje-tins")
	          :node(div_title)
	local div_codjowas = mw.html.create("div")
	          :attr("class", "codjowaedje-tins-codjowas")
	if codjowas ~=nil then
		if type(codjowas[1]) == "string" then codjowas = {codjowas} end
		for i, v in ipairs( codjowas ) do
		    prono = v[1] ; codjowa = v[2]
		    if hardeye then codjowa = html_tavlea_codjowa_hardeye(codjowa) end
		    local span_prono = mw.html.create("span")
		                     :attr("class", "codjowaedje-prono")
		                     :wikitext(prono)
		    local span_codjowa = mw.html.create("span")
		                       :attr("class", "codjowaedje-codjowa")
		                       :wikitext(codjowa)
		    local div_codjowa = mw.html.create("div")
		                      :attr("class", "codjowaedje-codjowa-"..i)
		                      :node(span_prono)
		                      :node(span_codjowa)
		    div_codjowas:node(div_codjowa)
		end
	else
		div_codjowas:attr("class", "codjowaedje-tins-codjowas-vude")
		            :wikitext("nén eployî")
	end
	div_tins:node(div_codjowas)
	return div_tins
end

-- indicatif, suddjontif,...
function html_tavlea_mode_tite(tite)
	local div = mw.html.create("div")
	          :attr("class", "codjowaedje-mode-tite")
	          :wikitext(tite)
	return div
end

function p.html_tavlea()
	local html = mw.html.create("div")
	           :attr("class", "codjowaedje")
	local div_copete = mw.html.create("div")
	                 :attr("class", "codjowaedje-copete")
	local div_tite = mw.html.create("div")
	               :attr("class", "codjowaedje-tite")
	               :wikitext("Codjowaedje do viebe ")
	if type(codjowas.INF) == "table" then
		for k,v in ipairs(codjowas.INF) do
			if k > 1 then
				div_tite:wikitext(", ")
			end
			div_tite:wikitext("<em>[["..v.."#Viebe|"..v.."]]</em>")
		end
	else
		div_tite:wikitext("<em>[["..codjowas.INF.."#Viebe|"..codjowas.INF.."]]</em>")	
	end
	local div_troke = mw.html.create("div")
	                :attr("class", "codjowaedje-troke")
	                :wikitext("Croejhete [[Rawete:Codjowaedje do walon/"..croejhete.ID.."| "..croejhete.ID.."]], ")
	                :wikitext("viebe del [[Rawete:Codjowaedje do walon/"..croejhete.ID.."/"..trokes[codjowas.troke].." troke|"..trokes[codjowas.troke].." troke]]")
	
	div_copete:node(div_tite)
	          :node(div_troke)
	          
	if codjowas.rile ~= nil then             
		local div_rile = mw.html.create("div")
	                :attr("class", "codjowaedje-rile")
	                :wikitext("(avou l’ "..codjowas.rile..")")
	    div_copete:node(div_rile)
	end
	
	html:node(div_copete)
	    :node(html_tavlea_mode_tite("PÅRTICIPES"))
	    :node(html_tavlea_tins_pwaire(
	    		html_tavlea_tins("PREZINTRECE", codjowas.PP),
	        	html_tavlea_tins("ERIRECE", {{nil, codjowas.PE},{'<i>f.</i>', codjowas.PEf}})
	    ))
	    :node(html_tavlea_mode_tite("INDICATIF"))
	    :node(html_tavlea_tins_pwaire(
	    		html_tavlea_tins("PREZINTRECE", codjowas.IP),
	        	html_tavlea_tins("RIPASSÉ PREZINT", codjowas.R.IP, false)
	    ))
	    :node(html_tavlea_tins_pwaire(
	    		html_tavlea_tins("ERIRECE DURANT", codjowas.DIE),
	        	html_tavlea_tins("RIPASSÉ ERIRECE DURANT", codjowas.R.DIE, false)
	    ))
	    :node(html_tavlea_tins_pwaire(
	    		html_tavlea_tins("ERIRECE", codjowas.IE),
	        	html_tavlea_tins("RIPASSÉ ERIRECE", codjowas.R.IE, false)
	    ))
	    :node(html_tavlea_tins_pwaire(
	    		html_tavlea_tins("FUTUR", codjowas.IF),
	        	html_tavlea_tins("RIPASSÉ FUTURRECE", codjowas.R.IF, false)
	    ))
	    :node(html_tavlea_mode_tite("SUDDJONCTIF"))
	    :node(html_tavlea_tins_pwaire(
	    		html_tavlea_tins("PREZINTRECE", codjowas.SP),
	        	html_tavlea_tins("ERIRECE", codjowas.R.SP, false)
	    ))
	    :node(html_tavlea_tins_pwaire(
	    		html_tavlea_tins("ERIRECE DURANT", codjowas.DSE),
	        	html_tavlea_tins("RIPASSÉ ERIRECE DURANT", codjowas.R.DSE, false)
	    ))
	    :node(html_tavlea_mode_tite("CONDICIONEU"))
	    :node(html_tavlea_tins_pwaire(
	    		html_tavlea_tins("PREZINTRECE", codjowas.C),
	        	html_tavlea_tins("ERIRECE", codjowas.R.C, false)
	    ))
	    :node(html_tavlea_mode_tite("KIMANDEU"))
	    :node(html_tavlea_tins_pwaire(
	    		html_tavlea_tins("PREZINTRECE", codjowas.K),
	        	html_tavlea_tins("ERIRECE", codjowas.R.K, false)
	    ))
	    
	return html
end

function p.radjoute_prono(t,c,d,sdj)
	if type(c) == "table"  and d == nil then
		for k,v in ipairs(c) do
			p.radjoute_prono(t,v,k,sdj)
		end
	elseif t~= "R" and t ~= "PE" and t ~= "PEf" and t ~= "INF" then
		if type(c) == "table" then ct = c[1] else ct = c end
		local sd = 1 ; if ct ~= nil and mw.ustring.find(ct, voyale) ~= nil then sd = 2 end
		if t == "K" then
			prono = ""
			prono_R = ""
		elseif t == "PP" then
			prono = tostring(croejhete.djerondif[sd])
			prono_R = ""
		elseif d ~= nil then
			if sdj and croejhete.pronos[d][4] ~=nil then 
				if sd == 2 then sd = 5 else sd = 4 end 
			end
			prono = tostring(croejhete.pronos[d][sd])
			prono_R = tostring(croejhete.pronos[d][2])
			if t == "SP" or t == "DSE" then
				prono = table.concat({tostring(croejhete.ki[2]), prono}, " ")
				prono_R = table.concat({tostring(croejhete.ki[2]), prono_R}, " ")
			end
		end
		
		if type(codjowas[t]) == "table" then
			if codjowas[t][d] == "" then
				codjowas[t][d] = {nil, nil}
				codjowas["R"][t][d] = {nil, nil} 
			else
				codjowas[t][d] = {prono, c} -- {dji,boute}
				if type(croejhete.aveur[t][d]) == "table" then 
					aveur = table.concat(croejhete.aveur[t][d], ",<br/>")
				else
					aveur = tostring(croejhete.aveur[t][d]) 
				end
				local pe = codjowas.PE
				if type(codjowas.PE) == "table" then pe = codjowas.PE[1] end
				pe = string.gsub(pe, "%(.+%)", "") -- v(i)nou > vnou 
				codjowas["R"][t][d] = {table.concat({prono_R, aveur}, " "), pe} -- {dj’a,bouté}
			end
		else
			codjowas[t] = {prono, c} -- {e,boutant}
		end
	end
end

function p.codjowoe(troke, bodjes, args)
	local rile = nil
	
	if bodjes == nil then 
		codjowas = p.novea_tavlea_codjowas()
	else
		-- våt po totès croejhetes (sins conter les vîs sistinmes : E203 evnd) ?
		if mw.ustring.find(bodjes.A , "k$") ~= nil then
			rile = "[[Rawete:Rîle do scrijhaedje do son K|rîle do scrijhaedje do son K]]"
		elseif mw.ustring.find(bodjes.A , "g$") ~= nil then
			rile = "[[Rawete:Rîle do scrijhaedje do son GU|rîle do scrijhaedje do son GU]]"
		elseif mw.ustring.find(bodjes.A , "ss$") ~= nil then
			rile = "[[Rawete:Rîle do scrijhaedje do son S|rîle do scrijhaedje do son S]]"
		end
		codjowas = croejhete.tavlea_codjowas(troke, bodjes.A, bodjes.B, bodjes.C, bodjes.X)
	end
	
	p.spotche_codjowas(args)
	
	if args.mode ~= nil and (args.mode == "sins djins" or args.mode == "sins djins pluriyal") then
		sdj = true
		for t, v in pairs( codjowas ) do
	    	if type(v) == "table" then
	    		for dj, c in ipairs( v ) do
	    			if t~= "K" then 
	    			   if (args.mode == "sins djins pluriyal" and dj ~= 3 and dj ~= 6) or 
	    			      (args.mode == "sins djins" and dj ~= 3) then 
	    					codjowas[t][dj] = ""
	    				end
	    			elseif t== "K" and dj ~= 1 then
	    				codjowas[t][dj] = ""
	    			end
	    		end
	    	end
	    end
	end
	
	codjowas["R"] = {}
    for t, v in pairs( codjowas ) do
    	codjowas["R"][t] = {}
    	p.radjoute_prono(t,v,nil,sdj)
    end
    
    codjowas.troke = troke
    codjowas.rile = rile
    
	return codjowas
end

function p.novea_tavlea_codjowas()
	codjowas["R"] = {}
	for t,v in pairs(croejhete.codjowas[1]) do
		if type(v) == "table" then
			codjowas[t] = nil
			codjowas["R"][t] = nil
		else
			codjowas[t] = ""
			codjowas["R"][t] = ""
		end
	end
	codjowas["troke"] = 1
	return codjowas
end

function p.spotche_codjowas(args)
	for k,v in pairs(args) do
		-- IP1s, IP1s-2
		if string.find(k , "^[A-Z]+[1-3][sp]$") ~= nil or
		   string.find(k , "^[A-Z]+[1-3][sp][.-][1-5]$") ~= nil then
			k = string.gsub(k, "([A-Z]+)([1-3])([sp])[.-]?([1-5]?)", function(t,dj,sp,l) return t.."-"..dj.."-"..sp.."-"..l end) 	
			k = mw.text.split(k, "-", true)
			if k[1] ~= nil and k[2] ~= nil then 
				if k[3] ~= nil and k[3] =="p" then 
					if k[1] == "K" then
						k[2] = 1+k[2] -- K1pl=(K)1+1=2
					else
						k[2] = 3+k[2] -- IP1pl=(IP)1+3=4
					end
				end 
				if codjowas[k[1]] == nil then
					codjowas[k[1]] = {}
				end
				if k[4] ~= nil and k[4] ~= "" then
					if codjowas[k[1]][tonumber(k[2])] == nil then
						codjowas[k[1]][tonumber(k[2])] = {}
					elseif type(codjowas[k[1]][tonumber(k[2])]) == "string" then
						codjowas[k[1]][tonumber(k[2])] = {codjowas[k[1]][tonumber(k[2])]} -- string > array
					end
					table.insert(codjowas[k[1]][tonumber(k[2])], tonumber(k[4]), v)
				else
					if type(codjowas[k[1]][tonumber(k[2])]) == "table" then
						table.insert(codjowas[k[1]][tonumber(k[2])], 1, v)
					else
						codjowas[k[1]][tonumber(k[2])] = v
					end
				end
			end
		-- PP, PP-2, INF, INF-2
		elseif string.find(k , "^[A-Z]+f?[.-][1-5]$") ~= nil then
			k = string.gsub(k, "([A-Z]+f?)[.-]([1-5])", function(t,l) return t.."-"..l end) 	
			k = mw.text.split(k, "-", true)
			if type(codjowas[k[1]]) == "string" then
				if codjowas[k[1]] == "" then
					if k[1] == "INF" or k[1] == "PE" or k[1] == "PEf" then
						codjowas[k[1]] = {}
					else
						codjowas[k[1]] = {[1]={}}
					end
				else
					if k[1] == "INF" or k[1] == "PE" or k[1] == "PEf" then
						codjowas[k[1]] = {codjowas[k[1]]}
					else
						codjowas[k[1]] = {[1]={codjowas[k[1]]}}
					end
				end
			end
			if k[1] == "INF" or k[1] == "PE" or k[1] == "PEf" then
				table.insert(codjowas[k[1]], v)
			else
				table.insert(codjowas[k[1]][1], v)
			end
		elseif k ~= "A" and k ~= "B" and k ~= "C" then
			if codjowas[k] ~= nil then
				if k == "troke" then v=tonumber(v) end
				if type(codjowas[k]) == "table" then
					if k == "INF" or k == "PE" or k[1] == "PEf" then
						table.insert(codjowas[k], v)
					else
						table.insert(codjowas[k][1], 1, v) -- PP
					end	
				else
					codjowas[k] = v
				end
			end	
		end
	end
end

function p.init(frame)
	local args = frame.args
	local croejhete_id = "RIF" -- sôre di croejhete CO4,CC1,S0
	local troke = nil -- troke di viebe 1-5 (sorlon les croejhetes)
	local A, B, C = nil -- bodjes
	local X = mw.title.getCurrentTitle().subpageText
	
	if args.croejhete ~= nil and args.croejhete ~= "" then 
		croejhete_id = args.croejhete
	end
	
	if args.troke ~= nil and args.troke ~= "" then 
		troke = tonumber(args.troke)
	end
	
	local fitchi_croejhete = mw.title.new( "Codjowoe/"..croejhete_id, "Module" )
	if fitchi_croejhete.exists then
		croejhete = require(fitchi_croejhete.fullText);
		croejhete.ID = croejhete_id
	else
		builder.error("li croejhete <code>"..croejhete_id.."</code> n’ est nén ricnoxhowe")
	end
	
	if args.troke == nil then
		builder.error("li troke do viebe n’ est nén dné")
	elseif type(troke) ~= "number" then 
		builder.error("li troke do viebe <code>"..troke.."</code> n’ est nén on chife")
	else
		if args.A ~= nil and args.A ~= "" then
			A = args.A ; B = A ; C = A 
			if args.B ~= nil and args.B ~= "" then B = args.B end
			if args.C ~= nil and args.C ~= "" then C = args.C end
			if args.X ~= nil and args.X ~= "" then X = args.X end
			codjowas = p.codjowoe(troke, {A=A,B=B,C=C,X=X}, args)
		else
			codjowas = p.codjowoe(troke, nil, args)
		end
		
		if codjowas ~= false then
			builder.add_content(p.html_tavlea())
		end
	end
	
	return  builder.get_content()
end

return p
Prin del pådje «https://wa.wiktionary.org/w/index.php?title=Module:Codjowoe&oldid=314567»