Modul:Wiki

Diese Modul stellt MediaWiki-Funktionen bereit, die so schneller erreichbar sind, als dass man sie erst durch den Parser z.B. via frame:callParserFunction() schicken müsste.

Unterseiten

• Wiki/Doku

Siehe auch

• Modul:String

---

local p = {}
local str = require("Modul:String")

function p.fullpagename()
	return tostring(mw.title.getCurrentTitle())
end

function p.pagename()
	local fullpagename = p.fullpagename()
	local split = str.split2(fullpagename, ":")
	return split[#split] -- letztes Element in der table nach Doppelpunkt
end

function p.subpagename()
	local pagename = p.pagename()
	local split = str.split2(pagename, "/")
	return split[#split] -- letztes Element in der table nach letztem Slash
end

function p.setPagenames(table)
--	mw.log("setPagenames(table)")
--	mw.logObject(table)
	local pagesnames = {}
	-- fullpagename
	pagesnames.fullpagename = tostring(mw.title.getCurrentTitle())
	-- pagename
	local split = str.split2(pagesnames.fullpagename, ":")
	pagesnames.pagename = split[#split] -- letztes Element in der table nach Doppelpunkt
	-- subpagename
	split = str.split2(pagesnames.pagename, "/")
	pagesnames.subpagename = split[#split] -- letztes Element in der table nach letztem Slash
	-- table setzen
	if type(table) == "table" then
		table.fullpagename = pagesnames.fullpagename
		table.pagename = pagesnames.pagename
		table.subpagename = pagesnames.subpagename
	end
--	mw.logObject(table)
--	mw.logObject(pagesnames)
	return pagesnames
end

function p.pageExists(page)
	return page ~= nil and page ~= "" and string.find(page, "[#<>%[%]%|%{%}]") == nil and mw.title.new(tostring(page)).exists
end

function p.getArgs(args, argslist)
	local result = {}
	local empty = true
	for _, a in ipairs(argslist) do
		local v = args[a] or ""
		if v ~= "" then
			result[a] = v
			empty = false
		end
	end
	return result, empty
end

function p.wikiTextLimit(text, limit)
	-- liefert längenbegrenzten Wikitext zurück
	-- schneidet bei Leerzeichen ab
	-- beachtet dabei Links [http:/... linktext] [[page|linktext]]
	-- Kommandozeile zum Debuggen: =p.wikiTextLimit("12345 7890", 9)
	local text_limited = ""
	local text_cumul = ""
	local text_cumul_len = 0
	local text_cumul_predelim_len = 0
	local bracket_count = 0
	local link_text = false
	local link_delim_found = false
	local text_len = mw.ustring.len(text)
	for i = 1, text_len do
		char = mw.ustring.sub(text, i, i)
		if char == "[" and bracket_count < 2 then								-- Klammer auf
			bracket_count = bracket_count + 1
			text_cumul_predelim_len = text_cumul_len
		elseif char == "]" and bracket_count > 0 then							-- Klammer zu
			bracket_count = bracket_count - 1
			link_text = false
			if not link_delim_found then										-- bis dahin Leerzeichen bzw. Pipe nicht gefunden?
				text_cumul_len = text_cumul_predelim_len						-- dann Text hinzuzählen
			elseif bracket_count == 0 then
				link_delim_found = false
			end
		elseif (char == " " and bracket_count == 1) or							-- [http:/... linktext] Leerzeichen-Erkennung
			   (char == "|" and bracket_count == 2) then						-- [[page|linktext]] Pipe-Erkennung
			link_text = true													-- ab hier wieder Text
			link_delim_found = true
		else
			if bracket_count == 0 or link_text then								-- normaler Text
				text_cumul_len = text_cumul_len + 1
				if char == " " then												-- Auf Leerzeichen getroffen
					text_limited = text_cumul
				end
			end
			text_cumul_predelim_len = text_cumul_predelim_len + 1				-- Auf Verdacht Link mitzählen
		end
		if text_cumul_len > limit then
			break
		end
		text_cumul = text_cumul .. char
--[[		mw.log(
			"i=" .. i .. " char=" .. char .. " bracket=" .. bracket_count ..
			" link_text=" .. tostring(link_text) ..
			" link_delim_found=" .. tostring(link_delim_found) ..
			" text_cumul=" .. text_cumul ..
			" text_cumul_len=" .. text_cumul_len ..
			" text_cumul_predelim_len=" .. text_cumul_predelim_len ..
			" text_limited=" .. text_limited) ]]
	end
	if text_cumul_len <= limit then
		text_limited = text
	end
--	mw.log("textLimit(\"" .. text .. "\", " .. limit .. ")=\"" .. text_limited .. "\"")
	return text_limited
end

return p