Modul:dara dûnde/ceribandin

Belgekirina modulê[nîşan bide] [biguhêre] [rojane bike]

Ev belge ji Modul:dara dûnde/ceribandin/belge hatiye girtin.

Testcases

Test retrieval of alternative forms:

• Erebî: كتاب‎
  • → Farisî: کتاب‎ (ketâb)
    • → Asamî: কিতাপ (kitap)
    • → Bengalî: কিতাব (kitab)
    • → Gujaratî: કિતાબ (kitāb)
    • → Hindiya kevn: कतेब (kateba)
      • Hindustani:

        Hindî: किताब

        Urdûyî: کِتَاب‎ (kitāb)

    • → Maithilî:

      Devanagari: किताप, किताब

      Tirhuta: 𑒏𑒱𑒞𑒰𑒣, 𑒏𑒱𑒞𑒰𑒥

    • → Oriyayî: କିତାବ (kitabô)
    • → Old Punjabi: ਕਤੇਬ (katēb)
      • Puncabî:

        Gurmukhi: ਕਿਤਾਬ (kitāb)

        Shahmukhi: کِتاب‎ (kitāb)

    • → Sindhî:

      Erebî: ڪِتابُ‎

      Devanagari: किताबु

  • → Kurmancî: kitêb
  • → Tirkî: kitap
• Proto-cermenî: *fuhsaz
  • Proto-cermeniya rojava: *fuhs
    • Îngilîziya kevn: fox
    • Frîsiya kevn: *foks
      • Frîsiya bakur: foos
      • Frîsiya saterlandî: Foaks
      • Frîsî: foks
    • Saksoniya kevn: fohs, fuhs
      • Almaniya jêrîn a navîn: vos, vōs
        • Nedersaksî:
          • Saksoniya jêrîn ya holendî: vos
          • Almaniya jêrîn a almanî: Voss, Voß
        • Plodîşî: Foss
        • → Îzlendî: fox
        • → Danmarkî: fos
    • Holendiya kevn: fus
    • Almaniya bilind a kevn: fuhs
      • Almaniya bilind a navîn: vuhs
        • Almanî: Fuchs
        • Bayerî: [Peyv?]

          Cimbrî: buks

          Mòçenoyî: [Peyv?]

        • Elmanîşî: Fuchs, Fugs

          Swabî: [Peyv?]

        • Frankoniya navendî: [Peyv?]

          Hunsrikî: Fuchs

          Luksembûrgî: Fuuss

        • Almaniya navendî ya rojhilat: [Peyv?]

          Wîlamowî: füks

        • Frankiya rojhilatî: [Peyv?]
        • Frankoniya rhine: [Peyv?]

          Almaniya Pennsylvania: Fux

        • Yidîşî: פֿוקס‎ (fuks)
• Proto-cermeniya rojava: *fuhs
  • Îngilîziya kevn: fox
  • Frîsiya kevn: *foks
    • Frîsiya bakur: foos
    • Frîsiya saterlandî: Foaks
    • Frîsî: foks
  • Saksoniya kevn: fohs, fuhs
    • Almaniya jêrîn a navîn: vos, vōs
      • Nedersaksî:
        • Saksoniya jêrîn ya holendî: vos
        • Almaniya jêrîn a almanî: Voss, Voß
      • Plodîşî: Foss
      • → Îzlendî: fox
      • → Danmarkî: fos
  • Holendiya kevn: fus
  • Almaniya bilind a kevn: fuhs
    • Almaniya bilind a navîn: vuhs
      • Almanî: Fuchs
      • Bayerî: [Peyv?]

        Cimbrî: buks

        Mòçenoyî: [Peyv?]

      • Elmanîşî: Fuchs, Fugs

        Swabî: [Peyv?]

      • Frankoniya navendî: [Peyv?]

        Hunsrikî: Fuchs

        Luksembûrgî: Fuuss

      • Almaniya navendî ya rojhilat: [Peyv?]

        Wîlamowî: füks

      • Frankiya rojhilatî: [Peyv?]
      • Frankoniya rhine: [Peyv?]

        Almaniya Pennsylvania: Fux

      • Yidîşî: פֿוקס‎ (fuks)

local export = {}

local function track(page)
	--[[Special:WhatLinksHere/Template:tracking/descendants tree/PAGE]]
	return require("Module:debug").track("descendants tree/" .. page)
end


local function language_header_error(entry_name, language_name)
	mw.log("No header for " .. language_name .. " was found in the entry [["
			.. entry_name .. "]].")
	track("language header not found")
