Jump to content

Module:Citation/CS1

Edit links
Permanently protected module
From Wikipedia, the free encyclopedia
This is an old revision of this page, as edited by Uncle G (talk | contribs) at 04:51, 26 August 2012 (Fixed syntax problem.). The present address (URL) is a permanent link to this revision, which may differ significantly from the current revision.

--require "mw.text"

local p = {}

-- This can be removed when mw.text.tag appears.
function tag(frame, t)
    local name = t.name or "!--"
    local content = t.contents or ""
    local params = ""
    if ( "span" == name or "div" == name or "blockquote" == name or "sup" == name ) then
        for n,v in pairs(t.params) do
            params = params .. " " .. n .. "=\"" .. v .. "\""
        end
        return "<" .. name .. params .. ">" .. content .. "</" .. name .. ">"
    else
        for n,v in pairs(t.params) do
            params = params .. "|" .. n .. "=" .. v
        end
        return frame:preprocess("{{#tag:" .. name .. "|" .. content .. params .. "}}")
    end
end

function hideinprint(frame, content)
    return content
end

function doi(frame, id)
    local text = hideinprint(frame, "[[Digital object identifier|doi]]:[http://dx.doi.org/{{urlencode:" .. id .. "}} " .. tag(frame, {name="nowiki",contents=id,params={}}) .. "]")
    if ( string.sub(id,1,3) ~= "10." ) then
        text = text .. "[[Category:Pages with DOI errors]]"
    end
    return text
end

function listpeople(config, people)
    local text = ""
    local sep = config.AuthorSep or "&#59;"
    for i,person in ipairs(people) do
        if (person.last ~= nil) then
            local one = person.last
            if (person.first ~= nil) then one = one .. ", " .. person.first end
            if (person.link ~= nil) then one = "[[" .. person.link .. "|" .. one .. "]]" end
            text = text .. one
            if ( people[i + 1] ~= nil ) then text = text .. sep .. " " end
        end
    end
    return text
end

function anchorid(args)
    local P1 = args[1] or ""
    local P2 = args[2] or ""
    local P3 = args[3] or ""
    local P4 = args[4] or ""
    local P5 = args[5] or ""
    return "CITEREF" .. P1 .. P2 .. P3 .. P4 .. P5
end

function refid(args)
    local p = args.p or ""
    local pp = args.pp or ""
    local loc = args.loc or ""
    return anchorid(args) .. p .. pp .. loc    
end

function name(args)
    local P1 = args[1] or ""
    if ( args[5] ~= nil) then
        return P1 .. " et al."
    else
        local P2 = args[2] or ""
        local P3 = args[3] or "" 
        local P4 = args[4] or ""
        if ( args[4] ~= nil ) then
            P4 = " " .. P4
            P3 = " & " .. P3
            P2 = " & " .. P2
        elseif ( args[3] ~= nil ) then
            P3 = " " .. P3
            P2 = " & " .. P2
        elseif ( args[2] ~= nil ) then
            P2 = " " .. P2            
        end
        return P1 .. P2 .. P3 .. P4
    end 
end

function crossref(frame, args)
    local config = frame.args
    local LB = config.BracketLeft or ""
    local RB = config.BracketRight or ""
    local anchor = args.ref or args.Ref or anchorid(args)
    local text = name(args)
    local loc = args.loc or ""
    local page = args.p or args.page
    local pages = args.pp or args.pages
    if ( page ~= nil ) then
        local pagesep = config.PageSep or ", p. "
        loc = loc .. pagesep .. page
    end
    if ( pages ~= nil ) then
        local pagessep = config.PagesSep or ", pp. "
        loc = loc .. pagessep .. pages
    end        
    local ps = args.Postscript or ""
    return LB .. "[[#" .. anchor .. "|" .. text .. "]]" .. loc .. RB .. ps
end

