Module:Citation

From Monoskop
Revision as of 09:09, 5 October 2013 by Dusan (talk | contribs)
(diff) ← Older revision | Latest revision (diff) | Newer revision → (diff)
Jump to navigation Jump to search

-- Module:Citation - Lua module for Citation auxiliary templates


-- For the formatting functions, see: Module:Citation/CS1 -- (see NOTES at bottom) --require "mw.text"

local z = {

   wikitext = require("Module:Wikitext"),
   extensiontags = {
       nowiki = true,
       ref = true,
       gallery = true,
       pre = true,
       source = true,
       categorytree = true,
       charinsert = true,
       hiero = true,
       imagemap = true,
       inputbox = true,
       math = true,
       poem = true,
       ref = true,
       references = true,
       syntaxhighlight = true,
       timeline = true,
   }

}

function trim( str )

   if str == nil then
       return nil;
   end
   return str:match( "^%s*(.-)%s*$" );

end

function hideinprint(content)

   return content

end

function onlyinprint(content)

   return ""

end

-- This returns a string with HTML character entities for wikitext markup characters. function wikiescape(text)

   text = text:gsub( '[&\'%[%]{|}]', {    
           ['&'] = '&',    
           ["'"] = ''',    
           ['['] = '[',    
           [']'] = ']',	
           ['{'] = '{',	
           ['|'] = '|',	
           ['}'] = '}' } );
   return text;

end

function createTag(t, frame)

   local name = t.name or "!-- --"
   local content = t.contents or ""
   local attrs = {}
   if ( z.extensiontags[name] ) then
       -- We have to preprocess these, so that they are properly turned into so-called "strip markers" in the generated wikitext.
       if ( not frame ) then error ("Please supply an extra frame argument to the createTag() function.") end
       local params = {}
       for n,v in pairs(t.params) do
           table.insert(params, "|" .. n .. "=" .. v)
       end
       return frame:preprocess("<" .. name .. ">" .. content .. table.concat(params) .. "</" .. name .. ">")
   else   
       for n,v in pairs(t.params) do
           if (v) then
               table.insert(attrs, n .. "=\"" .. wikiescape(v) .. "\"")
           else
               table.insert(attrs, n)
           end
       end
       if ("" == content) then
           return "<" .. name .. " " .. table.concat(attrs, " ") .. "/>"
       else
           return "<" .. name .. " " .. table.concat(attrs, " ") .. ">" .. content .. "</" .. name .. ">"
       end
   end

end

--[[ This is a clone of mw.text.nowiki. When the mw.text library is installed, this can be replaced by a call to that library. ]] function nowiki( s )

   -- string.gsub is safe here, because we're only caring about ASCII chars
   s = string.gsub( s, '["&\'<=>%[%]{|}]', {
       ['"'] = '"',
       ['&'] = '&',
       ["'"] = ''',
       ['<'] = '<',
       ['='] = '=',
       ['>'] = '>',
       ['['] = '[',
       [']'] = ']',
       ['{'] = '{',
       ['|'] = '|',
       ['}'] = '}',
   } )
   s = string.sub( string.gsub( '\n' .. s, '\n[#*:;]', {
       ["\n#"] = "\n#",
       ["\n*"] = "\n*",
       ["\n:"] = "\n:",
       ["\n;"] = "\n;",
   } ), 2 )
   s = string.gsub( s, '://', '://' )
   s = string.gsub( s, 'ISBN ', 'ISBN ' )
   s = string.gsub( s, 'RFC ', 'RFC ' )
   return s

end

function externallinkid(args)

   local sep = args.separator or " "
   args.suffix = args.suffix or ""
   local url_string = args.id
   if args.encode == true or args.encode == nil then
       url_string = mw.uri.encode( url_string );
   end
   
   local t0 = onlyinprint(args.label .. sep .. args.id)
   local t1 = hideinprint("" .. args.label .. "" .. sep .. "[" .. args.prefix .. url_string .. args.suffix .. " " .. nowiki(args.id) .. "]")
   
   return t0 .. t1

end

function doi(id, inactive, nocat)

   local cat = ""
   local text;
   if ( inactive ~= nil ) then 
       text = "doi:" .. id;
       cat = cat .. ""
       inactive = " (inactive " .. inactive .. ")" 
   else 
       text = externallinkid({link="Digital object identifier",label="doi",prefix="http://dx.doi.org/",id=id,separator=":"})
       inactive = "" 
   end
   if ( string.sub(id,1,3) ~= "10." ) then
       cat = cat .. "" .. ' Bad DOI (expected "10." prefix) in code number'
   end
   if ( nocat and nocat ~= "" ) then cat = "" end
   return text .. inactive .. cat    

end

function selectyear( str )

   local lang = mw.getContentLanguage();
   local good, result;
   good, result = pcall( lang.formatDate, lang, 'Y', str )
   if good then 
       return result;
   else
       return ;
   end

