require('strict');local yesno = require('Module:Yesno')
local p = local g = -- for parameters with global scope in this moduleg.goalscorers = -- table where selected and sorted players will be placeg.args = g.totalGoals = 0local data = -- module subpage data -- require('Module:Goalscorers/data/UEFA Euro 2016 qualifying');
p.errorString = ""function p.error_msg if p.errorString ~= "" then return '
' -- '|_template=' .. p.errorString .. ''; endend-- data for goals scored held in module subpages, e.g. "Module:Goalscorers/data/UEFA Euro 2016 qualifying" --parameters containing data help in three tables data.rounds = -- group, play-off data.goalscorers = -- player, country, goals in each round) data.owngoalscorers = -- player, country, goals in each round) data.updated = -- date of latest update (month, day, year) ----
p.getArgs - gets arguments from frame (invoke) or parent frame (template)
local function getArgs(frame) local parents = mw.getCurrentFrame:getParent for k,v in pairs(parents.args) do --check content if v and v ~= "" then g.args[k]=mw.text.trim(v) --parents.args[k] end end for k,v in pairs(frame.args) do --check content if v and v ~= "" then g.args[k]= mw.text.trim(v) --parents.args[k] end end -- allow empty caption to blank default --if parents.args['caption'] then templateArgs['caption'] = parents.args['caption'] endend
--
p.main - simple output of the data in the module in list form p.addIntroductorySentence - add sentence on number of goals and matches, with goals per match p.addFooterSentence - add footnote p.getNumberMatches p.owngoals - get own goals (no longer used?) p._owngoals - core functionality for p.owngoals
function p.main(frame) getArgs(frame) local dataTarget = g.args[1] or g.args['data'] if dataTarget then data = require('Module:Goalscorers/data/'.. dataTarget) --or 'UEFA Euro 2016 qualifying' return p.useModuleData(frame) -- data on goals taken from module subpage else return p.useTemplateData(frame) -- data on goals/assists taken from template end endfunction p.useModuleData(frame)--p.goalscorers = -- table where selected and sorted players will be place g.totalGoals = 0 local ok = p.selectGoalscorers -- selected goalscorers meeting round and group criteris if not ok then return p.error_msg end -- CHANGE: append own goals to list (data will now include goals and own goals (negative)) p.selectGoalscorers("OG") p.sortGoalscorers -- sort selected goalscorers by number of goal, then country
local outputString = p.addIntroductorySentence .. p.outputGoalscorers(frame) .. p.addFooterSentence-- .. "" --TODO add intermediate heading?-- .. p._owngoals(frame) -- output list of goalscorers return p.error_msg or outputStringend
function p.addIntroductorySentence -- add introductory text local totalGoalString = "A total of " .. g.totalGoals .. " goals were scored." --There were [has been|have been|was|were] #GOALS goal(s) scored in #MATCHES match(s), for an average of #GOALS/#MATCHES per match. local matches, dateUpdated = p.getNumberMatches local mdyFormat = yesno(g.args['mdy']) local Date = require('Module:Date')._Date local pluralGoals = "s" local text1 = "" if g.totalGoals
'complete' then text1 = "was" else text1 = "has been" end else if dateUpdated
1 then pluralMatches = "" end if matches then local average = g.totalGoals/tonumber(matches) local precision = 3 -- display d.dd (three significant disgits) if average < 1 then precision = 2 end -- display 0.dd (thwo significant disgits) average = tostring (average)
local pluralAverage = "s" if tonumber(string.format("%.2f",average))
'complete' or dateUpdated
true then dateFormat = "mdy" else if mdyFormat
return text --totalGoalString endfunction p.addFooterSentence -- add notes at bottom local footerSentence = g.args['footer'] or "" --footerSentence = "This is a footer sentence." -- test footer if data.params then local footer = data.params['footer'] or nil if footer then local frame = mw.getCurrentFrame local processed = frame:preprocess(footer) if g.notes then footerSentence = footerSentence .. processed end end end if footerSentence ~= "" then footerSentence = '
' .. footerSentence .. '
' end return footerSentenceendfunction p.getNumberMatches local matches = g.args['matches'] local dateUpdated = data.updated['date'] or "1700-01-01" --'complete' -- assume completed if missing --local round = g.args['round'] or "all" -- round = all(empty)|group|playoffs --local group = g.args['group'] or "all" -- group = all(empty), A,B,C etc local round, group = p.getRoundAndGroup local allGroupGames = 0 local latestGroupDate = "1800-01-01" if group and (round
"all") then -- count all the group games for k,v in pairs(data.updated.group) do allGroupGames = allGroupGames + v[1] if v[2] ~= "complete" and v[2] > latestGroupDate then latestGroupDate = v[2] end -- update if later date end if latestGroupDate
"all" and group ~= "all") then -- for totals of all rounds with only one group allGroupGames = data.updated.group[group][1] -- number matches latestGroupDate = data.updated.group[group][2] -- update date or completed end if round
"group" then matches = matches + allGroupGames if latestGroupDate ~= "complete" and latestGroupDate > dateUpdated then dateUpdated = latestGroupDate -- update if later date end elseif p.validateRound(k) then matches = matches + v[1] if v[2] ~= "complete" and v[2] > dateUpdated then dateUpdated = v[2] end -- update if later date end end elseif round
"all" then matches = allGroupGames dateUpdated = latestGroupDate else -- single group only matches = data.updated.group[group][1] -- number matches dateUpdated = data.updated.group[group][2] -- update date or completed end else -- any other round matches = data.updated[round][1] -- number matches dateUpdated = data.updated[round][2] -- update date or completed end if dateUpdated
return matches, dateUpdatedend
function p.owngoals(frame) -- need to check parameters if external call getArgs(frame) data = require('Module:Goalscorers/data/'.. g.args[1]) --or 'UEFA Euro 2016 qualifying'
local outputString = p._owngoals(frame) return p.error_msg or outputStringendfunction p._owngoals(frame) -- internal call for own goals
--p.goalscorers = -- table where selected and sorted players will be place p.selectGoalscorers("OG") -- selected goalscorers meeting round and group criteris p.sortGoalscorers -- sort selected goalscorers by number of goal, then country
return p.outputGoalscorers(frame, "OG") -- output list of goalscorers endfunction p.validateRound(round) local validateRound = false for k,v in pairs(data.rounds) do if k
--
p.selectGoalscorers - select goals scoreers required for list (rounds, groups) p.getRoundAndGroup p.getGoalsCol(round) - get column containing round data or first data column if round = all (country, possibleGroup) p.getGoals (u, player) p.parseComment(comment) p.getPlayer(u)
--p.selectGoalscorers - select players meeting round and group criteria from goalscoreres list - gets goals and commentsfunction p.selectGoalscorers(og) local round, group = p.getRoundAndGroup if not round then return false end -- exit if no valid round local goalMinimum = tonumber(g.args['minimum']) or -5 -- assume 5 own goals is maximum local goalsCol = p.getGoalsCol(round) -- first column for goals -- select players who have scored in rounds/groups requested local goalscorerData = data.goalscorers if og"all" then -- goals in all rounds and all groups for i = goalsCol, #v, 1 do if group and group ~= "all" and i
goals = goals + goalsByRound --TODO use getGoals on round options if commentByRound ~= "" then if comment
"all2" and group ~= "all" then -- goals in all rounds but only from one group
--TODO code to go through all rounds but only include goals in specified group [TODO merge with above option] --mw.addWarning(g.args[1] .. ":Mix:round=all and group=" .. group .. "/" .. p.getGroup(v[2], v[3])) for i = goalsCol, #v, 1 do if i
"" then comment = commentByRound else comment = comment .. "," .. commentByRound --TODO decide on comma or semi-colon end end i = i+1 end elseif round
p.getGroup(v[2], v[3]) then -- single group only goals, comment = p.getGoals(v[goalsCol], playerName) elseif group
"playoffs" then -- playoff round (redunant?) -- goals = v[goalsCol] else -- any other round goals, comment = p.getGoals(v[goalsCol], playerName) -- should also handle playoffs end if goals >= goalMinimum and goals ~= 0 then if comment ~= "" then if og
round then validateRound = true end -- data for this round exists if k
false and round ~= "all" then local message = 'Invalid round "' .. round .. '" specified. No data found for that round. ' mw.addWarning(message) p.errorString = p.errorString .. message round = nil end if validateGroupRound
--p.getGoalsCol(round) - get column containing round data or first data column if round = "all" - allows group column to be omitted from player table when group table provided function p.getGoalsCol(round) local minimum = 1000 if round
--p.getGroup(country, possibleGroup) - get group from group table or from player table - possibleGroup is the column containing the Group (when no group table) or the first data columnfunction p.getGroup(country, possibleGroup) -- row contain player name, country code, group if given, goals if data.groups then for k,v in pairs(data.groups) do -- iterate through the groups --local = gotGroup = false for j,u in pairs(v) do -- for each group if u
'table' and type(u[1])
'number' then return u, "" -- return number of goals, empty string else p.errorString = p.errorString .. " Invalid goals entry for player " .. player return 0, "" endendfunction p.parseComment(comment) local frame = mw.getCurrentFrame
-- we have something like "" if string.find(comment, "efn", 1, true) then -- if we have a comment with a note g.notes = true -- set flag end return frame:preprocess(comment)end
function p.getPlayer(u) if type(u)
'string' and type(u[2])
'string' then return u, "" -- return player name else p.errorString = p.errorString .. " Invalid name entry for player " .. u or u[1] or "unknown" return "", "" endend
--
p.preprocessSortName (name) p.getPlayerSortName (playerName, sortName, countryName) p.sortComment(comment) p.getCountryName(country) p.sortGoalscorers -- the main sort funtion
--[=[ function p.preprocessSortName stripp off wikitext [[ and ]] force to lowercase change special characters to standard letters]=]function p.preprocessSortName (name) name = string.gsub(name, "%[%[", "") -- strip off [[ and ]] name = string.gsub(name, "%]%]", "") --name =string.lower(name) -- force lower case and return name = mw.ustring.lower(name) -- use unicode function
local specialChars = for k,v in pairs(specialChars) do -- replace special characters from supplied list name = string.gsub(name, v[1], v[2]) end
return name end--return the name for sorting return supplied alias name for sorting otherwise checks for pipe (redirect) and uses name after pipe splits name into words returns first name if only name (e.g. Nani) otherwise returns name in format second_name [.. last name], firstnamefunction p.getPlayerSortName (playerName, sortName, countryName) --dewikify all names before sorting, also forces lowercase playerName = p.preprocessSortName(playerName) sortName = p.preprocessSortName(sortName) if sortName ~= "" then -- if we have a sort name supplied return sortName -- then return it end -- players from certain countries will use name in order supplied local noSort = for k,v in pairs(noSort) do if v
local names = mw.text.split(playerName, " ") -- we don't want to sort on first name if #names
-- sort the list of countries alphabeticallyfunction p.sortComment(comment)
local items = mw.text.split(comment, ",") -- split comma-delimited list
for k,v in pairs(items) do items[k] = mw.text.trim(v) -- trim spaces and coe end table.sort(items, function(a,b) return a
local list = "against " -- construct the alphabetical list string for i=1, #items do local sep = ", " -- separator for comma-delimited list if i
#items then sep = " & " -- use "and" before last word end list = list .. sep .. items[i] end return list endfunction p.getCountryName(country) if string.len(country)
country then return v[2] end end else return country -- return the country name as is endend--function p.sortGoalscorers local sort_function = function(a,b) if (a.goals > b.goals) then -- primary sort on 'goals' -> a before b return true elseif (a.goals < b.goals) then -- primary sort on 'goals' -> b before a return false else -- a.goals
b.country -- secondary sort tied,
--return a.player < b.player --resolve with tertiary sort on 'player' name local player_a = p.getPlayerSortName(a.player, a.alias, a.country) -- get player name for sorting local player_b = p.getPlayerSortName(b.player, b.alias, b.country) return player_a < player_b -- -- --local test_a, test_b = a.player, b.player
-- we don't want to test the name in a redirect, so get name after pipe if there is one if string.find (a.player, "|") then -- test for redirect local names = mw.text.split(a.player, "|") test_a = names[2] -- get name after pipe end if string.find (b.player, "|") then local names = mw.text.split(b.player, "|") test_b = names[2] end local names_a = mw.text.split(test_a, " ") -- we don't want to sort on first name local names_b = mw.text.split(test_b, " ") -- so split names if not names_a[2] then names_a[2] = test_a end -- for players with one name if not names_b[2] then names_b[2] = test_b end return names_a[2] < names_b[2] -- sort on second name]] end end end table.sort(g.goalscorers, sort_function)
endfunction p.tabulateGoalscorers(frame, og) --
local tableString = '\n
| -' .. '\n!Rank | Player | Goals' -- add table headers if g.args['header'] then tableString = tableString .. '\n | + ' .. g.args['header'] end -- add header for j,u in pairs(g.goalscorers) do -- run through sorted list of selected goalscorers -- is the player active still? local playerActive = false if data.active_countries then for k,v in pairs(data.active_countries) do if v u['country'] then playerActive = true break; end end end local _,roundStatus = p.getNumberMatches if roundStatus"complete" then playerActive = false end -- overrides active_countries -- wikitext for tablulated list local goalscorerString = p.addLinkedIcon(frame, u['country']) -- linked flag icon if playerActive and g.args['bold']~='no' then goalscorerString = goalscorerString .. " " .. u['player'] .. ">" -- bolded name else goalscorerString = goalscorerString .. " " .. u['player'] -- name end goalscorerString = goalscorerString .. u['comment'] -- comment for o.g. -- we have a goalscorer playerCount = playerCount + 1 rankCount = rankCount + 1 if u['goals'] < goalNumber then -- player belongs to rowspan for new number of goals -- need to generate code for the previous rowspan (if there is one) -- then start the counts and player list for the new one if playerCount 1 then firstplayerCell = '\n | ' .. goalscorerString -- if first player in list just create cell and set goals goalNumber = u['goals'] --rank = 1 rankCount = 0 else -- else generate previous rowspan local rowSpan = rankCount if playerCount > maxRank * 1.5 then firstplayerCell = '\n | ' .. rankCount .. " players" playerCells = "" rowSpan = 1 end tableString = tableString .. '\n | -\n | ' .. rank --if rankCount > 1 then tableString = tableString .. "=" end -- adds equals when rank shared tableString = tableString .. firstplayerCell tableString = tableString .. '\n | ' .. goalNumber tableString = tableString .. playerCells rank = rank + rankCount if rank > maxRank then break end -- limit list top ten or value in parameter rankCount = 0 goalNumber = u['goals'] firstplayerCell = '\n | ' .. goalscorerString -- set first player cell for next rowspan playerCells = "" end else -- else another player with same number of goals playerCells = playerCells .. '\n | -' .. '\n | ' .. goalscorerString -- add to player cell list end end -- reached end of list of goalscorers if tableString ~= "" then tableString = tableString .. "\n |
|---|
--
"OG" then if goalNumber < 0 then goalString = " own" .. goalString end if math.abs(u['goals']) ~= 1 then goalString = goalString .. "s" end
outputString = outputString .. "\n" .. math.abs(u['goals']) .. goalString .. "" -- list caption outputString = outputString .. p.openList(frame,og) --start new list listOpen = true --goalNumber = u['goals'] end -- is the player active still? local playerActive = false if data.active_countries then for k,v in pairs(data.active_countries) do if v
"complete" then playerActive = false end -- overrides active_countries -- wikitext for bullet list local goalscorerString = '\n*
' .. p.addLinkedIcon(frame, u['country']) -- linked flag icon if playerActive and g.args['bold']~='no' then goalscorerString = goalscorerString .. " " .. u['player'] .. "" -- bolded name else goalscorerString = goalscorerString .. " " .. u['player'] -- name end goalscorerString = goalscorerString .. u['comment'] .. '' -- comment for o.g. outputString = outputString .. goalscorerString -- .. " " .. tostring(u['goals'])end -- reached end of list of goalscorers
if outputString ~= "" then outputString = outputString .. p.closeList(frame)
return outputString else return (" No goals matching requested criteria.") endend
-- output icon linked to national team pagefunction p.addLinkedIcon(frame, country) local icon = data.templates['flag_icon_linked'] -- fbicon etc set in data module local level = data.templates['youth_level'] or "" -- parameter for youth level, ie under-21 -- equivalent to local flagVariant = "" if data.templates.flagvar and data.templates.flagvar[country] then flagVariant = data.templates.flagvar[country] end if level ~= "" then return frame:expandTemplate else return frame:expandTemplate -- flag icon endend-- formatting of list under each number of goalsfunction p.openList(frame,og)
return mw.getCurrentFrame:extensionTag .. '
' -- perhaps add "column-count:3;"" to limit max number of columns?endfunction p.closeList(frame) return '
'endfunction p.firstToUpper(str) return (str:gsub("^%l", string.upper))end
-- handles parameters bold, further, extrafunction p.addAdditionHeaderText(text, dateUpdated) if g.args['inlineref'] then text = text .. g.args['inlineref'] end if g.args['bold'] and g.args['bold']~='no' then text = text .. " Players highlighted in bold are still active in the competition." end if g.args['further'] then if text ~= "" then text = text .. " " end text = text .. g.args['further'] end if g.args['extra'] then text = text .. "\n\n" .. g.args['extra'] end return textend-- count number of goals for data in templatefunction p.countGoals(list, number, totalGoals)
local split = mw.text.split(list, "\n", true) -- split the list for number of goals scorers with N goals local count = #split * math.abs(number) -- calculate number of goals (including own goals) totalGoals = totalGoals + count --mw.addWarning("Entry: " .. list .. "[" .. count .. "]")
return totalGoals end
--use data supplied by template
--function p.list(frame)function p.useTemplateData(frame) --getArgs(frame) --}}}||There scored in, for an average of per match .}} --]] local statNumber = g.args['goals'] or g.args['assists'] or 0 local matches = g.args['matches'] local statType = "goal" if g.args['assists'] then statType = "assist" end if g.args['clean sheets'] then statType = "clean sheet" end local ongoing = g.args['ongoing'] local text1 = "There" if g.args['lc'] then text1 = "there" end local text2 = "were" if ongoing then text2 = "have been" end local updateString = "" local averageString = "" local goalPlural = "s" -- goal(s) if g.args['goals'] and tonumber(g.args['goals'])
1 then matchPlural = "" end -- auto version: string.format(" in %d match%s, for an average of %."..precision.."g goal%s per match", matches, pluralMatches, average, pluralAverage) if g.args['goals'] and g.args['matches'] then local averageGoals = g.args['goals']/g.args['matches'] local avGoalPlural = "s" if averageGoals
|}}
local output = (text"") and "" or "\n" local number = 30 local totalGoals = 0 while number > -4 do -- for the each goals/assists local entry = g.args[number .. ' goals'] or g.args[number .. ' goal'] or g.args[number .. ' assists'] or g.args[number .. ' assist'] or g.args[number .. ' clean sheets'] or g.args[number .. ' clean sheet'] if number < 0 then entry = g.args[math.abs(number) .. ' own goals'] or g.args[math.abs(number) .. ' own goal'] statType = "own goal" end local plural = "s" if number
-1 then plural = "" end if entry then -- do we have goals/assists for this number
output = output .. "\n" .. tostring(math.abs(number)) .. " " .. statType .. plural .. "\n" .. p.openList(frame) .. "\n" .. entry .. p.closeList(frame) totalGoals = p.countGoals(entry, number, totalGoals) end number = number -1 end if statType
"own goal" then if g.args['goals'] and totalGoals ~= tonumber(g.args['goals']) then mw.addWarning("WARNING. Mismatch between number of goals listed (" .. totalGoals .. ") and goals parameter (" .. g.args['goals'] .. ").") end end -- local footerText = g.args['footer-text'] or g.args['bottom'] or "" local footerHeading = g.args['footer-heading'] or g.args['bottom-text'] or "" local footer = "" if footerText ~= "" then local heading = "" if footerHeading ~= "" then heading = '
' .. footerHeading .. '
' end footer = '\n' .. heading .. p.openList(frame) .. '\n' .. footerText .. p.closeList(frame) end -- local source = g.args['source'] or "" if source ~= "" then source = "Source: " .. source .. "" endreturn text .. output .. footer .. sourceendreturn p