function citation0(frame, args)
    local config = frame.args
    
    -- Pick out the relevant fields from the arguments.  Different citation templates define different field names for the same underlying things.
    local AuthorMask = args.authormask or args.authormask
    local Authors = args.authors 
    local a = {}
    a[1] = {}
    a[1].last = args.last or args.surname or args.author or args.last1 or args.surname1 or args.author1
    a[1].first = args.first1 or args.given1 or args.first or args.given
    a[1].link = args.authorlink or args.author1link or args.authorlink1
    for i=2,9,1 do
        a[i] = {}
        a[i].last = args["last" .. i] or args["surname" .. i] or args["author" .. i]
        a[i].first = args["first" .. i] or args["given" .. i]
        a[i].link = args["author" .. i .. "link"] or args["authorlink" .. i]
    end    
    local Coauthors = args.coauthor or args.coauthors 
    local Editors = args.editors 
    local e = {}
    e[1] = {}
    e[1].last = args["editor-last"] or args.editorsurname or args.editor or args["editor1-last"] or args["editor-last1"] or args.editorsurname1 or args.editor1
    e[1].first = args.first1 or args.given1 or args.first or args.given
    e[1].link = args.authorlink or args.author1link or args.authorlink1
    for i=2,9,1 do
        e[i] = {}
        e[i].last = args["editor" .. i .. "-last"] or args["editor-last" .. i] or args["EditorSurname" .. i] or args["Editor" .. i]
        e[i].first = args["editor" .. i .. "-first"] or args["editor-first" .. i] or args["EditorGiven" .. i]
        e[i].link = args["editor" .. i .. "link"] or args["editorlink" .. i]
    end    
    local Year = args.year or args.publicationdate
    local Date = args.date
    local Title = args.title or args.encyclopaedia or args.encyclopedia
    local Chapter = args.chapter or args.article
    local URL = args.archiveurl or args.url
    local ChapterURL = args.chapterurl
    local Journal = args.journal or args.newspaper or args.magazine or args.work
    local Series = args.series
    local Volume = args.volume
    local Issue = args.issue or args.number
    local Pages = args.pages or args.page
    local Edition = args.edition
    local Place = args.place or args.location
    local PublicationPlace = args.publicationplace or args.place or args.location
    local Publisher = args.publisher
    local Language = args.language
    local Format = args.format
    local ISBN = args.isbn or args.ISBN
    local DOI = args.doi or args.DOI
    local ID = args.id or args.ID or args.pmid or args.PMID
    local Ref = args.ref or args.Ref
    
    -- At this point fields may be nil if they weren't specified in the template use.  We can use that to perform various substitutions.
    -- We also add leading spaces and surrounding markup and punctuation to the various parts of the citation, but only when they are non-nil.
    if ( Date == nil ) then
        Date = Year
        if ( Date ~= nil ) then
            if ( args.month ~= nil ) then 
                Date = args.month .. " " .. Date 
                if ( args.day ~= nil ) then Date = args.day .. " " .. Date end
            end
        end        
    end
    if ( Journal ~= nil ) then
        Chapter = Title
        Title = Journal
    end
    if ( Chapter ~= nil ) then 
        Chapter = "\"" .. Chapter .. "\""
        if ( ChapterURL ~= nil ) then
            Chapter = "[" .. ChapterURL .. " " .. Chapter .. "]"
        elseif ( URL ~= nil ) then 
            Chapter = "[" .. URL .. " " .. Chapter .. "]"
            URL = nil
        end
        Chapter = " " .. Chapter .. "."
    else 
        Chapter = "" 
    end    
    if ( Title ~= nil ) then
        if ( URL ~= nil ) then 
            Title = "[" .. URL .. " " .. Title .. "]"
            URL = nil
        end
        Title = " ''" .. Title .. "''."
    else 
        Title = "" 
    end
    if ( Publisher ~= nil ) then Publisher = " " .. Publisher .. "." else Publisher = "" end
    if ( PublicationPlace ~= nil ) then PublicationPlace = " " .. PublicationPlace .. ":" else PublicationPlace = "" end
    if ( Language ~= nil ) then Language = " (in " .. Language .. ")" else Language = "" end
    if ( ISBN ~= nil ) then ISBN = " ISBN " .. ISBN else ISBN = "" end
    if ( DOI ~= nil ) then DOI = " " .. doi(frame, DOI) else DOI = "" end
    if ( URL ~= nil ) then URL = " " .. URL else URL = "" end
    if ( Edition ~= nil ) then Edition = " " .. Edition .. " edition" else Edition = "" end
    if ( Volume ~= nil ) then Volume = " '''" .. Volume .. "'''" else Volume = "" end
    if ( Issue ~= nil ) then Issue = " (" .. Issue .. ")" else Issue = "" end
    if ( Pages ~= nil ) then Pages = " :" .. Pages else Pages = "" end
    if ( Series ~= nil ) then Series = " " .. Series .. "." else Series = "" end
    if ( Format ~= nil ) then Format = " (" .. Format .. ")" else Format = "" end
    if ( ID ~= nil ) then ID = " " .. ID else ID = "" end
    if ( Date ~= nil ) then Date = " (" .. Date .. ")" else Date = "" end
    if ( Authors == nil ) then Authors = listpeople(config, a) end
    if ( Editors == nil ) then Editors = listpeople(config, e) end
    
    -- Piece all of the bits together at last.  At this point, all of these should be guaranteed non-nil.
    -- We build things this way because it is more efficient in LUA not to keep reassigning to the same string variable over and over.
    local text
    if ( "" ~= Authors ) then
        if ( "" ~= Date ) then Date = Date .. "." else Authors = Authors .. "." end
        if ( "" ~= Editors ) then Editors = " in " .. Editors .. "." end
        text = Authors .. Date .. Chapter .. Editors .. Title .. Format .. Edition .. Language .. Volume .. Issue .. Pages .. Series .. PublicationPlace .. Publisher .. ISBN .. DOI .. ID .. URL
    elseif ( "" ~= Editors) then
        Editors = Editors .. " (eds.)"
        if ( "" ~= Date ) then Date = Date .. "." else Editors = Editors .. "." end
        text = Editors .. Date .. Chapter .. Title .. Format .. Edition .. Language .. Volume .. Issue .. Pages .. Series .. PublicationPlace .. Publisher .. ISBN .. DOI .. ID .. URL
    else
        text = Chapter .. Title .. Format .. Edition .. Language .. Volume .. Issue .. Pages .. Series .. PublicationPlace .. Publisher .. Date .. ISBN .. DOI .. ID .. URL
    end
    
    -- Now enclose the whole thing in a <span/> element if it is cross-linked from elsewhere.
    if ( Year == nil ) then Year = "" end
    if ( Ref ~= nil ) then 
        local id = Ref
        if ( "harv" == Ref ) then
            local P1 = Surname1
            local P2 = Surname2
            local P3 = Surname3
            local P4 = Surname4
            local P5
            if ( Surname2 == nil ) then 
                P2 = Year 
            elseif ( Surname3 == nil ) then
                P3 = Year
            elseif ( Surname4 == nil ) then
                P4 = Year
            else
                P5 = Year
            end
            id = anchorid({P1,P2,P3,P4,P5})
        end
        local args = { class="citation " .. config.CitationClass, id=id }
        text = tag(frame, {name="span", contents=text, params=args}) 
    end
    return text
