Redigerer Modul:Article

local scrubs
scrubs = {
	["scrub-tags"] = function(text)
		return mw.ustring.gsub(text, '%b<>', '' )
	end,
	["scrub-templates"] = function(text)
		return mw.ustring.gsub(text, '%b{}', '' )
	end,
	["scrub-extlinks"] = function(text)
		return mw.ustring.gsub(text, '%[[htps]*:?//%w[^%s]+%s*([^%]]*)%]', '%1' )
	end,
	["scrub-magics"] = function(text)
		return mw.ustring.gsub(text, '__[_%w]+__', '' )
	end,
	["scrub-links"] = function(text)
		local text = mw.ustring.gsub(text, '%[%[[^|%]]+%|([^%]]+)%]%]', '%1' )
		text = mw.ustring.gsub(text, '%[%[([^|%]]+)%]%]', '%1' )
		return text
	end,
	["scrub-sections"] = function(text)
		return mw.ustring.gsub(text, '==+[^=\n]+==+', '' )
	end,
	["scrub-all"] = function(text)
		text = scrubs["scrub-tags"](text)
		text = scrubs["scrub-templates"](text)
		text = scrubs["scrub-links"](text)
		text = scrubs["scrub-extlinks"](text)
		text = scrubs["scrub-magics"](text)
		text = scrubs["scrub-sections"](text)
		return text
	end
}

local tests
tests = {
	["length"] = function(text)
		return mw.ustring.len( text )
	end,
	["extlinks"] = function(text)
		local count = 0
		for line in string.gmatch(text, '%[[htps]*:?//%w[^%s]+%s*([^%]]*)%]') do
			count = 1 + count
		end
		return count
	end,
	["links"] = function(text)
		mw.log('enter links')
		local count = 0
		for line in string.gmatch(text, '%[%[[^|%]]+%|[^%]]+%]%]') do
			count = 1 + count
		end
		for line in string.gmatch(text, '%[%[[^|%]]+%]%]') do
			count = 1 + count
		end
		return count
	end,
	["lines"] = function(text)
		local count = 0
		for line in string.gmatch(text, '([^\n]+)') do
			if mw.ustring.find( line, '%w', init, plain ) then
				count = 1 + count
			end
		end
		return count
	end,
	["words"] = function(text)
		local count = 0
		for line in string.gmatch(text, '([^%s]+)') do
			if mw.ustring.find( line, '%a', init, plain ) then
				count = 1 + count
			end
		end
		return count
	end,
	-- anslag
	["characters"] = function(text)
		local _,count = mw.ustring.gsub(text, '%s', '')
		return mw.ustring.len( text ) - count
	end
}

local p = {}
p.tests=tests
p.scrubs = scrubs

function p._stats(content, args)
	for k,v in ipairs(args) do
		local num = tonumber(k)
		if num and num ~= 1 then
			if scrubs[v] then
				content = scrubs[v](content)
			end
		end
	end
	local acc = 0
	for k,v in pairs(args) do
		local num = tonumber(k)
		if not num and k then
			if tests[k] then
				acc = acc + tonumber(v) * tests[k](content)
			end
		end
	end
	return acc
end

function p.stats(frame)
	return p._stats(mw.title.getCurrentTitle():getContent(), (frame or mw.getCurrentFrame()).args)
end

return p