end

-- TODO: support id's in headword templates one day
local function make_senseid_pattern(lang_code, id)
	return "{{senseid|"
			.. require("Module:string").pattern_escape(lang_code) .. "|"
			.. id .. "}}"
end

function export.getAlternativeForms(lang, term, id)
	local entry_name = require("Module:links").getLinkPage(term, lang)
	local page = mw.title.new(entry_name)
	local content = page:getContent()
	
	if not content then
		-- FIXME, should be an error
		track("alts-nonexistent-page")
		return ""
	end
	
	local _, index = string.find(content,
		"==[ \t]*" .. require("Module:string").pattern_escape(lang:getCanonicalName()) .. "[ \t]*==")
	
	if not index then
		language_header_error(entry_name, lang:getCanonicalName())
		-- FIXME, should be an error
		track("alts-lang-not-found")
		return ""
	end

	if id then
		content, foundsenseid = string.gsub(content, "^.*" .. make_senseid_pattern(lang:getCode(), id) .. "(.*)", "%1")
		if foundsenseid == 0 then
			error("Could not find the correct senseid template in the entry [["
			.. entry_name .. "]] (with language " .. lang:getCode() .. " and id '" .. id .. "')")
		end
		index = 0
	end
	
	local _, next_lang = string.find(content, "\n==[^=\n]+==", index, false)
	local _, index = string.find(content, "\n(====?=?)[ \t]*Alternative forms[ \t]*%1", index, false)
	
	local langCodeRegex = require("Module:string").pattern_escape(lang:getCode())
	index = string.find(content, "{{alter|" .. langCodeRegex .. "|[^|}]+", index)
	if (not index) or (next_lang and next_lang < index) then
		-- FIXME, should be an error
		track("alts-alter-not-found")
		return ""
	end
	
	local next_section = string.find(content, "\n(=+)[^=]+%1", index)
	
	local alternative_forms_section = string.sub(content, index, next_section)
	
	local parameters_list
	
	-- This assumes that there are no nested templates in {{alter}}.
	for alternative_form_template_parameters in string.gmatch(alternative_forms_section,
		"{{alter|" .. langCodeRegex .. "|(.-)}}") do
		local double_pipe_pos = string.find(alternative_form_template_parameters, "||", 1, true)
		local term_parameters = string.sub(alternative_form_template_parameters, 1,
			double_pipe_pos and double_pipe_pos - 1)
		
		if term_parameters then
			parameters_list = mw.text.split(term_parameters, "|")
			break
		end
	end
	
	if not parameters_list or #parameters_list == 0 then
		-- FIXME, should be an error
		track("alts-alter-no-params")
		return ""
	end
	
	local terms_list = {}
	
	local items = {
		t = {},
		id = {},
		alt = {},
		tr = {},
		ts = {},
		g = {}
	}
	
	for _, parameter in ipairs(parameters_list) do
		local parameterName, value = string.match(parameter, "^([^=]+)=(.+)$")
		if parameterName and value then
			local item_type, index = string.match(parameterName, "(%D+)(%d)")
			if item_type and index and items[item_type] then
				items[item_type][tonumber(index)] = value
			elseif parameterName == "sc" then
				items.sc = value
			elseif items[parameterName] then
				items[parameterName][1] = value
			end
		else
			table.insert(terms_list, parameter)
		end
	end
	
	local i = 1
	while true do
		local term = terms_list[i]
		local alt, tr, ts, g, t = items.alt[i], items.tr[i], items.ts[i], items.g[i], items.t[i]
		if not (term or alt or tr or ts or g or t) then
			break
		end
		local sc
		if items.sc then
			sc = require "Module:scripts".getByCode(items.sc)
		end
		terms_list[i] = require("Module:links").full_link({
			term = term,
			lang = lang,
			sc = sc,
			alt = alt,
			tr = tr,
			ts = ts,
			genders = g,
			gloss = t
		}, nil, true)
		i = i + 1
	end
	
	return ", " .. table.concat(terms_list, ", ")
end

