require('Module:No globals'); local yesno = require('Module:Yesno') local p = {} local g = {} -- for parameters with global scope in this module g.goalscorers = {} -- table where selected and sorted players will be place g.args = {} g.totalGoals = 0 local data = {} -- module subpage data -- require('Module:Goalscorers/data/UEFA Euro 2016 qualifying'); p.errorString = "" function p.error_msg if p.errorString ~= "" then return ; end end -- 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) -- --############################ Parameter handing ############################### this section is currently unused will be used to take check parameters set in 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'] end end --############################## Main function and other functions ###################### main - simple output of the data in the module in list form 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 end function p.useModuleData(frame) --p.goalscorers = {} -- table where selected and sorted players will be place g.totalGoals = 0 p.selectGoalscorers -- selected goalscorers meeting round and group criteris -- CHANGEe: 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 outputString end 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
ate')._Date local pluralGoals = "s" local text1 = "" if g.totalGoals 1 then pluralGoals "" if dateUpdated 'complete' then text1 = "was" else text1 = "has been" end else if dateUpdated 'complete' then text1 "were" else text1 "have been" end end local text string.format("There %s %s goal%s scored", text1, mw.getLanguage('en'):formatNum(g.totalGoals), pluralGoals) local pluralMatches "es" if matches 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)) 1 then pluralAverage "" end text text .. string.format(" in %d match%s, for an average of %."..precision.."g goal%s per match", matches, pluralMatches, average, pluralAverage) end if dateUpdated 'complete' or dateUpdated "" then text text .. "." else local dateFormat 'dmy' -- default if data.params and data.params['date_format'] then dateFormat data.params['date_format'] end -- from data module if mdyFormat true then dateFormat = "mdy" else if mdyFormat == false then dateFormat = "dmy" end -- template param overrides end text = text .. " (as of " .. Date(dateUpdated):text(dateFormat) .. ")." end text = p.addAdditionHeaderText(text, dateUpdated) -- handles template parameters bold, further, extra return text --totalGoalString end function 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
reprocess(footer) if g.notes then footerSentence = footerSentence .. processed end end end if footerSentence ~= "" then footerSentence = end return footerSentence end function 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 allGroupGames = 0 local latestGroupDate = "1800-01-01" if round "all" or group "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 "1800-01-01" then latestGroupDate "complete" end -- no dates so must be complete end if round "all" then -- all rounds and goals matches=0 for k,v in pairs(data.updated) do if k "group" then matches matches + allGroupGames if latestGroupDate ~ "complete" and latestGroupDate > dateUpdated then dateUpdated latestGroupDate -- update if later date end else 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 "group" then -- group round only if group "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 "1700-01-01" then dateUpdated = "complete" end -- no dates so must be complete return matches, dateUpdated end 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 outputString end function 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 end -- select players meeting round and goal criteria function p.selectGoalscorers(og) --data = require('Module:Goalscorers/data/'.. g.args[1]) --or 'UEFA Euro 2016 qualifying' local goalMinimum = tonumber(g.args['minimum']) or -5 -- assume 5 own goals is maximum -- select all players with goals totals for appropriate rounds 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 goalsCol = p.getGoalsCol(round) -- 4 -- first column for goals --local groupCol = 3 -- default column for group if round then -- goalsCol = data.rounds[round] or data.rounds[1] or 4 -- get column containing goals for that round or first round listed if all end --groupCol = data.group[round] or 3 -- get column containing goals for that round -- select players who have scored in rounds/groups requested local goalscorerData = data.goalscorers if og "OG" then goalscorerData data.owngoalscorers end for k,v in pairs(goalscorerData) do local goals, comment 0, "" -- goals > 0 is the flag to include the player local playerName, playerAlias p.getPlayer(v[1]) -- player name local goalsByRound, commentByRound 0, "" if round "all" then -- all rounds and goals --local i = 4 for i = goalsCol, #v, 1 do --or while i <= #v do goalsByRound, commentByRound = p.getGoals( v , playerName) goals = goals + goalsByRound --TODO use getGoals on round options if commentByRound ~= "" then if comment "" then comment commentByRound else comment comment .. "," .. commentByRound --TODO decide on comma or semi-colon end end i i+1 end elseif round "group" then -- group round only --if group v[groupCol] then -- single group only if group p.getGroup(v[2], v[3]) then -- single group only goals, comment = p.getGoals( v[goalsCol] , playerName) elseif group "all" then -- any group goals, comment p.getGoals( v[goalsCol] , playerName) else -- do nothing for other groups end --elseif round "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 "OG" then comment else comment -- no parenthesis when using notes end end if og "OG" then goals = -goals end -- make owngoals negative numbers g.goalscorers[#g.goalscorers+1] = { player=playerName, alias=playerAlias, country=v[2], goals=goals, comment=p.parseComment(comment)} --g.totalGoals = g.totalGoals + math.abs(goals) -- increment total goal counter end g.totalGoals = g.totalGoals + math.abs(goals) -- increment total goal counter end --return p.goalscorers -- it is available anyway end --get column for round or first round listed if "all" -allows group column to be omitted from player table when group table provided function p.getGoalsCol(round) if round == "all" then -- if all need column of first round for k,v in pairs(data.rounds) do return v; -- return the first one end end return data.rounds[round] or 4 -- get column containing goals for that round or first round listed if all end --get group from group table or from player table function 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 == country then return k end end end return "no group found" else return possibleGroup -- no group table, so assume column three contains the group end end --get number of goals and any associated comment the goals can be a single number (the usual case) or as an option table (e.g. for own goals): { number of own goals, comma-delimited list of opponents } - if the entry is a table, we want the first entry (a number) and the second (comment string) - otherwise, if a number, we just want the number and an empty string function p.getGoals (u, player) if type(u) 'table' and type(u[1]) 'number' then return u[1], u[2] -- return number of goals, comment elseif type(u) == 'number' then return u, "" -- return number of goals, empty string else p.errorString = p.errorString .. " Invalid goals entry for player " .. player return 0, "" end end function 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 framereprocess(comment) end function p.getPlayer(u) if type(u) 'table' then if type(u[1]) 'string' and type(u[2]) 'string' then --[[if #u[2] >1 then p.errorString p.errorString .. "\n\nWe have u[1] " .. u[1] .. " and u[2] " .. u[2] end]] return u[1], u[2] -- return player name, player sorting alias else p.errorString p.errorString .. " Invalid name entry for player " .. u[1] .. ", " .. u[2] return "", "" --TODO errroer end elseif type(u) 'string' then return u, "" -- return player name else p.errorString = p.errorString .. " Invalid name entry for player " .. u or u[1] or "unknown" return "", "" end end --[=[ 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 = { -- list of special characters and replacement pairs { "ı", "i" } , { "İ", "i" } , { "ß", "ss" }, { "ý", "y" } , { "ř", "r" } , { "ő", "o" }, { "é", "e" } , { "è", "e" } , { "þ", "th" }, { "ē", "e" } , { "ņ", "n" } , { "č", "c" }, { "ū", "u" } , { "ž", "z" } , { "æ", "ae" }, { "å", "a" } , { "ø", "o" } , { "ą", "a" }, { "ń", "n" } , { "ł", "l" } , { "ã", "a" }, { "ș", "s" } , { "š", "s" } , { "í", "i" }, { "á", "a" } , { "ä", "a" } , { "ć", "c" }, { "ç", "c" } , { "ğ", "g" } , { "ö", "o" }, { "ë", "e" } , { "ú", "u" } , { "ó", "o" }, { "ð", "d" } , { "ü", "u" } , { "ű", "u" }, { "ā", "a" } , { "ī", "i" } , { "đ", "d" }, { "ă", "a" } , { "â", "a" } , { "ż", "z" }, { "ț", "t" } , { "ş", "s" } , { "ś", "s" }, { "ǎ", "a" } , { "ě", "e" } , { "ů", "u" }, { "ĕ", "e" } , { "ñ", "n" } , { "ď", "d" }, { "ï", "i" } , { "ź", "z" } , { "ô", "o" }, { "ė", "e" } , { "ľ", "l" } , { "ģ", "g" }, { "ļ", "l" } , { "ę", "e" } , { "ň", "n" }, { "ò", "o" } } 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], firstname ]] function 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 = { "CAM", "CHN", "TPE", "MYA", "PRK", "KOR", "VIE" } for k,v in pairs(noSort) do if v countryName then return playerName end end -- else work it out from the supplied player name -- we don't want to test the name in a redirect, so get name after pipe if there is one if string.find (playerName, "|") then -- test for redirect local names mw.text.split( playerName, "|") playerName names[2] -- get name after pipe end local names mw.text.split( playerName, " ") -- we don't want to sort on first name if #names 1 then return names[1] -- return name of single name player else -- we will assume the second name is the sort name e.g, Joe Bloggs, Jan van Bloggen local name = names[2] -- set name to second name e.g. Bloggs or van local i=3 while i <= #names do -- any addition names e.g. Bloggen name= name .. names i=i+1 end name = name .. ", " .. names[1] -- add first name e.g. Joe or Jan return name -- sort on second name third name etc, first name end end -- sort the list of countries alphabetically function 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<b end) -- sort the table alphbetically local list = "against " -- construct the alphabetical list string for i=1, #items do local sep = ", " -- separator for comma-delimited list if i 1 then sep "" -- first word doesn't need comma elseif i #items then sep = " & " -- use "and" before last word end list = list .. sep .. items end return list end function p.getCountryName(country) if string.len(country) 3 then -- if the country given as a three-letter code local codes require('Module:Goalscorers/data/Country codes') for k,v in pairs(codes.alias) do if v[1] country then return v[2] end end else return country -- return the country name as is end end --sort goalscorers by goals, country and name the sort first sorts by number of goals when these are equal, it sorts by country when these are equal, it sorts by name Note: the name sort is on the first name - a split of the name and sort on the last name is possible - however, this would be complicated by Dutch (e.g. Stefan de Vrij) and Spanish names - would sort on second name be better 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.goals) then -- primary sort on 'goals' ->< b.goals) then -- primary sort on 'goals' ->" -- bolded name else goalscorerString = goalscorerString .. " " .. u['player'] -- name end goalscorerString = goalscorerString .. u['comment'] .. '</span>' -- 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.") end end -- output icon linked to national team page function 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{ title = icon , args = { level, country, flagVariant } } else return frame:expandTemplate{ title = icon , args = { country, flagVariant } } -- flag icon end end -- formatting of list under each number of goals function p.openList(frame,og) return mw.getCurrentFrame:extensionTag{ name = 'templatestyles', args = { src = 'Div col/styles.css' } } .. end function p.firstToUpper(str) return (str:gsub("^%l", string.upper)) end -- handles parameters bold, further, extra function 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 text end -- count number of goals for data in template function 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) --{ -- local statNumber = g.args['goals'] or g.args['assists'] or 0 local matches = g.args['matches'] local statType = "gol" 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 goalPlural "" text2 "was" if ongoing then text2 "has been" end end local matchPlural "es" -- match(es) if g.args['matches'] and tonumber(g.args['matches']) 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 1 then avGoalPlural "" end averageString string.format(" in %d match%s, for an average of %.3g goal%s per match", g.args['matches'], matchPlural, averageGoals, avGoalPlural) end if g.args['updated'] and g.args['updated'] ~ "complete" then updateString "(as of " ..g.args['updated'] .. ")" end local sep "." if g.args['sep'] then sep g.args['sep'] end local text "" if g.args['goals'] then text string.format("%s %s %d %s%s scored%s", text1, text2, statNumber, statType, goalPlural, averageString..updateString..sep) end text p.addAdditionHeaderText(text) -- handles template parameters bold, further, extra --30 |}} local output "\n" local number 30 local totalGoals 0 while number > -4 do -- for the each goals/assists local entry g.args[number .. ' gol'] or g.args[number .. ' gol'] 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 "" if number 1 or 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 "gol" or 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 = end footer = '\n' .. heading .. p.openList(frame) .. '\n' .. footerText .. p.closeList(frame) end -- local source = g.args['source'] or "" if source ~= "" then source = "" end return text .. output .. footer .. source end return p
ate')._Date local pluralGoals = "s" local text1 = "" if g.totalGoals 1 then pluralGoals "" if dateUpdated 'complete' then text1 = "was" else text1 = "has been" end else if dateUpdated 'complete' then text1 "were" else text1 "have been" end end local text string.format("There %s %s goal%s scored", text1, mw.getLanguage('en'):formatNum(g.totalGoals), pluralGoals) local pluralMatches "es" if matches 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)) 1 then pluralAverage "" end text text .. string.format(" in %d match%s, for an average of %."..precision.."g goal%s per match", matches, pluralMatches, average, pluralAverage) end if dateUpdated 'complete' or dateUpdated "" then text text .. "." else local dateFormat 'dmy' -- default if data.params and data.params['date_format'] then dateFormat data.params['date_format'] end -- from data module if mdyFormat true then dateFormat = "mdy" else if mdyFormat == false then dateFormat = "dmy" end -- template param overrides end text = text .. " (as of " .. Date(dateUpdated):text(dateFormat) .. ")." end text = p.addAdditionHeaderText(text, dateUpdated) -- handles template parameters bold, further, extra return text --totalGoalString end function 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 = framereprocess(footer) if g.notes then footerSentence = footerSentence .. processed end end end if footerSentence ~= "" then footerSentence = end return footerSentence end function 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 allGroupGames = 0 local latestGroupDate = "1800-01-01" if round "all" or group "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 "1800-01-01" then latestGroupDate "complete" end -- no dates so must be complete end if round "all" then -- all rounds and goals matches=0 for k,v in pairs(data.updated) do if k "group" then matches matches + allGroupGames if latestGroupDate ~ "complete" and latestGroupDate > dateUpdated then dateUpdated latestGroupDate -- update if later date end else 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 "group" then -- group round only if group "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 "1700-01-01" then dateUpdated = "complete" end -- no dates so must be complete return matches, dateUpdated end 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 outputString end function 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 end -- select players meeting round and goal criteria function p.selectGoalscorers(og) --data = require('Module:Goalscorers/data/'.. g.args[1]) --or 'UEFA Euro 2016 qualifying' local goalMinimum = tonumber(g.args['minimum']) or -5 -- assume 5 own goals is maximum -- select all players with goals totals for appropriate rounds 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 goalsCol = p.getGoalsCol(round) -- 4 -- first column for goals --local groupCol = 3 -- default column for group if round then -- goalsCol = data.rounds[round] or data.rounds[1] or 4 -- get column containing goals for that round or first round listed if all end --groupCol = data.group[round] or 3 -- get column containing goals for that round -- select players who have scored in rounds/groups requested local goalscorerData = data.goalscorers if og "OG" then goalscorerData data.owngoalscorers end for k,v in pairs(goalscorerData) do local goals, comment 0, "" -- goals > 0 is the flag to include the player local playerName, playerAlias p.getPlayer(v[1]) -- player name local goalsByRound, commentByRound 0, "" if round "all" then -- all rounds and goals --local i = 4 for i = goalsCol, #v, 1 do --or while i <= #v do goalsByRound, commentByRound = p.getGoals( v , playerName) goals = goals + goalsByRound --TODO use getGoals on round options if commentByRound ~= "" then if comment "" then comment commentByRound else comment comment .. "," .. commentByRound --TODO decide on comma or semi-colon end end i i+1 end elseif round "group" then -- group round only --if group v[groupCol] then -- single group only if group p.getGroup(v[2], v[3]) then -- single group only goals, comment = p.getGoals( v[goalsCol] , playerName) elseif group "all" then -- any group goals, comment p.getGoals( v[goalsCol] , playerName) else -- do nothing for other groups end --elseif round "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 "OG" then comment else comment -- no parenthesis when using notes end end if og "OG" then goals = -goals end -- make owngoals negative numbers g.goalscorers[#g.goalscorers+1] = { player=playerName, alias=playerAlias, country=v[2], goals=goals, comment=p.parseComment(comment)} --g.totalGoals = g.totalGoals + math.abs(goals) -- increment total goal counter end g.totalGoals = g.totalGoals + math.abs(goals) -- increment total goal counter end --return p.goalscorers -- it is available anyway end --get column for round or first round listed if "all" -allows group column to be omitted from player table when group table provided function p.getGoalsCol(round) if round == "all" then -- if all need column of first round for k,v in pairs(data.rounds) do return v; -- return the first one end end return data.rounds[round] or 4 -- get column containing goals for that round or first round listed if all end --get group from group table or from player table function 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 == country then return k end end end return "no group found" else return possibleGroup -- no group table, so assume column three contains the group end end --get number of goals and any associated comment the goals can be a single number (the usual case) or as an option table (e.g. for own goals): { number of own goals, comma-delimited list of opponents } - if the entry is a table, we want the first entry (a number) and the second (comment string) - otherwise, if a number, we just want the number and an empty string function p.getGoals (u, player) if type(u) 'table' and type(u[1]) 'number' then return u[1], u[2] -- return number of goals, comment elseif type(u) == 'number' then return u, "" -- return number of goals, empty string else p.errorString = p.errorString .. " Invalid goals entry for player " .. player return 0, "" end end function 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 framereprocess(comment) end function p.getPlayer(u) if type(u) 'table' then if type(u[1]) 'string' and type(u[2]) 'string' then --[[if #u[2] >1 then p.errorString p.errorString .. "\n\nWe have u[1] " .. u[1] .. " and u[2] " .. u[2] end]] return u[1], u[2] -- return player name, player sorting alias else p.errorString p.errorString .. " Invalid name entry for player " .. u[1] .. ", " .. u[2] return "", "" --TODO errroer end elseif type(u) 'string' then return u, "" -- return player name else p.errorString = p.errorString .. " Invalid name entry for player " .. u or u[1] or "unknown" return "", "" end end --[=[ 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 = { -- list of special characters and replacement pairs { "ı", "i" } , { "İ", "i" } , { "ß", "ss" }, { "ý", "y" } , { "ř", "r" } , { "ő", "o" }, { "é", "e" } , { "è", "e" } , { "þ", "th" }, { "ē", "e" } , { "ņ", "n" } , { "č", "c" }, { "ū", "u" } , { "ž", "z" } , { "æ", "ae" }, { "å", "a" } , { "ø", "o" } , { "ą", "a" }, { "ń", "n" } , { "ł", "l" } , { "ã", "a" }, { "ș", "s" } , { "š", "s" } , { "í", "i" }, { "á", "a" } , { "ä", "a" } , { "ć", "c" }, { "ç", "c" } , { "ğ", "g" } , { "ö", "o" }, { "ë", "e" } , { "ú", "u" } , { "ó", "o" }, { "ð", "d" } , { "ü", "u" } , { "ű", "u" }, { "ā", "a" } , { "ī", "i" } , { "đ", "d" }, { "ă", "a" } , { "â", "a" } , { "ż", "z" }, { "ț", "t" } , { "ş", "s" } , { "ś", "s" }, { "ǎ", "a" } , { "ě", "e" } , { "ů", "u" }, { "ĕ", "e" } , { "ñ", "n" } , { "ď", "d" }, { "ï", "i" } , { "ź", "z" } , { "ô", "o" }, { "ė", "e" } , { "ľ", "l" } , { "ģ", "g" }, { "ļ", "l" } , { "ę", "e" } , { "ň", "n" }, { "ò", "o" } } 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], firstname ]] function 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 = { "CAM", "CHN", "TPE", "MYA", "PRK", "KOR", "VIE" } for k,v in pairs(noSort) do if v countryName then return playerName end end -- else work it out from the supplied player name -- we don't want to test the name in a redirect, so get name after pipe if there is one if string.find (playerName, "|") then -- test for redirect local names mw.text.split( playerName, "|") playerName names[2] -- get name after pipe end local names mw.text.split( playerName, " ") -- we don't want to sort on first name if #names 1 then return names[1] -- return name of single name player else -- we will assume the second name is the sort name e.g, Joe Bloggs, Jan van Bloggen local name = names[2] -- set name to second name e.g. Bloggs or van local i=3 while i <= #names do -- any addition names e.g. Bloggen name= name .. names i=i+1 end name = name .. ", " .. names[1] -- add first name e.g. Joe or Jan return name -- sort on second name third name etc, first name end end -- sort the list of countries alphabetically function 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<b end) -- sort the table alphbetically local list = "against " -- construct the alphabetical list string for i=1, #items do local sep = ", " -- separator for comma-delimited list if i 1 then sep "" -- first word doesn't need comma elseif i #items then sep = " & " -- use "and" before last word end list = list .. sep .. items end return list end function p.getCountryName(country) if string.len(country) 3 then -- if the country given as a three-letter code local codes require('Module:Goalscorers/data/Country codes') for k,v in pairs(codes.alias) do if v[1] country then return v[2] end end else return country -- return the country name as is end end --sort goalscorers by goals, country and name the sort first sorts by number of goals when these are equal, it sorts by country when these are equal, it sorts by name Note: the name sort is on the first name - a split of the name and sort on the last name is possible - however, this would be complicated by Dutch (e.g. Stefan de Vrij) and Spanish names - would sort on second name be better 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.goals) then -- primary sort on 'goals' ->< b.goals) then -- primary sort on 'goals' ->" -- bolded name else goalscorerString = goalscorerString .. " " .. u['player'] -- name end goalscorerString = goalscorerString .. u['comment'] .. '</span>' -- 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.") end end -- output icon linked to national team page function 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{ title = icon , args = { level, country, flagVariant } } else return frame:expandTemplate{ title = icon , args = { country, flagVariant } } -- flag icon end end -- formatting of list under each number of goals function p.openList(frame,og) return mw.getCurrentFrame:extensionTag{ name = 'templatestyles', args = { src = 'Div col/styles.css' } } .. end function p.firstToUpper(str) return (str:gsub("^%l", string.upper)) end -- handles parameters bold, further, extra function 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 text end -- count number of goals for data in template function 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) --{ -- local statNumber = g.args['goals'] or g.args['assists'] or 0 local matches = g.args['matches'] local statType = "gol" 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 goalPlural "" text2 "was" if ongoing then text2 "has been" end end local matchPlural "es" -- match(es) if g.args['matches'] and tonumber(g.args['matches']) 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 1 then avGoalPlural "" end averageString string.format(" in %d match%s, for an average of %.3g goal%s per match", g.args['matches'], matchPlural, averageGoals, avGoalPlural) end if g.args['updated'] and g.args['updated'] ~ "complete" then updateString "(as of " ..g.args['updated'] .. ")" end local sep "." if g.args['sep'] then sep g.args['sep'] end local text "" if g.args['goals'] then text string.format("%s %s %d %s%s scored%s", text1, text2, statNumber, statType, goalPlural, averageString..updateString..sep) end text p.addAdditionHeaderText(text) -- handles template parameters bold, further, extra --30 |}} local output "\n" local number 30 local totalGoals 0 while number > -4 do -- for the each goals/assists local entry g.args[number .. ' gol'] or g.args[number .. ' gol'] 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 "" if number 1 or 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 "gol" or 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 = end footer = '\n' .. heading .. p.openList(frame) .. '\n' .. footerText .. p.closeList(frame) end -- local source = g.args['source'] or "" if source ~= "" then source = "" end return text .. output .. footer .. source end return p