Module:LCCN: Difference between revisions

Revision as of 17:59, 19 November 2021

Latest revision as of 00:20, 25 June 2025

(20 intermediate revisions by 3 users not shown)

Line 1:

require('strict')

local p = {}

local function blank_to_nil(s)

if s and #s > 0 then return s end

end

local function padleftpad(padlen, ...)

padlen = tonumber(padlen) or 0

return mw.getCurrentFrame():callParserFunction('padleft', { ... })

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 padrightpadleft(str, ...)

str = tostring(str)

return mw.getCurrentFrame():callParserFunction('padright', { ... })

if 1 > select('#', ...) then

return str

end

local strlen = mw.ustring.len(str)

if id1 > strlen then

return pad((...), select(2, ...))

end

return pad((tonumber((...)) or 0) - strlen, select(2, ...)) .. str

end

local function exprpadright(str, ...)

str = tostring(str)

return mw.getCurrentFrame():callParserFunction('#expr', { ... })

if 1 > select('#', ...) then

return str

end

local strlen = mw.ustring.len(str)

if not1 left_part> 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

Line 20 ⟶ 50:

local args = frame:getParent().args

local id = blank_to_nil(args[1] or args.id)

if not id then

local title = blank_to_nil(args[2] or args.title or args.name)

error("Template:LCCN: You must provide an ID.")

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

local title = blank_to_nil(args[2] or args.title or args.name)

local letter_width = (id:match("^%s*[0-9][0-9]") and id:len() < 10) and 0 or 2

local left_part, right_part= id:sub(1, urlletter_width + 2)

local right_part = expr(padright(id, letter_width + 8, '.00000'):sub(letter_width + 3, letter_width + 8))

local url = "https://lccnwww.loc.gov/item/" .. left_part .. padleft(right_part, 6, 0)

if args.long == "yes" then

return ("CatalogBibliographic 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]]&nbsp;[%s %s-%s]%s"):format(

url, left_part, right_part, title and ('&nbsp;&ndash;&nbsp;' .. title) or '')

title and ('&nbsp;&ndash;&nbsp;' .. title) or '')

end