function export.getDescendants(lang, term, id, noerror)
	local entry_name = require("Module:links").getLinkPage(term, lang)
	local page = mw.title.new(entry_name)
	local content = page:getContent()
	
	if not content then
		-- FIXME, should be an error
		track("desctree-nonexistent-page")
		return ""
	end
	
	-- Ignore columns and blank lines
	content = string.gsub(content, "{{top%d}}%s", "")
	content = string.gsub(content, "{{mid%d}}%s", "")
	content = string.gsub(content, "{{bottom}}%s", "")
	content = string.gsub(content, "\n?{{(desc?%-%l+)|?[^}]*}}",
		function (template_name)
			if template_name == "desc-top" or template_name == "desc-bottom" or template_name == "des-top" or template_name == "des-mid" or template_name == "des-bottom" then
				return ""
			end
		end)
	content = string.gsub(content, "\n%s*\n", "\n")
	
	local _, index = string.find(content,
		"%f[^\n%z]==[ \t]*" .. lang:getCanonicalName() .. "[ \t]*==", nil, true)
	if not index then
		_, index = string.find(content, "%f[^\n%z]==[ \t]*"
				.. require("Module:utilities").pattern_escape(lang:getCanonicalName())
				.. "[ \t]*==", nil, false)
	end
	if not index then
		language_header_error(entry_name, lang:getCanonicalName())
		-- FIXME, should be an error
		track("desctree-lang-not-found")
		return ""
	end

	if id then
		content, foundsenseid = string.gsub(content, "^.*" .. make_senseid_pattern(lang:getCode(), id) .. "(.*)", "%1")
		if foundsenseid == 0 then
			error("Could not find the correct senseid template in the entry [["
			.. entry_name .. "]] (with language " .. lang:getCode() .. " and id '" .. id .. "')")
		end
		index = 0
	end

	local _, next_lang = string.find(content, "\n==[^=\n]+==", index, false)
	local _, index = string.find(content, "\n(====*)[ \t]*Descendants[ \t]*%1", index, false)
	if not index then
		if noerror then
			track("desctree-no-descendants")
			return nil
		else
			error("No Descendants section was found in the entry [[" .. entry_name .. "]].")
		end
	elseif next_lang and next_lang < index then
		if noerror then
			track("desctree-no-descendants-in-lang-section")
			return nil
		else
			error("No Descendants section was found in the entry [[" .. entry_name
					.. "]] under the header for " .. lang:getCanonicalName() .. ".")
		end
	end
	
	-- Skip past final equals sign.
	index = index + 1
	
	-- Skip past spaces or tabs or HTML comments.
	while true do
		local new_index = string.match(content, "^[ \t]+()", index)
			or string.match(content, "^<!%-%-.-%-%->()", index)
		if not new_index then
			break
		end
		index = new_index
	end
	
	local items = require("Module:array")()
	local frame = mw.getCurrentFrame()
	local previous_list_markers = ""
	
	-- Skip paragraphs at beginning of Descendants section.
	while true do
		local new_index = content:match("^\n[^%*:=][^\n]*()", index)
		if not new_index then
			break
		else
			index = new_index
		end
	end
	
	previous_index = 1
	
	-- Find a consecutive series of list items that begins directly after the
	-- Descendants header.
	-- start_index and previous_index are used to check that list items are
	-- consecutive.
	for start_index, list_markers, item, index in string.gmatch(content:sub(index), "()\n([%*:]+) *([^\n]+)()") do
		if start_index ~= previous_index then
			break
		end
		
		-- Preprocess, but replace recursive calls to avoid template loop errors
		item = string.gsub(item, "{{desctree|", "{{#invoke:etymology/templates|descendants_tree|")
		item = frame:preprocess(item)
		
		local difference = #list_markers - #previous_list_markers
		
		if difference > 0 then
			for i = #previous_list_markers + 1, #list_markers  do
				items:insert(list_markers:sub(i, i) == "*" and "<ul>" or "<dl>")
			end
		else
			if difference < 0 then
				for i = #previous_list_markers, #list_markers + 1, -1 do
					items:insert(previous_list_markers:sub(i, i) == "*" and "</li></ul>" or "</dd></dl>")
				end
			else
				items:insert(previous_list_markers:sub(-1, -1) == "*" and "</li>" or "</dd>")
			end
			
			if previous_list_markers:sub(#list_markers, #list_markers) ~= list_markers:sub(-1, -1) then
				items:insert(list_markers:sub(-1, -1) == "*" and "</dl><ul>" or "</ul><dl>")
			end
		end
		
		items:insert(list_markers:sub(-1, -1) == "*" and "<li>" or "<dd>")
		
		items:insert(item)
		
		previous_list_markers = list_markers
		previous_index = index
	end
	
	for i = #previous_list_markers, 1, -1 do
		items:insert(previous_list_markers:sub(i, i) == "*" and "</li></ul>" or "</dd></dl>")
	end
	
	return items:concat()
end

return export