Moduł:Przypisy

Z Wikibooks, biblioteki wolnych podręczników.
Przejdź do nawigacji Przejdź do wyszukiwania
Template-info.png Dokumentacja modułu [zobacz] [edytuj] [historia] [odśwież]

Moduł techniczny do obsługi szablonów {{przypisy}} i {{uwagi}}.

Przypisy

Funkcja generująca sekcję lub treść sekcji przypisów lub uwag.

Parametry

Pole Do czego służy? {{Przypisy}} {{Uwagi}}
wzór Wyrażenie regularne do wykrywania nagłówka sekcji przed wywołanym szablonem z parametrami ===?%s*Przypisy%s*===?%s+{{((}}%s*[Pp]rzypisy%s*{{!}}. ===?%s*Uwagi%s*===?%s+{{((}}%s*[Uu]wagi%s*{{!}}.
wzór0 Wyrażenie regularne do wykrywania nagłówka sekcji przed wywołanym szablonem bez parametrów ===?%s*Przypisy%s*===?%s+{{((}}%s*[Pp]rzypisy%s*{{))}}. ===?%s*Uwagi%s*===?%s+{{((}}%s*[Uu]wagi%s*{{))}}.
wzór1 Wyrażenie regularne do wykrywania nagłówka sekcji przed wywołanym szablonem z parametrami ===?%s*Przypisy%s*===?%s+{{((}}%s*[Gg]rupa przypisów%s*{{!}}. ===?%s*Uwagi%s*===?%s+{{((}}%s*[Gg]rupa uwag%s*{{!}}.
wzór2 Wyrażenie regularne do wykrywania nagłówka sekcji przed wywołanym szablonem bez parametrów ===?%s*Przypisy%s*===?%s+{{((}}%s*[Gg]rupa przypisów%s*{{))}}. ===?%s*Uwagi%s*===?%s+{{((}}%s*[Gg]rupa uwag%s*{{))}}.
nagłówek Nagłówek sekcji, przy nie ustawionej zmiennej: group lub o nazwie pustej, w rodzicu, do wstawienia, jeśli nie zostanie wykryty za pomocą podanego wyrażenia regularnego == Przypisy == == Uwagi ==
nagłówek0 Nagłówek sekcji, przy ustawionej zmiennej: group lub o nazwie pustej w rodzicu, do wstawienia, jeśli nie zostanie wykryty za pomocą podanego wyrażenia regularnego == Grupa przypisów == == Grupa uwag ==
kategoria Link do kategorii błędu dodawanej jeśli wykryte zostanie użycie nieudokumentowanego pola w szablonie. [[Kategoria:Szablon:Przypisy %s do sprawdzenia]] [[Kategoria:Szablon:Uwagi %s do sprawdzenia]]
kategoria0 Link do kategorii błędu dodawanej jeśli wykryte zostanie użycie nieudokumentowanego pola w szablonie. [[Kategoria:Szablon:Grupa przypisów %s do sprawdzenia]] [[Kategoria:Szablon:Grupa uwag %s do sprawdzenia]]
kategoria1 Link do kategorii jest, jeśli są przypisy (uwagi) z oczekiwanym nagłówkiem. [[Kategoria:Szablon:Przypisy %s z oczekiwanym nagłówkiem]] [[Kategoria:Szablon:Uwagi %s z oczekiwanym nagłówkiem]]
kategoria2 Link do kategorii jest, jeśli są przypisy (uwagi) bez oczekiwanego nagłówka. [[Kategoria:Szablon:Przypisy %s bez oczekiwanego nagłówka]] [[Kategoria:Szablon:Uwagi %s bez oczekiwanego nagłówka]]
kategoria3 Link do kategorii jest, jeśli są grupy przypisów (uwag) z oczekiwanym nagłówka. [[Kategoria:Szablon:Grupy przypisów %s z oczekiwanym nagłówkiem]] [[Kategoria:Szablon:Grupy uwag %s z oczekiwanym nagłówkiem]]
kategoria4 Link do kategorii jest, jeśli są grupy przypisów (uwag) bez oczekiwanego nagłówka. [[Kategoria:Szablon:Grupy przypisów %s bez oczekiwanego nagłówka]] [[Kategoria:Szablon:Grupy uwag %s bez oczekiwanego nagłówka]]
grupa Domyślna nazwa grupy przypisów. Brak uwaga

Błędy

Błędy należy zgłaszać na stronie Wikibooks:Kwestie techniczne.


return {
	
["Przypisy"] = function(frame)
	--mw.logObject(frame:getParent():getTitle(), "parent:title")
	local parametry_modul=require("Module:Parametry");
	local nazwy_modul=require("Module:Nazwy");
	local pudelko_modul=require("Module:Pudełko");
	local czy_wyspecializowane=parametry_modul.CzyTak(frame.args["wyspecjalizowana"]);
	local pf = (czy_wyspecializowane)and frame or frame:getParent();
	local nazwa_przestrzeni_nazw=pudelko_modul["Nazwa przestrzeni nazw 2"](frame);
	local nazwa_jednostki=pudelko_modul["Nazwa jednostki 2"](frame);
	local uchwyt_strony=mw.title.makeTitle(nazwa_przestrzeni_nazw,nazwa_jednostki);
	uchwyt_strony=((uchwyt_strony)and(uchwyt_strony.exists))and uchwyt_strony or mw.title.getCurrentTitle();
	
	local frame2=pf:newChild{args={["obsługiwane jednostki jako nieopisowe strony"]="tak",
		                           ["nazwa przestrzeni nazw"]=uchwyt_strony.nsText,
		                           ["nazwa jednostki"]=uchwyt_strony.text,
	                               }
	                       }
	local typ_jednostki=pudelko_modul["Typ jednostki 2"](frame2)
	local typ_strony_w_nawiasach;
	if(typ_jednostki=="artykuł")then 
		typ_strony_w_nawiasach="(artykuły)";
	elseif(typ_jednostki=="artykuł dla dzieci")then 
		typ_strony_w_nawiasach="(artykuły dla dzieci)";
	elseif(typ_jednostki=="strona użytkownika")then
		typ_strony_w_nawiasach="(strony użytkowników)";
	elseif(typ_jednostki=="strona brudnopisu projektu")then
		typ_strony_w_nawiasach="(strony brudnopisu projektu)";
	else
		typ_strony_w_nawiasach="";
	end;
	
	local result = {}
	
	local patternX = frame.args["wzór"]
	local pattern0 = frame.args["wzór0"] or patternX
    local pattern1 = frame.args["wzór1"]
	local pattern2 = frame.args["wzór2"] or pattern1
	local section = frame.args["nagłówek"]
	local section0 = frame.args["nagłówek0"]
	local category = (frame.args["kategoria"])and string.format(frame.args["kategoria"],typ_strony_w_nawiasach) or nil;
	local category0 = (frame.args["kategoria0"])and string.format(frame.args["kategoria0"],typ_strony_w_nawiasach) or nil;
	local category1 = (frame.args["kategoria1"])and string.format(frame.args["kategoria1"],typ_strony_w_nawiasach) or nil;
	local category2 = (frame.args["kategoria2"])and string.format(frame.args["kategoria2"],typ_strony_w_nawiasach) or nil;
	local category3 = (frame.args["kategoria3"])and string.format(frame.args["kategoria3"],typ_strony_w_nawiasach) or nil;
	local category4 = (frame.args["kategoria4"])and string.format(frame.args["kategoria4"],typ_strony_w_nawiasach) or nil;
	local defaultGroup = frame.args["grupa"]

	local hasIgnoredFields = false

	-- grupa  przekazywana w polu o pustej nazwie
	-- aby docelowo zwolnić wszystkie nazwy na przypisy
	local group = pf.args[""]
	if group and string.match(group, "^=*$") then
		-- z wyjątkiem błednych wywołań w stylu "=="
		hasIgnoredFields = true
		group = nil
	end
	
	-- alternatywnie do czasu przebotowania z pola o nazwie "grupa"
	if not group then
		group = pf.args["grupa"]
		if group and (#group == 0) then
			group = nil
		end
	end
	
	local function noArgs()
		for k, v in pairs(pf.args) do
			return false
		end
		
		return true
	end
	local function missingHeader(pattern, section_or_section0)
		local stronicowyparser_modul=require("Module:StronicowyParser");
		local spreparowany_wikikod_strony=stronicowyparser_modul.SpreparowanyWikikodStrony(uchwyt_strony.fullText);
		---mw.log(tekst_rozwinietej_strony);
		local czy_dopasowano_wedlug_wzorca=mw.ustring.match(spreparowany_wikikod_strony, pattern);
		return
			pattern -- wymagany wzór na wyszukiwanie wywołania z nagłówkiem
			and section_or_section0-- wymagany nagłówek do wstawienia
			and pattern~="" --wyrażenie regularne do sprawdzania, czy występują oczekiwane niepuste nagłówki sekcji
			and section_or_section0~="" --wstawiany nagłówek sekcji, gdy nie ma oczekiwanych niepustych nagłówków
			and not czy_dopasowano_wedlug_wzorca;
	end
	--mw.logObject(pattern, "pattern")
    local args=pf.args;
    local parametry_modul=require("Module:Parametry");
    local z_kategoria=not parametry_modul.CzyTak(args["bez kategorii"]);
	local function cat(category0, category1)
	    local pattern=noArgs() and ((not group)and pattern0 or pattern2) or ((not group)and patternX or pattern1)
	    local section_or_section0=(((not group)and(section)) or (group and(section0)))
		if missingHeader(pattern,section_or_section0) then
			if((not args["stopień nagłówka"])or((args["stopień nagłówka"])and(mw.ustring.find(args["stopień nagłówka"],"^=+$"))))then
				table.insert(result, section_or_section0)
				table.insert(result, "\n")
			end;
		    if z_kategoria then
				if(parametry_modul.CzyTak(category1))then
					table.insert(result,category1)
				end;
			end;
		elseif z_kategoria then
			if(parametry_modul.CzyTak(category0))then
					table.insert(result,category0)
			end;
		end;
	end
	if(not group)then
		cat(category1,category2)
	elseif(group~="")then
		cat(category3,category4)
	end
	table.insert(result, '<div class="do-not-make-smaller refsection')
	if group or defaultGroup then
		local groupClass, _ = (group or defaultGroup) == "uwaga" and "uwagi" or string.gsub(group or defaultGroup, ' ', '_')
		table.insert(result, " refsection-")
		table.insert(result, groupClass)
	end
	table.insert(result, '">')
	
	-- to jest lista powszechnie występujących pól
	-- w wywołaniach szablonów przypisów i/lub uwag
	local exceptions = {
		"", -- to jest docelowo jedyne wyjątkowe pole
		"colwidth", -- kopia z enwiki?
		"group", -- kopia z enwiki?
		"grupa",
		"poziom",
		"przypis",
		"przypisy",
		"Przypisy",
		"refs", -- kopia z enwiki?
		"status",
		"stopien",
		"stopień",
		"Stopień",
		"stopnień",
		"uwagi",
	}
	local ignore = {}
	for i, v in ipairs(exceptions) do
		ignore[v] = true
	end
	
	local contents = {}
	for k, v in pairs(args) do
		if (type(k) == "number") and (k == 1) then
			--mw.logObject( {k, v}, "pole {{{1}}} puste lub z przypisami w stylu <ref name=...>")
			table.insert(contents, v)
		elseif(k=="stopień nagłówka")then
			-- gdy poziom nagłówka oznaczany przez parametr w szablonie: stopień nagłówka
			if(not string.match(v,"^=*$"))then 
				 -- wchodzę, gdy wartość parametru stopień nagłówka nie składa się z samych równości lub nie jest wartością pustą
				 hasIgnoredFields=true;
	        end;
	    elseif(k=="bez kategorii")then
		elseif ignore[k] then
		-- !!! TO WYŁĄCZĘ PO PRZEBOTOWANIU !!!
		       hasIgnoredFields = k ~= "";
			-- pole ignorowane
			--mw.logObject( {k, v}, "ignorowane pole z potencjalnymi przypisami w stylu <ref name=...>")
			table.insert(contents, v)
		elseif (type(k) == "string") then
			-- pole podanej nazwie tłumaczymy na przypis o takiej samej nazwie
			local ref = frame:extensionTag('ref', v, {name=k, group=group or defaultGroup})
			--mw.logObject( {k, v, ref}, "indywidualny przypis")
			table.insert(contents, ref)
		else
			-- pole indeksowane
			--mw.logObject( {k, v}, "indeksowane pole z potencjalnymi przypisami w stylu <ref name=...>")
			table.insert(contents, v)
			hasIgnoredFields = true
		end
	end
	
	local references = frame:extensionTag('references', table.concat(contents), {group=group or defaultGroup, responsive="1"})
	
	table.insert(result, references)
	table.insert(result, '</div>')
	if z_kategoria and hasIgnoredFields and category and category ~="" then
		--mw.logObject({hasIgnoredFields, category}, "hasIgnoredFields and category")
		if(not group)then 
			table.insert(result, category) 
		else 
			table.insert(result, category0) 
		end
	end
	
	--mw.logObject(table.concat(result), "result")
	return table.concat(result)
end,
}