Indicwiki: 1 revision imported from :alpha:Module:LCCN

2023-01-08T04:58:02Z

1 revision imported from alpha:Module:LCCN

← Older revision	Revision as of 10:28, 8 January 2023
(No difference)

Admin: 1 revision imported

2022-08-28T03:13:24Z

1 revision imported

← Older revision	Revision as of 08:43, 28 August 2022
(No difference)

alpha>Indicwiki: Created page with "requireModule:No globals local p = {} local function blank_to_nil(s) if s and #s > 0 then return s end end local function pad(padlen, ...) padlen = tonumber(padlen) or..."

2022-07-14T06:24:00Z

Created page with "requireModule:No globals local p = {} local function blank_to_nil(s) if s and #s > 0 then return s end end local function pad(padlen, ...) padlen = tonumber(padlen) or..."

← Older revision	Revision as of 11:54, 14 July 2022
(No difference)

wikipedia>Uzume: strlen == 0 optimization

2022-04-15T03:11:54Z

strlen == 0 optimization

New page

require[[Module:No globals]]
local p = {}

local function blank_to_nil(s)
if s and #s > 0 then return s end
end

local function pad(padlen, ...)
padlen = tonumber(padlen) or 0
if 1 > select('#', ...) then
return ("0"):rep(padlen)
end
local padsrc = tostring((...))
local srclen = mw.ustring.len(padsrc)
if 1 > padlen or 1 > srclen then
return ""
end
return mw.ustring.sub(mw.ustring.rep(padsrc, math.ceil(padlen / srclen)), 1, padlen)
end

local function padleft(str, ...)
str = tostring(str)
if 1 > select('#', ...) then
return str
end
local strlen = mw.ustring.len(str)
if 1 > strlen then
return pad((...), select(2, ...))
end
return pad((tonumber((...)) or 0) - strlen, select(2, ...)) .. str
end

local function padright(str, ...)
str = tostring(str)
if 1 > select('#', ...) then
return str
end
local strlen = mw.ustring.len(str)
if 1 > strlen then
return pad((...), select(2, ...))
end
return str .. pad((tonumber((...)) or 0) - strlen , select(2, ...))
end

local function expr(...)
return mw.ext.ParserFunctions.expr( ... )
end

function p.main(frame)
local args = frame:getParent().args
local id = blank_to_nil(args[1] or args.id)
local title = blank_to_nil(args[2] or args.title or args.name)
local left_part, right_part, url
if id then
local letter_width = (id:match("^%s*[0-9][0-9]") and id:len() < 10) and 0 or 2

left_part = id:sub(1, letter_width + 2)
right_part = expr(padright(id, letter_width + 8, '.00000'):sub(letter_width + 3, letter_width + 8))
url = "https://lccn.loc.gov/" .. left_part .. padleft(right_part, 6, 0)
else
url = "https://lccn.loc.gov/Name?" .. mw.title.getCurrentTitle():partialUrl()
end

if args.long == "yes" then
return ("Catalog record for [%s %s] at the United States [[LCCN (identifier)|Library of Congress]]"):format(
url, title or mw.title.getCurrentTitle().text)
end

if not left_part then
error("Template:LCCN: You must provide an ID.")
end

return ("[[LCCN (identifier)|LCCN]] [%s %s-%s]%s"):format(
url, left_part, right_part,
title and (' – ' .. title) or '')
end

return p

Module:LCCN - Revision history

Indicwiki: 1 revision imported from :alpha:Module:LCCN

Admin: 1 revision imported

alpha>Indicwiki: Created page with "requireModule:No globals local p = {} local function blank_to_nil(s) if s and #s > 0 then return s end end local function pad(padlen, ...) padlen = tonumber(padlen) or..."

wikipedia>Uzume: strlen == 0 optimization