Zum Inhalt springen

Modul:Aux

Aus Wikipedia

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 getArgs(tFrame, bPreferParent, bAppend)
	local t, tI, tP, tPI = {}, {}, {}, {}
	if type(tFrame) == type({}) then
		if 
			(type(tFrame.getParent) == type(type)) and 
			(type(tFrame:getParent()) == type({})) and
			(type(tFrame:getParent().args) == type({}))
		then
			for i, v in pairs(tFrame:getParent().args) do
				if
					(type(i) == type(0)) and (i == math.floor(i)) and (i > 0)
				then
					tPI[i] = v
				else
					tP[i] = v
				end
			end
		end
		if type(tFrame.args) == type({}) then
			for i, v in pairs(tFrame.args) do
				if
					(type(i) == type(0)) and (i == math.floor(i)) and (i > 0)
				then
					tI[i] = v
				else
					t[i] = v
				end
			end
		end
	end
	if bPreferParent then
		tI, tPI = tPI, tI
		t, tP = tP, t
	end
	for i, v in pairs(t) do
		tP[i] = v
	end
	t = tP
	if bAppend then
		for i = 1, table.maxn(tPI) do
			tI[table.maxn(tI) + 1] = tPI[i]
		end
	else
		for i, v in pairs(tI) do
			tPI[i] = v
		end
		tI = tPI
	end
	for i, v in pairs(tI) do
		t[i] = v
	end
	return t
end

function getError(sDisplay, sCategory)
	sDisplay = sDisplay and tostring(sDisplay) or ""
	sCategory = sCategory and "[[Category:" .. tostring(sCategory) .. "]]" or ""
	return '<span class="error">' .. sDisplay .. sCategory .. '</span>'
end

function getInfo()
	return {
		modulename = "Module:Aux";
	}
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 = getArgs(frame)
	if tArg["value"] then
		return findInTable(tArg["value"], tArg) or ""
	end
	return ""
end

function p.getWebRef(frame)
	local tArg = getArgs(frame)
	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 tArg["pages"] then
			vR = vR .. " S. " .. tArg["pages"] .. "."
		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 getError(
		"[[" .. getInfo().modulename .. "]]",
		"Seiten, die fehlerhafte Argumente in Vorlagenaufrufen verwenden"
	)
	end
end

function p.supplyWebRef(frame)
	local tArg = getArgs(frame)
	local t = {
		sub = getInfo().modulename .. "/Refs";
	}
	if tArg[1] then
		repeat
			t.subname = t.sub
			t.sub = require(t.sub)
			t.sub = (type(t.sub) == type(type)) and t.sub
			if t.sub then
				if (type(t.sub(tArg[1])) == type({})) then
					return getWebRef({args = t.sub(tArg[1])})
				end
				t.sub = (type(t.sub(tArg[1])) == type("")) and t.sub(tArg[1])
			end
		until not t.sub
	end
	t.sub = t.subname or t.sub
	return getError(
		"[[" .. t.sub .. "]]",
		"Seiten, die fehlerhafte Argumente in Vorlagenaufrufen verwenden"
	)
end

function p.testArgs(frame)
	local s = ""
	local tArg = getArgs(frame)
	tArg = getArgs(frame, tArg.prefer, tArg.append)
	for i, v in pairs(tArg) do
		if type(mw.text[tArg.mw1text]) == type(type) then
			v = mw.text[tArg.mw1text](v)
		end
		if type(mw.text[tArg.mw2text]) == type(type) then
			v = mw.text[tArg.mw2text](v)
		end
		if type(mw.getCurrentFrame()[tArg.mw0frame]) == type(type) then
			v = mw.getCurrentFrame()[tArg.mw0frame](mw.getCurrentFrame(), v)
		end
		s = s .. "|" .. i .. "=" .. mw.ustring.sub(
			v,
			tonumber(tArg.start) or 1,
			tonumber(tArg["end"]) or -1
		)
	end
	return s
end

return p
Voh „https://bar.wikipedia.org/w/index.php?title=Modul:Aux&oldid=726302“