end

function r0(frame, name, group, page)
    if ( name == nil ) then return "" end
    if ( group == nil ) then group = "" end
    local p = ""
    if ( page ~= nil ) then 
        local contents = ":" .. page
        p = tag(frame, {name="sup",contents=contents,params={class="reference",style="white-space:nowrap;"}}) 
    end
    return tag(frame, {name="ref",contents="",params={name=name,group=group}}) .. p
end

-- This is used by {{doi}} to create DOI links in the style used in citations.
function p.doi(frame)
    local pframe = frame:getParent()
    local id = pframe.args.id or pframe.args[1] or ""
    return doi(frame, id)
end

-- This is used by {{ISSN}} to create ISSN links in the style used in citations.
function p.ISSN(frame)
    local pframe = frame:getParent()
    local Name = pframe.args[1] or ""
    return hideinprint(frame, "[[International Standard Serial Number|ISSN]]&nbsp;[http://www.worldcat.org/search?fq=x0:jrnl&q=n2:" .. Name .. " " .. Name .. "]")
end

-- This is used by templates such as {{SfnRef}} to create the (encoded) anchor name for a Harvard cross-reference hyperlink.
function p.SFNID(frame)
    local pframe = frame:getParent()
    return anchorid(pframe.args)
end

-- This is used by templates such as {{Harvard citation}} to create the Harvard cross-reference text.
function p.Harvard(frame)
    local pframe = frame:getParent()
    return crossref(frame, pframe.args)
end

-- This is used by templates such as {{cite book}} to create the actual citation text.
function p.citation(frame)
    local pframe = frame:getParent()
    return citation0(frame, pframe.args)
end

-- This is used by templates such as {{sfn}} to create the entire cross-reference.
function p.sfn(frame)
    local pframe = frame:getParent()
    local content = crossref(frame, pframe.args)
    local args = { name = refid(pframe.args) }
--  return mw.text.tag{name = "ref", contents = content, params = args}
    return tag(frame, {name = "ref", contents = content, params = args})
end

-- This is used by template {{r}}.
function p.r(frame)
    local pframe = frame:getParent()
    local config = frame.args
    local args = pframe.args
    local t1 = r0(frame, args[1], args.group, args.page or args.page1)
    local t2 = r0(frame, args[2], args.group, args.page2)
    local t3 = r0(frame, args[3], args.group, args.page3)
    local t4 = r0(frame, args[4], args.group, args.page4)
    local t5 = r0(frame, args[5], args.group, args.page5)
    local t6 = r0(frame, args[6], args.group, args.page6)
    local t7 = r0(frame, args[7], args.group, args.page7)
    local t8 = r0(frame, args[8], args.group, args.page8)
    local t9 = r0(frame, args[9], args.group, args.page9)
    return t1 .. t2 .. t3 .. t4 .. t5 .. t6 .. t7 .. t8 .. t9
end

return p
Retrieved from "https://en.wikipedia.org/w/index.php?title=Module:Citation/CS1&oldid=538980900"