Modül:Ototaksonkutu sayfasının kaynağını görüntüle

--[[*************************************************************************
Bu modül Otomatik Taksonkutu sisteminin ana modülüdür.
{{Otomatik taksonkutu}} tarafından kullanılmaktadır.

Özellikle sağladığı şey, taksonomi hiyeraşisini otomatik olarak
taksonomi şablonlarında listelemektir ("Şablon:Taksonomi/TAKSON_ADI"
biçimindeki şablonları kullanarak), şablon genişletme hatalarına sebep
olmadan.sayfasına bağlanır
*****************************************************************************]]

require('Modül:No globals')
local veri = require("Modül:Ototaksonkutu/veri")
local TaksonItalik = require('Modül:Taksonİtalik') -- Modül:Taksonİtalik'ten takson adını italik göstermek için bir fonksiyon
local TabloSatiri = '|-\n'
local TabloSonu = '|}\n'
local p = {} -- dışarıdan erişilebilen fonksiyonlar
local l = {} -- modül içinde kullanılan fonksiyonlar, ayrıştırmak için
local colour = '' -- taksonkutu ve toksan listelemeleri için renk

--[[=========================================================================
Bir taksonomi hiyeraşisinin çıkabileceği en yüksek takson derinliğini
belirler; işlem yapma süresini azaltır ve yanlış belirlenmiş hiyeraşilere
karşı koruma sağlar, örneğin döngüler.
Bu değer dışarıdan şu şekilde çağırılabilir:
{{#invoke:Ototaksonkutu|getirMaksAramaSeviyesi}}
=============================================================================]]
local MaksAramaSeviyesi = 100

function p.getirMaksAramaSeviyesi()
	return MaksAramaSeviyesi
end

--[[========================= taksonkutuRengi ===============================
Bir taksonkutu için gösterilen rengi belirler, taksonomi hiyeraşisindeki en
üst taksona çıkarak en baş taksonun rengini getirir ('incertae sedis' bir
istisnadır, bu direk kendi rengini belirler). Geçerli bir taksonkutu renginin
CSS rgb() biçimini kullandığı kabul edilmiştir, tüm renkler bu biçimdedir.
Eğer taksonkutu için hiçbir renk bulunamadıysa, 'transparent' (yani renksiz)
görünür ama taksonomi hiyeraşisi çok yukarı gidiyorsa, hata rengi görünür.
Kullanımı: {{#invoke:Ototaksonkutu|taksonkutuRengi|TAKSON}}
=============================================================================]]
function p.taksonkutuRengi(frame, taxon)
	return p.getirTaksonkutuRengi(frame, taxon or frame.args[1] or '')
end

function p.getirTaksonkutuRengi(frame, currTaxon, cats)
	-- renkler bu fonksiyon için küreseldir; varsayılan değeri ise string türündedir
	local i = 1 -- sayma işlemi başlatılıyor
	local searching = currTaxon ~= '' -- hala renk aranıyor mu?
	local foundICTaxon = false -- bir 'incertae sedis' var mı diye kontrol et
	while searching and i <= MaksAramaSeviyesi do
		local plainCurrTaxon, dummy = l.kirpFazlaliklar(currTaxon) -- gereksiz yazıları soyutla /
		if string.lower(plainCurrTaxon) == 'incertae sedis' then
			foundICTaxon = true
		else
			local possibleColour = veri.getirTabloyaGore(plainCurrTaxon, "renkler")
			if possibleColour and string.sub(possibleColour,1,3) == 'rgb' then
				colour = possibleColour
				searching = false
			end
		end
		if searching then
			local ok, parent = p.getirTaksonBilgiOgesi(frame, currTaxon, 'ebeveyn')
			if ok and parent ~= '' then
				currTaxon = parent
				i = i + 1
			else
				searching = false -- hiyeraşinin en üst katmanına çık veya var olmayan taksonomi şablonlarını kullanmaya çalış
			end
		end
	end
	if colour == '' then
		if foundICTaxon then
			colour = veri.getirTabloyaGore("incertae sedis", "renkler")
			table.insert(cats, "[[Kategori:Incertae sedis rengine sahip taksonkutular]]")
		elseif searching then
			-- MaksAramaSeviyesi'ni aşan hiyeraşi seviyeleri
			colour = "transparent; text-align:center; border: 2px solid red; error:colour"
			table.insert(cats, "[[Kategori:Hata rengine sahip taksonkutular]]")
		else
			colour = 'transparent'
			table.insert(cats, "[[Kategori:Rengi olmayan taksonkutular]]")
		end
	end
	return colour
end

--[[= = = = = = = = = = = = =  ustSeviyeTakson  = = = = = = = = = = = = = = = 
Burası herhangi bir takson hiyeraşisinde en üste gelebilecek takson
gruplarını belirler.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.ustSeviyeTakson(taxon)
	return  taxon == 'Life' or taxon == 'Veterovata' or taxon == 'Ichnos'
end

--[[========================= taksonkutuListe ===============================
Girilen taksonun hiyeraşisini en üste kadar bulup, bunu otomatik
taksonkutuya yansıtmada yardımcı olur.
Kullanım:
{{#invoke:Ototaksonkutu|taksonkutuListe|TAKSON
|taks_üst_sayısı = gösterilecek *üst* seviye takson sayısı
|sıralama = mevcut TAKSON için yazar adı ve tarihi
|üst_sıralama = mevcut TAKSON'un ebeveyni için yazar adı ve tarihi
|büst_sıralama = mevcut TAKSON'un ebeveyninin ebeveyni için yazar adı ve tarihi
|bbüst_sıralama = mevcut TAKSON'un ebeveyninin ebeveyninin ebeveyni için yazar adı ve tarihi
|bbbüst_sıralama = mevcut TAKSON'un ebeveyninin ebeveyninin ebeveyninin ebeveyni için yazar adı ve tarihi
|seçili_kalın = TAKSON'un yazısının satırda kalın gözükmesi için 'kalın' yazın
|virüs = virüs italik standartlarını kullanmak için 'evet' yazın
}}
=============================================================================]]
function p.taksonkutuListe(frame, moduleTable)
	if moduleTable then
		frame.args = moduleTable
	end
	local currTaxon = frame.args[1] or ''
	if currTaxon == '' then return '' end
	local displayN = (tonumber(frame.args['taks_üst_sayısı']) or 1) + 1
	local authTable = {}
	authTable[1] = frame.args['sıralama'] or ''
	authTable[2] = frame.args['üst_sıralama'] or ''
	authTable[3] = frame.args['büst_sıralama'] or ''
	authTable[4] = frame.args['bbüst_sıralama'] or ''
	authTable[5] = frame.args['bbbüst_sıralama'] or ''
	local boldFirst = frame.args['seçili_kalın'] or 'link' -- değeri 'link' veya 'kalın'
	local virus = frame.args['virüs'] or 'hayır' -- değeri 'evet' veya 'hayır'
	local offset = tonumber(frame.args['offset'] or 0)
	-- eğer 'sıralama' parametresi bahsi geçen taksondan daha alt seviyedeki
	-- bir takson içinse, sıralamaların hepsini kaydır
	if offset ~= 0 then
		for i = 1, 5 do
			local j = i + offset
			if j <= 5 then
				authTable[i] = authTable[j]
			else
				authTable[i] = ''
			end
		end
	end
	local taxonTable, taxonRankTable = l.yapTablo(frame, currTaxon)
	local res = ''
	local topTaxonN = taxonTable.n
	-- eğer mümkünse büyük büyük büyük ebeveynin üstündeki tüm taksonları
	-- sıralamasız (sıralamasını belirleyen yazar olmadan) göster
	for i = topTaxonN, 6, -1 do
		res = res .. p.gosterTakson(frame, taxonTable[i], taxonRankTable[i], topTaxonN==i, '', displayN >= i, '', virus)
	end
	-- ebeveynin üstündeki tüm taksonları eğer
	-- sıralamaları (sıralamasını belirleyen yazarlar) ile birlikte göster
	for i = math.min(topTaxonN, 5), 2, -1 do
		res = res .. p.gosterTakson(frame, taxonTable[i], taxonRankTable[i], topTaxonN==i, authTable[i], displayN >= i, '', virus)
	end
	-- hedef taksonu göster, her daim kalın ve gösterilir
	res = res .. p.gosterTakson(frame, taxonTable[1], taxonRankTable[1], topTaxonN==1, authTable[1], true, boldFirst, virus)
	return res
end

--[[= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Bir taksonkutudaki tek bir takson satırını oluştur.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function p.gosterTakson(frame, taxon, rank, isTopTaxon, auth, force, boldFirst, virus)
	-- eğer bir üst seviye taksonda değilsek (mesela "Life" değilse) ve ebeyevn yoksa bu bir hatadır
	if isTopTaxon then
		if l.ustSeviyeTakson(taxon) then
			return '' -- bir üst seviye takson gösterme
		elseif mw.title.new('Taksonomi/'..taxon, 'Şablon').exists then
			-- bu taksonomi şablonunda bir ebeveyn tanımlanmamış
			return l.taksonomiOlustur(taxon, 'Taksonomi şablonunda bir ebeveyn belirtilmemiş') .. '\n' .. TabloSatiri
		else
			-- bu taksonun bir taksonomi şablonu mevcut değil
			return l.taksonomiOlustur(taxon, 'Eksik taksonomi şablonu') .. '\n' .. TabloSatiri
		end
	else
		-- if showing is not already forced, force if it's a principal rank or an authority is specified
		force = force or l.getirEsasSira(rank) == 'evet' or
		        auth ~= ''
		if not force then
			-- if showing is still not already forced, force if the taxonomy template has 'always_display' set
			local ok, alwaysDisplay = p.getirTaksonBilgiOgesi(frame, taxon, 'hep_görüntüle')
			force = alwaysDisplay == 'evet' or  alwaysDisplay == 'true'
		end
		if force then
			local res = l.tabloHucresi("<span style='white-space: nowrap;'>"..l.getirCeviriSira(rank) .. ':</span>')
			local bold = 'hayır'
			if boldFirst == 'kalın' then bold = 'evet' end
			if auth ~= '' then
				auth = '<br><small>' .. auth .. l.taksonKaynak(frame, taxon) .. '</small>'
			elseif bold == "evet" then
				auth = '<br><small>' .. l.taksonKaynak(frame, taxon) .. '</small>'
			end
			local res = res .. l.tabloHucresi(l.getirTaksonBag(frame, taxon, rank, bold, '', '', virus) .. auth) -- italic, abbreviated
			return res .. TabloSatiri
		else
			return ''
		end
	end
end

function l.taksonKaynak(frame, taxon)
	-- taksonun kaynağı belirtilmişse onu çağır
	local ok, taksonKaynak = p.getirTaksonBilgiOgesi(frame, taxon, 'kaynak')
	if ok and taksonKaynak ~= "" then
		taksonKaynak = frame:extensionTag{ name = 'ref', content = taksonKaynak, args = { name = taxon..'-kaynak' } }
	end

	return taksonKaynak
end

--[[========================= taksonomiListe ================================
Returns the cells of the taxonomy table displayed on the right hand side of
"Template:Taxonomy...." pages.
Kullanımı: {{#invoke:Ototaksonkutu|taksonomiListe|TAKSON}}
=============================================================================]]
function p.taksonomiListe(frame)
	return l._taksonomiListe(frame, frame.args[1] or '')
end

function l._taksonomiListe(frame, currTaxon)
	local cats = {}
	if currTaxon == '' then
		return '{|class="infobox biota"\n' .. TabloSatiri .. l.tabloHucresi('') .. l.tabloHucresi('HATA: hiçbir takson girilmedi') .. TabloSonu
	end
	local taxonTable, taxonRankTable = l.yapTablo(frame, currTaxon)
	local rankValTable = l.getirSiraTablosu()
	local lastRankVal = 1000000
	local orderOk = true
	-- check whether the taxonomy is for viruses; use already determined taxon colour if possible
	local virus = 'hayır'
	local taxoColour = colour
	if taxoColour == '' then
		if  taxonTable[taxonTable.n] == 'Ichnos' or taxonTable[taxonTable.n] == 'Veterovata' then
			taxoColour = p.getirTaksonkutuRengi(frame, taxonTable[taxonTable.n], cats)
		else
			taxoColour = p.getirTaksonkutuRengi(frame, taxonTable[taxonTable.n - 1], cats)
		end
	end
	if taxoColour == p.getirTaksonkutuRengi(frame, "virüs", cats) then
		virus = 'evet'
	end
	-- add information message
	local res = '<p style="text-align:right">Tabloda kalın olarak görünenler taksonkutularda görünür;<br>ya asil bir sıradır ya da <code>hep_görüntüle=evet</code> değerindedir.</p>\n'

	-- start table
	res =  res .. '{| class="infobox biota" style="text-align: left; font-size:100%"\n' .. TabloSatiri .. '! colspan=4 style="text-align: center; background-color: '
	            .. taxoColour .. '"|Ata taksonlar\n'
	-- deal first with the top level taxon; if there are no errors, it should be Life/Veterovata/Ichnos, which are 
	-- not displayed
	local taxon = taxonTable[taxonTable.n]
	if not l.ustSeviyeTakson(taxon) then
		local msg = 'Taksonomi şablonu eksik'
		if mw.title.new('Taksonomi/'..taxon, 'Şablon').exists then
			msg = 'Ebeveyn takson gerekli'
		end
		res = res .. TabloSatiri .. l.tabloHucresi('colspan=2', l.taksonomiOlustur(taxon, msg))
	end
	-- now output the rest of the table
	local currRankVal
	for i = taxonTable.n-1, 1, -1 do
		-- check ranks are in right order in the hierarchy
		taxon = taxonTable[i]
		local rank = taxonRankTable[i]
		currRankVal = l.araSiraDegeri(rankValTable, rank)
		if currRankVal then
			orderOk = currRankVal < lastRankVal
			if orderOk then lastRankVal = currRankVal end
		else
			orderOk = true
		end
		-- see if the row will be displayed in a taxobox; bold the rank if so
		local boldRank = false
		local ok, alwaysDisplay = p.getirTaksonBilgiOgesi(frame, taxon, 'hep_görüntüle')
		if ok and (alwaysDisplay == 'evet' or alwaysDisplay == 'true') then
			boldRank = true
		else
			boldRank = l.getirEsasSira(rank) == 'evet'
		end
		-- now return a row of the taxonomy table with anomalous ranks marked
		local errorStr = ''
		if not orderOk then errorStr = 'evet' end
		local link = l.getirTaksonBag(frame, taxon, rank, '', '', '', virus) -- bold, italic, abbreviated
		res = res .. l.taksonomiListeSatiri(taxon, rank, link, boldRank, errorStr)
	end
	-- close table
	res = res .. TabloSonu
	-- error-tracking for taxonomy templates
	-- if the last row has an anomalous rank, put the page in an error-tracking category
	if not orderOk then
		table.insert(cats, '[[Kategori:Aykırı sıra gösteren taksonomi şablonları]]')
	end
	-- if the last row has a taxon name in the page name that does not match the link text,
	-- put the taxonomy template in a tracking category
	local dummy, linkText = p.getirTaksonBilgiOgesi(frame, taxon, 'bağ_yazı')
	local match = l.matchTaxonLink(taxon, linkText, currRankVal and currRankVal < rankValTable['cins'])
	if not match then
		table.insert(cats, '[[Kategori:Bağ yazısı ve adı eşleşmeyen taksonomi şablonları|' .. taxon .. ']]')
	end
	if cats[1] then
		res = res .. frame:expandTemplate{ title = 'Şablon diğer', args = { table.concat(cats)} }
	end
	return res
end

--[[ = = = = = = = = = = = = = = taxonomyListRow  = = = = = = = = = = = = = = 
Returns a single row of the taxonomy table displayed on the right hand side
 of "Template:Taxonomy...." pages.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.taksonomiListeSatiri(taxon, rank, link, boldRank, error)
	local res = ''
	if taxon == '' or rank == '' then return res end
	local baseTaxon, qualifier = l.kirpFazlaliklar(taxon)
	-- if appropriate, make it clear that some taxa have been skipped via a ... row
	if qualifier == '/geç' then
		res = res .. TabloSatiri .. l.tabloHucresi('.....') .. l.tabloHucresi('.....')
	end
	-- now generate a row of the table
	res = res .. TabloSatiri
	local cellContent = ''
	local anglicizedRank = l.getirCeviriSira(rank)
	if boldRank then
		cellContent = cellContent .. '<span style="white-space:nowrap;"><b>' .. anglicizedRank .. '</b>:</span>'
	else
		cellContent = cellContent .. '<span style="white-space:nowrap;">' .. anglicizedRank .. ':</span>'
	end
	if error == 'evet' then
		cellContent = '<span style="background-color:#FDD">' .. cellContent .. '</span>'
	end
	res = res .. l.tabloHucresi(cellContent)
	          .. l.tabloHucresi('<span style="white-space:nowrap;">' .. link .. '</span>')
	          .. l.tabloHucresi('<span style="font-size:smaller;">' .. qualifier  .. '</span>')
	          .. l.tabloHucresi('<span style="white-space:nowrap;">' .. l.birTaksonuDuzenle(taxon) .. '</span>')
	return res
end

--[[====================== cagirTaksonomiAnahtari ===========================
Prepares for, and then calls, Template:Taxonomy key to display a taxonomy
template page. It does this by building up the information the template
requires, following one 'aynısı' link, if required.
Kullanımı:
{{#invoke:Ototaksonkutu|cagirTaksonomiAnahtari
|ebeveyn=
|sıra=
|tükenmiş=
|hep_görüntüle=
|bağ_sayfa=value of 'link' parameter in taxonomy template
|bağ_yazı=value of parameter 2 in taxonomy template
|aynısı=
}}
=============================================================================]]
local PARENT = 1
local RANK = 2
local LINK_TARGET = 3
local LINK_TEXT = 4
local ALWAYS_DISPLAY = 5
local EXTINCT = 6
local SAME_AS = 7
local REFS = 8

function p.cagirTaksonomiAnahtari(frame)
	local taxon = frame.args['takson'] or ''
	local parent = frame.args['ebeveyn'] or ''
	local rank = frame.args['sıra'] or ''
	local extinct = string.lower(frame.args['tükenmiş']) or ''
	local alwaysDisplay = string.lower(frame.args['hep_görüntüle']) or ''
	local linkTarget = frame.args['bağ_sayfa'] or ''
	local linkText = frame.args['bağ_yazı'] or '' -- this is the "raw" link text, and can be ''
	local refs = frame.args['kaynak'] or ''
	local sameAsTaxon = frame.args['aynısı'] or ''
	if sameAsTaxon ~= '' then
		-- try using the 'aynısı' taxon; it's an error if it doesn't exist
		local ok, sameAsInfoStr = pcall(frame.expandTemplate, frame, { title = 'Şablon:Taksonomi/' .. sameAsTaxon, args = {['makine kodu'] = 'hepsi' } })
		if ok then
			local sameAsInfo = mw.text.split(sameAsInfoStr, '$', true)
			--'aynısı' taxon's taxonomy template must not have a 'aynısı' link
			if sameAsInfo[SAME_AS] == '' then
				if parent == '' then parent = sameAsInfo[PARENT] end
				if rank == '' then rank = sameAsInfo[RANK] end
				if extinct == '' then extinct = string.lower(sameAsInfo[EXTINCT]) end
				if alwaysDisplay == '' then alwaysDisplay = string.lower(sameAsInfo[ALWAYS_DISPLAY]) end
				if linkTarget == '' then linkTarget = sameAsInfo[LINK_TARGET] end
				if linkText == '' then linkText = sameAsInfo[LINK_TEXT] end
				if refs == '' and parent == sameAsInfo[PARENT] then refs = sameAsInfo[REFS] end
			else
				return '<span style="color:red; font-size:1.1em">Error: attempt to follow two "same as" links</span>: <code>same_as = ' .. sameAsTaxon .. '</code>, but [[Şablon:Taksonomi/' .. sameAsTaxon .. ']] also has a<code>same_as</code> parameter.'
			end
		else
			return l.eksikTaksonomiAnahtari(sameAsTaxon, 'given as the value of <code>same as</code>')
		end
	end
	local link = linkTarget
	if linkText ~= '' and linkText ~= linkTarget then link = link .. "|" .. linkText end
	-- check consistency of extinct status; if this taxon is not extinct, parent must not be either
	local extinctError = 'hayır'
	if parent ~= '' and (extinct == '' or extinct == 'hayır' or extinct == 'false') then
		local ok, parentExtinct = p.getirTaksonBilgiOgesi(frame, parent, 'tükenmiş')
		if ok and (parentExtinct == 'evet' or parentExtinct == 'true') then extinctError = 'evet' end
	end
	
	-- taksonomi anahtarını oluşturmaya başlayalım
	local taksAna = {}
	table.insert(taksAna, l._taksonomiListe(frame, taxon))
	
	if mw.title.new('Taksonomi/'..parent, 'Şablon').exists then
		if linkTarget then
			if mw.title.new(linkTarget).exists then
				table.insert(taksAna, "__NOINDEX__")
			else
				table.insert(taksAna, "Vikipedi'de henüz [["..linkTarget.."]] isimli bir madde bulunmamakta. "
					.."Bu maddeyi [["..linkTarget.."|oluşturarak]] yardımcı olabilirsiniz. Şu anda bulunduğunuz sayfa "
					.."[["..linkTarget.."]] bilimsel sınıflandırması hakkında size bilgi vermektedir."
					.."[[Kategori:Kırmızı bağlantılı taksona sahip taksonomi şablonları|"..l.secSon(mw.title.getCurrentTitle().text).."]]")
			end
		end
	else
		table.insert(taksAna, "<strong class='error'>Geliştiriliyor.</strong>"
			.. " Eğer aşağıdaki tablo doğru görünüyorsa, seçilmiş takson için gerekli bilgiler mevcut demektir.\n"
			.. l.eksikTaksonomiAnahtari(parent, "<code>ebeveyn</code> değeri olarak girildi"))
	end
	
	local ok, parRefs = p.getirTaksonBilgiOgesi(frame, parent, "kaynak")
	
	table.insert(taksAna, "\nNiye burada olduğundan emin değil misin? Otomatik taksonkutu sistemini [[Vikipedi:Otomatik taksonkutu sistemi/giriş|öğrenmeye başla]]."
		.. "\n{| class='wikitable'"
		.. "\n|-"
		.. "\n|Ebeveyn:"
		.. "\n|<code>"..parent.."</code> &#x5B;[[Şablon:Taksonomi/"..parent.."|Taksonomi]]; <span class=plainlinks>["..l.taksonomiOlusturBag(parent).." değiştir]&#x5D;</span>"
		.. "\n|-"
		.. "\n|Sıra:"
		.. "\n|<code>"..rank.."</code> (<code>"..l.getirCeviriSira(rank, "evet").."</code> şeklinde görünür)"..(rank~="" and "" or "<span class='error'>– bir sıra belirtilmeli</span")
		.. "\n|-"
		.. "\n|Bağ:"
		.. "\n|<code>"..l.yapBag(taxon, extinct, "hayır", p.getirItalikTakson(rank), nil, linkTarget, link)
		.."</code>"..(linkTarget == link and "" or " (<code>"..linkTarget.."</code> sayfasına bağlanır)")
		.. "\n|-"
		.. "\n|Tükenmiş:"
		.. "\n|"..(extinct~="" and "<code>"..extinct.."</code>" or "hayır")
		.. (extinctError == "evet" and "<span style='background-color:#FCC'>ebeveyn tükenmiş olarak belirtilmiş</span>" or "")
		.. "\n|-"
		.. "\n|Hep görüntüle:"
		.. "\n|"..(alwaysDisplay~="" and "<code>"..alwaysDisplay.."</code>[[Kategori:Hep_görüntüle kullanan taksonomi şablonları|"..taxon.."]]"
					or (l.getirEsasSira(rank) == "evet" and "evet (asil sıra)" or "hayır"))
		.. "\n|-"
		.. "\n|Taksonomi kaynakları:"
		.. "\n|"..l.yapKaynaklariGoster(taxon, refs)
		.. "\n|-"
		.. "\n|Ebeveyn taksonominin kaynakları:"
		.. "\n|"..l.yapKaynaklariGoster(parent, parRefs)
		.. "\n|-"
		.. (sameAsTaxon ~= '' and "\n|Takson ile aynı:||<code>"..sameAsTaxon.."</code> "
			.."&#x5B;[[Şablon:Taksonomi/"..sameAsTaxon.."|Taksonomi]]; "
			.."<span class=plainlinks>["..l.taksonomiOlusturBag(sameAsTaxon).." değiştir]&#x5D;</span>\n|-" or "")
		.. (mw.ustring.match(taxon, "/geç$") and '\n| colspan=2 |Sonunda "/geç" varsa, bakınız '
			..'[[Vikipedi:Otomatik taksonkutu sistemi/gelişmiş taksonomi#Geçilen taksonomi şablonları|Geçilen taksonomi şablonları]].'
			..'<br>Geçilen takson için, bakınız [[Şablon:Taksonomi/'..mw.ustring.gsub(taxon, "/geç$", "")..']].' or '')
		.. (mw.ustring.match(taxon, "/%?$") and '\n| colspan=2 |Sonunda "/?" varsa, bakınız [[Vikipedi:Otomatik taksonkutu sistemi/gelişmiş taksonomi#Kuşkulu atamalar|Kuşkulu atamalar]].' or '')
		.. (mw.ustring.match(l.secSon(taxon), "Incertae sedis") and '| colspan=2 |"Incertae sedis" takson isimleri için, bakınız '
			.."[[Vikipedi:Otomatik taksonkutu sistemi/gelişmiş taksonomi#Incertae_sedis_taksonomi_şablonları|''Incertae sedis'' taksonomi şablonları]]." or '')
		.. "\n|}"
		.. (extinctError == "evet" and "[[Kategori:Tutarsız tükenmiş değerine sahip taksonomi şablonları|"..taxon.."]]" or ""))
	
	-- mevcut sayfanın vikiveri ögesini bulalım
	local ID = mw.wikibase.getEntityIdForCurrentPage()
	local oge = ID and mw.wikibase.getEntity(ID)
	
	if not oge then
		table.insert(taksAna, "[[Kategori:Vikiveri ögesine bağlı olmayan taksonomi şablonları|"..taxon.."]]")
	else
		-- vikiveri'de taksonomi şablonu için herhangi bir etiket girilmiş mi?
		local vikiveriEtiket = oge:getLabel("tr")
		if vikiveriEtiket then else
			table.insert(taksAna, "[[Kategori:Vikiveri'de etiketi eksik olan taksonomi şablonları|"..taxon.."]]")
		end
		
		-- vikiveri'de taksonomi şablonu için herhangi bir açıklama girilmiş mi?
		local vikiveriAciklama = oge:getDescription("tr")
		if vikiveriAciklama then else
			table.insert(taksAna, "[[Kategori:Vikiveri'de açıklaması eksik olan taksonomi şablonları|"..taxon.."]]")
		end
	end
	
	return table.concat(taksAna)
end

function l.eksikTaksonomiAnahtari(takson, mesaj)
	return mw.title.new("Şablon:Taksonomi/"..takson).exists and "" or
		'<p><span class="error">Hata: eksik taksonomi şablonu.</span> "'
		.. takson .. '" için taksonomi bilgisi eksik'.. (mesaj and ", " .. mesaj or "")
		.. '.</span> "'.. takson ..'" doğru yazdığınıza emin misiniz? Belki İngilizce adı değil de, bilimsel adı olabilir?'
		.. ' Eminseniz, "Şablon:Taksonomi/'.. takson ..'" oluşturulması gerekir:'
		.. ' ['..l.taksonomiOlusturBag(takson)..' sayfayı oluştur].</p>'
end

--[[=========================== taksonBilgi =================================
Extracts and returns information from Şablon:Taksonomi/TAXON, following
one 'aynısı' link if required.
Kullanımı: {{#invoke:Ototaksonkutu|taksonBilgi|TAKSON|GİRDİ}}
GİRDİ şunlardan biridir: 'ebeveyn', 'sıra', 'bağ_sayfa', 'bağ_yazı',
'tükenmiş', 'hep_görüntüle', 'kaynak', 'aynısı' veya 'hepsi'.
Eğer GİRDİ belirlenmediyse, varsayılan değer 'hepsi' olur - tüm bilgiler tek
bir satırda '$' ile ayrılarak yazılır.
=============================================================================]]
function p.taksonBilgi(frame)
	local taxon = frame.args[1] or ''
	local item = frame.args[2] or ''
	if item == '' then item = 'hepsi' end
	local ok, info = p.getirTaksonBilgiOgesi(frame, taxon, item)
	return info
end

--[[= = = = = = = = = = = getirTaksonBilgiOgesi  = = = = = = = = = = = = = = =
Utility function to extract an item of information from a 
taxonomy template, following one 'aynısı' link if required.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function p.getirTaksonBilgiOgesi(frame, taxon, item)
	local ok, info
	-- item == 'hançer' is a special case
	if item == 'hançer' then
		ok, info = p.getirTaksonBilgiOgesi(frame, taxon, 'tükenmiş')
		if ok then
			if info == 'evet' or info == 'true' then
				info = '&dagger;'
			else
				info = ''
			end
		end
	-- item ~= 'hançer'
	else
		ok, info = pcall(frame.expandTemplate, frame, { title = 'Şablon:Taksonomi/' .. taxon, args = {['makine kodu'] = item } })
		if ok then
			if info == '' then
				-- try 'aynısı'
				local sameAsTaxon = frame:expandTemplate{ title = 'Şablon:Taksonomi/' .. taxon, args = {['makine kodu'] = 'aynısı' } }
				if sameAsTaxon ~= '' then
					ok, info = pcall(frame.expandTemplate, frame, { title = 'Şablon:Taksonomi/' .. sameAsTaxon, args = {['makine kodu'] = item } })
				end
			end
		end
	end
	if ok then
		-- if item is 'bağ_yazı', trim info and check whether '(?)' needs to be added
		if item == 'bağ_yazı' then
			-- there is a newline at the end of linkText when taxonomy template has "|link = LINK_TARGET|LINK_TEXT"
			info = mw.text.trim(info)
			if string.sub(taxon, -2) == '/?' and not string.find(info, '?', 1, true) then
				info = info .. '<span style="font-style:normal;font-weight:normal;"> (?)</span>'
			end
		end
	else
		info = '[[Şablon:Taksonomi/' .. taxon .. ']]' --error indicator in code before conversion to Lua
	end
	return ok, info
end

--[[= = = = = = = = = = = = = = getirTaksonBag = = = = = = = = = = = = = = =
Internal function to drive l.yapBag().
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.getirTaksonBag(frame, taxon, rank, bold, italic, abbreviated, virus)
	local ok, extinct = p.getirTaksonBilgiOgesi(frame, taxon, 'tükenmiş')
	if italic == '' and taxon ~= "Virus" then
		italic = p.getirItalikTakson(rank, virus)
	end
	local ok, linkTarget = p.getirTaksonBilgiOgesi(frame, taxon, 'bağ_sayfa')
	local ok, linkText = p.getirTaksonBilgiOgesi(frame, taxon, 'bağ_yazı')
	return l.yapBag(taxon, extinct, bold, italic, abbreviated, linkTarget, linkText)
end

--[[= = = = = = = = = = = = = = yapBag = = = = = = = = = = = = = = = = = = = =
Actually make the link.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.yapBag(taxon, extinct, bold, italic, abbreviated, linkTarget, linkText)
	local dummy
	-- if link text is missing, try to find a replacement
	if linkText == '' then
		if string.find(taxon, 'Incertae sedis', 1, true) then
			linkText = "''incertae sedis''"
			linkTarget = 'Incertae sedis'
		else
			linkText, dummy = l.kirpFazlaliklar(taxon)
		end
	end
	if linkTarget == '' then linkTarget = linkText end
	if italic == 'evet' then linkText = TaksonItalik.italicizeTaxonName(linkText, false, abbreviated=='evet') end
	local link = ''
	if bold == 'evet' then link = '<b>' .. linkText .. '</b>'
	else
		if linkTarget == linkText then link = linkText
		else link = linkTarget .. '|' .. linkText
		end
		link = '[[' .. link .. ']]'
	end
	if (extinct == 'evet' or extinct == 'true') and not string.find(link, '†', 1, true) then
		link = '<span style="font-style:normal;font-weight:normal;">†</span>' .. link
	end
	if string.sub(taxon, -2) == '/?' and not string.find(link, '?', 1, true) then
		link = link .. '<span style="font-style:normal;font-weight:normal;"> (?)</span>'
	end
	return link
end

--[[======================== gosterSiraTablosu ==============================
Returns a wikitable showing the ranks and their values as set up by
getRankTable().
Kullanımı: {{#invoke:Ototaksonkutu|gosterSiraTablosu}}
=============================================================================]]
function p.gosterSiraTablosu()
	local rankTable = l.getirSiraTablosu()
	local res = '{| class="wikitable sortable"\n|+ Taksonomi şablonlarında değerlendirilen sıralar\n! Sıra !! Görüntüsü !! Değeri\n'
	for k, v in pairs(rankTable) do
		local rankShown = l.getirCeviriSira(k)
		res = res .. TabloSatiri .. l.tabloHucresi(k) .. l.tabloHucresi(rankShown) .. l.tabloHucresi(v)
	end
	return res .. TabloSonu
end

--[[=============================== bul =====================================
Returns the taxon above the specified taxon with a given rank.
Kullanımı: {{#invoke:Ototaksonkutu|bul|TAKSON|SIRA}}
=============================================================================]]
function p.bul(frame)
	local currTaxon = frame.args[1] or ''
	if currTaxon == '' then return '<span class="error">no taxon supplied</span>' end
	local rank = frame.args[2] or ''
	if rank == '' then return '<span class="error">no rank supplied</span>' end
	local inHierarchy = true -- still in the taxonomic hierarchy or off the top?
	local searching = true -- still searching
	while inHierarchy and searching do
		local ok, parent = p.getirTaksonBilgiOgesi(frame, currTaxon, 'ebeveyn')
			if ok and parent ~= '' then
			currTaxon = parent
			local ok, currRank = p.getirTaksonBilgiOgesi(frame, currTaxon, 'rank')
			if currRank == rank then
				searching = false
			end
		else
			inHierarchy = false
		end
	end
	if inHierarchy and not searching then return currTaxon
	else return '<span class="error">rank not found</span>'
	end
end

--[[============================== ninci ====================================
External utility function primarily intended for use in checking and debugging.
Returns the nth level above a taxon in a taxonomic hierarchy, where the taxon
itself is counted as the first level.
Kullanımı: {{#invoke:Ototaksonkutu|ninci|TAKSON|n=N}}
=============================================================================]]
function p.ninci(frame)
	local currTaxon = frame.args[1] or ''
	if currTaxon == '' then return 'ERROR: no taxon supplied' end
	local n = tonumber(frame.args['n'] or 1)
	if n > MaksAramaSeviyesi then
		return 'Exceeded maximum number of levels allowed (' .. MaksAramaSeviyesi .. ')'
	end
	local i = 1
	local inHierarchy = true -- still in the taxonomic hierarchy or off the top?
	while i < n and inHierarchy do
		local ok, parent = p.getirTaksonBilgiOgesi(frame, currTaxon, 'ebeveyn')
			if ok and parent ~= '' then
			currTaxon = parent
			i = i + 1
		else
			inHierarchy = false
		end
	end
	if inHierarchy then return currTaxon
	else return 'Level ' .. n .. ' is past the top of the taxonomic hierarchy'
	end
end

--[[============================ nSeviyeler =================================
External utility function primarily intended for use in checking and debugging.
Returns number of levels in a taxonomic hierarchy, starting from
the supplied taxon as level 1.
Kullanımı: {{#invoke:Ototaksonkutu|nSeviyeler|TAKSON}}
=============================================================================]]
function p.nSeviyeler(frame)
	local currTaxon = frame.args[1] or ''
	if currTaxon == '' then return 'ERROR: no taxon supplied' end
	local i = 1
	local inHierarchy = true -- still in the taxonomic hierarchy or off the top?
	while inHierarchy and i < MaksAramaSeviyesi  do
		local ok, parent = p.getirTaksonBilgiOgesi(frame, currTaxon, 'ebeveyn')
		if ok and parent ~= '' then
			currTaxon = parent
			i = i + 1
		else
			inHierarchy = false
		end
	end
	if inHierarchy then return MaksAramaSeviyesi .. '+'
	else return i
	end
end

--[[=========================== siralaHepsi =================================
External utility function primarily intended for use in checking and debugging.
Returns a comma separated list of a taxonomic hierarchy, starting from
the supplied taxon.
Kullanımı: {{#invoke:Ototaksonkutu|siralaHepsi|TAKSON}}
=============================================================================]]
function p.siralaHepsi(frame)
	local currTaxon = frame.args[1] or ''
	if currTaxon == '' then return 'ERROR: no taxon supplied' end
	return l.doListAll(l.yapTablo(frame, currTaxon))
end

function l.doListAll(taxonTable, taxonRankTable)
	local lst = taxonTable[1] .. '-' .. tostring(taxonRankTable[1])
	for i = 2, taxonTable.n, 1 do
		lst = lst .. ', ' .. taxonTable[i] .. '-' .. taxonRankTable[i]
	end
	return lst
end

--[[============================== cogulSira ================================
Kullanımı: {{#invoke:Ototaksonkutu|cogulSira|SIRA}}
=============================================================================]]

function p.getirCogulSira(deger)
	local islem = veri.getirTabloyaGore(deger, "çeviri sıra")
	return veri.getirTabloyaGore(islem, "çoğul sıra") or
		"<strong class='error'>"
		.."Tanınamayan sıra: ".. deger .." <small>[[Modül:Ototaksonkutu/veri|değiştir]]</small>[[Kategori:Otomatik taksonkutu temizleme]]"
		.."</strong>"
end

function p.cogulSira(frame)
	return p.getirCogulSira(frame.args[1])
end

--[[============================== altSira ==================================
Kullanımı: {{#invoke:Ototaksonkutu|altSira|SIRA}}
=============================================================================]]

function p.getirAltSira(deger)
	local islem = veri.getirTabloyaGore(deger, "çeviri sıra")
	return veri.getirTabloyaGore(islem, "alt sıra") or
		"<strong class='error'>"
		.."Tanınamayan sıra: ".. deger .." <small>[[Modül:Ototaksonkutu/veri|değiştir]]</small>[[Kategori:Otomatik taksonkutu temizleme]]"
		.."</strong>"
end

function p.altSira(frame)
	return p.getirAltSira(frame.args[1])
end

--[[============================= esasSira ==================================
Kullanımı: {{#invoke:Ototaksonkutu|esasSira|SIRA}}
=============================================================================]]

function l.getirEsasSira(deger)
	local yazi = mw.ustring.gsub(mw.ustring.gsub( mw.getContentLanguage():lc(deger), "ichno", "" ), "oo", "")
	return veri.getirTabloyaGore(yazi, "esas sıra") or "hayır"
end

function p.esasSira(frame)
	return l.getirEsasSira(frame.args[1])
end

--[[=========================== ceviriSira ==================================
Kullanımı: {{#invoke:Ototaksonkutu|ceviriSira|SIRA|KONTROL}}
=============================================================================]]

function l.getirCeviriSira(deger, kontrol)
	local yazi = deger
	local sayfaAdi = mw.title.getCurrentTitle().text
	if mw.ustring.sub( mw.getContentLanguage():lc(yazi), 1, 7 ) == "sırasız" then
		yazi = "(sırasız)"
	else
		yazi = mw.ustring.gsub( yazi, "/(.*)", "" )
		if veri.getirTabloyaGore(yazi, "çeviri sıra") then
			yazi = veri.getirTabloyaGore(yazi, "çeviri sıra")
		else
			yazi = (kontrol == "evet" and "<span style='background-color:#F99'>" or "") .. yazi
				.. (kontrol == "evet" and "</span>" or "")
				.. (mw.ustring.gsub( sayfaAdi, "/(.*)", "" ) == "Taksonomi"
					and "[[Kategori:Tanınmayan sıra kullanan taksonomi şablonları]]" or "")
		end
	end
	
	if kontrol == "evet" and mw.ustring.gsub( sayfaAdi, "/(.*)", "" ) == "Taksonomi" then
		yazi = yazi .. (mw.getContentLanguage():lcfirst(deger) == deger and ""
						or "[[Kategori:Baş harfi büyük sıra adı kullanan taksonomi şablonları]]")
	end
	
	return mw.getContentLanguage():ucfirst(yazi)
end

function p.ceviriSira(frame)
	return l.getirCeviriSira(frame.args[1], frame.args[2] or "hayır")
end

--[[=========================== italikTakson ================================
Kullanımı: {{#invoke:Ototaksonkutu|italikTakson|TAKSON|VİRÜS}}
=============================================================================]]

function p.getirItalikTakson(deger, virus)
	if virus == "evet" then
		return veri.getirTabloyaGore(deger, "italik virüs") or "evet"
	else
		return veri.getirTabloyaGore(deger, "italik takson") or "hayır"
	end
end

function p.italikTakson(frame)
	return p.getirItalikTakson(frame.args[1], frame.args[2] or "hayır")
end

--[[=========================================================================
Modülde kullanılan fonksiyonlar
=============================================================================]]

--[[= = = = = = = = = = = = = = = = Önyükleme  = = = = = = = = = = = = = = = =

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]

function p.onyukleme(frame)
	return l.taksonomiOlustur("Denimilia")
end

function l.onyukleme(takson)
	local bir = l.secIlk(takson)
	local iki = l.secSon(takson)
	local uc = mw.ustring.find(iki, "/") and l.secSon(iki) or ""
	iki = mw.ustring.find(iki, "/") and l.secIlk(l.secSon(takson)) or iki

	local sonuc
	if iki == "?" or uc == "?" then
		sonuc = "önyükleme/?" .. (iki == "?" and uc or "")
	elseif mw.getContentLanguage():lc(bir) == "incertae sedis" or mw.getContentLanguage():lc(bir) == "belirsiz yerleştirme" then
		sonuc = "önyükleme/belirsiz_yerleştirme"
	else
		sonuc = iki ~= "" and "aynısı" or "önyükleme"
	end
	
	return sonuc
end

function l.secIlk(baslik)
	return mw.ustring.gsub(baslik, "/+[^/]*", "")
end

function l.secSon(baslik)
	return mw.ustring.gsub(baslik, "^[^/]*/*", "")
end

function l.taksonomiOlustur(takson, mesaj)
	local sonuc = "|-\n|"
	
	if l.secSon(mw.title.getCurrentTitle().text) == takson then
		sonuc = sonuc .. "Şu anda oluşturduğunuz takson:"
	else
		sonuc = sonuc .. "<span style='color: Red;'>"..(mesaj or "Tanınmayan takson").."</span> (<span class=plainlinks>"
			.. "[".. l.taksonomiOlusturBag(takson) .." düzenle]</span>):"
	end
	
	sonuc = sonuc .. "\n|[["..takson.."]]"
		.. ((mw.title.getCurrentTitle().namespace == 0 or mw.title.getCurrentTitle().nsText == "Şablon")
			and "[[Kategori:Otomatik taksonkutu temizleme]]" or "") .. "\n|-"
	
	return sonuc
end

function l.taksonomiOlusturBag(takson)
	return "//tr.wikipedia.org/w/index.php?action=edit&title=Şablon:Taksonomi/"
		.. mw.uri.encode(mw.getContentLanguage():ucfirst(takson))
		.. "&preload=Şablon:Taksonomi/"
		.. l.onyukleme(takson)
end

--[[= = = = = = = = = = = = birTaksonuDuzenle  = = = = = = = = = = = = = = = =

= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.birTaksonuDuzenle(taksonAdi)
	local baglanti = "<span class='plainlinks' style='font-size:small; float:right'>&nbsp;&#91;"
	
	if taksonAdi then
		baglanti = baglanti .. "[[Şablon:Taksonomi/" .. taksonAdi .. "|Taksonomi]];"
			.. " [//tr.wikipedia.org/w/index.php?title=Şablon:Taksonomi/" .. mw.uri.encode(taksonAdi)
			.. "&action=edit değiştir]&#93;</span>"
	end
	
	return baglanti
end

--[[= = = = = = = = = = = = kirpFazlaliklar  = = = = = = = = = = = = = = = = =
Internal utility function to strip off any extra parts of a taxon name, i.e.
anything after a '/'. Thus 'Felidae/?' would be split into 'Felidae' and '?'.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.kirpFazlaliklar(taxonName)
	local i = mw.ustring.find(taxonName, '/', 1, true)
	if i then
		return mw.ustring.sub(taxonName, 1, i-1), mw.ustring.sub(taxonName, i, -1)
	else
		return taxonName, ''
	end
end

--[[= = = = = = = = = = = = splitTaxonName  = = = = = = = = = = = = = = = = =
Internal utility function to split a taxon name into its parts and return
them. Possible formats include:
* taxon
* taxon (disambig)
* taxon (Subgenus)
* taxon/qualifier
* combinations, e.g. taxon (disambig)/qualifier
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.ayirTaksonAdlari(taxon)
	-- get any qualifier present
	local qualifier = ''
	local i = mw.ustring.find(taxon, '/', 1, true)
	if i then
		qualifier = mw.ustring.sub(taxon, i+1, -1)
		taxon = mw.ustring.sub(taxon, 1, i-1)
	end
	-- get any disambiguator or subgenus
	local disambig = ''
	local subgenus = ''
	i = mw.ustring.find(taxon, ' (', 1, true)
	if i then
		local parenTerm = mw.ustring.sub(taxon, i+2, -2)
		taxon = mw.ustring.sub(taxon, 1, i-1)
		local char1 = mw.ustring.sub(parenTerm, 1, 1)
		if char1 == mw.ustring.lower(char1) then
			disambig = parenTerm
		else
			subgenus = parenTerm
		end
	end
	return taxon, disambig, subgenus, qualifier
end

--[[= = = = = = = = = = = = matchTaxonLink  = = = = = = = = = = = = = = = = =
Function to determine whether the taxon name derived from the name of the 
taxonomy template (passed in the parameter taxon) matches the link text
(passed in the parameter linkText).
The taxon name may have any of the formats:
* baseTaxon/qualifier
* baseTaxon (disambig)
* baseTaxon (Subgenus) [distinguished by the capital letter]
* a qualifier may be present after the previous two formats.

Examples of matches (baseTaxon ~ linkText):
* Pinus ~ Pinus
* Pinus sect. Trifoliae ~ Pinus sect. Trifoliae
* Pinus sect. Trifoliae ~ ''Pinus'' sect. ''Trifoliae'' [italic markers ignored]
* Pinus sect. Trifoliae ~ P. sect. Trifoliae [abbreviated genus name matches]
* Bombus (Pyrobombus) ~ Bombus (Pyrobombus)
* Bombus (Pyrobombus) ~ B. (Pyrobombus)
* Bombus (Pyrobombus) ~ Pyrobombus [link text may just be the subgenus]
* Heteractinida ~ "Heteractinida" [double-quotes are ignored in link text]
* "Heteractinida" ~ Heteractinida [double-quotes are ignored in base taxon name]
* Incertae sedis ~ anything [link text is ignored for matching in this case]
* Cetotheriidae with qualifier=? ~ Cetotheriidae (?)
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.matchTaxonLink(taxon, linkText, rankBelowGenus)
	local dummy
	linkText, dummy = mw.ustring.gsub(linkText, "''", '') -- remove any italic wikitext in the link text
	linkText, dummy = mw.ustring.gsub(linkText, '<.->', '') -- strip all tags used to format the link text
	linkText, dummy = mw.ustring.gsub(linkText, '"', '') -- remove any occurrences of " in the link text
	local baseTaxon, disambig, subgenus, qualifier = l.ayirTaksonAdlari(taxon) -- split up the taxon name
	baseTaxon, dummy = mw.ustring.gsub(linkText, '"', '') -- remove any occurrences of " in the base taxon name
	local match = linkText == baseTaxon or
	              linkText == subgenus or
	              linkText == baseTaxon .. ' (' .. subgenus .. ')' or
	              linkText ==  mw.ustring.sub(baseTaxon, 1, 1) .. '. (' .. subgenus .. ')' or
	              baseTaxon == 'Incertae sedis' or
	              rankBelowGenus and linkText == mw.ustring.gsub(baseTaxon, '([A-Z]).- (.*)', '%1. %2') or 
	              mw.ustring.find(qualifier, '?', 1, true) and mw.ustring.find(linkText, baseTaxon, 1, true) == 1
	return match
end

--[[= = = = = = = = = = = = yapKaynaklariGoster  = = = = = = = = = = = = = = =
Show the refs field in a taxonomy template.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.yapKaynaklariGoster(taxonName, refs)
	if mw.text.split(taxonName, '/', true)[1] == 'Incertae sedis' then
		refs = 'gösterilemez (<i>incertae sedis</i>)'
	elseif refs == '' then
		refs = '–'
	end
	return refs
end

--[[= = = = = = = = = = = = = makeTable = = = = = = = = = = = = = = = = = = =
Internal utility function to return a table (array) constructed from a
taxonomic hierarchy stored in "Şablon:Taksonomi/..." templates.
TABLE.n holds the total number of taxa; TABLE[1]..TABLE[TABLE.n] the taxon
names.
The last taxon in the table will either (a) have a taxonomy template but with
no parent given (e.g. 'Life') or (b) not have a taxonomy template.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.yapTablo(frame, currTaxon)
	local taxonTable = {}
	local taxonRankTable = {}
	local ok, rank, parent
	local i = 1
	local topReached = false -- reached the top of the taxonomic hierarchy?
	repeat
		taxonTable[i] = currTaxon
		ok, rank = p.getirTaksonBilgiOgesi(frame, currTaxon, 'sıra')
		if ok then taxonRankTable[i] = string.lower(rank) else taxonRankTable[i] = '' end
		ok, parent = p.getirTaksonBilgiOgesi(frame, currTaxon, 'ebeveyn')
		if ok and parent ~= '' then
			currTaxon = parent
			i = i + 1
		else
			topReached = true -- reached the top of the hierarchy or tried to use a non-existent taxonomy template
		end
	until topReached or i > MaksAramaSeviyesi
	taxonTable.n = math.min(i, MaksAramaSeviyesi)
	return taxonTable, taxonRankTable
end

--[[= = = = = = = = = = = = getRankTable  = = = = = = = = = = = = = = = = = =
Internal utility function to set up a table of numerical values corresponding
to 'Linnaean' ranks, with upper ranks having higher values. In a valid
taxonomic hierarchy, a lower rank should never have a higher value than a
higher rank. The actual numerical values are arbitrary so long as they are
ordered.
The ranks should correspond to those in Şablon:Taksonkutu/Çeviri sıralama.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.getirSiraTablosu()
	return {
		['sınıf'] = 1400,
		cohort = 1100,
		['bölüm'] = 1500,
		domain = 1700,
		familya = 800,
		forma = 100,
		['cins'] = 600,
		grandordo = 1005,
		['grandordo-mb'] = 1002,
		hyperfamilia = 805;
		['infrasınıf'] = 1397,
		infralegio = 1197,
		['infratakım'] = 997,
		['infraşube'] = 1497,
		infraalem = 1597,
		infraoymak = 697,
		legio = 1200,
		magnordo = 1006,
		['mikroşube'] = 1495,
		['mikrotakım'] = 995,
		mirordo = 1004,
		['mirordo-mb'] = 1001,
		nanophylum = 1494,
		nanordo = 994,
		['takım'] = 1000,
		parafamilia = 800,
		parvclassis = 1396; -- same as subterclassis
		parvordo = 996,
		['şube'] = 1500,
		alem = 1600,
		seksiyon = 500,
		--seri = 400, used too inconsistently to check
		['tür'] = 300,
		['altsınıf'] = 1398,
		subcohort = 1098,
		['altbölüm'] = 1498,
		altfamilya = 798,
		altcins = 598,
		sublegio = 1198,
		['alttakım'] = 998,
		['altşube'] = 1498,
		altalem = 1598,
		altseksiyon = 498,
		['alttür'] = 298,
		subterclassis = 1396; -- same as parvclassis
		altoymak = 698,
		['üstsınıf'] = 1403,
		supercohort = 1103,
		['üstbölüm'] = 1503,
		superdomain = 1703,
		['üstfamilya'] = 803,
		superlegio = 1203,
		['üsttakım'] = 1003,
		['üstşube'] = 1503,
		['üstalem'] = 1603,
		['üstoymak'] = 703,
		oymak = 700,
		varyete = 200,
		zoodivisio = 1300,
		zoosectio = 900,
		zoosubdivisio = 1298,
		zoosubsectio = 898,
	}
end

--[[= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
Function to look up the arbitrary numerical value of a rank in a rank value
table. "Ichno" and "oo" ranks are not stored separately, so if present the
prefix is removed.
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.araSiraDegeri(rankValTable, rank)
	local rankVal = rankValTable[rank]
	if not rankVal then
		-- may be an "ichno" or "oo" ranks
		rank = mw.ustring.gsub(mw.ustring.gsub(rank, '^ichno', ''), '^oo', '')
		if rank == 'rdo' then rank = 'ordo' end
		rankVal = rankValTable[rank]
	end
	return rankVal
end

--[[= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =
= = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = = =]]
function l.tabloHucresi(arg1, arg2)
	local text, style
	if arg2 then
		style = arg1
		text = arg2
	else
		style = ''
		text = arg1
	end
	local res = '|'
	if style ~= '' then
		res = res .. style .. '|'
	end
	return res .. text .. '\n'
end

return p