Module:Citation/CS1: Difference between revisions

     mw = require("Module:Mw")

function nowiki(frame, content)

     return z.mw.text.tag({name="nowiki",contents=content,params={}}, frame)

function externallinkid(frame, args)

     local t1 = hideinprint("[[" .. args.link .. "|" .. args.label .. "]]" .. sep .. "[" .. args.prefix .. url_string .. args.suffix .. " " .. nowiki(frame, args.id) .. "]")

function internallinkid(frame, args)

     local t1 = hideinprint("[[" .. args.link .. "|" .. args.label .. "]]" .. sep .. "[[" .. args.prefix .. args.id .. args.suffix .. "|" .. nowiki(frame, args.id) .. "]]")

function amazon(frame, id, domain)

     return externallinkid(frame, {link="Amazon Standard Identification Number",label="ASIN",prefix="//www.amazon."..domain.."/dp/",id=id,encode=false})

function doi(frame, id, inactive, nocat)

         text = externallinkid(frame, {link="Digital object identifier",label="doi",prefix="http://dx.doi.org/",id=id,separator=":"})

function url(frame, id)

     local t1 = hideinprint("[" .. id .. " " .. nowiki(frame, id) .. "]")

function openlibrary(frame, id)

     local text = externallinkid(frame, {link="Open Library",label="OL",prefix=prefix,id=id})

     if ( "scap" == format ) then result= z.mw.text.tag({name="span", contents=result, params={class="smallcaps", style="font-variant:small-caps;"}}) end -- if necessary wrap result in <span> tag to format in Small Caps

function citation0(frame, args)

    local config = {};

    for k, v in pairs( frame.args ) do -- the arguments passed BY the template, in the wikitext of the template itself

     end

 

         SubscriptionRequired = sepc .. " " .. z.mw.text.tag({name="span", contents="(subscription required)", params={style="font-size:0.95em; font-size: 90%; color: #555"}})

         ARXIV = sepc .. " " .. externallinkid(frame, {label="arXiv",link="arXiv",prefix="http://arxiv.org/abs/",id=ARXIV,separator=":",encode=false}) else ARXIV = "" end

         ASIN = sepc .. " " .. amazon(frame, ASIN, ASINTLD) else ASIN = "" end

         BIBCODE = sepc .. " " .. externallinkid(frame, {label="Bibcode",link="Bibcode",prefix="http://adsabs.harvard.edu/abs/",id=BIBCODE,separator=":"}) else BIBCODE = "" end

       DOI = sepc .. " " .. doi(frame, DOI, DoiBroken) else DOI = "" end

         ISBN = sepc .. " " .. internallinkid(frame, {label="ISBN",link="International Standard Book Number",prefix="Special:BookSources/",id=ISBN}) else ISBN = "" end

         ISSN = sepc .. " " .. externallinkid(frame, {label="ISSN",link="International Standard Serial Number",prefix="//www.worldcat.org/issn/",id=ISSN,encode=false}) else ISSN = "" end

         JFM = sepc .." " .. externallinkid(frame, {label="JFM",link="Jahrbuch über die Fortschritte der Mathematik",prefix="http://www.zentralblatt-math.org/zmath/en/search/?format=complete&q=an:",id=JFM}) else JFM = "" end

         JSTOR = sepc .." " .. externallinkid(frame, {label="JSTOR",link="JSTOR",prefix="http://www.jstor.org/stable/",id=JSTOR}) else JSTOR = "" end

         LCCN = sepc .." " .. externallinkid(frame, {label="LCCN",link="Library of Congress Control Number",prefix="http://lccn.loc.gov/",id=LCCN,encode=false}) else LCCN = "" end

         MR = sepc .." " .. externallinkid(frame, {label="MR",link="Mathematical Reviews",prefix="http://www.ams.org/mathscinet-getitem?mr=",id=MR}) else MR = "" end

         OCLC = sepc .." " .. externallinkid(frame, {label="OCLC",link="OCLC",prefix="//www.worldcat.org/oclc/",id=OCLC}) else OCLC = "" end

         OL = sepc .." " .. openlibrary(frame, OL) else OL = "" end

         OSTI = sepc .." " .. externallinkid(frame, {label="OSTI",link="Office of Scientific and Technical Information",prefix="http://www.osti.gov/energycitations/product.biblio.jsp?osti_id=",id=OSTI}) else OSTI = "" end

         PMC = sepc .." " .. externallinkid(frame, {label="PMC",link="PubMed Central",prefix="//www.ncbi.nlm.nih.gov/pmc/articles/PMC",suffix=" ",id=PMC}) else PMC = "" end

         PMID = sepc .." " .. externallinkid(frame, {label="PMID",link="PubMed Identifier",prefix="//www.ncbi.nlm.nih.gov/pubmed/",id=PMID,encode=false}) else PMID = "" end

         RFC = sepc .." " .. externallinkid(frame, {label="RFC",link="Request for Comments",prefix="//tools.ietf.org/html/rfc",id=RFC,encode=false}) else RFC = "" end

         SSRN = sepc .." " .. externallinkid(frame, {label="SSRN",link="Social Science Research Network",prefix="http://ssrn.com/abstract=",id=SSRN}) else SSRN = "" end

       URL = " " .. url(frame, URL)

         ZBL = sepc .." " .. externallinkid(frame, {label="Zbl",link="Zentralblatt MATH",prefix="http://www.zentralblatt-math.org/zmath/en/search/?format=complete&q=an:",id=ZBL}) else ZBL = "" end

     text = z.mw.text.tag({name="span", contents=text, params=args})

     local empty_span = z.mw.text.tag( {name="span", contents="&nbsp;", params={style="display: none;"}} );

     local OCinS = z.mw.text.tag({name="span", contents=empty_span, params={class="Z3988",title=OCinStitle }})  

         p = z.mw.text.tag({name="sup",contents=contents,params={class="reference",style="white-space:nowrap;"}})  

     return z.mw.text.tag({name="ref",contents="",params={name=name,group=group}}, frame) .. p

     local references = z.mw.text.tag({name="references",contents=contents,params={group=group}}, frame)

     return z.mw.text.tag({name="div",contents=references,params=params})

     return doi(frame, id)

     return hideinprint(frame, "[[International Standard Serial Number|ISSN]]&nbsp;[http://www.worldcat.org/search?fq=x0:jrnl&q=n2:" .. Name .. " " .. Name .. "]")

     return citation0(frame, args)

     return z.mw.text.tag({name = "ref", contents = content, params = args}, frame)

     return z.mw.text.tag({name="sup",contents=contents,params=params})

         local sup_arrow = z.mw.text.tag({name="sup",contents=arrow,params={}})

     return z.mw.text.tag({name="span",contents=contents,params=params})

     return z.mw.text.tag({name="ref",contents=(args[1] or ""),params={name=args.name,group=config.default_group}}, frame)