end

function anchorid(label, args)

   local P1 = trim(args[1]) or ""
   local P2 = trim(args[2]) or ""
   local P3 = trim(args[3]) or ""
   local P4 = trim(args[4]) or ""
   local P5 = trim(args[5]) or ""
   local anchor = P1 .. P2 .. P3 .. P4 .. P5;
   if anchor ~=  then  -- See bug description in Citation/CS1
       anchor = mw.uri.anchorEncode( anchor );
   end
   
   return label .. anchor

end

function refid(label, args)

   local p = args.p or ""
   local pp = args.pp or ""
   local loc = args.loc or ""
   return anchorid(label, args) .. p .. pp .. loc    

end

function name(args)

   local P1 = trim(args[1]) or ""
   if ( args[5] ~= nil) then
       return P1 .. " et al."
   else
       local P2 = trim(args[2]) or ""
       local P3 = trim(args[3]) or "" 
       local P4 = trim(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, label, args)

   local config = frame.args -- the arguments passed BY the template, in the wikitext of the template itself
   local LB = config.BracketLeft or ""
   local RB = config.BracketRight or ""
   local anchor = args.ref or args.Ref or anchorid( label, args)
   local text = name(args)
   local loc = args.loc
   local page
   local pages = args.pp or args.pages
   if pages == nil or pages ==  then
       page = args.p or args.page;
   end 
   if nil == loc then loc = "" else loc = " " .. loc end
   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 pagename = args.pagename or ""
   local ps = args.Postscript or ""
   return LB .. "" .. text .. "" .. loc .. RB .. ps

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 = createTag({name="sup",contents=contents,params={class="reference",style="white-space:nowrap;"}}) 
   end
   return createTag({name="ref",contents="",params={name=name,group=group}}, frame) .. p

end

function reflist0(frame, config, args)

   local contents = args.refs or ""
   local liststyle = args.liststyle
   local count = args[1]
   local width = args.colwidth
   local group = args.group or config.default_group
   if ( nil == tonumber(count) and nil == width ) then 
       width = count
       count = nil
   end
   if ( nil == liststyle ) then
       if ( "upper-alpha" == group or "lower-alpha" == group or "upper-roman" == group or "lower-roman" == group or "upper-greek" == group or "lower-greek" == group ) then
           liststyle = group
       else
           liststyle = config.default_liststyle
       end
   end
   local params = {}
   params.class = "reflist"    
   params.style = z.wikitext.liststyle(liststyle)
   if ( nil ~= count ) then        
       params.class = params.class .. " references-column-count references-column-count-" .. count
       params.style = params.style .. " " .. z.wikitext.columncountstyle(count)
   end    
   if ( nil ~= width ) then
       params.class = params.class .. " references-column-width"
       params.style = params.style .. " " .. z.wikitext.columnwidthstyle(width)
   end
   local references = createTag({name="references",contents=contents,params={group=group}}, frame)
   return createTag({name="div",contents=references,params=params})

end

function refbegin0(frame, config, args)

   local liststyle = args.liststyle
   local indent = args.indent
   local indentsize = args.indentsize
   local count = args[1]
   local width = args.colwidth
   if ( nil == tonumber(count) and nil == width ) then 
       width = count
       count = nil
   end
   if ( nil == liststyle ) then
       if ( "upper-alpha" == group or "lower-alpha" == group or "upper-roman" == group or "lower-roman" == group or "upper-greek" == group or "lower-greek" == group ) then
           liststyle = group
       else
           liststyle = config.default_liststyle
       end
   end
   local params = {}
   params.class = "refbegin"
   params.style = z.wikitext.liststyle(liststyle)
   if ( nil ~= count ) then        
       params.class = params.class .. " references-column-count references-column-count-" .. count
       params.style = params.style .. " " .. z.wikitext.columncountstyle(count)
   end    
   if ( nil ~= width ) then
       params.class = params.class .. " references-column-width"
       params.style = params.style .. " " .. z.wikitext.columnwidthstyle(width)
   end
   local dlopen
   if ( nil ~= indent ) then
       dlopen = z.wikitext.OpenHTMLTag({name="dl",params={style="text-indent: -" .. (indentsize or "3.2") .. "em;"}})
   else
       dlopen = ""
   end
   return z.wikitext.OpenHTMLTag({name="div",params=params}) .. dlopen

end

function refend0(frame, config, args)

   local indent = args.indent
   local dlclose
   if ( nil ~= indent ) then

dlclose = ""

   else
       dlclose = ""
   end

return dlclose .. ""

end

-- This is used byError: Bad DOI specified! to create DOI links in the style used in citations. function z.doi(frame)

   local pframe = frame:getParent()
   local id = pframe.args.id or pframe.args[1] or ""
   return doi(id)

end

