/apsrev-moddoi.bst Secret
Created
March 19, 2021 07:39
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| %% | |
| %% This is file `apsrev4-1.bst', | |
| %% generated with the docstrip utility. | |
| %% | |
| %% The original source files were: | |
| %% | |
| %% merlin.mbs (with options: `head,ay,nat,lang,pres,pres-bf,seq-no,vonx,nm-init,ed-au,jnrlst,nmft,nmft-def,fnm-def,nmfted,nmand-rm,lab,lab-def,and-rm,keyxyr,blkyear,yr-par,dtrev,date-nil-x,tit-qq,inproceedings-chapter,jtit-x,inproceedings-chapter,article-booktitle,article-series,jttl-rm,journal-address,book-bt,thesis-title-o,trtit-b,techreport-institution-par,vol-bf,vnum-x,volp-com,jpg-1,book-editor-booktitle,inbook-editor-booktitle,bookaddress,num-xser,number-cap,chapter-cap,series-number,numser-booktitle,ser-vol,ser-rm,volume-cap,ser-ed,jnm-x,pg-bk,book-chapter-pages,pub-date,ay-empty-pub-parens-x,pre-pub,pre-edn,doi-link,doi,edby,blk-com,fin-endbibitem,pp,ed,abr,ednx,ord,jabr,etal-it,revdata,eprint,url,url-blk,translation,SLACcitation,numpages-x,url,url-prefix-x,bibinfo,bibfield,nfss,,{}') | |
| %% physjour.mbs (with options: `ay,nat,lang,pres,pres-bf,seq-no,vonx,nm-init,ed-au,jnrlst,nmft,nmft-def,fnm-def,nmfted,nmand-rm,lab,lab-def,and-rm,keyxyr,blkyear,yr-par,dtrev,date-nil-x,tit-qq,inproceedings-chapter,jtit-x,inproceedings-chapter,article-booktitle,article-series,jttl-rm,journal-address,book-bt,thesis-title-o,trtit-b,techreport-institution-par,vol-bf,vnum-x,volp-com,jpg-1,book-editor-booktitle,inbook-editor-booktitle,bookaddress,num-xser,number-cap,chapter-cap,series-number,numser-booktitle,ser-vol,ser-rm,volume-cap,ser-ed,jnm-x,pg-bk,book-chapter-pages,pub-date,ay-empty-pub-parens-x,pre-pub,pre-edn,doi-link,doi,edby,blk-com,fin-endbibitem,pp,ed,abr,ednx,ord,jabr,etal-it,revdata,eprint,url,url-blk,translation,SLACcitation,numpages-x,url,url-prefix-x,bibinfo,bibfield,nfss,,{}') | |
| %% geojour.mbs (with options: `ay,nat,lang,pres,pres-bf,seq-no,vonx,nm-init,ed-au,jnrlst,nmft,nmft-def,fnm-def,nmfted,nmand-rm,lab,lab-def,and-rm,keyxyr,blkyear,yr-par,dtrev,date-nil-x,tit-qq,inproceedings-chapter,jtit-x,inproceedings-chapter,article-booktitle,article-series,jttl-rm,journal-address,book-bt,thesis-title-o,trtit-b,techreport-institution-par,vol-bf,vnum-x,volp-com,jpg-1,book-editor-booktitle,inbook-editor-booktitle,bookaddress,num-xser,number-cap,chapter-cap,series-number,numser-booktitle,ser-vol,ser-rm,volume-cap,ser-ed,jnm-x,pg-bk,book-chapter-pages,pub-date,ay-empty-pub-parens-x,pre-pub,pre-edn,doi-link,doi,edby,blk-com,fin-endbibitem,pp,ed,abr,ednx,ord,jabr,etal-it,revdata,eprint,url,url-blk,translation,SLACcitation,numpages-x,url,url-prefix-x,bibinfo,bibfield,nfss,,{}') | |
| %% photjour.mbs (with options: `ay,nat,lang,pres,pres-bf,seq-no,vonx,nm-init,ed-au,jnrlst,nmft,nmft-def,fnm-def,nmfted,nmand-rm,lab,lab-def,and-rm,keyxyr,blkyear,yr-par,dtrev,date-nil-x,tit-qq,inproceedings-chapter,jtit-x,inproceedings-chapter,article-booktitle,article-series,jttl-rm,journal-address,book-bt,thesis-title-o,trtit-b,techreport-institution-par,vol-bf,vnum-x,volp-com,jpg-1,book-editor-booktitle,inbook-editor-booktitle,bookaddress,num-xser,number-cap,chapter-cap,series-number,numser-booktitle,ser-vol,ser-rm,volume-cap,ser-ed,jnm-x,pg-bk,book-chapter-pages,pub-date,ay-empty-pub-parens-x,pre-pub,pre-edn,doi-link,doi,edby,blk-com,fin-endbibitem,pp,ed,abr,ednx,ord,jabr,etal-it,revdata,eprint,url,url-blk,translation,SLACcitation,numpages-x,url,url-prefix-x,bibinfo,bibfield,nfss,,{}') | |
| %% merlin.mbs (with options: `tail,ay,nat,lang,pres,pres-bf,seq-no,vonx,nm-init,ed-au,jnrlst,nmft,nmft-def,fnm-def,nmfted,nmand-rm,lab,lab-def,and-rm,keyxyr,blkyear,yr-par,dtrev,date-nil-x,tit-qq,inproceedings-chapter,jtit-x,inproceedings-chapter,article-booktitle,article-series,jttl-rm,journal-address,book-bt,thesis-title-o,trtit-b,techreport-institution-par,vol-bf,vnum-x,volp-com,jpg-1,book-editor-booktitle,inbook-editor-booktitle,bookaddress,num-xser,number-cap,chapter-cap,series-number,numser-booktitle,ser-vol,ser-rm,volume-cap,ser-ed,jnm-x,pg-bk,book-chapter-pages,pub-date,ay-empty-pub-parens-x,pre-pub,pre-edn,doi-link,doi,edby,blk-com,fin-endbibitem,pp,ed,abr,ednx,ord,jabr,etal-it,revdata,eprint,url,url-blk,translation,SLACcitation,numpages-x,url,url-prefix-x,bibinfo,bibfield,nfss,,{}') | |
| %% ---------------------------------------- | |
| %% *** REVTeX-compatible Phys Rev 2010-07-25 *** | |
| %% | |
| %% Copyright 1994-2007 Patrick W Daly | |
| % =============================================================== | |
| % IMPORTANT NOTICE: | |
| % This bibliographic style (bst) file has been generated from one or | |
| % more master bibliographic style (mbs) files, listed above. | |
| % | |
| % This generated file can be redistributed and/or modified under the terms | |
| % of the LaTeX Project Public License Distributed from CTAN | |
| % archives in directory macros/latex/base/lppl.txt; either | |
| % version 1 of the License, or any later version. | |
| % =============================================================== | |
| % Name and version information of the main mbs file: | |
| % For use with BibTeX version 0.99a or later | |
| %------------------------------------------------------------------- | |
| % This bibliography style file is intended for texts in ENGLISH | |
| % This is an author-year citation style bibliography. As such, it is | |
| % non-standard LaTeX, and requires a special package file to function properly. | |
| % Such a package is natbib.sty by Patrick W. Daly | |
| % The form of the \bibitem entries is | |
| % \bibitem[Jones et al.(1990)]{key}... | |
| % \bibitem[Jones et al.(1990)Jones, Baker, and Smith]{key}... | |
| % The essential feature is that the label (the part in brackets) consists | |
| % of the author names, as they should appear in the citation, with the year | |
| % in parentheses following. There must be no space before the opening | |
| % parenthesis! | |
| % With natbib v5.3, a full list of authors may also follow the year. | |
| % In natbib.sty, it is possible to define the type of enclosures that is | |
| % really wanted (brackets or parentheses), but in either case, there must | |
| % be parentheses in the label. | |
| % The \cite command functions as follows: | |
| % \citet{key} ==>> Jones et al. (1990) | |
| % \citet*{key} ==>> Jones, Baker, and Smith (1990) | |
| % \citep{key} ==>> (Jones et al., 1990) | |
| % \citep*{key} ==>> (Jones, Baker, and Smith, 1990) | |
| % \citep[chap. 2]{key} ==>> (Jones et al., 1990, chap. 2) | |
| % \citep[e.g.][]{key} ==>> (e.g. Jones et al., 1990) | |
| % \citep[e.g.][p. 32]{key} ==>> (e.g. Jones et al., p. 32) | |
| % \citeauthor{key} ==>> Jones et al. | |
| % \citeauthor*{key} ==>> Jones, Baker, and Smith | |
| % \citeyear{key} ==>> 1990 | |
| %--------------------------------------------------------------------- | |
| FUNCTION {id.bst} {"merlin.mbs apsrev4-1.bst 2010-07-25 4.21a (PWD, AO, DPC) hacked"} | |
| ENTRY | |
| { | |
| address | |
| archive | |
| archivePrefix | |
| author | |
| bookaddress | |
| booktitle | |
| chapter | |
| collaboration | |
| doi | |
| edition | |
| editor | |
| eid | |
| eprint | |
| howpublished | |
| institution | |
| isbn | |
| issn | |
| journal | |
| key | |
| language | |
| month | |
| note | |
| number | |
| organization | |
| pages | |
| primaryClass | |
| publisher | |
| school | |
| SLACcitation | |
| series | |
| title | |
| translation | |
| type | |
| url | |
| volume | |
| year | |
| }{ | |
| }{ | |
| label | |
| extra.label sort.label | |
| short.list | |
| } | |
| INTEGERS | |
| { | |
| output.state before.all | |
| after.word after.punctuation | |
| after.sentence after.block | |
| } | |
| INTEGERS | |
| { | |
| punctuation.state punctuation.no punctuation.space punctuation.yes | |
| } | |
| STRINGS { bibfield output.bibfield } | |
| FUNCTION {not} | |
| { { #0 } | |
| { #1 } | |
| if$ | |
| } | |
| FUNCTION {and} | |
| { 'skip$ | |
| { pop$ #0 } | |
| if$ | |
| } | |
| FUNCTION {or} | |
| { { pop$ #1 } | |
| 'skip$ | |
| if$ | |
| } | |
| FUNCTION {non.stop} | |
| { duplicate$ | |
| "}" * add.period$ | |
| #-1 #1 substring$ "." = | |
| } | |
| INTEGERS { arith.mulitplier arith.multiplicand } | |
| FUNCTION {multiply} | |
| { | |
| 'arith.multiplicand := | |
| 'arith.mulitplier := | |
| #0 | |
| { arith.mulitplier #0 > } | |
| { arith.multiplicand + | |
| arith.mulitplier #1 - 'arith.mulitplier := | |
| } | |
| while$ | |
| } | |
| FUNCTION {chr.to.hex} | |
| { | |
| chr.to.int$ | |
| duplicate$ "0" chr.to.int$ - | |
| duplicate$ duplicate$ #0 < swap$ #9 > or not | |
| { swap$ pop$ } | |
| { pop$ | |
| duplicate$ "A" chr.to.int$ - | |
| duplicate$ duplicate$ #0 < swap$ #5 > or not | |
| { swap$ pop$ #10 + } | |
| { pop$ | |
| duplicate$ "a" chr.to.int$ - | |
| duplicate$ duplicate$ #0 < swap$ #5 > or not | |
| { swap$ pop$ #10 + } | |
| { pop$ | |
| pop$ #-1 | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| INTEGERS { arith.accumulator } | |
| FUNCTION {str.to.hex} | |
| { #0 'arith.accumulator := | |
| { duplicate$ empty$ not } | |
| { duplicate$ #1 #1 substring$ chr.to.hex | |
| duplicate$ #0 < | |
| { pop$ pop$ "" | |
| } | |
| { arith.accumulator #16 multiply + 'arith.accumulator := | |
| #2 global.max$ substring$ | |
| } | |
| if$ | |
| } | |
| while$ | |
| pop$ arith.accumulator | |
| } | |
| FUNCTION {diagn.cmntlog} | |
| { | |
| duplicate$ top$ "%" swap$ * write$ newline$ | |
| } | |
| INTEGERS { control.key control.author control.editor control.title control.pages control.eprint control.year } | |
| INTEGERS { control.author.jnrlst control.author.dotless control.author.nospace control.author.initials control.author.nocomma control.author.first control.author.reversed } | |
| FUNCTION { control.init } | |
| { | |
| #0 | |
| 'control.key := | |
| #0 | |
| #8 + | |
| #64 + | |
| 'control.author := | |
| #1 | |
| 'control.author.jnrlst := | |
| #0 | |
| 'control.author.dotless := | |
| #0 | |
| 'control.author.nospace := | |
| #1 | |
| 'control.author.initials := | |
| #0 | |
| 'control.author.nocomma := | |
| #0 | |
| 'control.author.first := | |
| #0 | |
| 'control.author.reversed := | |
| #1 | |
| 'control.editor := | |
| #1 | |
| 'control.title := | |
| #0 | |
| 'control.pages := | |
| #0 | |
| 'control.eprint := | |
| #1 | |
| 'control.year := | |
| } | |
| FUNCTION {warning.dependency} | |
| { | |
| " (dependency: " * swap$ * ") set " * swap$ int.to.str$ * warning$ | |
| } | |
| FUNCTION {control.check} | |
| { | |
| control.editor | |
| { | |
| "editor formatted same as author" | |
| control.author.reversed { | |
| duplicate$ #0 swap$ "reversed" warning.dependency | |
| #0 'control.author.reversed := | |
| } 'skip$ if$ | |
| control.author.first { | |
| duplicate$ #0 swap$ "first" warning.dependency | |
| #0 'control.author.first := | |
| } 'skip$ if$ | |
| control.author.nocomma { | |
| duplicate$ #0 swap$ "nocomma" warning.dependency | |
| #0 'control.author.nocomma := | |
| } 'skip$ if$ | |
| pop$ | |
| } 'skip$ if$ | |
| control.author.reversed 'skip$ | |
| { | |
| "not reversed" | |
| control.author.nospace { | |
| duplicate$ #0 swap$ "nospace" warning.dependency | |
| #0 'control.author.nospace := | |
| } 'skip$ if$ | |
| control.author.jnrlst 'skip$ { | |
| duplicate$ #1 swap$ "jnrlst" warning.dependency | |
| #1 'control.author.jnrlst := | |
| } if$ | |
| control.author.initials { | |
| duplicate$ ", initials" * | |
| control.author.dotless { | |
| duplicate$ #0 swap$ "dotless" warning.dependency | |
| #0 'control.author.dotless := | |
| } 'skip$ if$ | |
| pop$ | |
| } 'skip$ if$ | |
| pop$ | |
| } | |
| if$ | |
| control.author.initials 'skip$ { | |
| "not initials" | |
| control.author.nocomma { | |
| duplicate$ #0 swap$ "nocomma" warning.dependency | |
| #0 'control.author.nocomma := | |
| } 'skip$ if$ | |
| control.author.nospace { | |
| duplicate$ #0 swap$ "nospace" warning.dependency | |
| #0 'control.author.nospace := | |
| } 'skip$ if$ | |
| control.author.dotless 'skip$ { | |
| duplicate$ #1 swap$ "dotless" warning.dependency | |
| #1 'control.author.dotless := | |
| } if$ | |
| pop$ | |
| } if$ | |
| } | |
| FUNCTION {control.parse} | |
| { | |
| duplicate$ duplicate$ missing$ | |
| { | |
| pop$ pop$ pop$ | |
| } | |
| { empty$ | |
| { | |
| pop$ #-1 | |
| }{ | |
| str.to.hex | |
| } | |
| if$ | |
| swap$ := | |
| } | |
| if$ | |
| } | |
| FUNCTION {control.dump} | |
| { | |
| duplicate$ missing$ { pop$ "N/A" } 'skip$ if$ | |
| "{" swap$ * "}, " * | |
| * | |
| } | |
| INTEGERS { decode.threshold } | |
| FUNCTION {control.decode} | |
| { | |
| - duplicate$ | |
| #0 < | |
| { | |
| skip$ pop$ swap$ #0 | |
| } | |
| { | |
| swap$ pop$ swap$ #1 | |
| } | |
| if$ | |
| swap$ := | |
| } | |
| FUNCTION {control.author.decode} | |
| { | |
| control.author | |
| duplicate$ duplicate$ #0 < swap$ #128 < not or | |
| { | |
| int.to.str$ "(" swap$ * ")" * | |
| "Control cannot interpret author " swap$ * | |
| warning$ | |
| }{ | |
| 'control.author.jnrlst swap$ duplicate$ #64 control.decode | |
| 'control.author.dotless swap$ duplicate$ #32 control.decode | |
| 'control.author.nospace swap$ duplicate$ #16 control.decode | |
| 'control.author.initials swap$ duplicate$ #8 control.decode | |
| 'control.author.nocomma swap$ duplicate$ #4 control.decode | |
| 'control.author.first swap$ duplicate$ #2 control.decode | |
| 'control.author.reversed swap$ duplicate$ #1 control.decode | |
| duplicate$ #0 = | |
| 'skip$ | |
| { | |
| "Control: residue of author" | |
| "(" swap$ * ")" * * | |
| warning$ | |
| } | |
| if$ | |
| pop$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {control.setup} | |
| { | |
| type$ cite$ "{" swap$ * "}, " * * | |
| "control.key" key control.dump * | |
| "control.author" author control.dump * | |
| "control.editor" editor control.dump * | |
| "control.title" title control.dump * | |
| "control.pages" pages control.dump * | |
| "control.year" year control.dump * | |
| "control.eprint" eprint control.dump * | |
| top$ | |
| 'control.key key control.parse | |
| 'control.author author control.parse | |
| 'control.editor editor control.parse | |
| 'control.title title control.parse | |
| 'control.pages pages control.parse | |
| 'control.year year control.parse | |
| 'control.eprint eprint control.parse | |
| control.author.decode | |
| } | |
| FUNCTION {control.pass} | |
| { type$ "control" = 'control.setup 'skip$ if$ | |
| } | |
| FUNCTION {control.presort} | |
| { | |
| } | |
| FUNCTION {control.forward} | |
| { | |
| } | |
| FUNCTION {control.reverse} | |
| { | |
| } | |
| FUNCTION {control.sort} | |
| { | |
| } | |
| FUNCTION {control.longest.label} | |
| { | |
| } | |
| FUNCTION {control.key.bib} | |
| { | |
| "Control: key " | |
| control.key | |
| duplicate$ "(" swap$ int.to.str$ * ") " * swap$ | |
| pop$ * | |
| diagn.cmntlog | |
| } | |
| FUNCTION {control.author.bib} | |
| { | |
| "Control: author " | |
| control.author "(" swap$ int.to.str$ * ")" * * | |
| control.author.reversed { " reversed" * }{} if$ | |
| control.author.first { " first" * }{} if$ | |
| control.author.nocomma { " nocomma" * }{} if$ | |
| control.author.initials { " initials" * }{} if$ | |
| control.author.nospace { " nospace" * }{} if$ | |
| control.author.dotless { " dotless" * }{} if$ | |
| control.author.jnrlst { " jnrlst" * }{} if$ | |
| diagn.cmntlog | |
| } | |
| FUNCTION {control.editor.bib} | |
| { | |
| "Control: editor formatted " | |
| control.editor | |
| duplicate$ "(" swap$ int.to.str$ * ") " * swap$ | |
| duplicate$ #0 < { | |
| pop$ | |
| "disabled!" | |
| } { | |
| #0 > { | |
| "identically to author" | |
| } { | |
| "differently from author" | |
| } if$ | |
| } if$ * * | |
| diagn.cmntlog | |
| } | |
| FUNCTION {control.title.bib} | |
| { | |
| "Control: production of article title " | |
| control.title | |
| duplicate$ "(" swap$ int.to.str$ * ") " * swap$ | |
| duplicate$ #0 < { | |
| pop$ | |
| "disabled" | |
| } { | |
| #0 > { | |
| "required" | |
| } { | |
| "allowed" | |
| } if$ | |
| } if$ * * | |
| diagn.cmntlog | |
| } | |
| FUNCTION {control.pages.bib} | |
| { | |
| "Control: page " | |
| control.pages | |
| duplicate$ "(" swap$ int.to.str$ * ") " * swap$ | |
| duplicate$ #0 < { | |
| pop$ | |
| "none" | |
| } { | |
| #0 > { | |
| "range" | |
| } { | |
| "single" | |
| } if$ | |
| } if$ * * | |
| diagn.cmntlog | |
| } | |
| FUNCTION {control.year.bib} | |
| { | |
| "Control: year " | |
| control.year | |
| duplicate$ "(" swap$ int.to.str$ * ") " * swap$ | |
| duplicate$ #0 < { | |
| pop$ | |
| "disabled!" | |
| } { | |
| #0 > { | |
| "truncated" | |
| } { | |
| "verbatim" | |
| } if$ | |
| } if$ * * | |
| diagn.cmntlog | |
| } | |
| FUNCTION {control.eprint.bib} | |
| { | |
| "Control: production of eprint " | |
| control.eprint | |
| duplicate$ "(" swap$ int.to.str$ * ") " * swap$ | |
| #0 < { "disabled" } { "enabled" } if$ * * | |
| diagn.cmntlog | |
| } | |
| FUNCTION {control.bib} | |
| { | |
| control.key.bib | |
| control.author.bib | |
| control.editor.bib | |
| control.title.bib | |
| control.pages.bib | |
| control.year.bib | |
| control.eprint.bib | |
| } | |
| FUNCTION {init.state.consts} | |
| { | |
| #0 'before.all := | |
| #1 'after.word := | |
| #2 'after.punctuation := | |
| #3 'after.sentence := | |
| #4 'after.block := | |
| #0 'punctuation.no := | |
| #1 'punctuation.space := | |
| #2 'punctuation.yes := | |
| "" 'bibfield := | |
| "" 'output.bibfield := | |
| } | |
| STRINGS { s t} | |
| FUNCTION {block.punctuation} | |
| { "" | |
| "," * | |
| } | |
| FUNCTION {word.space} | |
| { | |
| "\ " | |
| } | |
| FUNCTION {show.stackstring.one}{ | |
| "(" * | |
| output.state int.to.str$ * | |
| "," * punctuation.state int.to.str$ * | |
| ")" * top$ | |
| duplicate$ "1(" swap$ * ")" * top$ | |
| } | |
| FUNCTION {show.stackstring.two}{ | |
| "(" * | |
| output.state int.to.str$ * | |
| "," * punctuation.state int.to.str$ * | |
| ")" * top$ | |
| swap$ | |
| duplicate$ "1(" swap$ * ")" * top$ | |
| swap$ | |
| duplicate$ "2(" swap$ * ")" * top$ | |
| } | |
| FUNCTION {bibfield.command}{ "\bibfield "} | |
| FUNCTION {output.nonnull} | |
| { | |
| swap$ | |
| output.state after.word = | |
| { | |
| block.punctuation * | |
| word.space * | |
| } | |
| { | |
| output.state after.punctuation = | |
| { | |
| word.space * | |
| } | |
| { | |
| output.state after.block = output.state after.sentence = or | |
| { | |
| add.period$ | |
| "\EOS\ " * | |
| }{ | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| if$ | |
| output.bibfield duplicate$ empty$ 'pop$ | |
| { | |
| bibfield.command | |
| " {" * swap$ * "} {" * swap$ * "}" * | |
| } | |
| if$ | |
| write$ | |
| bibfield 'output.bibfield := "" 'bibfield := | |
| output.state after.block = | |
| { | |
| newline$ | |
| "\newblock " write$ | |
| } | |
| 'skip$ | |
| if$ | |
| punctuation.state duplicate$ | |
| punctuation.yes 'punctuation.state := | |
| punctuation.no = | |
| { pop$ before.all } | |
| { punctuation.yes = { after.word }{ after.punctuation } if$ } | |
| if$ | |
| 'output.state := | |
| } | |
| FUNCTION {output} | |
| { duplicate$ empty$ | |
| { | |
| pop$ | |
| "" 'bibfield := | |
| } | |
| 'output.nonnull | |
| if$ | |
| } | |
| FUNCTION {output.nopunct} | |
| { | |
| punctuation.no 'punctuation.state := | |
| output.nonnull | |
| } | |
| FUNCTION {output.check} | |
| { swap$ | |
| duplicate$ empty$ | |
| { pop$ "empty " swap$ * " in " * cite$ * warning$ } | |
| { swap$ pop$ output.nonnull } | |
| if$ | |
| } | |
| FUNCTION {bbl.open} { "\BibitemOpen " } | |
| FUNCTION {bbl.shut} { "\BibitemShut " } | |
| FUNCTION {bibitem.shut.stop} { bbl.shut "{Stop}%" * } | |
| FUNCTION {bibitem.shut.nostop} { bbl.shut "{NoStop}%" * } | |
| FUNCTION {bibitem.shut} | |
| { | |
| non.stop | |
| { | |
| bibitem.shut.nostop * | |
| }{ | |
| bibitem.shut.stop * | |
| } | |
| if$ | |
| } | |
| FUNCTION {html.itag} { | |
| "p" | |
| } | |
| FUNCTION {html.ltag} { | |
| "" | |
| } | |
| FUNCTION {output.SLACcitation} | |
| { SLACcitation empty$ | |
| 'skip$ | |
| { | |
| newline$ | |
| SLACcitation write$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {fin.entry} | |
| { | |
| bibitem.shut | |
| write$ | |
| output.SLACcitation | |
| } | |
| FUNCTION {new.block} | |
| { output.state before.all = | |
| 'skip$ | |
| { after.block 'output.state := } | |
| if$ | |
| } | |
| FUNCTION {new.block.comma} | |
| { | |
| } | |
| FUNCTION {new.sentence} | |
| { output.state after.block = output.state before.all = or | |
| 'skip$ | |
| { after.sentence 'output.state := } | |
| if$ | |
| } | |
| FUNCTION {new.sentence.comma} | |
| { | |
| } | |
| FUNCTION {sentence.or.colon} | |
| { | |
| new.sentence | |
| } | |
| FUNCTION {add.blank} | |
| { | |
| word.space * | |
| before.all 'output.state := | |
| } | |
| FUNCTION {no.blank.or.punct} | |
| { | |
| "\hspace {0pt}" * | |
| before.all 'output.state := | |
| } | |
| FUNCTION {date.block} | |
| { | |
| new.block.comma | |
| skip$ | |
| } | |
| STRINGS {z} | |
| FUNCTION {remove.dots} | |
| { | |
| control.author.dotless { | |
| 'z := | |
| "" | |
| { z empty$ not } | |
| { z #1 #1 substring$ | |
| z #2 global.max$ substring$ 'z := | |
| duplicate$ "." = 'pop$ | |
| { * } | |
| if$ | |
| } | |
| while$ | |
| } 'skip$ if$ | |
| } | |
| FUNCTION {new.block.checkb} | |
| { empty$ | |
| swap$ empty$ | |
| and | |
| 'skip$ | |
| 'new.block | |
| if$ | |
| } | |
| FUNCTION {field.or.null} | |
| { duplicate$ empty$ | |
| { pop$ "" } | |
| 'skip$ | |
| if$ | |
| } | |
| FUNCTION {emphasize} | |
| { | |
| duplicate$ empty$ | |
| { pop$ "" } | |
| { | |
| "\emph {" swap$ * "}" * | |
| } | |
| if$ | |
| } | |
| FUNCTION {bolden} | |
| { duplicate$ empty$ | |
| { pop$ "" } | |
| { "\textbf {" swap$ * "}" * } | |
| if$ | |
| } | |
| FUNCTION {bib.name.font} | |
| { | |
| duplicate$ empty$ | |
| { pop$ "" } | |
| { | |
| "\bibnamefont {" swap$ * "}" * | |
| } | |
| if$ | |
| } | |
| FUNCTION {bib.fname.font} | |
| { | |
| duplicate$ empty$ | |
| { pop$ "" } | |
| { | |
| "\bibfnamefont {" swap$ * "}" * | |
| } | |
| if$ | |
| } | |
| FUNCTION {cite.name.font} | |
| { | |
| duplicate$ empty$ | |
| { pop$ "" } | |
| { | |
| "\citenamefont {" swap$ * "}" * | |
| } | |
| if$ | |
| } | |
| FUNCTION {tie.or.space.prefix} | |
| { duplicate$ text.length$ #3 < | |
| { "~" } | |
| { word.space } | |
| if$ | |
| swap$ | |
| } | |
| FUNCTION {capitalize} | |
| { | |
| "u" change.case$ "t" change.case$ | |
| } | |
| FUNCTION {space.word} | |
| { word.space swap$ * word.space * } | |
| % Here are the language-specific definitions for explicit words. | |
| % Each function has a name bbl.xxx where xxx is the English word. | |
| % The language selected here is ENGLISH | |
| FUNCTION {bbl.and} | |
| { | |
| "and" | |
| } | |
| FUNCTION {bbl.etal} | |
| { | |
| "et~al." | |
| } | |
| FUNCTION {bbl.editors} | |
| { | |
| "eds." | |
| } | |
| FUNCTION {bbl.editor} | |
| { | |
| "ed." | |
| } | |
| FUNCTION {bbl.edby} | |
| { "edited by" } | |
| FUNCTION {bbl.edition} | |
| { | |
| "ed." | |
| } | |
| FUNCTION {bbl.volume} | |
| { | |
| "vol." | |
| } | |
| FUNCTION {bbl.of} | |
| { "of" } | |
| FUNCTION {bbl.number} | |
| { | |
| "no." | |
| } | |
| FUNCTION {bbl.nr} | |
| { "no." } | |
| FUNCTION {bbl.in} | |
| { "in" } | |
| FUNCTION {bbl.pages} | |
| { | |
| "pp." | |
| } | |
| FUNCTION {bbl.page} | |
| { | |
| "p." | |
| } | |
| FUNCTION {bbl.eidpp} | |
| { "pages" } | |
| FUNCTION {bbl.chapter} | |
| { | |
| "chap." | |
| } | |
| FUNCTION {bbl.techrep} | |
| { | |
| "Tech. Rep." | |
| } | |
| FUNCTION {bbl.mthesis} | |
| { "Master's thesis" } | |
| FUNCTION {bbl.phdthesis} | |
| { "Ph.D. thesis" } | |
| FUNCTION {bbl.first} | |
| { | |
| "1st" | |
| } | |
| FUNCTION {bbl.second} | |
| { | |
| "2nd" | |
| } | |
| FUNCTION {bbl.third} | |
| { | |
| "3rd" | |
| } | |
| FUNCTION {bbl.fourth} | |
| { | |
| "4th" | |
| } | |
| FUNCTION {bbl.fifth} | |
| { | |
| "5th" | |
| } | |
| FUNCTION {bbl.st} | |
| { "st" } | |
| FUNCTION {bbl.nd} | |
| { "nd" } | |
| FUNCTION {bbl.rd} | |
| { "rd" } | |
| FUNCTION {bbl.th} | |
| { "th" } | |
| MACRO {jan} {"Jan."} | |
| MACRO {feb} {"Feb."} | |
| MACRO {mar} {"Mar."} | |
| MACRO {apr} {"Apr."} | |
| MACRO {may} {"May"} | |
| MACRO {jun} {"Jun."} | |
| MACRO {jul} {"Jul."} | |
| MACRO {aug} {"Aug."} | |
| MACRO {sep} {"Sep."} | |
| MACRO {oct} {"Oct."} | |
| MACRO {nov} {"Nov."} | |
| MACRO {dec} {"Dec."} | |
| FUNCTION {bbl.url.prefix} | |
| { | |
| "\urlprefix " | |
| } | |
| FUNCTION {eng.ord} | |
| { duplicate$ "1" swap$ * | |
| #-2 #1 substring$ "1" = | |
| { bbl.th * } | |
| { duplicate$ #-1 #1 substring$ | |
| duplicate$ "1" = | |
| { pop$ bbl.st * } | |
| { duplicate$ "2" = | |
| { pop$ bbl.nd * } | |
| { "3" = | |
| { bbl.rd * } | |
| { bbl.th * } | |
| if$ | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| %------------------------------------------------------------------- | |
| % Begin module: | |
| % \ProvidesFile{physjour.mbs}[2002/01/14 2.2 (PWD)] | |
| MACRO {aa}{"Astron. \& Astrophys."} | |
| MACRO {aasup}{"Astron. \& Astrophys. Suppl. Ser."} | |
| MACRO {aj} {"Astron. J."} | |
| MACRO {aph} {"Acta Phys."} | |
| MACRO {advp} {"Adv. Phys."} | |
| MACRO {ajp} {"Amer. J. Phys."} | |
| MACRO {ajm} {"Amer. J. Math."} | |
| MACRO {amsci} {"Amer. Sci."} | |
| MACRO {anofd} {"Ann. Fluid Dyn."} | |
| MACRO {am} {"Ann. Math."} | |
| MACRO {ap} {"Ann. Phys. (NY)"} | |
| MACRO {adp} {"Ann. Phys. (Leipzig)"} | |
| MACRO {ao} {"Appl. Opt."} | |
| MACRO {apl} {"Appl. Phys. Lett."} | |
| MACRO {app} {"Astroparticle Phys."} | |
| MACRO {apj} {"Astrophys. J."} | |
| MACRO {apjsup} {"Astrophys. J. Suppl."} | |
| MACRO {apss} {"Astrophys. Space Sci."} | |
| MACRO {araa} {"Ann. Rev. Astron. Astrophys."} | |
| MACRO {baas} {"Bull. Amer. Astron. Soc."} | |
| MACRO {baps} {"Bull. Amer. Phys. Soc."} | |
| MACRO {cmp} {"Comm. Math. Phys."} | |
| MACRO {cpam} {"Commun. Pure Appl. Math."} | |
| MACRO {cppcf} {"Comm. Plasma Phys. \& Controlled Fusion"} | |
| MACRO {cpc} {"Comp. Phys. Comm."} | |
| MACRO {cqg} {"Class. Quant. Grav."} | |
| MACRO {cra} {"C. R. Acad. Sci. A"} | |
| MACRO {fed} {"Fusion Eng. \& Design"} | |
| MACRO {ft} {"Fusion Tech."} | |
| MACRO {grg} {"Gen. Relativ. Gravit."} | |
| MACRO {ieeens} {"IEEE Trans. Nucl. Sci."} | |
| MACRO {ieeeps} {"IEEE Trans. Plasma Sci."} | |
| MACRO {ijimw} {"Interntl. J. Infrared \& Millimeter Waves"} | |
| MACRO {ip} {"Infrared Phys."} | |
| MACRO {irp} {"Infrared Phys."} | |
| MACRO {jap} {"J. Appl. Phys."} | |
| MACRO {jasa} {"J. Acoust. Soc. America"} | |
| MACRO {jcp} {"J. Comp. Phys."} | |
| MACRO {jetp} {"Sov. Phys.--JETP"} | |
| MACRO {jfe} {"J. Fusion Energy"} | |
| MACRO {jfm} {"J. Fluid Mech."} | |
| MACRO {jmp} {"J. Math. Phys."} | |
| MACRO {jne} {"J. Nucl. Energy"} | |
| MACRO {jnec} {"J. Nucl. Energy, C: Plasma Phys., Accelerators, Thermonucl. Res."} | |
| MACRO {jnm} {"J. Nucl. Mat."} | |
| MACRO {jpc} {"J. Phys. Chem."} | |
| MACRO {jpp} {"J. Plasma Phys."} | |
| MACRO {jpsj} {"J. Phys. Soc. Japan"} | |
| MACRO {jsi} {"J. Sci. Instrum."} | |
| MACRO {jvst} {"J. Vac. Sci. \& Tech."} | |
| MACRO {nat} {"Nature"} | |
| MACRO {nature} {"Nature"} | |
| MACRO {nedf} {"Nucl. Eng. \& Design/Fusion"} | |
| MACRO {nf} {"Nucl. Fusion"} | |
| MACRO {nim} {"Nucl. Inst. \& Meth."} | |
| MACRO {nimpr} {"Nucl. Inst. \& Meth. in Phys. Res."} | |
| MACRO {np} {"Nucl. Phys."} | |
| MACRO {npb} {"Nucl. Phys. B"} | |
| MACRO {nt/f} {"Nucl. Tech./Fusion"} | |
| MACRO {npbpc} {"Nucl. Phys. B (Proc. Suppl.)"} | |
| MACRO {inc} {"Nuovo Cimento"} | |
| MACRO {nc} {"Nuovo Cimento"} | |
| MACRO {pf} {"Phys. Fluids"} | |
| MACRO {pfa} {"Phys. Fluids A: Fluid Dyn."} | |
| MACRO {pfb} {"Phys. Fluids B: Plasma Phys."} | |
| MACRO {pl} {"Phys. Lett."} | |
| MACRO {pla} {"Phys. Lett. A"} | |
| MACRO {plb} {"Phys. Lett. B"} | |
| MACRO {prep} {"Phys. Rep."} | |
| MACRO {pnas} {"Proc. Nat. Acad. Sci. USA"} | |
| MACRO {pp} {"Phys. Plasmas"} | |
| MACRO {ppcf} {"Plasma Phys. \& Controlled Fusion"} | |
| MACRO {phitrsl} {"Philos. Trans. Roy. Soc. London"} | |
| MACRO {prl} {"Phys. Rev. Lett."} | |
| MACRO {pr} {"Phys. Rev."} | |
| MACRO {physrev} {"Phys. Rev."} | |
| MACRO {pra} {"Phys. Rev. A"} | |
| MACRO {prb} {"Phys. Rev. B"} | |
| MACRO {prc} {"Phys. Rev. C"} | |
| MACRO {prd} {"Phys. Rev. D"} | |
| MACRO {pre} {"Phys. Rev. E"} | |
| MACRO {ps} {"Phys. Scripta"} | |
| MACRO {procrsl} {"Proc. Roy. Soc. London"} | |
| MACRO {rmp} {"Rev. Mod. Phys."} | |
| MACRO {rsi} {"Rev. Sci. Inst."} | |
| MACRO {science} {"Science"} | |
| MACRO {sciam} {"Sci. Am."} | |
| MACRO {sam} {"Stud. Appl. Math."} | |
| MACRO {sjpp} {"Sov. J. Plasma Phys."} | |
| MACRO {spd} {"Sov. Phys.--Doklady"} | |
| MACRO {sptp} {"Sov. Phys.--Tech. Phys."} | |
| MACRO {spu} {"Sov. Phys.--Uspeki"} | |
| MACRO {st} {"Sky and Telesc."} | |
| % End module: physjour.mbs | |
| %------------------------------------------------------------------- | |
| % Begin module: | |
| % \ProvidesFile{geojour.mbs}[2002/07/10 2.0h (PWD)] | |
| MACRO {aisr} {"Adv. Space Res."} | |
| MACRO {ag} {"Ann. Geophys."} | |
| MACRO {anigeo} {"Ann. Geofis."} | |
| MACRO {angl} {"Ann. Glaciol."} | |
| MACRO {andmet} {"Ann. d. Meteor."} | |
| MACRO {andgeo} {"Ann. d. Geophys."} | |
| MACRO {andphy} {"Ann. Phys.-Paris"} | |
| MACRO {afmgb} {"Arch. Meteor. Geophys. Bioklimatol."} | |
| MACRO {atph} {"Atm\'osphera"} | |
| MACRO {aao} {"Atmos. Ocean"} | |
| MACRO {ass}{"Astrophys. Space Sci."} | |
| MACRO {atenv} {"Atmos. Environ."} | |
| MACRO {aujag} {"Aust. J. Agr. Res."} | |
| MACRO {aumet} {"Aust. Meteorol. Mag."} | |
| MACRO {blmet} {"Bound.-Lay. Meteorol."} | |
| MACRO {bams} {"Bull. Amer. Meteorol. Soc."} | |
| MACRO {cch} {"Clim. Change"} | |
| MACRO {cdyn} {"Clim. Dynam."} | |
| MACRO {cbul} {"Climatol. Bull."} | |
| MACRO {cap} {"Contrib. Atmos. Phys."} | |
| MACRO {dsr} {"Deep-Sea Res."} | |
| MACRO {dhz} {"Dtsch. Hydrogr. Z."} | |
| MACRO {dao} {"Dynam. Atmos. Oceans"} | |
| MACRO {eco} {"Ecology"} | |
| MACRO {empl}{"Earth, Moon and Planets"} | |
| MACRO {envres} {"Environ. Res."} | |
| MACRO {envst} {"Environ. Sci. Technol."} | |
| MACRO {ecms} {"Estuarine Coastal Mar. Sci."} | |
| MACRO {expa}{"Exper. Astron."} | |
| MACRO {geoint} {"Geofis. Int."} | |
| MACRO {geopub} {"Geofys. Publ."} | |
| MACRO {geogeo} {"Geol. Geofiz."} | |
| MACRO {gafd} {"Geophys. Astrophys. Fluid Dyn."} | |
| MACRO {gfd} {"Geophys. Fluid Dyn."} | |
| MACRO {geomag} {"Geophys. Mag."} | |
| MACRO {georl} {"Geophys. Res. Lett."} | |
| MACRO {grl} {"Geophys. Res. Lett."} | |
| MACRO {ga} {"Geophysica"} | |
| MACRO {gs} {"Geophysics"} | |
| MACRO {ieeetap} {"IEEE Trans. Antenn. Propag."} | |
| MACRO {ijawp} {"Int. J. Air Water Pollut."} | |
| MACRO {ijc} {"Int. J. Climatol."} | |
| MACRO {ijrs} {"Int. J. Remote Sens."} | |
| MACRO {jam} {"J. Appl. Meteorol."} | |
| MACRO {jaot} {"J. Atmos. Ocean. Technol."} | |
| MACRO {jatp} {"J. Atmos. Terr. Phys."} | |
| MACRO {jastp} {"J. Atmos. Solar-Terr. Phys."} | |
| MACRO {jce} {"J. Climate"} | |
| MACRO {jcam} {"J. Climate Appl. Meteor."} | |
| MACRO {jcm} {"J. Climate Meteor."} | |
| MACRO {jcy} {"J. Climatol."} | |
| MACRO {jgr} {"J. Geophys. Res."} | |
| MACRO {jga} {"J. Glaciol."} | |
| MACRO {jh} {"J. Hydrol."} | |
| MACRO {jmr} {"J. Mar. Res."} | |
| MACRO {jmrj} {"J. Meteor. Res. Japan"} | |
| MACRO {jm} {"J. Meteor."} | |
| MACRO {jpo} {"J. Phys. Oceanogr."} | |
| MACRO {jra} {"J. Rech. Atmos."} | |
| MACRO {jaes} {"J. Aeronaut. Sci."} | |
| MACRO {japca} {"J. Air Pollut. Control Assoc."} | |
| MACRO {jas} {"J. Atmos. Sci."} | |
| MACRO {jmts} {"J. Mar. Technol. Soc."} | |
| MACRO {jmsj} {"J. Meteorol. Soc. Japan"} | |
| MACRO {josj} {"J. Oceanogr. Soc. Japan"} | |
| MACRO {jwm} {"J. Wea. Mod."} | |
| MACRO {lao} {"Limnol. Oceanogr."} | |
| MACRO {mwl} {"Mar. Wea. Log"} | |
| MACRO {mau} {"Mausam"} | |
| MACRO {meteor} {"``Meteor'' Forschungsergeb."} | |
| MACRO {map} {"Meteorol. Atmos. Phys."} | |
| MACRO {metmag} {"Meteor. Mag."} | |
| MACRO {metmon} {"Meteor. Monogr."} | |
| MACRO {metrun} {"Meteor. Rundsch."} | |
| MACRO {metzeit} {"Meteor. Z."} | |
| MACRO {metgid} {"Meteor. Gidrol."} | |
| MACRO {mwr} {"Mon. Weather Rev."} | |
| MACRO {nwd} {"Natl. Weather Dig."} | |
| MACRO {nzjmfr} {"New Zeal. J. Mar. Freshwater Res."} | |
| MACRO {npg} {"Nonlin. Proc. Geophys."} | |
| MACRO {om} {"Oceanogr. Meteorol."} | |
| MACRO {ocac} {"Oceanol. Acta"} | |
| MACRO {oceanus} {"Oceanus"} | |
| MACRO {paleoc} {"Paleoceanography"} | |
| MACRO {pce} {"Phys. Chem. Earth"} | |
| MACRO {pmg} {"Pap. Meteor. Geophys."} | |
| MACRO {ppom} {"Pap. Phys. Oceanogr. Meteor."} | |
| MACRO {physzeit} {"Phys. Z."} | |
| MACRO {pps} {"Planet. Space Sci."} | |
| MACRO {pss} {"Planet. Space Sci."} | |
| MACRO {pag} {"Pure Appl. Geophys."} | |
| MACRO {qjrms} {"Quart. J. Roy. Meteorol. Soc."} | |
| MACRO {quatres} {"Quat. Res."} | |
| MACRO {rsci} {"Radio Sci."} | |
| MACRO {rse} {"Remote Sens. Environ."} | |
| MACRO {rgeo} {"Rev. Geophys."} | |
| MACRO {rgsp} {"Rev. Geophys. Space Phys."} | |
| MACRO {rdgeo} {"Rev. Geofis."} | |
| MACRO {revmeta} {"Rev. Meteorol."} | |
| MACRO {sgp}{"Surveys in Geophys."} | |
| MACRO {sp} {"Solar Phys."} | |
| MACRO {ssr} {"Space Sci. Rev."} | |
| MACRO {tellus} {"Tellus"} | |
| MACRO {tac} {"Theor. Appl. Climatol."} | |
| MACRO {tagu} {"Trans. Am. Geophys. Union (EOS)"} | |
| MACRO {wrr} {"Water Resour. Res."} | |
| MACRO {weather} {"Weather"} | |
| MACRO {wafc} {"Weather Forecast."} | |
| MACRO {ww} {"Weatherwise"} | |
| MACRO {wmob} {"WMO Bull."} | |
| MACRO {zeitmet} {"Z. Meteorol."} | |
| % End module: geojour.mbs | |
| %------------------------------------------------------------------- | |
| % Begin module: | |
| % \ProvidesFile{photjour.mbs}[1999/02/24 2.0b (PWD)] | |
| MACRO {appopt} {"Appl. Opt."} | |
| MACRO {bell} {"Bell Syst. Tech. J."} | |
| MACRO {ell} {"Electron. Lett."} | |
| MACRO {jasp} {"J. Appl. Spectr."} | |
| MACRO {jqe} {"IEEE J. Quantum Electron."} | |
| MACRO {jlwt} {"J. Lightwave Technol."} | |
| MACRO {jmo} {"J. Mod. Opt."} | |
| MACRO {josa} {"J. Opt. Soc. America"} | |
| MACRO {josaa} {"J. Opt. Soc. Amer.~A"} | |
| MACRO {josab} {"J. Opt. Soc. Amer.~B"} | |
| MACRO {jdp} {"J. Phys. (Paris)"} | |
| MACRO {oc} {"Opt. Commun."} | |
| MACRO {ol} {"Opt. Lett."} | |
| MACRO {phtl} {"IEEE Photon. Technol. Lett."} | |
| MACRO {pspie} {"Proc. Soc. Photo-Opt. Instrum. Eng."} | |
| MACRO {sse} {"Solid-State Electron."} | |
| MACRO {sjot} {"Sov. J. Opt. Technol."} | |
| MACRO {sjqe} {"Sov. J. Quantum Electron."} | |
| MACRO {sleb} {"Sov. Phys.--Leb. Inst. Rep."} | |
| MACRO {stph} {"Sov. Phys.--Techn. Phys."} | |
| MACRO {stphl} {"Sov. Techn. Phys. Lett."} | |
| MACRO {vr} {"Vision Res."} | |
| MACRO {zph} {"Z. f. Physik"} | |
| MACRO {zphb} {"Z. f. Physik~B"} | |
| MACRO {zphd} {"Z. f. Physik~D"} | |
| MACRO {CLEO} {"CLEO"} | |
| MACRO {ASSL} {"Adv. Sol.-State Lasers"} | |
| MACRO {OSA} {"OSA"} | |
| % End module: photjour.mbs | |
| %% Copyright 1994-2007 Patrick W Daly | |
| MACRO {acmcs} {"ACM Comput. Surv."} | |
| MACRO {acta} {"Acta Inf."} | |
| MACRO {cacm} {"Commun. ACM"} | |
| MACRO {ibmjrd} {"IBM J. Res. Dev."} | |
| MACRO {ibmsj} {"IBM Syst.~J."} | |
| MACRO {ieeese} {"IEEE Trans. Software Eng."} | |
| MACRO {ieeetc} {"IEEE Trans. Comput."} | |
| MACRO {ieeetcad} | |
| {"IEEE Trans. Comput. Aid. Des."} | |
| MACRO {ipl} {"Inf. Process. Lett."} | |
| MACRO {jacm} {"J.~ACM"} | |
| MACRO {jcss} {"J.~Comput. Syst. Sci."} | |
| MACRO {scp} {"Sci. Comput. Program."} | |
| MACRO {sicomp} {"SIAM J. Comput."} | |
| MACRO {tocs} {"ACM Trans. Comput. Syst."} | |
| MACRO {tods} {"ACM Trans. Database Syst."} | |
| MACRO {tog} {"ACM Trans. Graphic."} | |
| MACRO {toms} {"ACM Trans. Math. Software"} | |
| MACRO {toois} {"ACM Trans. Office Inf. Syst."} | |
| MACRO {toplas} {"ACM Trans. Progr. Lang. Syst."} | |
| MACRO {tcs} {"Theor. Comput. Sci."} | |
| FUNCTION {bibinfo.command} { "\bibinfo " } | |
| FUNCTION {bibinfo.check} | |
| { swap$ | |
| duplicate$ missing$ | |
| { | |
| pop$ | |
| pop$ "" | |
| }{ | |
| duplicate$ empty$ | |
| { | |
| swap$ pop$ | |
| }{ | |
| swap$ | |
| bibinfo.command "{" * swap$ * "} {" * swap$ * "}" * | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {bibinfo.warn} | |
| { swap$ | |
| duplicate$ missing$ | |
| { | |
| swap$ "missing " swap$ * " in " * cite$ * warning$ pop$ | |
| "" | |
| }{ | |
| duplicate$ empty$ | |
| { | |
| swap$ "empty " swap$ * " in " * cite$ * warning$ | |
| }{ | |
| swap$ | |
| bibinfo.command " {" * swap$ * "} {" * swap$ * "}" * | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {archiv.base} | |
| { | |
| "http://arxiv.org/abs" | |
| } | |
| FUNCTION {archiv.prefix.base} | |
| { | |
| "arXiv" | |
| } | |
| FUNCTION {eprint.command} | |
| { | |
| "\Eprint " | |
| } | |
| FUNCTION {format.eprint} | |
| { | |
| eprint duplicate$ empty$ | |
| control.eprint #0 < | |
| or | |
| { pop$ "" } | |
| { | |
| duplicate$ | |
| "" | |
| archive duplicate$ empty$ { pop$ archiv.base } 'skip$ if$ * | |
| "/" * | |
| swap$ * | |
| "{" swap$ * "} " * | |
| swap$ | |
| "" | |
| archivePrefix duplicate$ empty$ { pop$ "" } { ":" * } if$ * | |
| swap$ * | |
| primaryClass duplicate$ empty$ { pop$ "" } { " [" swap$ * "]" * } if$ * | |
| "{" swap$ * "} " * | |
| * | |
| eprint.command swap$ * | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.translation} | |
| { translation duplicate$ empty$ | |
| 'skip$ | |
| { "" | |
| "\translation{" * swap$ * "}" * | |
| punctuation.space 'punctuation.state := | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.url} | |
| { | |
| url duplicate$ empty$ | |
| { pop$ "" } | |
| { | |
| "\url " | |
| "{" * swap$ * "}" * | |
| } | |
| if$ | |
| } | |
| INTEGERS { nameptr namesleft numnames } | |
| FUNCTION {check.speaker} | |
| { key empty$ 'skip$ | |
| { key nameptr int.to.str$ = | |
| { | |
| bolden | |
| } | |
| 'skip$ | |
| if$ | |
| } | |
| if$ | |
| } | |
| STRINGS { bibinfo} | |
| FUNCTION {format.names.fname} | |
| { | |
| control.author.initials { | |
| control.author.dotless { | |
| control.author.nospace { | |
| "f{}" | |
| } { | |
| "f{~}" | |
| } if$ | |
| } { | |
| control.author.nospace { | |
| "f{.}." | |
| } { | |
| "f." | |
| } if$ | |
| } if$ | |
| } { | |
| "ff" | |
| } if$ | |
| } | |
| FUNCTION {bracify} | |
| { | |
| "{" swap$ * "}" * | |
| } | |
| FUNCTION {name.comma} | |
| { | |
| control.author.nocomma 'skip$ { "," swap$ * } if$ | |
| } | |
| FUNCTION {format.names.format.onefont} | |
| { | |
| "{vv~}{ll}" | |
| nameptr #1 > | |
| control.author.first | |
| and | |
| control.author.reversed not | |
| or | |
| { | |
| control.author.initials { | |
| "f" | |
| control.author.dotless 'skip$ { | |
| "." * | |
| } if$ | |
| "~" * | |
| } { | |
| "ff" | |
| } if$ | |
| bracify | |
| swap$ | |
| } { | |
| format.names.fname | |
| " " swap$ * | |
| name.comma | |
| bracify | |
| } | |
| if$ | |
| "jj" | |
| " " swap$ * | |
| name.comma | |
| bracify | |
| control.author.jnrlst 'skip$ 'swap$ if$ | |
| * * | |
| } | |
| FUNCTION {format.names.onefont} | |
| { | |
| s nameptr format.names.format.onefont format.name$ | |
| remove.dots | |
| bib.name.font | |
| } | |
| FUNCTION {format.names.morfont} | |
| { s nameptr | |
| "{vv~}{ll}" format.name$ bib.name.font | |
| nameptr #1 > | |
| control.author.first | |
| and | |
| control.author.reversed not | |
| or | |
| { | |
| s nameptr | |
| control.author.initials { | |
| "f" % default: name + surname + comma junior | |
| } { | |
| "ff" | |
| } if$ | |
| control.author.dotless 'skip$ { | |
| "." * % nm-init % Initials. + surname (J. F. Smith) control.author.initials | |
| } if$ | |
| bracify | |
| format.name$ duplicate$ empty$ 'skip$ | |
| { tie.or.space.prefix bib.fname.font swap$ * } | |
| if$ | |
| swap$ | |
| * | |
| s nameptr | |
| "{jj}" format.name$ duplicate$ empty$ 'skip$ | |
| { bib.fname.font ", " swap$ * } | |
| if$ | |
| } { | |
| "," * | |
| s nameptr | |
| format.names.fname | |
| "jj" | |
| " " | |
| name.comma | |
| control.author.jnrlst { | |
| swap$ * skip$ | |
| } { | |
| skip$ * swap$ | |
| } if$ | |
| bracify swap$ bracify swap$ | |
| * | |
| format.name$ | |
| remove.dots | |
| duplicate$ empty$ 'skip$ | |
| { bib.fname.font " " swap$ * } | |
| if$ | |
| } if$ | |
| * | |
| } | |
| FUNCTION {names.punctuate} | |
| { | |
| "," * | |
| " " * | |
| } | |
| FUNCTION {format.names} | |
| { 'bibinfo := | |
| duplicate$ empty$ { pop$ "" } { | |
| duplicate$ num.names$ | |
| duplicate$ 'numnames := | |
| 'namesleft := | |
| 's := | |
| #1 'nameptr := | |
| "" | |
| { namesleft #0 > } | |
| { | |
| format.names.morfont | |
| bibinfo bibinfo.check | |
| type$ "presentation" = | |
| 'check.speaker | |
| 'skip$ | |
| if$ | |
| 't := | |
| nameptr #1 > not | |
| { | |
| t * | |
| } { | |
| namesleft #1 > | |
| { | |
| names.punctuate | |
| t * | |
| } { | |
| s nameptr "{ll}" format.name$ duplicate$ "others" = | |
| { 't := } | |
| { pop$ } | |
| if$ | |
| numnames #2 > | |
| 'names.punctuate | |
| 'skip$ | |
| if$ | |
| t "others" = | |
| { | |
| " " * | |
| bbl.etal | |
| emphasize | |
| * | |
| } { | |
| bbl.and | |
| space.word * | |
| t * | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| if$ | |
| nameptr #1 + 'nameptr := | |
| namesleft #1 - 'namesleft := | |
| } | |
| while$ | |
| } if$ | |
| } | |
| FUNCTION {format.names.ed.onefont} | |
| { | |
| s nameptr | |
| control.author.initials { | |
| control.author.dotless { | |
| control.author.nospace { | |
| "{f{}~}{vv~}{ll}{ jj}" % nm-rvx|nm-rvcx | |
| } { | |
| "{f{~}~}{vv~}{ll}{ jj}" % nm-rv | |
| } if$ | |
| } { | |
| control.author.nospace { | |
| "{f{.}.~}{vv~}{ll}{ jj}" % nm-rvv|nm-rvvc | |
| }{ | |
| "{f.~}{vv~}{ll}{, jj}" % nm-init|nm-rev|nm-rev1 | |
| } if$ | |
| } if$ | |
| } { | |
| "{ff~}{vv~}{ll}{, jj}" | |
| } if$ | |
| format.name$ | |
| remove.dots | |
| bib.name.font | |
| } | |
| FUNCTION {format.names.ed.morfont} | |
| { | |
| control.author.reversed { % | |
| control.author.initials { % | |
| control.author.dotless { % | |
| s nameptr | |
| control.author.nospace { % nm-rvx nm-rvcx | |
| "{f{}}" | |
| } { % nm-rv | |
| "{f{~}}" | |
| } if$ | |
| format.name$ duplicate$ empty$ 'skip$ | |
| { tie.or.space.prefix bib.fname.font swap$ * } | |
| if$ | |
| s nameptr | |
| "{vv~}{ll}" format.name$ bib.name.font * | |
| s nameptr | |
| "{jj}" format.name$ | |
| remove.dots | |
| duplicate$ empty$ 'skip$ | |
| { bib.fname.font " " swap$ * } | |
| if$ | |
| } { % !control.author.dotless | |
| s nameptr | |
| control.author.nospace { % nm-rvv | |
| "{ff}" | |
| } { % nm-rev nm-rev1 | |
| "{f.}" | |
| } if$ | |
| format.name$ duplicate$ empty$ 'skip$ | |
| { tie.or.space.prefix bib.fname.font swap$ * } | |
| if$ | |
| s nameptr | |
| "{vv~}{ll}" format.name$ bib.name.font * | |
| s nameptr | |
| "{jj}" format.name$ | |
| duplicate$ empty$ 'skip$ | |
| { bib.fname.font ", " swap$ * } | |
| if$ | |
| } if$ | |
| } { % Full names !control.author.initials nm-revf nm-revv1 | |
| s nameptr | |
| "{ff}" | |
| format.name$ duplicate$ empty$ 'skip$ | |
| { tie.or.space.prefix bib.fname.font swap$ * } | |
| if$ | |
| s nameptr | |
| "{vv~}{ll}" format.name$ bib.name.font * | |
| s nameptr | |
| "{jj}" format.name$ | |
| duplicate$ empty$ 'skip$ | |
| { bib.fname.font ", " swap$ * } | |
| if$ | |
| } if$ | |
| } { % !control.author.reversed nm-init | |
| s nameptr | |
| "{f.}" | |
| format.name$ duplicate$ empty$ 'skip$ | |
| { tie.or.space.prefix bib.fname.font swap$ * } | |
| if$ | |
| s nameptr | |
| "{vv~}{ll}" format.name$ bib.name.font * | |
| s nameptr | |
| "{jj}" format.name$ | |
| duplicate$ empty$ 'skip$ | |
| { bib.fname.font ", " swap$ * } | |
| if$ | |
| } if$ | |
| * | |
| } | |
| FUNCTION {format.names.ed} | |
| { | |
| control.editor #0 > { | |
| format.names | |
| } { | |
| 'bibinfo := | |
| duplicate$ empty$ 'skip$ { | |
| 's := | |
| "" 't := | |
| #1 'nameptr := | |
| s num.names$ 'numnames := | |
| numnames 'namesleft := | |
| { namesleft #0 > } | |
| { | |
| format.names.ed.morfont | |
| bibinfo bibinfo.check | |
| 't := | |
| nameptr #1 > | |
| { | |
| namesleft #1 > | |
| { | |
| names.punctuate | |
| t * | |
| }{ | |
| s nameptr "{ll}" format.name$ duplicate$ "others" = | |
| { 't := } | |
| { pop$ } | |
| if$ | |
| numnames #2 > | |
| 'names.punctuate | |
| 'skip$ | |
| if$ | |
| t "others" = | |
| { | |
| " " * bbl.etal emphasize * | |
| }{ | |
| bbl.and | |
| space.word * t * | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| 't | |
| if$ | |
| nameptr #1 + 'nameptr := | |
| namesleft #1 - 'namesleft := | |
| } | |
| while$ | |
| } if$ | |
| } if$ | |
| } | |
| FUNCTION {format.key} | |
| { empty$ | |
| { key field.or.null } | |
| { "" } | |
| if$ | |
| } | |
| FUNCTION {format.authors} | |
| { author "author" format.names | |
| duplicate$ empty$ 'skip$ | |
| { collaboration "collaboration" bibinfo.check | |
| duplicate$ empty$ 'skip$ | |
| { " (" swap$ * ")" * } | |
| if$ | |
| * | |
| } | |
| if$ | |
| "author" 'bibfield := | |
| } | |
| FUNCTION {get.bbl.editor} | |
| { editor num.names$ #1 > 'bbl.editors 'bbl.editor if$ | |
| } | |
| FUNCTION {format.editors} | |
| { editor "editor" format.names duplicate$ empty$ 'skip$ | |
| { | |
| "," * | |
| word.space * | |
| get.bbl.editor | |
| * | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.isbn.output} | |
| { | |
| } | |
| FUNCTION {format.issn.output} | |
| { | |
| } | |
| FUNCTION {doi.base} | |
| { | |
| "http://dx.doi.org/" | |
| } | |
| FUNCTION {doi.base.command} | |
| { | |
| "https://doi.org/" | |
| } | |
| FUNCTION {noop.command} | |
| { | |
| "\href@noop " | |
| } | |
| FUNCTION {href.command} | |
| { | |
| "\href " | |
| } | |
| FUNCTION {link.tag.open} | |
| { | |
| doi duplicate$ empty$ | |
| { | |
| pop$ | |
| url duplicate$ empty$ | |
| { | |
| pop$ "" noop.command | |
| }{ | |
| href.command | |
| } | |
| if$ | |
| } | |
| { | |
| doi.base.command swap$ * | |
| href.command | |
| } | |
| if$ | |
| "{" * swap$ * "} {" * | |
| } | |
| FUNCTION {link.tag.shut} | |
| { | |
| "}" | |
| } | |
| FUNCTION {link.open} | |
| { | |
| link.tag.open output.nopunct | |
| } | |
| FUNCTION {link.shut} | |
| { | |
| link.tag.shut * | |
| } | |
| FUNCTION {add.doi} | |
| { | |
| link.tag.open swap$ * link.tag.shut * | |
| } | |
| FUNCTION {select.language} | |
| { duplicate$ empty$ | |
| 'pop$ | |
| { language empty$ | |
| 'skip$ | |
| { "{\selectlanguage {" language * "}" * swap$ * "}" * } | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.note} | |
| { | |
| note empty$ | |
| { "" } | |
| { note #1 #1 substring$ | |
| duplicate$ "{" = | |
| 'skip$ | |
| { | |
| output.state after.word = output.state after.punctuation = or | |
| { "l" } | |
| { "u" } | |
| if$ change.case$ | |
| } | |
| if$ | |
| note #2 global.max$ substring$ * "note" bibinfo.check | |
| } | |
| if$ | |
| } | |
| FUNCTION {bbl.enquote} | |
| { | |
| "\emph " | |
| } | |
| FUNCTION {string.enquote} | |
| { | |
| punctuation.no 'punctuation.state := | |
| non.stop { | |
| block.punctuation | |
| } { "" } if$ | |
| swap$ pop$ | |
| * | |
| bbl.enquote "{" * swap$ * "}" * | |
| word.space * | |
| } | |
| FUNCTION {format.title} | |
| { title | |
| duplicate$ empty$ 'skip$ { "t" change.case$ } if$ | |
| duplicate$ "title" bibinfo.check swap$ | |
| duplicate$ empty$ 'pop$ | |
| { | |
| punctuation.yes 'punctuation.state := | |
| string.enquote | |
| select.language | |
| } | |
| if$ | |
| } | |
| FUNCTION {end.quote.title} | |
| { title empty$ | |
| 'skip$ | |
| { before.all 'output.state := } | |
| if$ | |
| } | |
| FUNCTION {format.name.apply} | |
| { | |
| s nameptr | |
| "{vv~}{ll}" | |
| format.name$ | |
| cite.name.font | |
| } | |
| FUNCTION {format.full.names} | |
| { | |
| 's := | |
| "" 't := | |
| #1 'nameptr := | |
| s num.names$ 'numnames := | |
| numnames 'namesleft := | |
| { namesleft #0 > } | |
| { format.name.apply | |
| 't := | |
| nameptr #1 > | |
| { | |
| namesleft #1 > | |
| { ", " * t * } | |
| { | |
| s nameptr "{ll}" format.name$ duplicate$ "others" = | |
| { | |
| 't := | |
| } | |
| 'pop$ | |
| if$ | |
| t "others" = | |
| { | |
| " " * bbl.etal | |
| emphasize * | |
| }{ | |
| numnames #2 > { "," * }{ skip$ } if$ | |
| bbl.and | |
| space.word * t * | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| 't | |
| if$ | |
| nameptr #1 + 'nameptr := | |
| namesleft #1 - 'namesleft := | |
| } | |
| while$ | |
| } | |
| FUNCTION {make.full.names} | |
| { | |
| key editor author | |
| type$ "proceedings" = | |
| type$ "book" = | |
| type$ "inbook" = | |
| or { pop$ }{ { pop$ "" }{ swap$ pop$ "" swap$ } if$ } if$ | |
| duplicate$ empty$ | |
| { pop$ | |
| duplicate$ empty$ | |
| { pop$ | |
| duplicate$ empty$ | |
| { pop$ | |
| cite$ #1 #3 substring$ | |
| }{ | |
| skip$ | |
| } | |
| if$ | |
| } | |
| { swap$ pop$ format.full.names } | |
| if$ | |
| } | |
| { swap$ pop$ swap$ pop$ format.full.names } | |
| if$ | |
| } | |
| FUNCTION {year.bibitem} | |
| { | |
| year duplicate$ empty$ | |
| { pop$ "" | |
| }{ | |
| skip$ | |
| } if$ | |
| extra.label * | |
| } | |
| FUNCTION {output.bibitem} | |
| { | |
| newline$ | |
| "" | |
| label | |
| * ")" * | |
| make.full.names duplicate$ short.list = | |
| { pop$ }{ * } if$ | |
| bracify | |
| "[" swap$ * "]" * | |
| cite$ bracify "%" * | |
| * | |
| "\bibitem " | |
| swap$ * | |
| write$ newline$ | |
| " " | |
| duplicate$ bbl.open * write$ newline$ | |
| before.all 'output.state := | |
| punctuation.yes 'punctuation.state := | |
| } | |
| FUNCTION {n.dashify} | |
| { | |
| 't := | |
| "" | |
| { t empty$ not } | |
| { t #1 #1 substring$ "-" = | |
| { t #1 #2 substring$ "--" = not | |
| { "--" * | |
| t #2 global.max$ substring$ 't := | |
| }{ | |
| { t #1 #1 substring$ "-" = } | |
| { "-" * | |
| t #2 global.max$ substring$ 't := | |
| } | |
| while$ | |
| } | |
| if$ | |
| }{ | |
| t #1 #1 substring$ * | |
| t #2 global.max$ substring$ 't := | |
| } | |
| if$ | |
| } | |
| while$ | |
| } | |
| FUNCTION {word.in} | |
| { | |
| bbl.in | |
| word.space * | |
| } | |
| FUNCTION {date.encapsulate} | |
| { | |
| duplicate$ empty$ | |
| 'skip$ | |
| { | |
| before.all 'output.state := | |
| " (" swap$ * ")" * | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.date} | |
| { | |
| year "year" bibinfo.check duplicate$ empty$ | |
| { | |
| } | |
| 'skip$ | |
| if$ | |
| extra.label * | |
| date.encapsulate | |
| } | |
| FUNCTION {format.date.output.check} | |
| { | |
| format.date | |
| "year" output.check | |
| } | |
| FUNCTION {format.date.output} | |
| { | |
| format.date.output.check | |
| } | |
| FUNCTION {format.btitle} | |
| { | |
| booktitle duplicate$ empty$ { pop$ | |
| title | |
| } 'skip$ if$ | |
| "title" bibinfo.check | |
| duplicate$ empty$ 'skip$ | |
| { | |
| emphasize | |
| select.language | |
| } | |
| if$ | |
| } | |
| FUNCTION {either.or.check} | |
| { empty$ | |
| 'pop$ | |
| { "can't use both " swap$ * " fields in " * cite$ * warning$ } | |
| if$ | |
| } | |
| FUNCTION {editor.check.book} | |
| { editor empty$ 'skip$ | |
| { | |
| "can't use both author and editor fields in " cite$ * | |
| ": try using @inbook instead" * | |
| warning$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.bvolume} | |
| { volume duplicate$ empty$ | |
| { pop$ "" } | |
| { | |
| "volume and number" number either.or.check | |
| bbl.volume | |
| capitalize | |
| swap$ | |
| tie.or.space.prefix "volume" bibinfo.check * * | |
| series "series" bibinfo.check duplicate$ empty$ 'pop$ | |
| { | |
| ", " | |
| * swap$ * | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.number} | |
| { | |
| bbl.number | |
| output.state after.word = output.state after.punctuation = or | |
| #1 or | |
| #0 and | |
| 'skip$ | |
| { capitalize } | |
| if$ | |
| number tie.or.space.prefix "number" bibinfo.check * * | |
| } | |
| FUNCTION {format.number.series} | |
| { volume empty$ | |
| { number empty$ | |
| { series field.or.null } | |
| { | |
| series empty$ | |
| { | |
| number "number" bibinfo.check | |
| }{ | |
| format.number | |
| series "series" bibinfo.check | |
| word.space * swap$ * | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| { "" } | |
| if$ | |
| } | |
| FUNCTION {is.num} | |
| { chr.to.int$ | |
| duplicate$ "0" chr.to.int$ < not | |
| swap$ "9" chr.to.int$ > not and | |
| } | |
| FUNCTION {extract.num} | |
| { duplicate$ 't := | |
| "" 's := | |
| { t empty$ not } | |
| { t #1 #1 substring$ | |
| t #2 global.max$ substring$ 't := | |
| duplicate$ is.num | |
| { s swap$ * 's := } | |
| { pop$ "" 't := } | |
| if$ | |
| } | |
| while$ | |
| s empty$ | |
| 'skip$ | |
| { pop$ s } | |
| if$ | |
| } | |
| FUNCTION {convert.edition} | |
| { extract.num "l" change.case$ 's := | |
| s "first" = s "1" = or | |
| { bbl.first 't := } | |
| { s "second" = s "2" = or | |
| { bbl.second 't := } | |
| { s "third" = s "3" = or | |
| { bbl.third 't := } | |
| { s "fourth" = s "4" = or | |
| { bbl.fourth 't := } | |
| { s "fifth" = s "5" = or | |
| { bbl.fifth 't := } | |
| { s #1 #1 substring$ is.num | |
| { s | |
| eng.ord | |
| 't := } | |
| { edition 't := } | |
| if$ | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| if$ | |
| t | |
| } | |
| FUNCTION {format.edition} | |
| { edition duplicate$ empty$ 'skip$ | |
| { | |
| convert.edition | |
| output.state after.word = output.state after.punctuation = or | |
| { "l" } | |
| { "t" } | |
| if$ change.case$ | |
| "edition" bibinfo.check | |
| word.space * bbl.edition * | |
| } | |
| if$ | |
| } | |
| INTEGERS { multiresult } | |
| FUNCTION {multi.page.check} | |
| { 't := | |
| #0 'multiresult := | |
| { multiresult not | |
| t empty$ not | |
| and | |
| } | |
| { t #1 #1 substring$ | |
| duplicate$ "-" = | |
| swap$ duplicate$ "," = | |
| swap$ "+" = | |
| or or | |
| { #1 'multiresult := } | |
| { t #2 global.max$ substring$ 't := } | |
| if$ | |
| } | |
| while$ | |
| multiresult | |
| } | |
| FUNCTION {format.pages} | |
| { pages duplicate$ empty$ | |
| 'skip$ | |
| { duplicate$ multi.page.check | |
| { | |
| bbl.pages swap$ | |
| n.dashify | |
| }{ | |
| bbl.page swap$ | |
| } | |
| if$ | |
| tie.or.space.prefix | |
| "pages" bibinfo.check | |
| * * | |
| } | |
| if$ | |
| } | |
| FUNCTION {first.page} | |
| { 't := | |
| "" | |
| { t empty$ not t #1 #1 substring$ "-" = not and } | |
| { t #1 #1 substring$ * | |
| t #2 global.max$ substring$ 't := | |
| } | |
| while$ | |
| } | |
| FUNCTION {format.book.pages} | |
| { | |
| pages duplicate$ empty$ 'skip$ | |
| { | |
| "pages" bibinfo.check word.space bbl.pages * * | |
| } | |
| if$ | |
| } | |
| FUNCTION {volnum.punct} | |
| { | |
| "," | |
| word.space * | |
| } | |
| FUNCTION {format.journal.pages} | |
| { pages duplicate$ empty$ 'pop$ | |
| { swap$ duplicate$ empty$ | |
| { pop$ pop$ format.pages } | |
| { volnum.punct * | |
| swap$ | |
| control.pages duplicate$ #0 < { | |
| pop$ pop$ | |
| }{ | |
| #0 > | |
| { | |
| n.dashify | |
| }{ | |
| first.page | |
| } if$ | |
| } if$ | |
| "pages" bibinfo.check | |
| * | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.journal.eid} | |
| { eid "eid" bibinfo.check | |
| duplicate$ empty$ 'pop$ | |
| { swap$ duplicate$ empty$ 'skip$ | |
| { volnum.punct * } | |
| if$ | |
| swap$ * | |
| } | |
| if$ | |
| } | |
| FUNCTION {eid.or.pages} | |
| { | |
| eid empty$ | |
| { format.journal.pages } | |
| { format.journal.eid } | |
| if$ | |
| } | |
| FUNCTION {format.ser.vol.num} | |
| { | |
| series "series" bibinfo.check output | |
| volume field.or.null | |
| duplicate$ empty$ 'skip$ | |
| { | |
| "volume" bibinfo.check | |
| } | |
| if$ | |
| bolden | |
| } | |
| FUNCTION {format.chapter.pages} | |
| { chapter empty$ | |
| { | |
| format.pages | |
| } | |
| { type empty$ | |
| { | |
| bbl.chapter | |
| capitalize | |
| }{ | |
| type | |
| capitalize | |
| "type" bibinfo.check | |
| } | |
| if$ | |
| chapter tie.or.space.prefix | |
| "chapter" bibinfo.check | |
| * * | |
| pages empty$ | |
| 'skip$ | |
| { ", " * format.pages * } | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.booktitle} | |
| { | |
| booktitle duplicate$ "booktitle" bibinfo.check swap$ | |
| duplicate$ empty$ 'pop$ | |
| { | |
| punctuation.yes 'punctuation.state := | |
| pop$ emphasize | |
| select.language | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.editor.in} | |
| { | |
| editor "editor" format.names.ed duplicate$ empty$ 'skip$ | |
| { | |
| bbl.edby | |
| word.space * swap$ * | |
| } | |
| if$ | |
| } | |
| FUNCTION {output.article.booktitle} | |
| { | |
| format.booktitle | |
| "booktitle" 'bibfield := | |
| output | |
| bookaddress "address" bibinfo.check duplicate$ empty$ 'pop$ | |
| { | |
| "address" 'bibfield := | |
| output.nonnull after.punctuation 'output.state := | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.in.ed.booktitle} | |
| { | |
| format.booktitle duplicate$ empty$ 'pop$ | |
| { | |
| add.doi | |
| word.in swap$ * output.nonnull | |
| bookaddress "address" bibinfo.check output | |
| format.number.series "series and number" bibinfo.check output | |
| format.bvolume output | |
| format.editor.in "editor" bibinfo.check output | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.in.ed.booktitle.inbook} | |
| { | |
| format.booktitle duplicate$ empty$ 'pop$ | |
| { | |
| add.doi | |
| word.in swap$ * output.nonnull | |
| bookaddress "address" bibinfo.check output | |
| format.number.series "series and number" bibinfo.check output | |
| format.bvolume output | |
| author empty$ 'skip$ | |
| { format.editor.in "editor" bibinfo.check output } | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.thesis.type} | |
| { type duplicate$ empty$ | |
| 'pop$ | |
| { swap$ pop$ | |
| "t" change.case$ "type" bibinfo.check | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.tr.number} | |
| { number "number" bibinfo.check | |
| type duplicate$ empty$ | |
| { pop$ bbl.techrep } | |
| 'skip$ | |
| if$ | |
| "type" bibinfo.check | |
| swap$ duplicate$ empty$ | |
| { pop$ "t" change.case$ } | |
| { tie.or.space.prefix * * } | |
| if$ | |
| } | |
| FUNCTION {format.article.crossref} | |
| { | |
| word.in | |
| " \cite{" * crossref * "}" * | |
| } | |
| FUNCTION {format.book.crossref} | |
| { volume duplicate$ empty$ | |
| { "empty volume in " cite$ * "'s crossref of " * crossref * warning$ | |
| pop$ word.in | |
| } | |
| { bbl.volume | |
| swap$ tie.or.space.prefix "volume" bibinfo.check * * bbl.of space.word * | |
| } | |
| if$ | |
| " \cite{" * crossref * "}" * | |
| } | |
| FUNCTION {format.incoll.inproc.crossref} | |
| { | |
| word.in | |
| " \cite{" * crossref * "}" * | |
| } | |
| FUNCTION {format.org.or.pub} | |
| { 't := | |
| "" | |
| address "address" bibinfo.check | |
| duplicate$ empty$ | |
| { pop$ t } | |
| { t duplicate$ empty$ | |
| { pop$ } | |
| { | |
| "," word.space * | |
| * swap$ * | |
| } | |
| if$ | |
| } | |
| if$ | |
| * | |
| year duplicate$ empty$ | |
| { | |
| "empty year in " cite$ * | |
| warning$ | |
| pop$ "" | |
| } | |
| 'skip$ | |
| if$ | |
| duplicate$ empty$ | |
| { pop$ } | |
| { | |
| "year" bibinfo.check | |
| swap$ | |
| duplicate$ empty$ | |
| { pop$ } | |
| { | |
| "," * | |
| word.space * | |
| swap$ * | |
| } | |
| if$ | |
| } | |
| if$ | |
| duplicate$ empty$ 'skip$ { | |
| "" | |
| "(" * swap$ * ")" * | |
| after.punctuation 'output.state := | |
| punctuation.space 'punctuation.state := | |
| } if$ | |
| } | |
| FUNCTION {format.publisher.address} | |
| { publisher "publisher" bibinfo.warn format.org.or.pub | |
| } | |
| FUNCTION {format.organization.address} | |
| { organization "organization" bibinfo.check format.org.or.pub | |
| } | |
| FUNCTION {format.organization.publisher.address} | |
| { | |
| publisher empty$ | |
| { format.organization.address } | |
| { organization "organization" bibinfo.check output | |
| format.publisher.address | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.school.address.output} | |
| { | |
| school "school" bibinfo.warn | |
| address "address" bibinfo.check | |
| duplicate$ empty$ 'skip$ | |
| { | |
| swap$ | |
| duplicate$ empty$ 'skip$ | |
| { | |
| ", " * | |
| } | |
| if$ | |
| swap$ | |
| } | |
| if$ | |
| * | |
| output | |
| } | |
| FUNCTION {article.title.produce} | |
| { | |
| control.title duplicate$ #0 < | |
| { pop$ | |
| }{ | |
| format.title | |
| "title" 'bibfield := | |
| swap$ #0 > | |
| { | |
| "title" output.check | |
| }{ | |
| output | |
| } if$ | |
| new.block.comma | |
| } if$ | |
| } | |
| FUNCTION {control} | |
| { | |
| } | |
| FUNCTION {article} | |
| { output.bibitem | |
| format.authors | |
| booktitle empty$ { | |
| "author" output.check | |
| }{ output } if$ | |
| author format.key output | |
| new.block.comma | |
| article.title.produce | |
| output.article.booktitle | |
| crossref missing$ | |
| { | |
| link.open | |
| journal | |
| "journal" bibinfo.warn | |
| "journal" 'bibfield := | |
| output | |
| add.blank | |
| format.ser.vol.num | |
| output | |
| eid.or.pages | |
| format.date.output.check | |
| pages empty$ { | |
| doi output | |
| } 'skip$ if$ | |
| link.shut | |
| }{ | |
| format.article.crossref output.nonnull | |
| format.pages output | |
| } | |
| if$ | |
| format.issn.output | |
| new.block.comma | |
| new.sentence.comma | |
| format.note output | |
| format.eprint output | |
| format.translation output | |
| fin.entry | |
| } | |
| FUNCTION {book} | |
| { output.bibitem | |
| author empty$ | |
| { | |
| format.editors "author and editor" output.check | |
| editor format.key output | |
| }{ | |
| format.authors output.nonnull | |
| % crossref missing$ { editor.check.book } 'skip$ if$ | |
| } | |
| if$ | |
| new.block.comma | |
| link.open | |
| format.btitle | |
| "title" output.check | |
| link.shut | |
| format.edition output | |
| author empty$ | |
| { | |
| } | |
| { | |
| format.editor.in output | |
| editor format.key output | |
| } | |
| if$ | |
| format.number.series output | |
| crossref missing$ | |
| { | |
| format.bvolume output | |
| new.block.comma | |
| format.publisher.address output | |
| }{ | |
| new.block.comma | |
| format.book.crossref output.nonnull | |
| format.date.output.check | |
| } | |
| if$ | |
| format.isbn.output | |
| format.chapter.pages | |
| output | |
| new.block.comma | |
| new.sentence.comma | |
| format.note output | |
| format.eprint output | |
| fin.entry | |
| } | |
| FUNCTION {booklet} | |
| { output.bibitem | |
| format.authors output | |
| author format.key output | |
| new.block.comma | |
| link.open | |
| format.title | |
| "title" output.check | |
| link.shut | |
| new.block.comma | |
| howpublished "howpublished" bibinfo.check output | |
| address "address" bibinfo.check output | |
| format.date.output | |
| format.isbn.output | |
| format.book.pages output | |
| new.block.comma | |
| new.sentence.comma | |
| format.note output | |
| format.eprint output | |
| fin.entry | |
| } | |
| FUNCTION {footnote} | |
| { output.bibitem | |
| format.note output | |
| fin.entry | |
| } | |
| FUNCTION {inbook} | |
| { output.bibitem | |
| author empty$ | |
| { | |
| format.editors "editor" output.check | |
| editor format.key output | |
| }{ | |
| format.authors output.nonnull | |
| author format.key output | |
| } | |
| if$ | |
| new.block.comma | |
| format.title output | |
| new.block.comma | |
| crossref missing$ | |
| { | |
| format.in.ed.booktitle.inbook | |
| format.publisher.address output | |
| format.chapter.pages | |
| "chapter and pages" | |
| output.check | |
| new.block.comma | |
| format.edition output | |
| new.block.comma | |
| }{ | |
| format.chapter.pages | |
| "chapter and pages" | |
| output.check | |
| new.block.comma | |
| format.book.crossref output.nonnull | |
| format.date.output.check | |
| } | |
| if$ | |
| crossref missing$ | |
| { format.isbn.output } | |
| 'skip$ | |
| if$ | |
| new.block.comma | |
| new.sentence.comma | |
| format.note output | |
| format.eprint output | |
| fin.entry | |
| } | |
| FUNCTION {incollection} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block.comma | |
| article.title.produce | |
| crossref missing$ | |
| { | |
| format.in.ed.booktitle | |
| format.publisher.address output | |
| format.edition output | |
| format.chapter.pages output | |
| format.isbn.output | |
| }{ | |
| format.incoll.inproc.crossref output.nonnull | |
| format.chapter.pages output | |
| } | |
| if$ | |
| new.block.comma | |
| new.sentence.comma | |
| format.note output | |
| format.eprint output | |
| fin.entry | |
| } | |
| FUNCTION {inproceedings} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block.comma | |
| article.title.produce | |
| crossref missing$ | |
| { | |
| format.in.ed.booktitle | |
| format.organization.publisher.address output | |
| format.chapter.pages output | |
| format.isbn.output | |
| format.issn.output | |
| }{ | |
| format.incoll.inproc.crossref output.nonnull | |
| format.chapter.pages output | |
| } | |
| if$ | |
| new.block.comma | |
| new.sentence.comma | |
| format.note output | |
| format.eprint output | |
| fin.entry | |
| } | |
| FUNCTION {conference} { inproceedings } | |
| FUNCTION {manual} | |
| { output.bibitem | |
| format.authors output | |
| author format.key output | |
| new.block.comma | |
| link.open | |
| format.btitle | |
| "title" output.check | |
| link.shut | |
| organization "organization" bibinfo.check output | |
| address "address" bibinfo.check output | |
| format.edition output | |
| format.date.output | |
| new.block.comma | |
| new.sentence.comma | |
| format.note output | |
| format.eprint output | |
| fin.entry | |
| } | |
| FUNCTION {mastersthesis} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block.comma | |
| format.btitle | |
| output | |
| new.block.comma | |
| link.open | |
| bbl.mthesis | |
| format.thesis.type | |
| output.nonnull | |
| link.shut | |
| format.school.address.output | |
| format.date.output.check | |
| new.block.comma | |
| new.sentence.comma | |
| format.note output | |
| format.eprint output | |
| fin.entry | |
| } | |
| FUNCTION {misc} | |
| { output.bibitem | |
| format.authors output | |
| author format.key output | |
| new.block.comma | |
| link.open | |
| format.title | |
| output | |
| link.shut | |
| new.block.comma | |
| howpublished "howpublished" bibinfo.check output | |
| format.date.output | |
| new.block.comma | |
| new.sentence.comma | |
| format.note output | |
| format.eprint output | |
| fin.entry | |
| } | |
| FUNCTION {phdthesis} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block.comma | |
| format.btitle | |
| output | |
| new.block.comma | |
| link.open | |
| bbl.phdthesis | |
| format.thesis.type | |
| output.nonnull | |
| link.shut | |
| format.school.address.output | |
| format.date.output.check | |
| new.block.comma | |
| new.sentence.comma | |
| format.note output | |
| format.eprint output | |
| fin.entry | |
| } | |
| FUNCTION {presentation} | |
| { output.bibitem | |
| format.authors output | |
| author format.key output | |
| new.block.comma | |
| link.open | |
| format.title | |
| output | |
| link.shut | |
| new.block.comma | |
| format.organization.address "organization and address" output.check | |
| month "month" output.check | |
| year "year" output.check | |
| new.block.comma | |
| new.sentence.comma | |
| format.note output | |
| new.sentence | |
| type missing$ 'skip$ | |
| {"(" type capitalize * ")" * output} | |
| if$ | |
| fin.entry | |
| } | |
| FUNCTION {proceedings} | |
| { output.bibitem | |
| format.editors output | |
| editor format.key output | |
| new.block.comma | |
| link.open | |
| format.btitle | |
| "title" output.check | |
| link.shut | |
| bookaddress "address" bibinfo.check output | |
| format.number.series output | |
| format.bvolume output | |
| format.organization.publisher.address output | |
| format.isbn.output | |
| format.issn.output | |
| new.block.comma | |
| new.sentence.comma | |
| format.note output | |
| format.eprint output | |
| fin.entry | |
| } | |
| FUNCTION {techreport} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block.comma | |
| link.open | |
| format.btitle | |
| "title" output.check | |
| link.shut | |
| new.block.comma | |
| format.tr.number | |
| output.nonnull | |
| institution "institution" bibinfo.warn | |
| format.org.or.pub output | |
| new.block.comma | |
| new.sentence.comma | |
| format.note output | |
| format.eprint output | |
| fin.entry | |
| } | |
| FUNCTION {unpublished} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block.comma | |
| link.open | |
| format.title | |
| "title" output.check | |
| link.shut | |
| format.date.output | |
| new.block.comma | |
| new.sentence.comma | |
| format.note "note" output.check | |
| format.eprint output | |
| fin.entry | |
| } | |
| FUNCTION {default.type} { misc } | |
| READ | |
| EXECUTE {control.init} | |
| ITERATE {control.pass} | |
| EXECUTE {control.check} | |
| FUNCTION {sortify} | |
| { purify$ | |
| "l" change.case$ | |
| } | |
| INTEGERS { len } | |
| FUNCTION {chop.word} | |
| { 's := | |
| 'len := | |
| s #1 len substring$ = | |
| { s len #1 + global.max$ substring$ } | |
| 's | |
| if$ | |
| } | |
| FUNCTION {cite.name.font.apply} | |
| { | |
| word.space * bbl.etal | |
| emphasize | |
| * | |
| } | |
| FUNCTION {format.lab.names} | |
| { 's := | |
| "" 't := | |
| #1 'nameptr := | |
| format.name.apply | |
| s num.names$ duplicate$ | |
| #2 > | |
| { pop$ | |
| cite.name.font.apply | |
| }{ | |
| #2 < | |
| 'skip$ | |
| { | |
| s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" = | |
| { | |
| cite.name.font.apply | |
| }{ | |
| bbl.and space.word * | |
| s #2 "{vv~}{ll}" format.name$ | |
| cite.name.font | |
| * | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {author.key.label} | |
| { author empty$ | |
| { key empty$ | |
| { cite$ #1 #3 substring$ } | |
| 'key | |
| if$ | |
| } | |
| { author format.lab.names } | |
| if$ | |
| } | |
| FUNCTION {author.editor.key.label} | |
| { author empty$ | |
| { editor empty$ | |
| { key empty$ | |
| { cite$ #1 #3 substring$ } | |
| 'key | |
| if$ | |
| } | |
| { editor format.lab.names } | |
| if$ | |
| } | |
| { author format.lab.names } | |
| if$ | |
| } | |
| FUNCTION {editor.key.label} | |
| { editor empty$ | |
| { key empty$ | |
| { cite$ #1 #3 substring$ } | |
| 'key | |
| if$ | |
| } | |
| { editor format.lab.names } | |
| if$ | |
| } | |
| FUNCTION {calc.short.authors} | |
| { type$ "book" = | |
| type$ "inbook" = | |
| or | |
| 'author.editor.key.label | |
| { type$ "proceedings" = | |
| 'editor.key.label | |
| 'author.key.label | |
| if$ | |
| } | |
| if$ | |
| 'short.list := | |
| } | |
| FUNCTION {calc.label} | |
| { | |
| calc.short.authors | |
| short.list | |
| year duplicate$ empty$ | |
| short.list key field.or.null = or | |
| { | |
| pop$ "" | |
| }{ | |
| control.year #0 > { purify$ #-1 #4 substring$ } 'skip$ if$ | |
| } | |
| if$ | |
| "(" swap$ * | |
| * 'label := | |
| } | |
| FUNCTION {sort.format.names} | |
| { 's := | |
| #1 'nameptr := | |
| "" | |
| s num.names$ 'numnames := | |
| numnames 'namesleft := | |
| { namesleft #0 > } | |
| { s nameptr | |
| "{ll{ }}" | |
| control.author.initials { | |
| "{ f{ }}" * | |
| }{ | |
| "{ ff{ }}" * | |
| } if$ | |
| "{ jj{ }}" * | |
| format.name$ 't := | |
| nameptr #1 > | |
| { | |
| " " * | |
| namesleft #1 = t "others" = and | |
| { "zzzzz" * } | |
| { | |
| t sortify * | |
| } | |
| if$ | |
| } | |
| { t sortify * } | |
| if$ | |
| nameptr #1 + 'nameptr := | |
| namesleft #1 - 'namesleft := | |
| } | |
| while$ | |
| } | |
| FUNCTION {sort.format.title} | |
| { 't := | |
| "A " #2 | |
| "An " #3 | |
| "The " #4 t chop.word | |
| chop.word | |
| chop.word | |
| sortify | |
| #1 global.max$ substring$ | |
| } | |
| FUNCTION {author.sort} | |
| { author empty$ | |
| { key empty$ | |
| { "to sort, need author or key in " cite$ * warning$ | |
| "" | |
| } | |
| { key sortify } | |
| if$ | |
| } | |
| { author sort.format.names } | |
| if$ | |
| } | |
| FUNCTION {author.editor.sort} | |
| { author empty$ | |
| { editor empty$ | |
| { key empty$ | |
| { "to sort, need author, editor, or key in " cite$ * warning$ | |
| "" | |
| } | |
| { key sortify } | |
| if$ | |
| } | |
| { editor sort.format.names } | |
| if$ | |
| } | |
| { author sort.format.names } | |
| if$ | |
| } | |
| FUNCTION {year.sort.key} | |
| { | |
| year | |
| } | |
| FUNCTION {editor.sort} | |
| { editor empty$ | |
| { key empty$ | |
| { "to sort, need editor or key in " cite$ * warning$ | |
| "" | |
| } | |
| { key sortify } | |
| if$ | |
| } | |
| { editor sort.format.names } | |
| if$ | |
| } | |
| INTEGERS { seq.num } | |
| FUNCTION {init.seq} | |
| { #0 'seq.num :=} | |
| EXECUTE {init.seq} | |
| FUNCTION {int.to.fix} | |
| { "000000000" swap$ int.to.str$ * | |
| #-1 #10 substring$ | |
| } | |
| FUNCTION {label.presort} | |
| { | |
| calc.label | |
| label sortify | |
| " " | |
| * | |
| seq.num #1 + 'seq.num := | |
| seq.num int.to.fix | |
| 'sort.label := | |
| sort.label | |
| * | |
| " " | |
| * | |
| title field.or.null sort.format.title | |
| * | |
| #1 entry.max$ substring$ | |
| 'sort.key$ := | |
| } | |
| FUNCTION {presort.pass} | |
| { type$ "control" = 'control.presort 'label.presort if$ | |
| } | |
| ITERATE {presort.pass} | |
| SORT | |
| STRINGS { last.label next.extra } | |
| INTEGERS { last.extra.num number.label } | |
| FUNCTION {initialize.extra.label.stuff} | |
| { #0 int.to.chr$ 'last.label := | |
| "" 'next.extra := | |
| #0 'last.extra.num := | |
| #0 'number.label := | |
| } | |
| FUNCTION {label.forward} | |
| { | |
| last.label label = | |
| { last.extra.num #1 + 'last.extra.num := | |
| last.extra.num int.to.chr$ 'extra.label := | |
| } | |
| { "a" chr.to.int$ 'last.extra.num := | |
| "" 'extra.label := | |
| label 'last.label := | |
| } | |
| if$ | |
| number.label #1 + 'number.label := | |
| } | |
| FUNCTION {label.reverse} | |
| { next.extra "b" = | |
| { "a" 'extra.label := } | |
| 'skip$ | |
| if$ | |
| extra.label 'next.extra := | |
| extra.label | |
| duplicate$ empty$ | |
| 'skip$ | |
| { "{\natexlab{" swap$ * "}}" * } | |
| if$ | |
| 'extra.label := | |
| label extra.label * 'label := | |
| } | |
| EXECUTE {initialize.extra.label.stuff} | |
| FUNCTION {forward.pass} | |
| { type$ "control" = 'control.forward 'label.forward if$ | |
| } | |
| ITERATE {forward.pass} | |
| FUNCTION {reverse.pass} | |
| { type$ "control" = 'control.reverse 'label.reverse if$ | |
| } | |
| REVERSE {reverse.pass} | |
| FUNCTION {sortkey.sort} | |
| { sort.label | |
| " " | |
| * | |
| year.sort.key | |
| field.or.null sortify | |
| * | |
| " " | |
| * | |
| title field.or.null sort.format.title | |
| * | |
| #1 entry.max$ substring$ | |
| 'sort.key$ := | |
| } | |
| FUNCTION {bib.sort.pass} | |
| { type$ "control" = 'control.sort 'sortkey.sort if$ | |
| } | |
| ITERATE {bib.sort.pass} | |
| SORT | |
| FUNCTION {init.bib.eprint} | |
| { | |
| "\texttt {" | |
| pop$ | |
| "\providecommand \url [0]{\begingroup\@sanitize@url \@url }%" write$ newline$ | |
| "\providecommand \@url [1]{\endgroup\@href {#1}{" "}}%" bbl.url.prefix swap$ * * write$ newline$ | |
| "\providecommand " " [0]{URL }%" bbl.url.prefix swap$ * * write$ newline$ | |
| eprint.command "\providecommand " swap$ * "[0]{\href }%" * write$ newline$ | |
| } | |
| FUNCTION {init.bib.doi} | |
| { | |
| "\providecommand \doibase [0]{" doi.base "}%" * * write$ newline$ | |
| } | |
| FUNCTION {init.bib.hypertex} | |
| { | |
| "\providecommand " noop.command "[0]{\@secondoftwo}%" * * write$ newline$ | |
| "\providecommand " href.command "[0]{\begingroup \@sanitize@url \@href}%" * * write$ newline$ | |
| "\providecommand \@href[1]{\@@startlink{#1}\@@href}%" write$ newline$ | |
| "\providecommand \@@href[1]{\endgroup#1\@@endlink}%" write$ newline$ | |
| "\providecommand \@sanitize@url [0]{\catcode `\\12\catcode `\$12\catcode `\&12\catcode `\#12\catcode `\^12\catcode `\_12\catcode `\%12\relax}%" write$ newline$ | |
| "\providecommand \@@startlink[1]{}%" write$ newline$ | |
| "\providecommand \@@endlink[0]{}%" write$ newline$ | |
| } | |
| FUNCTION {init.bib.namefont} | |
| { | |
| "\providecommand \bibnamefont [1]{#1}%" write$ newline$ | |
| "\providecommand \bibfnamefont [1]{#1}%" write$ newline$ | |
| "\providecommand \citenamefont [1]{#1}%" write$ newline$ | |
| } | |
| FUNCTION {init.bib.quote} | |
| { | |
| "\providecommand " bbl.enquote * " [1]{" * | |
| "``" "''" | |
| "#1" swap$ "}%" * * * * write$ newline$ | |
| } | |
| FUNCTION {init.bib.ay} | |
| { | |
| "\providecommand \natexlab [1]{#1}%" | |
| write$ newline$ | |
| } | |
| FUNCTION {init.bib.bibinfo} | |
| { | |
| bibinfo.command "\providecommand " swap$ * " [0]{\@secondoftwo}%" * write$ newline$ | |
| bibfield.command "\providecommand " swap$ * " [0]{\@secondoftwo}%" * write$ newline$ | |
| } | |
| FUNCTION {init.bib.lang} | |
| { | |
| "\providecommand \selectlanguage [0]{\@gobble}%" write$ newline$ | |
| } | |
| FUNCTION {init.bib.endbibitem} | |
| { | |
| "\providecommand " bbl.open * "[0]{}%" * write$ newline$ | |
| "\providecommand \bibitemStop [0]{}%" write$ newline$ | |
| "\providecommand \bibitemNoStop [0]{.\EOS\space}%" write$ newline$ | |
| "\providecommand \EOS [0]{\spacefactor3000\relax}%" write$ newline$ | |
| } | |
| FUNCTION {init.bib.translation} | |
| { | |
| "\providecommand \translation [1]{[#1]}%" write$ newline$ | |
| } | |
| FUNCTION {warn.bib} | |
| { | |
| } | |
| FUNCTION {init.bib} | |
| { | |
| warn.bib | |
| "\makeatletter" write$ newline$ | |
| "\providecommand \@ifxundefined [1]{%" write$ newline$ | |
| " \@ifx{#1\undefined}" write$ newline$ | |
| "}%" write$ newline$ | |
| "\providecommand \@ifnum [1]{%" write$ newline$ | |
| " \ifnum #1\expandafter \@firstoftwo" write$ newline$ | |
| " \else \expandafter \@secondoftwo" write$ newline$ | |
| " \fi" write$ newline$ | |
| "}%" write$ newline$ | |
| "\providecommand \@ifx [1]{%" write$ newline$ | |
| " \ifx #1\expandafter \@firstoftwo" write$ newline$ | |
| " \else \expandafter \@secondoftwo" write$ newline$ | |
| " \fi" write$ newline$ | |
| "}%" write$ newline$ | |
| init.bib.ay | |
| init.bib.quote | |
| init.bib.namefont | |
| init.bib.hypertex | |
| init.bib.eprint | |
| init.bib.doi | |
| init.bib.lang | |
| init.bib.bibinfo | |
| init.bib.translation | |
| init.bib.endbibitem | |
| "\providecommand " bbl.shut * " [1]{\csname bibitem#1\endcsname}%" * write$ newline$ | |
| "\let\auto@bib@innerbib\@empty" write$ newline$ | |
| "%</preamble>" write$ | |
| } | |
| FUNCTION {begin.bib} | |
| { | |
| id.bst diagn.cmntlog | |
| control.bib | |
| preamble$ empty$ | |
| 'skip$ | |
| { preamble$ write$ newline$ } | |
| if$ | |
| "\begin{thebibliography}{" | |
| number.label int.to.str$ | |
| * "}%" * | |
| write$ newline$ | |
| init.bib | |
| } | |
| EXECUTE {begin.bib} | |
| EXECUTE {init.state.consts} | |
| ITERATE {call.type$} | |
| FUNCTION {end.bib} | |
| { newline$ | |
| "\end{thebibliography}%" | |
| write$ newline$ | |
| } | |
| EXECUTE {end.bib} | |
| %% End of customized bst file | |
| %% | |
| %% End of file `apsrev4-1.bst'. |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment