Modül:kategori ağacı/karakter

p = {}

local jsort = require("Modül:ja").jsort

function p.hiyerasi(tum)
	local tablo = {}
	
	dil = require("Modül:diller").getirKodaGore(tum.par)
	
	table.insert(tablo, "]")
	table.insert(tablo, "]")
	table.insert(tablo, "]")
	table.insert(tablo, "]")
	table.insert(tablo, "]")
	table.insert(tablo, "]")
	
	if tum.par then
		table.insert(tablo, " .." karakterini içeren sözcükler|" .. tum.par .. "]]")
		table.insert(tablo, "'''" .. tum.par .. " okunuşlu'''")
	else
		table.insert(tablo, "'''" .. tum.par .. "'''")
	end
	
	return "<p class=\"clearThis\"><small>" .. table.concat(tablo, " » ") .. "</small></p>"
end

-- Şablon:kategori konu ve grup isimli şablonlarda kullanılan fonksiyonu oluştur.
function p.kategoriAgaci(tum)
	local veri = {
    	dil = require("Modül:diller").getirKodaGore(tum.par),
    	sozcuk = tum.par,
    }
    
    local sayfaadi = mw.title.getCurrentTitle().text
    local karakter = mw.ustring.gsub(mw.ustring.gsub(sayfaadi, dil:getirAsilAd(), ""), "karakterini içeren sözcükler", "")
    local on = "<span class='"..dil:getirAlfabeKodlari().."' lang='"..dil:getirKod().."'>"

    if mw.ustring.find(sayfaadi, "karakterini içeren sözcükler$") then
		tum.frame:callParserFunction("DISPLAYTITLE",
			"Kategori:" .. dil:getirAsilAd() .. " "
			.. on .. (mw.ustring.find(karakter, "okunuşlu")
				and mw.ustring.gsub( karakter, "o.*", "" ) .. "</span> okunuşlu " .. on .. mw.ustring.gsub( karakter, ".*u", "" )
				or karakter) .. "</span>"
			.. " karakterini içeren sözcükler")
	end
	
	if tum.par then
		kar = tum.par
		
		table.insert(tum.kat, "):getirAsilAd() .. " " .. kar  
			.. " karakterini içeren " .. " sözcükler|"
			.. (tum.par == "ja" and jsort(tum.par) or tum.par) .. "]]")
		
		if tum.par == "ja" then
			table.insert(tum.kat, " .. " okunuşlu kanji karakterli sözcükler|" .. kar .. "]]")
			table.insert(tum.kat, " .. " ile okunan kanji karakterli sözcükler|" .. tum.par .. "]]")
			if tum.par then
				table.insert(tum.kat, " .. " ile okunan kanji karakterli sözcükler|" .. tum.par .. "]]")
			end
		end
	else
		table.insert(tum.kat, "):getirAsilAd() .. " bireysel karakterlerine göre sözcükler|" 
			.. (tum.par and tum.par or tum.par) .. "]]")
		
		table.insert(tum.gor, "Bu kategori " .. require("Modül:bağlantılar").tam_bag(veri, "çeviri", true) .. " karakterini içeren "
			.. require("Modül:diller").getirKodaGore(tum.par):getirAsilAd() .. " sözcükleri listelemektedir.")
	end
end

return p