-- This is used by ISSN {{{1}}} to create ISSN links in the style used in citations. function z.ISSN(frame)

   local pframe = frame:getParent()
   local Name = pframe.args[1] or ""
   return hideinprint("ISSN " .. Name .. " " .. Name .. "")

end

-- This is used by templates such as CITEREF to create the (encoded) anchor name for a Harvard cross-reference hyperlink. function z.SFNID(frame)

   local pframe = frame:getParent()
   return anchorid('FOOTNOTE', pframe.args)

end

-- This is used by templates such as ([[#CITEREF|]]) to create the Harvard cross-reference text. function z.Harvard(frame)

   local pframe = frame:getParent()
   return crossref(frame, pframe.args)

end

-- This is used by templates such as [1] to create the entire cross-reference. function z.sfn(frame)

   local pframe = frame:getParent()
   pframe.args.Postscript = pframe.args.postscript or pframe.args.ps or ".";
   
   local content = crossref(frame, 'CITEREF', pframe.args)
   local args = { name = refid( 'FOOTNOTE', pframe.args) }
   return createTag({name = "ref", contents = content, params = args}, frame)

end

-- This is used by template [2]. function z.r(frame)

   local pframe = frame:getParent()
   local config = frame.args -- the arguments passed BY the template, in the wikitext of the template itself
   local args = pframe.args -- the arguments passed TO the template, in the wikitext that instantiates the template
   args.page1 = args.page1 or args.page
   local text = ""
   -- This would be shorter using ipairs(), but that doesn't work on an arguments table supplied to a template.
   local index = 1
   while args[index] ~= nil do
       local arg = args[index]
       local t = r0(frame, arg, args.group, args["page" .. index])
       text = text .. t
       index = index + 1
   end
   return text

end

-- This is used by template [[#endnote_{{{1}}}{{{3}}}|[{{{2}}}]]]. function z.reflabel(frame)

   local pframe = frame:getParent()
   local config = frame.args -- the arguments passed BY the template, in the wikitext of the template itself
   local args = pframe.args -- the arguments passed TO the template, in the wikitext that instantiates the template
   local P1 = args[1] or ""
   local P2 = args[2] or ""
   local P3 = args[3] or ""
   local id = nil
   local contents = "[" .. P2 .. "]"
   local params = {}
   params.class="reference"
   if ( args.noid == nil or args.noid == "" ) then params.id = "ref_" .. P1 .. P3 end
   return createTag({name="sup",contents=contents,params=params})

end

-- This is used by template . function z.notelabel(frame)

   local pframe = frame:getParent()
   local config = frame.args -- the arguments passed BY the template, in the wikitext of the template itself
   local args = pframe.args -- the arguments passed TO the template, in the wikitext that instantiates the template
   local id = args[1] or ""
   local arrow = args[3] or ""
   local postscript = args[4] or ""
   local contents 
   if arrow ~= "" then
       local sup_arrow = createTag({name="sup",contents=arrow,params={}})
       contents = "" .. sup_arrow .. "" .. postscript
       if "none" == arrow then arrow = "^" end -- Change this AFTER using it in the ID parameter and the contents.
   else
       contents = (args[2] or "") .. postscript
   end
   local params = { class="citation wikicite" }
   if id ~= "" and ( args.noid == nil or args.noid == "" ) then 
       params.id = mw.uri.anchorEncode("endnote_" .. id .. arrow)
   end
   return createTag({name="span",contents=contents,params=params})

end

-- This is used by templates

  1. [[#CITEREF|]].
  2. Cite error: Invalid <ref> tag; no text was provided for refs named {{{1}}}

and

.

function z.reflist(frame)

   local pframe = frame:getParent()
   local config = frame.args -- the arguments passed BY the template, in the wikitext of the template itself
   local args = pframe.args -- the arguments passed TO the template, in the wikitext that instantiates the template
   return reflist0(frame, config, args)

end

-- This is used by template

.

function z.refbegin(frame)

   local pframe = frame:getParent()
   local config = frame.args -- the arguments passed BY the template, in the wikitext of the template itself
   local args = pframe.args -- the arguments passed TO the template, in the wikitext that instantiates the template
   return refbegin0(frame, config, args)

end

-- This is used by template

.

function z.refend(frame)

   local pframe = frame:getParent()
   local config = frame.args -- the arguments passed BY the template, in the wikitext of the template itself
   local args = pframe.args -- the arguments passed TO the template, in the wikitext that instantiates the template
   return refend0(frame, config, args)

end

-- This is used by template Cite error: Invalid <ref> tag; refs with no name must have content. function z.efn(frame)

   local pframe = frame:getParent()
   local config = frame.args -- the arguments passed BY the template, in the wikitext of the template itself
   local args = pframe.args -- the arguments passed TO the template, in the wikitext that instantiates the template
   return createTag({name="ref",contents=(args[1] or ""),params={name=args.name,group=config.default_group}}, frame)

end

return z