Modul:Aux

Die Dokumentation für dieses Modul kann unter Modul:Aux/Doku erstellt werden

local p = {}

function findInTable(vObject, tObject)
	if type(tObject) == type({}) then
		for i, v in ipairs(tObject) do
			if mw.dumpObject(v) == mw.dumpObject(vObject) then
				return mw.dumpObject(i)
			end
		end
	end
	return nil
end

function getLang()
	return mw.language.getContentLanguage():getCode()
end

function writeDate(sISO, sEtc)
	if not (type(sISO) == type("")) then
		return nil
	end
	sISO = mw.ustring.match(sISO, "%S.*")
	local sY = mw.ustring.match(sISO, "^[-]?[0-9]+")
	sY = (
		mw.ustring.gsub(sY, "[0-9]*", "") ..
		mw.ustring.gsub(mw.ustring.sub(mw.ustring.gsub(
			sY, "[^0-9]*", ""
		), 1, -2), "^0*", "") ..
		mw.ustring.sub(mw.ustring.gsub(sY, "[^0-9]*", ""), -1)
	)
	sISO = mw.ustring.gsub(sISO, "^[-]?[0-9]+", "")
	if not tonumber(sY) then
		return nil
	end
	sISO = mw.ustring.gsub(sISO, "^%s*[-]%s*", "")
	local nM = tonumber(mw.ustring.match(sISO, "^[0-9]+"))
	sISO = mw.ustring.gsub(sISO, "^[0-9]+", "")
	if not nM then
		if mw.ustring.match(sISO, "^%s*$") then
			if not (mw.ustring.gsub(sY, "[0-9]+", "") == "") then
				return mw.ustring.gsub(sY, "^[^0-9]+", "") .. " v. Chr" .. (
					sEtc and mw.ustring.match(sEtc, "^.") == "." and "" or "."
				)
			else
				return sY
			end
		else
			return nil
		end
	elseif nM > 12 then
		return nil
	end
	sISO = mw.ustring.gsub(sISO, "^%s*[-]%s*", "")
	local nD = tonumber(mw.ustring.match(sISO, "^[0-9]+"))
	sISO = mw.ustring.gsub(sISO, "^[0-9]+", "")
	local tM = {
		"Jenna";
		"Feba";
		"Meaz";
		"Aprui";
		"Mai";
		"Juni";
		"Juli";
		"August";
		"Septemba";
		"Oktoba";
		"Novemba";
		"Dezemba";
	}
	local s = ""
	if not (mw.ustring.gsub(sY, "[0-9]+", "") == "") then
		s = s .. mw.ustring.gsub(sY, "^[^0-9]+", "") .. " v. Chr" .. (
			sEtc and mw.ustring.match(sEtc, "^.") == "." and "" or "."
		)
	else
		s = s .. sY
	end
	if not nD then
		if mw.ustring.match(sISO, "^%s*$") then
			return tM[nM] .. " " .. s
		else
			return nil
		end
	elseif nD > ({
		31;
		(tonumber(mw.ustring.sub(sY,-2)) % 4 == 0) and 29 or 28;
		31;
		30;
		31;
		30;
		31;
		31;
		30;
		31;
		30;
		31;
	})[nM] then
		return nil
	else
		local tMm = tM
		if mw.ustring.match(sISO, "^%s*$") then
			return nD .. ". " .. tMm[nM] .. " " .. s
		else
			return nil
		end
	end
end

function writeLang(sLang)
	if (not sLang) or sLang == getLang() then
		return nil
	else
		sLang = mw.language.fetchLanguageName(sLang, getLang()) or sLang
	end
	return sLang
end

function p.evalAnd(frame)
	local vR = ""
	if type(frame) == type({}) then
		if 
			(type(frame.getParent) == type(type)) and 
			(type(frame:getParent()) == type({})) and
			(type(frame:getParent().args) == type({}))
		then
			for i, v in ipairs(frame:getParent().args) do
				if v and not (v == "") then
					vR = v
				else
					return ""
				end
			end
		end
		if type(frame.args) == type({}) then
			for i, v in ipairs(frame.args) do
				if v and not (v == "") then
					vR = v
				else
					return ""
				end
			end
		end
	end
	return vR
end

function p.evalOr(frame)
	if type(frame) == type({}) then
		if 
			(type(frame.getParent) == type(type)) and 
			(type(frame:getParent()) == type({})) and
			(type(frame:getParent().args) == type({}))
		then
			for i, v in ipairs(frame:getParent().args) do
				if v and not (v == "") then
					return v
				end
			end
		end
		if type(frame.args) == type({}) then
			for i, v in ipairs(frame.args) do
				if v and not (v == "") then
					return v
				end
			end
		end
	end
	return ""
end

function p.findValue(frame)
	local tArg = {}
	if type(frame) == type({}) then
		if 
			(type(frame.getParent) == type(type)) and 
			(type(frame:getParent()) == type({})) and
			(type(frame:getParent().args) == type({}))
		then
			for i, v in pairs(frame:getParent().args) do
				tArg[i] = v
			end
		end
		if type(frame.args) == type({}) then
			for i, v in pairs(frame.args) do
				tArg[i] = v
			end
		end
	end
	if tArg["value"] then
		return findInTable(tArg["value"], tArg) or ""
	end
	return ""
end

function p.getWebRef(frame)
	local tArg = {}
	if type(frame) == type({}) then
		if 
			(type(frame.getParent) == type(type)) and 
			(type(frame:getParent()) == type({})) and
			(type(frame:getParent().args) == type({}))
		then
			for i, v in pairs(frame:getParent().args) do
				tArg[i] = v
			end
		end
		if type(frame.args) == type({}) then
			for i, v in pairs(frame.args) do
				tArg[i] = v
			end
		end
	end
	if tArg["url"] and tArg["title"] and writeDate(tArg["accessdate"]) then
		local vR = ""
		if tArg["author"] then
			vR = vR .. tArg["author"] .. ": "
		end
		vR = vR .. "''[" .. tArg["url"] .. " " .. tArg["title"] .. "]''"
		if tArg["cotitle"] then
			vR = vR .. " " .. tArg["cotitle"]
		end
		vR = vR .. "."
		if tArg["work"] then
			vR = vR .. " In: ''" .. tArg["work"] .. "''."
		end
		if tArg["publisher"] then
			vR = vR .. " " .. tArg["publisher"] .. "."
		end
		if writeLang(tArg["language"]) or tArg["format"] then
			local s = ""
			if writeLang(tArg["language"]) then
				s = s .. writeLang(tArg["language"])
			end
			if tArg["format"] then
				s = s .. (s == "" and "" or ", ") .. tArg["format"]
			end
			vR = vR .. " (" .. s .. ")"
		end
		if writeDate(tArg["date"]) then
			vR = vR .. " " .. writeDate(tArg["date"], ".") .. "."
		end
		vR = vR .. " Obgruafa am " .. writeDate(tArg["accessdate"], ".") .. "."
		if tArg["archiveurl"] then
			local s = ""
			if writeDate(tArg["archivedate"]) then
				s = s .. " am " .. writeDate(tArg["archivedate"], ".")
			end
			vR = vR .. " [" .. tArg["archiveurl"] .. " Archiviert]" .. s .. "."
		end
		if tArg["quote"] then
			vR = vR .. " „" .. tArg["quote"] .. "“"
		end
		if tArg["comment"] then
			vR = vR .. " " .. tArg["comment"]
		end
		return vR
	else
		return ""
	end
end

return p