# Module:High-use

local p = {}  
local getArgs = require('Module:Arguments').getArgs  

-- _fetch looks at the "demo" argument.  
local _fetch = require('Module:Transclusion_count')._fetch  
local yesno = require('Module:Yesno')  

function p._num(args, count, no_percent)  
if count == nil then  
if yesno(args['fetch']) == false then  
if (args[1] or *) ~= * then count = tonumber(args[1]) end  
else  
count = _fetch(args)  
end  
end  

-- Build output string  
local return_value = ""  
if count == nil then  
if args[1] == "risk" then  
return "a very large number of"  
else  
return "many"  
end  
else  
-- Use 2 significant figures for smaller numbers and 3 for larger ones  
local sigfig = 2  
if count >= 100000 then  
sigfig = 3  
end  

-- Prepare to round to appropriate number of sigfigs  
local f = math.floor(math.log10(count)) - sigfig + 1  

-- Round and insert "approximately" or "+" when appropriate  
if (args[2] == "yes") or (type(args[1]) == 'string' and (mw.ustring.sub(args[1],-1) == "+")) then  
-- Round down  
return_value = string.format("%s+", mw.getContentLanguage:formatNum(math.floor( (count / 10^(f)) ) * (10^(f))) )  
else  
-- Round to nearest  
return_value = string.format("approximately&#x20;%s", mw.getContentLanguage:formatNum(math.floor( (count / 10^(f)) + 0.5) * (10^(f))) )  
end  

-- Insert percentage of pages if that is likely to be >= 1% and when |no-percent= not set to yes  
no_percent = no_percent or args['no-percent']  
if count and count > 250000 and not yesno (no_percent) then  
local numpages = mw.getCurrentFrame:callParserFunction('NUMBEROFPAGES', 'R')  
local percent = math.floor( ( ( count/numpages ) * 100) + 0.5)  
if percent >= 1 then  
return_value = string.format("%s&#x20;pages, or roughly %s%% of all", return_value, percent)  
end  
end  
end  

return return_value  
end  

function p.num(, count)  
return p._num(getArgs, count)  
end  

-- Actions if there is a large (greater than or equal to 100,000) transclusion count  
function p._risk(args)  
if args[1] == "risk" then  
return "risk"  
else  
local count = _fetch(args)  
if count and count >= 100000 then  
return "risk"  
end  
end  
return ""  
end  

function p.risk  
return p._risk(getArgs)  
end  

function p._text(args, count)  
-- Only show the information about how this template gets updated if someone  
-- is actually editing the page and maybe trying to update the count.  
local bot_text = (mw.getCurrentFrame:preprocess("") == "") and "\n\n----\n**Preview message**: Transclusion count updated automatically (see documentation)." or ''  

if count == nil then  
if yesno(args['fetch']) == false then  
if (args[1] or *) ~= * then count = tonumber(args[1]) end  
else  
count = _fetch(args)  
end  
end  
local title = mw.title.getCurrentTitle  
if ( (args.demo or * ~= *) and mw.title.new(args.demo, 10) ) then  
title = mw.title.new(args.demo, 10)  
end  

if title.subpageText == "doc" or title.subpageText == "sandbox" then  
title = title.basePageTitle  
end  

local systemMessages = (args['system'] or *) ~= *  

-- This retrieves the project URL automatically to simplify localization.  
local templateCount = ('on %s pages'):format(  
title:fullUrl:gsub('//(.-)/.*', '%1'),  
mw.uri.encode(title.fullText), p._num(args, count))  
local used_on_text = "'''This " .. (title.namespace == 828 and "Lua module" or "template") .. ' is used ';  
if systemMessages then  
used_on_text = used_on_text .. args['system'] ..  
((count and count > 2000) and ("**, and " .. templateCount) or ("**"))  
else  
used_on_text = used_on_text .. templateCount .. "'''"  
end  

local sandbox_text = ("%s's /sandbox or /testcases subpages, or in your own %s. "):format(  
(title.namespace == 828 and "module" or "template"),  
title.fullText, title.fullText,  
title.namespace == 828 and "Module:Sandbox|module sandbox" or "Wikipedia:User pages#SUB|user subpage"  

local infoArg = args["info"] ~= "" and args["info"]  
if (systemMessages or args[1] == "risk" or (count and count >= 100000) ) then  
local info = systemMessages and '.  
Changes to it can cause immediate changes to the Wikipedia user interface.' or '.'  
if infoArg then  
info = info .. "  
" .. infoArg  
end  
sandbox_text = info .. '  
To avoid major disruption' ..  
(count and count >= 100000 and ' and server load' or '') ..  
', any changes should be tested in the ' .. sandbox_text ..  
'The tested changes can be added to this page in a single edit. '  
else  
sandbox_text = (infoArg and ('.  
' .. infoArg .. ' C') or ' and c') ..  
'hanges may be widely noticed. Test changes in the ' .. sandbox_text  
end  

local discussion_text = systemMessages and 'Please discuss changes ' or 'Consider discussing changes '  
if args["2"] and args["2"] ~= "" and args["2"] ~= "yes" then  
discussion_text = string.format("%sat %s", discussion_text, args["2"])  
else  
discussion_text = string.format("%son the talk page", discussion_text, title.talkPageTitle.fullText )  
end  

return used_on_text .. sandbox_text .. discussion_text .. " before implementing them." .. bot_text  
end  

function p.text(, count)  
return p._text(getArgs, count)  
end  

function p._main(args, nocat)  
local count = nil  
if yesno(args['fetch']) == false then  
if (args[1] or *) ~= * then count = tonumber(args[1]) end  
else  
count = _fetch(args)  
end  
local image = ""  
local type_param = "style"  
local epilogue = ''  
if args['system'] and args['system'] ~= '' then  
image = ""  
type_param = "content"  
nocat = nocat or args['nocat']  
local categorise = (nocat == '' or not yesno(nocat))  
if categorise and not mw.title.getCurrentTitle.isRedirect then  
epilogue = mw.getCurrentFrame:preprocess('')  
end  
elseif (args[1] == "risk" or (count and count >= 100000)) then  
image = ""  
type_param = "content"  
end  

if args["form"] == "editnotice" then  
return mw.getCurrentFrame:expandTemplate{  
title = 'editnotice',  
args = {  
["image"] = image,  
["text"] = p._text(args, count),  
["expiry"] = (args["expiry"] or "")  
}  
} .. epilogue  
else  
return require('Module:Message box').main('ombox', {  
type = type_param,  
image = image,  
text = p._text(args, count),  
expiry = (args["expiry"] or "")  
}) .. epilogue  
end  
end  

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