Quelltext der Seite Modul:Navbox os

local _NAVBOX = require('Module:Navbox')._navbox
local _SMWUTIL = require('Module:SmwUtil')
local _TT = require('Module:TableTools')

-- helper vars, standing in for missing config
local navboxSep = '&nbsp;&nbsp;&bull;&nbsp; '

local p = {}

-- prename some function
local iosMatcher


local function compileNavbox(navboxData)

	local html = mw.html.create('')
	local navboxData = navboxData

	if not navboxData or _TT.size(navboxData) == 0 then
		return html
	end

	local navboxOrder = _TT.keysToList(navboxData, function(a, b) return a:upper() < b:upper() end )
	
	local arguments = {
		navbar = 'off',
		title = 'Übersicht Betriebssysteme',
		state = 'expanded',
	}
	
	local num = 1
	for _, family in pairs(navboxOrder) do
		if navboxData[family] and #navboxData[family] > 0 then
			arguments['group' .. num] = '[[' .. family .. ']]'
			arguments['list' .. num] = table.concat(navboxData[family], navboxSep)
			num = num + 1
		end
	end

	return html:node(_NAVBOX(arguments))
end


local function getNavboxData()
	local navboxData = {}
	local result = _SMWUTIL.ask(
		{ select = '[[Category:Betriebssysteme]]', fields = {'is member of os family#-=family', 'Was released in#-=year'} },
		{ mainlabel = 'pageName', sort='was released in', order='desc' }
	)
	--if true then return result end
	if result then
		for _, osdata in pairs(result) do
			if osdata.pageName and osdata.family then
				local osName = iosMatcher(osdata.pageName)
				local family = iosMatcher(osdata.family)
				if not navboxData[family] then
					navboxData[family] = {}
				end
				table.insert(navboxData[family], '[[' .. iosMatcher(osName) .. ']] (' .. tostring(osdata.year) .. ')')
			end
		end
	end
	
	return navboxData
end

iosMatcher = function(str)
	if str:match('^IOS.*') then
		str = 'i' .. str:sub(2)
	end
	return str
end

function p._main()
	local navboxData = getNavboxData()
	return tostring(compileNavbox(navboxData))
end

function p.main(frame)
	return p._main()
end

function p.dl(arg)
	return _main()
end

return p