Created
December 28, 2017 14:03
-
-
Save kosciCZ/a6f239b53c285aa353ec4e42883e3c0a to your computer and use it in GitHub Desktop.
Csplainnat style upravený aby řadil podle výskytu
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
| %% $Id$ | |
| %% File: `csplainnat.bst' for use with natbib package | |
| %% This is a modification of `plainnat.bst' for Czech references style | |
| %% (According to "CSN ISO 690: Bibliograficke citace. Obsah, forma a struktura"). | |
| %% Some modifications are commented, look for the keyword 'CHANGE' | |
| %% For more detailed info use svn repository svn://kraken.pedf.cuni.cz/csplainnat/ | |
| %% | |
| %% Original plainnat.bst by Patrick W Daly | |
| %% Modifications by David Mudr{\'{a}}k [email protected] | |
| %% | |
| %% MAJOR MODIFICATIONS | |
| %% * Added "@ONLINE" item type with added "cited" field. | |
| %% | |
| %% This program 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. | |
| %% | |
| % BibTeX `plainnat' family | |
| % version 0.99b for BibTeX versions 0.99a or later, | |
| % for LaTeX versions 2.09 and 2e. | |
| % | |
| % For use with the `natbib.sty' package; emulates the corresponding | |
| % member of the `plain' family, but with author-year citations. | |
| % | |
| % With version 6.0 of `natbib.sty', it may also be used for numerical | |
| % citations, while retaining the commands \citeauthor, \citefullauthor, | |
| % and \citeyear to print the corresponding information. | |
| % | |
| % For version 7.0 of `natbib.sty', the KEY field replaces missing | |
| % authors/editors, and the date is left blank in \bibitem. | |
| % | |
| % Includes field EID for the sequence/citation number of electronic journals | |
| % which is used instead of page numbers. | |
| % | |
| % Includes fields ISBN and ISSN. | |
| % | |
| % Includes field URL for Internet addresses. | |
| % | |
| % Includes field DOI for Digital Object Idenfifiers. | |
| % | |
| % Works best with the url.sty package of Donald Arseneau. | |
| % | |
| % Works with identical authors and year are further sorted by | |
| % citation key, to preserve any natural sequence. | |
| % | |
| ENTRY | |
| { address | |
| author | |
| booktitle | |
| chapter | |
| doi | |
| eid | |
| edition | |
| editor | |
| howpublished | |
| institution | |
| isbn | |
| issn | |
| journal | |
| key | |
| month | |
| note | |
| number | |
| organization | |
| pages | |
| publisher | |
| school | |
| series | |
| title | |
| type | |
| url | |
| volume | |
| year | |
| cited | |
| } | |
| {} | |
| { label extra.label sort.label short.list } | |
| INTEGERS { output.state before.all mid.sentence after.sentence after.block } | |
| FUNCTION {init.state.consts} | |
| { #0 'before.all := | |
| #1 'mid.sentence := | |
| #2 'after.sentence := | |
| #3 'after.block := | |
| } | |
| STRINGS { s t t1 t2 } % CHANGE mudrd8mz 2005-10-12 adding t1, t2 | |
| FUNCTION {output.nonnull} | |
| { 's := | |
| output.state mid.sentence = | |
| { ", " * write$ } | |
| { output.state after.block = | |
| { add.period$ write$ | |
| newline$ | |
| "\newblock " write$ | |
| } | |
| { output.state before.all = | |
| 'write$ | |
| { add.period$ " " * write$ } | |
| if$ | |
| } | |
| if$ | |
| mid.sentence 'output.state := | |
| } | |
| if$ | |
| s | |
| } | |
| FUNCTION {output} | |
| { duplicate$ empty$ | |
| 'pop$ | |
| 'output.nonnull | |
| if$ | |
| } | |
| FUNCTION {output.check} | |
| { 't := | |
| duplicate$ empty$ | |
| { pop$ "empty " t * " in " * cite$ * warning$ } | |
| 'output.nonnull | |
| if$ | |
| } | |
| FUNCTION {fin.entry} | |
| { add.period$ | |
| write$ | |
| newline$ | |
| } | |
| FUNCTION {new.block} | |
| { output.state before.all = | |
| 'skip$ | |
| { after.block 'output.state := } | |
| if$ | |
| } | |
| FUNCTION {new.sentence} | |
| { output.state after.block = | |
| 'skip$ | |
| { output.state before.all = | |
| 'skip$ | |
| { after.sentence 'output.state := } | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {not} | |
| { { #0 } | |
| { #1 } | |
| if$ | |
| } | |
| FUNCTION {and} | |
| { 'skip$ | |
| { pop$ #0 } | |
| if$ | |
| } | |
| FUNCTION {or} | |
| { { pop$ #1 } | |
| 'skip$ | |
| if$ | |
| } | |
| FUNCTION {new.block.checka} | |
| { empty$ | |
| 'skip$ | |
| 'new.block | |
| if$ | |
| } | |
| FUNCTION {new.block.checkb} | |
| { empty$ | |
| swap$ empty$ | |
| and | |
| 'skip$ | |
| 'new.block | |
| if$ | |
| } | |
| FUNCTION {new.sentence.checka} | |
| { empty$ | |
| 'skip$ | |
| 'new.sentence | |
| if$ | |
| } | |
| FUNCTION {new.sentence.checkb} | |
| { empty$ | |
| swap$ empty$ | |
| and | |
| 'skip$ | |
| 'new.sentence | |
| if$ | |
| } | |
| FUNCTION {field.or.null} | |
| { duplicate$ empty$ | |
| { pop$ "" } | |
| 'skip$ | |
| if$ | |
| } | |
| FUNCTION {emphasize} | |
| { duplicate$ empty$ | |
| { pop$ "" } | |
| { "\emph{" swap$ * "}" * } | |
| if$ | |
| } | |
| FUNCTION {capitalize} % CHANGE mudrd8mz 2005-10-12 adding new function | |
| { | |
| duplicate$ empty$ | |
| { pop$ "" } | |
| { "{\sc " swap$ * "}" * } %{ "u" change.case$ } | |
| if$ | |
| } | |
| INTEGERS { nameptr namesleft numnames } | |
| FUNCTION {format.names.full} | |
| { 's := | |
| #1 'nameptr := | |
| s num.names$ 'numnames := | |
| numnames 'namesleft := | |
| { namesleft #0 > } | |
| { s nameptr "{ll}" format.name$ 't1 := % CHANGE mudrd8mz 2005-10-12 | |
| t1 capitalize 't1 := % CHANGE mudrd8mz 2005-10-12 | |
| s nameptr "{, f.}{~j.}" format.name$ 't2 := % CHANGE mudrd8mz 2005-10-12 | |
| t1 t2 * 't := | |
| nameptr #1 > | |
| { namesleft #1 > | |
| { " -- " * t * } % CHANGE mudrd8mz 2005-10-13 : adding "--" | |
| { numnames #2 > | |
| { "" * } % CHANGE mudrd8mz 2005-10-12 | |
| 'skip$ | |
| if$ | |
| t "OTHERS" = % CHANGE mudrd8mz 2005-10-12 because of capitalize | |
| { " et~al." * } | |
| { " -- " * t * } % CHANGE mudrd8mz 2005-10-12 : between the last and the one before | |
| if$ | |
| } | |
| if$ | |
| } | |
| 't | |
| if$ | |
| nameptr #1 + 'nameptr := | |
| namesleft #1 - 'namesleft := | |
| } | |
| while$ | |
| } | |
| FUNCTION {format.names.short} % CHANGE mudrd8mz 2005-10-14 adding more authors version | |
| { 's := | |
| s #1 "{ll}" format.name$ 't1 := | |
| t1 capitalize 't1 := | |
| s #1 "{, f.}{~j.}" format.name$ 't2 := | |
| t1 t2 * " et~al." * | |
| } | |
| FUNCTION {format.names} | |
| { duplicate$ | |
| num.names$ #3 > | |
| {format.names.short} % pokud ma citace vice nez 3 autory, uvadi se pouze PRVNI et al. | |
| {format.names.full} % pokud ma citace max 3 autory, uvadi se vsichni | |
| if$ | |
| } | |
| FUNCTION {format.key} | |
| { empty$ | |
| { key field.or.null } | |
| { "" } | |
| if$ | |
| } | |
| FUNCTION {format.authors} | |
| { author empty$ | |
| { "" } | |
| { author format.names } | |
| if$ | |
| } | |
| FUNCTION {format.editors} | |
| { editor empty$ | |
| { "" } | |
| { editor format.names | |
| editor num.names$ #1 > | |
| { " (Ed.)" * } % CHANGE mudrd8mz 2005-10-12 | |
| { " (Ed.)" * } | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.isbn} | |
| { isbn empty$ | |
| { "" } | |
| { new.block "ISBN " isbn * } | |
| if$ | |
| } | |
| FUNCTION {format.issn} | |
| { issn empty$ | |
| { "" } | |
| { new.block "ISSN " issn * } | |
| if$ | |
| } | |
| FUNCTION {format.url} | |
| { url empty$ | |
| { "" } | |
| { new.block "Dostupn{\'{e}}~z: $\texttt{<{" url * "}>}$" * } | |
| if$ | |
| } | |
| FUNCTION {format.doi} | |
| { doi empty$ | |
| { "" } | |
| { new.block "\doi{" doi * "}" * } | |
| if$ | |
| } | |
| FUNCTION {format.title} | |
| { title empty$ | |
| { "" } | |
| { title } | |
| if$ | |
| } | |
| FUNCTION {format.full.names} | |
| {'s := | |
| #1 'nameptr := | |
| s num.names$ 'numnames := | |
| numnames 'namesleft := | |
| { namesleft #0 > } | |
| { s nameptr | |
| "{vv~}{ll}" format.name$ 't := | |
| nameptr #1 > | |
| { | |
| namesleft #1 > | |
| { ", " * t * } | |
| { | |
| numnames #2 > | |
| { "," * } | |
| 'skip$ | |
| if$ | |
| t "others" = | |
| { " et~al." * } | |
| { ", " * t * } % CHANGE mudrd8mz 2005-10-12 | |
| if$ | |
| } | |
| if$ | |
| } | |
| 't | |
| if$ | |
| nameptr #1 + 'nameptr := | |
| namesleft #1 - 'namesleft := | |
| } | |
| while$ | |
| } | |
| FUNCTION {author.editor.full} | |
| { author empty$ | |
| { editor empty$ | |
| { "" } | |
| { editor format.full.names } | |
| if$ | |
| } | |
| { author format.full.names } | |
| if$ | |
| } | |
| FUNCTION {author.full} | |
| { author empty$ | |
| { "" } | |
| { author format.full.names } | |
| if$ | |
| } | |
| FUNCTION {editor.full} | |
| { editor empty$ | |
| { "" } | |
| { editor format.full.names } | |
| if$ | |
| } | |
| FUNCTION {make.full.names} | |
| { type$ "book" = | |
| type$ "inbook" = | |
| or | |
| 'author.editor.full | |
| { type$ "proceedings" = | |
| 'editor.full | |
| 'author.full | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {output.bibitem} | |
| { newline$ | |
| "\bibitem[" write$ | |
| label write$ | |
| ")" make.full.names duplicate$ short.list = | |
| { pop$ } | |
| { * } | |
| if$ | |
| "]{" * write$ | |
| cite$ write$ | |
| "}" write$ | |
| newline$ | |
| "" | |
| before.all 'output.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 {format.date} | |
| { year duplicate$ empty$ | |
| { "empty year in " cite$ * warning$ | |
| pop$ "" } | |
| 'skip$ | |
| if$ | |
| month empty$ | |
| 'skip$ | |
| { month | |
| " " * swap$ * | |
| } | |
| if$ | |
| extra.label * | |
| } | |
| FUNCTION {format.btitle} | |
| { title emphasize | |
| } | |
| FUNCTION {tie.or.space.connect} | |
| { duplicate$ text.length$ #3 < | |
| { "~" } | |
| { " " } | |
| if$ | |
| swap$ * * | |
| } | |
| FUNCTION {either.or.check} | |
| { empty$ | |
| 'pop$ | |
| { "can't use both " swap$ * " fields in " * cite$ * warning$ } | |
| if$ | |
| } | |
| FUNCTION {format.bvolume} | |
| { volume empty$ | |
| { "" } | |
| { "" volume tie.or.space.connect % CHANGE mudrd8mz 2005-10-12 removing "volume" | |
| series empty$ | |
| 'skip$ | |
| { " / " * series emphasize * } % CHANGE mudrd8mz 2005-10-12 "of" --> "/" | |
| if$ | |
| "volume and number" number either.or.check | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.number.series} | |
| { volume empty$ | |
| { number empty$ | |
| { series field.or.null } | |
| { output.state mid.sentence = | |
| { "{\v{c}}." } % CHANGE mudrd8mz 2005-10-12 "{\v{c}}" instead of "number" | |
| { "{\v{C}}." } | |
| if$ | |
| number tie.or.space.connect | |
| series empty$ | |
| { "there's a number but no series in " cite$ * warning$ } | |
| { " v " * series * } % CHANGE mudrd8mz 2005-10-12 "in" --> "v" | |
| if$ | |
| } | |
| if$ | |
| } | |
| { "" } | |
| if$ | |
| } | |
| FUNCTION {format.edition} | |
| { edition empty$ | |
| { "" } | |
| { output.state mid.sentence = | |
| { edition "l" change.case$ " edition" * } | |
| { edition "t" change.case$ " edition" * } | |
| if$ | |
| } | |
| 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 empty$ | |
| { "" } | |
| { pages multi.page.check | |
| { "s." pages n.dashify tie.or.space.connect } % CHANGE mudrd8mz 2007-03-15: 'pages' -> 's.' | |
| { "s." pages tie.or.space.connect } % CHANGE mudrd8mz 2007-03-15: 'pages' -> 's.' | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.eid} | |
| { eid empty$ | |
| { "" } | |
| { "art." eid tie.or.space.connect } | |
| if$ | |
| } | |
| FUNCTION {format.vol.num.pages} | |
| { volume field.or.null | |
| number empty$ | |
| 'skip$ | |
| { ", " number * * | |
| volume empty$ | |
| { "there's a number but no volume in " cite$ * warning$ } | |
| 'skip$ | |
| if$ | |
| } | |
| if$ | |
| pages empty$ | |
| 'skip$ | |
| { duplicate$ empty$ | |
| { pop$ format.pages } | |
| { ", s.~" * pages n.dashify * } | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.vol.num.eid} | |
| { volume field.or.null | |
| number empty$ | |
| 'skip$ | |
| { "\penalty0, " number * * | |
| volume empty$ | |
| { "there's a number but no volume in " cite$ * warning$ } | |
| 'skip$ | |
| if$ | |
| } | |
| if$ | |
| eid empty$ | |
| 'skip$ | |
| { duplicate$ empty$ | |
| { pop$ format.eid } | |
| { ":\penalty0 " * eid * } | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.chapter.pages} | |
| { chapter empty$ | |
| 'format.pages | |
| { type empty$ | |
| { "" } % CHANGE mudrd8mz 2008-04-08 removing the word "chapter" | |
| { type "l" change.case$ } | |
| if$ | |
| chapter tie.or.space.connect | |
| pages empty$ | |
| 'skip$ | |
| { ", " * format.pages * } | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {format.in.ed.booktitle} | |
| { booktitle empty$ | |
| { "" } | |
| { editor empty$ | |
| { "In " booktitle emphasize * } | |
| { "In " format.editors * " " * booktitle emphasize * } % CHANGE mudrd8mz 2005-10-12 | |
| if$ | |
| } | |
| if$ | |
| } | |
| FUNCTION {empty.misc.check} | |
| { author empty$ title empty$ howpublished empty$ | |
| month empty$ year empty$ note empty$ | |
| and and and and and | |
| key empty$ not and | |
| { "all relevant fields are empty in " cite$ * warning$ } | |
| 'skip$ | |
| if$ | |
| } | |
| FUNCTION {format.thesis.type} | |
| { type empty$ | |
| 'skip$ | |
| { pop$ type } % CHANGE mudrd8mz 2007-03-15: Do not lowercase the thesis type | |
| if$ | |
| } | |
| FUNCTION {format.tr.number} | |
| { type empty$ | |
| { "Technical Report" } | |
| 'type | |
| if$ | |
| number empty$ | |
| { "t" change.case$ } | |
| { number tie.or.space.connect } | |
| if$ | |
| } | |
| FUNCTION {format.article.crossref} | |
| { key empty$ | |
| { journal empty$ | |
| { "need key or journal for " cite$ * " to crossref " * crossref * | |
| warning$ | |
| "" | |
| } | |
| { "In \emph{" journal * "}" * } | |
| if$ | |
| } | |
| { "In " key * } | |
| if$ | |
| " \citep{" * crossref * "}" * | |
| } | |
| FUNCTION {format.book.crossref} | |
| { volume empty$ | |
| { "empty volume in " cite$ * "'s crossref of " * crossref * warning$ | |
| "In " | |
| } | |
| { "Volume" volume tie.or.space.connect | |
| " of " * | |
| } | |
| if$ | |
| editor empty$ | |
| editor field.or.null author field.or.null = | |
| or | |
| { key empty$ | |
| { series empty$ | |
| { "need editor, key, or series for " cite$ * " to crossref " * | |
| crossref * warning$ | |
| "" * | |
| } | |
| { "\emph{" * series * "}" * } | |
| if$ | |
| } | |
| { key * } | |
| if$ | |
| } | |
| 'skip$ | |
| if$ | |
| ", \citet{" * crossref * "}" * | |
| } | |
| FUNCTION {format.incoll.inproc.crossref} | |
| { editor empty$ | |
| editor field.or.null author field.or.null = | |
| or | |
| { key empty$ | |
| { booktitle empty$ | |
| { "need editor, key, or booktitle for " cite$ * " to crossref " * | |
| crossref * warning$ | |
| "" | |
| } | |
| { "In \emph{" booktitle * "}" * } | |
| if$ | |
| } | |
| { "In " key * } | |
| if$ | |
| } | |
| { "In " } | |
| if$ | |
| " \citet{" * crossref * "}" * | |
| } | |
| FUNCTION {article} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block | |
| format.title "title" output.check | |
| new.block | |
| crossref missing$ | |
| { journal emphasize "journal" output.check | |
| new.sentence | |
| format.date "year" output.check | |
| eid empty$ | |
| { format.vol.num.pages output } | |
| { format.vol.num.eid output } | |
| if$ | |
| } | |
| { format.article.crossref output.nonnull | |
| eid empty$ | |
| { format.pages output } | |
| { format.eid output } | |
| if$ | |
| } | |
| if$ | |
| format.issn output | |
| format.doi output | |
| format.url output | |
| new.block | |
| note output | |
| fin.entry | |
| } | |
| FUNCTION {online} % CHANGE mudrd8mz 2005-10-12 addign new item type | |
| { output.bibitem | |
| format.authors output | |
| new.block | |
| format.btitle " [online]" * output | |
| new.sentence | |
| publisher missing$ | |
| 'skip$ | |
| { publisher output } | |
| if$ | |
| year missing$ | |
| 'skip$ | |
| { format.date "year" output.check } | |
| if$ | |
| new.sentence | |
| cited missing$ | |
| 'skip$ | |
| { "[cit.~" cited * "]" * output } | |
| if$ | |
| new.sentence | |
| note output | |
| new.sentence | |
| format.url 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$ | |
| { "author and editor" editor either.or.check } | |
| 'skip$ | |
| if$ | |
| } | |
| if$ | |
| new.block | |
| format.btitle "title" output.check | |
| crossref missing$ | |
| { new.block | |
| format.bvolume output | |
| format.number.series output | |
| new.sentence | |
| address "~: " * publisher * % CHANGE mudrd8mz 2005-10-12 | |
| "publisher" output.check | |
| } | |
| { new.block | |
| format.book.crossref output.nonnull | |
| } | |
| if$ | |
| format.edition output | |
| format.date "year" output.check | |
| format.doi output | |
| format.url output | |
| new.block | |
| note output | |
| format.isbn output | |
| fin.entry | |
| } | |
| FUNCTION {booklet} | |
| { output.bibitem | |
| format.authors output | |
| author format.key output | |
| new.block | |
| format.title "title" output.check | |
| howpublished address new.block.checkb | |
| howpublished output | |
| address output | |
| format.date output | |
| format.doi output | |
| format.url output | |
| new.block | |
| note output | |
| format.isbn output | |
| fin.entry | |
| } | |
| FUNCTION {inbook} | |
| { output.bibitem | |
| author empty$ | |
| { format.editors "author and editor" output.check | |
| editor format.key output | |
| } | |
| { format.authors output.nonnull | |
| crossref missing$ | |
| { "author and editor" editor either.or.check } | |
| 'skip$ | |
| if$ | |
| } | |
| if$ | |
| new.block | |
| format.btitle "title" output.check | |
| crossref missing$ | |
| { format.bvolume output | |
| format.chapter.pages "chapter and pages" output.check | |
| new.block | |
| format.number.series output | |
| new.sentence | |
| publisher "publisher" output.check | |
| address output | |
| } | |
| { format.chapter.pages "chapter and pages" output.check | |
| new.block | |
| format.book.crossref output.nonnull | |
| } | |
| if$ | |
| format.edition output | |
| format.date "year" output.check | |
| format.doi output | |
| format.url output | |
| new.block | |
| note output | |
| format.isbn output | |
| fin.entry | |
| } | |
| FUNCTION {incollection} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block | |
| format.title "title" output.check | |
| new.block | |
| crossref missing$ | |
| { format.in.ed.booktitle "booktitle" output.check | |
| format.bvolume output | |
| format.number.series output | |
| new.sentence | |
| address ": " * publisher * % CHANGE mudrd8mz 2005-10-12 | |
| "publisher" output.check | |
| %publisher "publisher" output.check | |
| %address output | |
| format.edition output | |
| format.date "year" output.check | |
| new.sentence | |
| format.chapter.pages output | |
| } | |
| { format.incoll.inproc.crossref output.nonnull | |
| format.chapter.pages output | |
| } | |
| if$ | |
| format.doi output | |
| format.url output | |
| new.block | |
| format.isbn output | |
| note output | |
| fin.entry | |
| } | |
| FUNCTION {inproceedings} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block | |
| format.title "title" output.check | |
| new.block | |
| crossref missing$ | |
| { format.in.ed.booktitle "booktitle" output.check | |
| format.bvolume output | |
| format.number.series output | |
| format.pages output | |
| address empty$ | |
| { organization publisher new.sentence.checkb | |
| organization output | |
| publisher output | |
| format.date "year" output.check | |
| } | |
| { address output.nonnull | |
| format.date "year" output.check | |
| new.sentence | |
| organization output | |
| publisher output | |
| } | |
| if$ | |
| } | |
| { format.incoll.inproc.crossref output.nonnull | |
| format.pages output | |
| } | |
| if$ | |
| format.doi output | |
| format.url output | |
| new.block | |
| format.isbn output | |
| note output | |
| fin.entry | |
| } | |
| FUNCTION {conference} { inproceedings } | |
| FUNCTION {manual} | |
| { output.bibitem | |
| format.authors output | |
| author format.key output | |
| new.block | |
| format.btitle "title" output.check | |
| organization address new.block.checkb | |
| organization output | |
| address output | |
| format.edition output | |
| format.date output | |
| format.url output | |
| new.block | |
| note output | |
| fin.entry | |
| } | |
| FUNCTION {mastersthesis} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block | |
| format.title "title" output.check | |
| new.block | |
| "Master's thesis" format.thesis.type output.nonnull | |
| school "school" output.check | |
| address output | |
| format.date "year" output.check | |
| format.url output | |
| new.block | |
| note output | |
| fin.entry | |
| } | |
| FUNCTION {bachelorthesis} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block | |
| format.title "title" output.check | |
| new.block | |
| "Bachelor's thesis" format.thesis.type output.nonnull | |
| school "school" output.check | |
| address output | |
| format.date "year" output.check | |
| format.url output | |
| new.block | |
| note output | |
| fin.entry | |
| } | |
| FUNCTION {misc} | |
| { output.bibitem | |
| format.authors output | |
| author format.key output | |
| title howpublished new.block.checkb | |
| format.title output | |
| howpublished new.block.checka | |
| howpublished output | |
| format.date output | |
| format.issn output | |
| format.url output | |
| new.block | |
| note output | |
| fin.entry | |
| empty.misc.check | |
| } | |
| FUNCTION {phdthesis} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block | |
| format.btitle "title" output.check | |
| new.block | |
| "PhD thesis" format.thesis.type output.nonnull | |
| school "school" output.check | |
| address output | |
| format.date "year" output.check | |
| format.url output | |
| new.block | |
| note output | |
| fin.entry | |
| } | |
| FUNCTION {proceedings} | |
| { output.bibitem | |
| format.editors output | |
| editor format.key output | |
| new.block | |
| format.btitle "title" output.check | |
| format.bvolume output | |
| format.number.series output | |
| address output | |
| format.date "year" output.check | |
| new.sentence | |
| organization output | |
| publisher output | |
| format.doi output | |
| format.url output | |
| new.block | |
| format.isbn output | |
| note output | |
| fin.entry | |
| } | |
| FUNCTION {techreport} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block | |
| format.title "title" output.check | |
| new.block | |
| format.tr.number output.nonnull | |
| institution "institution" output.check | |
| address output | |
| format.date "year" output.check | |
| format.url output | |
| new.block | |
| note output | |
| fin.entry | |
| } | |
| FUNCTION {unpublished} | |
| { output.bibitem | |
| format.authors "author" output.check | |
| author format.key output | |
| new.block | |
| format.title "title" output.check | |
| format.url output | |
| new.block | |
| note "note" output.check | |
| format.date output | |
| fin.entry | |
| } | |
| FUNCTION {default.type} { misc } | |
| MACRO {jan} {"January"} | |
| MACRO {feb} {"February"} | |
| MACRO {mar} {"March"} | |
| MACRO {apr} {"April"} | |
| MACRO {may} {"May"} | |
| MACRO {jun} {"June"} | |
| MACRO {jul} {"July"} | |
| MACRO {aug} {"August"} | |
| MACRO {sep} {"September"} | |
| MACRO {oct} {"October"} | |
| MACRO {nov} {"November"} | |
| MACRO {dec} {"December"} | |
| MACRO {acmcs} {"ACM Computing Surveys"} | |
| MACRO {acta} {"Acta Informatica"} | |
| MACRO {cacm} {"Communications of the ACM"} | |
| MACRO {ibmjrd} {"IBM Journal of Research and Development"} | |
| MACRO {ibmsj} {"IBM Systems Journal"} | |
| MACRO {ieeese} {"IEEE Transactions on Software Engineering"} | |
| MACRO {ieeetc} {"IEEE Transactions on Computers"} | |
| MACRO {ieeetcad} | |
| {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"} | |
| MACRO {ipl} {"Information Processing Letters"} | |
| MACRO {jacm} {"Journal of the ACM"} | |
| MACRO {jcss} {"Journal of Computer and System Sciences"} | |
| MACRO {scp} {"Science of Computer Programming"} | |
| MACRO {sicomp} {"SIAM Journal on Computing"} | |
| MACRO {tocs} {"ACM Transactions on Computer Systems"} | |
| MACRO {tods} {"ACM Transactions on Database Systems"} | |
| MACRO {tog} {"ACM Transactions on Graphics"} | |
| MACRO {toms} {"ACM Transactions on Mathematical Software"} | |
| MACRO {toois} {"ACM Transactions on Office Information Systems"} | |
| MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"} | |
| MACRO {tcs} {"Theoretical Computer Science"} | |
| READ | |
| 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 {format.lab.names} | |
| { 's := | |
| s #1 "{vv~}{ll}" format.name$ | |
| s num.names$ duplicate$ | |
| #2 > | |
| { pop$ " et~al." * } | |
| { #2 < | |
| 'skip$ | |
| { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" = | |
| { " et~al." * } | |
| { " -- " * s #2 "{vv~}{ll}" format.name$ * } % CHANGE mudrd8mz 2005-10-12: changed "and" | |
| 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 {author.key.organization.label} | |
| { author empty$ | |
| { key empty$ | |
| { organization empty$ | |
| { cite$ #1 #3 substring$ } | |
| { "The " #4 organization chop.word #3 text.prefix$ } | |
| if$ | |
| } | |
| 'key | |
| if$ | |
| } | |
| { author format.lab.names } | |
| if$ | |
| } | |
| FUNCTION {editor.key.organization.label} | |
| { editor empty$ | |
| { key empty$ | |
| { organization empty$ | |
| { cite$ #1 #3 substring$ } | |
| { "The " #4 organization chop.word #3 text.prefix$ } | |
| if$ | |
| } | |
| 'key | |
| if$ | |
| } | |
| { editor format.lab.names } | |
| if$ | |
| } | |
| FUNCTION {calc.short.authors} | |
| { type$ "book" = | |
| type$ "inbook" = | |
| or | |
| 'author.editor.key.label | |
| { type$ "proceedings" = | |
| 'editor.key.organization.label | |
| { type$ "manual" = | |
| 'author.key.organization.label | |
| 'author.key.label | |
| if$ | |
| } | |
| if$ | |
| } | |
| if$ | |
| 'short.list := | |
| } | |
| FUNCTION {calc.label} | |
| { calc.short.authors | |
| short.list | |
| "(" | |
| * | |
| year duplicate$ empty$ | |
| short.list key field.or.null = or | |
| { pop$ "" } | |
| 'skip$ | |
| if$ | |
| * | |
| 'label := | |
| } | |
| FUNCTION {sort.format.names} | |
| { 's := | |
| #1 'nameptr := | |
| "" | |
| s num.names$ 'numnames := | |
| numnames 'namesleft := | |
| { namesleft #0 > } | |
| { | |
| s nameptr "{vv{ } }{ll{ }}{ ff{ }}{ jj{ }}" format.name$ 't := | |
| nameptr #1 > | |
| { | |
| " " * | |
| namesleft #1 = t "others" = and | |
| { "zzzzz" * } | |
| { numnames #2 > nameptr #2 = and | |
| { "zz" * year field.or.null * " " * } | |
| 'skip$ | |
| if$ | |
| 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 {author.organization.sort} | |
| { author empty$ | |
| { organization empty$ | |
| { key empty$ | |
| { "to sort, need author, organization, or key in " cite$ * warning$ | |
| "" | |
| } | |
| { key sortify } | |
| if$ | |
| } | |
| { "The " #4 organization chop.word sortify } | |
| if$ | |
| } | |
| { author sort.format.names } | |
| if$ | |
| } | |
| FUNCTION {editor.organization.sort} | |
| { editor empty$ | |
| { organization empty$ | |
| { key empty$ | |
| { "to sort, need editor, organization, or key in " cite$ * warning$ | |
| "" | |
| } | |
| { key sortify } | |
| if$ | |
| } | |
| { "The " #4 organization chop.word sortify } | |
| if$ | |
| } | |
| { editor sort.format.names } | |
| if$ | |
| } | |
| FUNCTION {presort} | |
| { calc.label | |
| label sortify | |
| " " | |
| * | |
| type$ "book" = | |
| type$ "inbook" = | |
| or | |
| 'author.editor.sort | |
| { type$ "proceedings" = | |
| 'editor.organization.sort | |
| { type$ "manual" = | |
| 'author.organization.sort | |
| 'author.sort | |
| if$ | |
| } | |
| if$ | |
| } | |
| if$ | |
| " " | |
| * | |
| cite$ | |
| * | |
| #1 entry.max$ substring$ | |
| 'sort.label := | |
| sort.label * | |
| #1 entry.max$ substring$ | |
| 'sort.key$ := | |
| } | |
| ITERATE {presort} | |
| %%SORT | |
| STRINGS { longest.label last.label next.extra } | |
| INTEGERS { longest.label.width last.extra.num number.label } | |
| FUNCTION {initialize.longest.label} | |
| { "" 'longest.label := | |
| #0 int.to.chr$ 'last.label := | |
| "" 'next.extra := | |
| #0 'longest.label.width := | |
| #0 'last.extra.num := | |
| #0 'number.label := | |
| } | |
| FUNCTION {forward.pass} | |
| { 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 {reverse.pass} | |
| { 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.longest.label} | |
| ITERATE {forward.pass} | |
| REVERSE {reverse.pass} | |
| FUNCTION {bib.sort.order} | |
| { sort.label 'sort.key$ := | |
| } | |
| ITERATE {bib.sort.order} | |
| %%SORT | |
| FUNCTION {begin.bib} | |
| { preamble$ empty$ | |
| 'skip$ | |
| { preamble$ write$ newline$ } | |
| if$ | |
| "\begin{thebibliography}{" number.label int.to.str$ * "}" * | |
| write$ newline$ | |
| "\providecommand{\natexlab}[1]{#1}" | |
| write$ newline$ | |
| "\providecommand{\url}[1]{\texttt{#1}}" | |
| write$ newline$ | |
| "\expandafter\ifx\csname urlstyle\endcsname\relax" | |
| write$ newline$ | |
| " \providecommand{\doi}[1]{doi: #1}\else" | |
| write$ newline$ | |
| " \providecommand{\doi}{doi: \begingroup \urlstyle{rm}\Url}\fi" | |
| write$ newline$ | |
| } | |
| EXECUTE {begin.bib} | |
| EXECUTE {init.state.consts} | |
| ITERATE {call.type$} | |
| FUNCTION {end.bib} | |
| { newline$ | |
| "\end{thebibliography}" write$ newline$ | |
| } | |
| EXECUTE {end.bib} |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment