Module:Grand Slam Track/sandbox

This is the module sandbox page for Module:Grand Slam Track (diff).
p = {}

local P_POINTINTIME = 'P585'
local P_PARTICIPANTOF = 'P1344'
local P_SPORTSDISCIPLINE = 'P2416'
local P_COMPETITIONCLASS = 'P2094'
local P_RANK = 'P1352'
local P_RACETIME = 'P2781'

local Q_SHORTSPRINTS = 'Q133805007'
local Q_LONGSPRINTS = 'Q133805012'
local Q_SHORTHURDLES = 'Q133805023'
local Q_LONGHURDLES = 'Q133805093'
local Q_SHORTDISTANCE = 'Q133805111'
local Q_LONGDISTANCE = 'Q133805125'

local slams = {'Q133804597'} -- in chronological order

p.gst = function(frame)
  local qid = frame.args[1]
  local ent = mw.wikibase.getEntity(qid)
  local participantOfClaims = ent['claims'][P_PARTICIPANTOF] or {}
  local output = ''
  output = output .. '|-\n'
  output = output .. '!scope="col" | Slam !!scope="col" | Race group !!scope="col" | Event !!scope="col" | <abbr title="Place">Pl.</abbr> !!scope="col" | Time\n'
  
  local slamSet = {}
  for _, slamQid in ipairs(slams) do
      slamSet[slamQid] = true
  end

  for i, pc in ipairs(participantOfClaims) do
      local mainsnak = pc.mainsnak

      -- mw.logObject(mw.wikibase.renderSnak(pc['mainsnak']))
      if mainsnak.snaktype == 'value' and slamSet[mainsnak.datavalue.value.id] and pc['qualifiers'] then
          local qs = pc['qualifiers']
          output = output .. '|-\n'
          output = output .. '| '

          -- Slam
          output = output .. 'rowspan=2| '
          output = output .. '[[' .. mw.wikibase.renderSnak(pc['mainsnak']) .. ']]'
          output = output .. ' || '

          -- Race group
          output = output .. 'rowspan=2| '
          if qs[P_COMPETITIONCLASS] then
              local cc = mw.wikibase.renderSnak(qs[P_COMPETITIONCLASS][1])
              output = output .. cc:sub(1, 1):upper() .. cc:sub(2)
          end
          output = output .. '\n'

          for j = 1,2 do
              -- Event
              output = output .. '| '
              if qs[P_SPORTSDISCIPLINE] and qs[P_SPORTSDISCIPLINE][j] then
                  output = output .. mw.wikibase.renderSnak(qs[P_SPORTSDISCIPLINE][j])
              end
              output = output .. ' || '

              -- Place
              if qs[P_RANK] and qs[P_RANK][j] then
                  output = output .. mw.wikibase.renderSnak(qs[P_RANK][j])
              end
              output = output .. ' || '
            
              -- Time
              if qs[P_RACETIME] and qs[P_RACETIME][j] then
                  output = output .. mw.wikibase.renderSnak(qs[P_RACETIME][j])
              end
              output = output .. '\n|-\n'
          end
      end
  end
  output = output .. '|}\n'
  return output
end
return p