From 25454e4e2e9e6412c42f9774d70f545efa5382e0 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Sun, 12 Dec 2021 22:28:50 +0000 Subject: gbt7714 (12dec21) git-svn-id: svn://tug.org/texlive/trunk@61282 c570f23f-e606-0410-a88d-b1316a301751 --- .../bst/gbt7714/gbt7714-2005-author-year.bst | 2614 +++++++++++ .../bibtex/bst/gbt7714/gbt7714-2005-numerical.bst | 2421 ++++++++++ .../bibtex/bst/gbt7714/gbt7714-author-year.bst | 152 +- .../bibtex/bst/gbt7714/gbt7714-numerical.bst | 146 +- Master/texmf-dist/doc/bibtex/gbt7714/CHANGELOG.md | 211 +- Master/texmf-dist/doc/bibtex/gbt7714/LICENSE | 416 -- Master/texmf-dist/doc/bibtex/gbt7714/README.md | 77 +- Master/texmf-dist/doc/bibtex/gbt7714/gbt7714.pdf | Bin 368979 -> 371002 bytes .../texmf-dist/source/bibtex/gbt7714/gbt7714.dtx | 4672 -------------------- .../texmf-dist/source/bibtex/gbt7714/gbt7714.ins | 29 - Master/texmf-dist/tex/latex/gbt7714/gbt7714.sty | 8 +- 11 files changed, 5420 insertions(+), 5326 deletions(-) create mode 100644 Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-2005-author-year.bst create mode 100644 Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-2005-numerical.bst delete mode 100644 Master/texmf-dist/doc/bibtex/gbt7714/LICENSE delete mode 100644 Master/texmf-dist/source/bibtex/gbt7714/gbt7714.dtx delete mode 100644 Master/texmf-dist/source/bibtex/gbt7714/gbt7714.ins (limited to 'Master/texmf-dist') diff --git a/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-2005-author-year.bst b/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-2005-author-year.bst new file mode 100644 index 00000000000..14128183e76 --- /dev/null +++ b/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-2005-author-year.bst @@ -0,0 +1,2614 @@ +%% +%% This is file `gbt7714-2005-author-year.bst', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% gbt7714.dtx (with options: `2005,author-year') +%% ------------------------------------------------------------------- +%% GB/T 7714 BibTeX Style +%% https://github.com/zepinglee/gbt7714-bibtex-style +%% Version: 2021/12/08 v2.1.3 +%% ------------------------------------------------------------------- +%% Copyright (C) 2016—2021 by Zeping Lee +%% ------------------------------------------------------------------- +%% This file may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License, either version 1.3c +%% of this license or (at your option) any later version. +%% The latest version of this license is in +%% https://www.latex-project.org/lppl.txt +%% and version 1.3c or later is part of all distributions of LaTeX +%% version 2008 or later. +%% ------------------------------------------------------------------- +INTEGERS { + citation.et.al.min + citation.et.al.use.first + bibliography.et.al.min + bibliography.et.al.use.first + uppercase.name + terms.in.macro + year.after.author + period.after.author + italic.book.title + sentence.case.title + link.title + title.in.journal + show.patent.country + show.mark + space.before.mark + show.medium.type + slash.for.extraction + in.booktitle + short.journal + italic.journal + bold.journal.volume + show.missing.address.publisher + space.before.pages + only.start.page + wave.dash.in.pages + show.urldate + show.url + show.doi + show.preprint + show.note + show.english.translation + end.with.period + lang.zh.order + lang.ja.order + lang.en.order + lang.ru.order + lang.other.order +} + +FUNCTION {load.config} +{ + #2 'citation.et.al.min := + #1 'citation.et.al.use.first := + #4 'bibliography.et.al.min := + #3 'bibliography.et.al.use.first := + #1 'uppercase.name := + #0 'terms.in.macro := + #1 'year.after.author := + #1 'period.after.author := + #0 'italic.book.title := + #1 'sentence.case.title := + #0 'link.title := + #1 'title.in.journal := + #1 'show.patent.country := + #1 'show.mark := + #0 'space.before.mark := + #1 'show.medium.type := + #1 'slash.for.extraction := + #0 'in.booktitle := + #0 'short.journal := + #0 'italic.journal := + #0 'bold.journal.volume := + #0 'show.missing.address.publisher := + #1 'space.before.pages := + #0 'only.start.page := + #0 'wave.dash.in.pages := + #1 'show.urldate := + #1 'show.url := + #0 'show.doi := + #1 'show.preprint := + #0 'show.note := + #0 'show.english.translation := + #1 'end.with.period := + #1 'lang.zh.order := + #2 'lang.ja.order := + #3 'lang.en.order := + #4 'lang.ru.order := + #5 'lang.other.order := +} + +ENTRY + { address + archivePrefix + author + booktitle + date + doi + edition + editor + eprint + eprinttype + howpublished + institution + journal + journaltitle + key + langid + language + location + mark + medium + note + number + organization + pages + publisher + school + series + shortjournal + title + translation + translator + url + urldate + volume + year + } + { entry.lang entry.is.electronic is.pure.electronic entry.numbered } + { label extra.label sort.label short.label short.list entry.mark entry.url } + +INTEGERS { output.state before.all mid.sentence after.sentence after.block after.slash } + +INTEGERS { lang.zh lang.ja lang.en lang.ru lang.other } + +INTEGERS { charptr len } + +FUNCTION {init.state.consts} +{ #0 'before.all := + #1 'mid.sentence := + #2 'after.sentence := + #3 'after.block := + #4 'after.slash := + #3 'lang.zh := + #4 'lang.ja := + #1 'lang.en := + #2 'lang.ru := + #0 'lang.other := +} + +FUNCTION {bbl.anonymous} +{ entry.lang lang.zh = + { "佚名" } + { "Anon" } + if$ +} + +FUNCTION {bbl.space} +{ entry.lang lang.zh = + { "\ " } + { " " } + if$ +} + +FUNCTION {bbl.and} +{ "" } + +FUNCTION {bbl.et.al} +{ entry.lang lang.zh = + { "等" } + { entry.lang lang.ja = + { "他" } + { entry.lang lang.ru = + { "идр" } + { "et~al." } + if$ + } + if$ + } + if$ +} + +FUNCTION {citation.and} +{ terms.in.macro + { "{\biband}" } + 'bbl.and + if$ +} + +FUNCTION {citation.et.al} +{ terms.in.macro + { "{\bibetal}" } + 'bbl.et.al + if$ +} + +FUNCTION {bbl.colon} { ": " } + +FUNCTION {bbl.pages.colon} +{ space.before.pages + { ": " } + { ":\allowbreak " } + if$ +} + +FUNCTION {bbl.wide.space} { "\ " } + +FUNCTION {bbl.slash} { "//\allowbreak " } + +FUNCTION {bbl.sine.loco} +{ entry.lang lang.zh = + { "[出版地不详]" } + { "[S.l.]" } + if$ +} + +FUNCTION {bbl.sine.nomine} +{ entry.lang lang.zh = + { "[出版者不详]" } + { "[s.n.]" } + if$ +} + +FUNCTION {bbl.sine.loco.sine.nomine} +{ entry.lang lang.zh = + { "[出版地不详: 出版者不详]" } + { "[S.l.: s.n.]" } + if$ +} + +FUNCTION {not} +{ { #0 } + { #1 } + if$ +} + +FUNCTION {and} +{ 'skip$ + { pop$ #0 } + if$ +} + +FUNCTION {or} +{ { pop$ #1 } + 'skip$ + if$ +} + +STRINGS { x y } + +FUNCTION {contains} +{ 'y := + 'x := + y text.length$ 'len := + x text.length$ len - #1 + 'charptr := + { charptr #0 > + x charptr len substring$ y = not + and + } + { charptr #1 - 'charptr := } + while$ + charptr #0 > +} + +STRINGS { s t } + +FUNCTION {output.nonnull} +{ 's := + output.state mid.sentence = + { ", " * write$ } + { output.state after.block = + { add.period$ write$ + newline$ + "\newblock " write$ + } + { output.state before.all = + 'write$ + { output.state after.slash = + { bbl.slash * write$ + newline$ + } + { add.period$ " " * write$ } + if$ + } + if$ + } + if$ + mid.sentence 'output.state := + } + if$ + s +} + +FUNCTION {output} +{ duplicate$ empty$ + 'pop$ + 'output.nonnull + if$ +} + +FUNCTION {output.after} +{ 't := + duplicate$ empty$ + 'pop$ + { 's := + output.state mid.sentence = + { t * write$ } + { output.state after.block = + { add.period$ write$ + newline$ + "\newblock " write$ + } + { output.state before.all = + 'write$ + { output.state after.slash = + { bbl.slash * write$ } + { add.period$ " " * write$ } + if$ + } + if$ + } + if$ + mid.sentence 'output.state := + } + if$ + s + } + if$ +} + +FUNCTION {output.check} +{ 't := + duplicate$ empty$ + { pop$ "empty " t * " in " * cite$ * warning$ } + 'output.nonnull + if$ +} + +FUNCTION {fin.entry} +{ end.with.period + 'add.period$ + 'skip$ + if$ + write$ + show.english.translation entry.lang lang.zh = and + { ")" + write$ + } + 'skip$ + if$ + newline$ +} + +FUNCTION {new.block} +{ output.state before.all = + 'skip$ + { output.state after.slash = + 'skip$ + { after.block 'output.state := } + if$ + } + if$ +} + +FUNCTION {new.sentence} +{ output.state after.block = + 'skip$ + { output.state before.all = + 'skip$ + { output.state after.slash = + 'skip$ + { after.sentence 'output.state := } + if$ + } + if$ + } + if$ +} + +FUNCTION {new.slash} +{ output.state before.all = + 'skip$ + { slash.for.extraction + { after.slash 'output.state := } + { after.block 'output.state := } + if$ + } + 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 {format.btitle} +{ italic.book.title + entry.lang lang.en = and + 'emphasize + 'skip$ + if$ +} + +INTEGERS { byte second.byte } + +INTEGERS { char.lang tmp.lang } + +STRINGS { tmp.str } + +FUNCTION {get.str.lang} +{ 'tmp.str := + lang.other 'tmp.lang := + #1 'charptr := + tmp.str text.length$ #1 + 'len := + { charptr len < } + { tmp.str charptr #1 substring$ chr.to.int$ 'byte := + byte #128 < + { charptr #1 + 'charptr := + byte #64 > byte #91 < and byte #96 > byte #123 < and or + { lang.en 'char.lang := } + { lang.other 'char.lang := } + if$ + } + { tmp.str charptr #1 + #1 substring$ chr.to.int$ 'second.byte := + byte #224 < + { charptr #2 + 'charptr := + byte #207 > byte #212 < and + byte #212 = second.byte #176 < and or + { lang.ru 'char.lang := } + { lang.other 'char.lang := } + if$ + } + { byte #240 < + { charptr #3 + 'charptr := + byte #227 > byte #234 < and + { lang.zh 'char.lang := } + { byte #227 = + { second.byte #143 > + { lang.zh 'char.lang := } + { second.byte #128 > second.byte #132 < and + { lang.ja 'char.lang := } + { lang.other 'char.lang := } + if$ + } + if$ + } + { byte #239 = + second.byte #163 > second.byte #172 < and and + { lang.zh 'char.lang := } + { lang.other 'char.lang := } + if$ + } + if$ + } + if$ + } + { charptr #4 + 'charptr := + byte #240 = second.byte #159 > and + { lang.zh 'char.lang := } + { lang.other 'char.lang := } + if$ + } + if$ + } + if$ + } + if$ + char.lang tmp.lang > + { char.lang 'tmp.lang := } + 'skip$ + if$ + } + while$ + tmp.lang +} + +FUNCTION {check.entry.lang} +{ author field.or.null + title field.or.null * + get.str.lang +} + +STRINGS { entry.langid } + +FUNCTION {set.entry.lang} +{ "" 'entry.langid := + language empty$ not + { language 'entry.langid := } + 'skip$ + if$ + langid empty$ not + { langid 'entry.langid := } + 'skip$ + if$ + entry.langid empty$ + { check.entry.lang } + { entry.langid "english" = entry.langid "american" = or entry.langid "british" = or + { lang.en } + { entry.langid "chinese" = + { lang.zh } + { entry.langid "japanese" = + { lang.ja } + { entry.langid "russian" = + { lang.ru } + { check.entry.lang } + if$ + } + if$ + } + if$ + } + if$ + } + if$ + 'entry.lang := +} + +FUNCTION {set.entry.numbered} +{ type$ "patent" = + type$ "standard" = or + type$ "techreport" = or + { #1 'entry.numbered := } + { #0 'entry.numbered := } + if$ +} + +INTEGERS { nameptr namesleft numnames name.lang } + +FUNCTION {format.name} +{ "{vv~}{ll}{, jj}{, ff}" format.name$ 't := + t "others" = + { bbl.et.al } + { t get.str.lang 'name.lang := + name.lang lang.en = + { t #1 "{vv~}{ll}{ f{~}}" format.name$ + uppercase.name + { "u" change.case$ } + 'skip$ + if$ + t #1 "{, jj}" format.name$ * + } + { t #1 "{ll}{ff}" format.name$ } + if$ + } + if$ +} + +FUNCTION {format.names} +{ 's := + #1 'nameptr := + s num.names$ 'numnames := + "" + numnames 'namesleft := + { namesleft #0 > } + { s nameptr format.name bbl.et.al = + numnames bibliography.et.al.min #1 - > nameptr bibliography.et.al.use.first > and or + { ", " * + bbl.et.al * + #1 'namesleft := + } + { nameptr #1 > + { namesleft #1 = bbl.and "" = not and + { bbl.and * } + { ", " * } + if$ + } + 'skip$ + if$ + s nameptr format.name * + } + if$ + nameptr #1 + 'nameptr := + namesleft #1 - 'namesleft := + } + while$ +} + +FUNCTION {format.key} +{ empty$ + { key field.or.null } + { "" } + if$ +} + +FUNCTION {format.authors} +{ author empty$ not + { author format.names } + { "empty author in " cite$ * warning$ + bbl.anonymous + } + if$ +} + +FUNCTION {format.editors} +{ editor empty$ + { "" } + { editor format.names } + if$ +} + +FUNCTION {format.translators} +{ translator empty$ + { "" } + { translator format.names + entry.lang lang.zh = + { translator num.names$ #3 > + { "译" * } + { ", 译" * } + if$ + } + 'skip$ + if$ + } + if$ +} + +FUNCTION {format.full.names} +{'s := + #1 'nameptr := + s num.names$ 'numnames := + numnames 'namesleft := + { namesleft #0 > } + { s nameptr "{vv~}{ll}{, jj}{, ff}" format.name$ 't := + t get.str.lang 'name.lang := + name.lang lang.en = + { t #1 "{vv~}{ll}" format.name$ 't := } + { t #1 "{ll}{ff}" format.name$ 't := } + if$ + nameptr #1 > + { + namesleft #1 > + { ", " * t * } + { + numnames #2 > + { "," * } + 'skip$ + if$ + t "others" = + { " et~al." * } + { " and " * t * } + 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$ "collection" = + type$ "proceedings" = + or + 'editor.full + 'author.full + if$ + } + if$ +} + +FUNCTION {output.bibitem} +{ newline$ + "\bibitem[" write$ + label ")" * + make.full.names duplicate$ short.list = + { pop$ } + { duplicate$ "]" contains + { "{" swap$ * "}" * } + 'skip$ + if$ + * + } + if$ + "]{" * write$ + cite$ write$ + "}" write$ + newline$ + "" + before.all 'output.state := +} + +FUNCTION {change.sentence.case} +{ entry.lang lang.en = + { "t" change.case$ } + 'skip$ + if$ +} + +FUNCTION {add.link} +{ url empty$ not + { "\href{" url * "}{" * swap$ * "}" * } + { doi empty$ not + { "\href{https://doi.org/" doi * "}{" * swap$ * "}" * } + 'skip$ + if$ + } + if$ +} + +FUNCTION {format.title} +{ title empty$ + { "" } + { title + sentence.case.title + 'change.sentence.case + 'skip$ + if$ + entry.numbered number empty$ not and + { bbl.colon * + type$ "patent" = show.patent.country and + { address empty$ not + { address * ", " * } + { location empty$ not + { location * ", " * } + { entry.lang lang.zh = + { "中国" * ", " * } + 'skip$ + if$ + } + if$ + } + if$ + } + 'skip$ + if$ + number * + } + 'skip$ + if$ + link.title + 'add.link + 'skip$ + if$ + } + if$ +} + +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 {is.digit} +{ duplicate$ empty$ + { pop$ #0 } + { chr.to.int$ + duplicate$ "0" chr.to.int$ < + { pop$ #0 } + { "9" chr.to.int$ > + { #0 } + { #1 } + if$ + } + if$ + } + if$ +} + +FUNCTION {is.number} +{ 's := + s empty$ + { #0 } + { s text.length$ 'charptr := + { charptr #0 > + s charptr #1 substring$ is.digit + and + } + { charptr #1 - 'charptr := } + while$ + charptr not + } + if$ +} + +FUNCTION {format.volume} +{ volume empty$ not + { volume is.number + { entry.lang lang.zh = + { "第 " volume * " 卷" * } + { "volume" volume tie.or.space.connect } + if$ + } + { volume } + if$ + } + { "" } + if$ +} + +FUNCTION {format.number} +{ number empty$ not + { number is.number + { entry.lang lang.zh = + { "第 " number * " 册" * } + { "number" number tie.or.space.connect } + if$ + } + { number } + if$ + } + { "" } + if$ +} + +FUNCTION {format.volume.number} +{ volume empty$ not + { format.volume } + { format.number } + if$ +} + +FUNCTION {format.title.vol.num} +{ title + sentence.case.title + 'change.sentence.case + 'skip$ + if$ + entry.numbered + { number empty$ not + { bbl.colon * number * } + 'skip$ + if$ + } + { format.volume.number 's := + s empty$ not + { bbl.colon * s * } + 'skip$ + if$ + } + if$ +} + +FUNCTION {format.series.vol.num.title} +{ format.volume.number 's := + series empty$ not + { series + sentence.case.title + 'change.sentence.case + 'skip$ + if$ + entry.numbered + { bbl.wide.space * } + { bbl.colon * + s empty$ not + { s * bbl.wide.space * } + 'skip$ + if$ + } + if$ + title * + sentence.case.title + 'change.sentence.case + 'skip$ + if$ + entry.numbered number empty$ not and + { bbl.colon * number * } + 'skip$ + if$ + } + { format.title.vol.num } + if$ + format.btitle + link.title + 'add.link + 'skip$ + if$ +} + +FUNCTION {format.booktitle.vol.num} +{ booktitle + entry.numbered + 'skip$ + { format.volume.number 's := + s empty$ not + { bbl.colon * s * } + 'skip$ + if$ + } + if$ +} + +FUNCTION {format.series.vol.num.booktitle} +{ format.volume.number 's := + series empty$ not + { series bbl.colon * + entry.numbered not s empty$ not and + { s * bbl.wide.space * } + 'skip$ + if$ + booktitle * + } + { format.booktitle.vol.num } + if$ + format.btitle + in.booktitle + { duplicate$ empty$ not entry.lang lang.en = and + { "In: " swap$ * } + 'skip$ + if$ + } + 'skip$ + if$ +} + +FUNCTION {remove.period} +{ 't := + "" 's := + { t empty$ not } + { t #1 #1 substring$ 'tmp.str := + tmp.str "." = not + { s tmp.str * 's := } + 'skip$ + if$ + t #2 global.max$ substring$ 't := + } + while$ + s +} + +FUNCTION {abbreviate} +{ remove.period + 't := + t "l" change.case$ 's := + "" + s "physical review letters" = + { "Phys Rev Lett" } + 'skip$ + if$ + 's := + s empty$ + { t } + { pop$ s } + if$ +} + +FUNCTION {get.journal.title} +{ short.journal + { shortjournal empty$ not + { shortjournal } + { journal empty$ not + { journal abbreviate } + { journaltitle empty$ not + { journaltitle abbreviate } + { "" } + if$ + } + if$ + } + if$ + } + { journal empty$ not + { journal } + { journaltitle empty$ not + { journaltitle } + { shortjournal empty$ not + { shortjournal } + { "" } + if$ + } + if$ + } + if$ + } + if$ +} + +FUNCTION {check.arxiv.preprint} +{ #1 #5 substring$ "l" change.case$ "arxiv" = + { #1 } + { #0 } + if$ +} + +FUNCTION {format.journal} +{ get.journal.title + duplicate$ empty$ not + { italic.journal entry.lang lang.en = and + 'emphasize + 'skip$ + if$ + } + 'skip$ + if$ +} + +FUNCTION {set.entry.mark} +{ entry.mark empty$ not + 'pop$ + { mark empty$ not + { pop$ mark 'entry.mark := } + { 'entry.mark := } + if$ + } + if$ +} + +FUNCTION {format.mark} +{ show.mark + { entry.mark + show.medium.type + { medium empty$ not + { "/" * medium * } + { entry.is.electronic + { "/OL" * } + 'skip$ + if$ + } + if$ + } + 'skip$ + if$ + 'entry.mark := + space.before.mark + { " " } + { "\allowbreak" } + if$ + "[" * entry.mark * "]" * + } + { "" } + if$ +} + +FUNCTION {num.to.ordinal} +{ duplicate$ text.length$ 'charptr := + duplicate$ charptr #1 substring$ 's := + s "1" = + { "st" * } + { s "2" = + { "nd" * } + { s "3" = + { "rd" * } + { "th" * } + if$ + } + if$ + } + if$ +} + +FUNCTION {format.edition} +{ edition empty$ + { "" } + { edition is.number + { entry.lang lang.zh = + { edition " 版" * } + { edition num.to.ordinal " ed." * } + if$ + } + { entry.lang lang.en = + { edition change.sentence.case 's := + s "Revised" = s "Revised edition" = or + { "Rev. ed." } + { s " ed." * } + if$ + } + { edition } + if$ + } + if$ + } + if$ +} + +FUNCTION {format.publisher} +{ publisher empty$ not + { publisher } + { school empty$ not + { school } + { organization empty$ not + { organization } + { institution empty$ not + { institution } + { "" } + if$ + } + if$ + } + if$ + } + if$ +} + +FUNCTION {format.address.publisher} +{ address empty$ not + { address } + { location empty$ not + { location } + { "" } + if$ + } + if$ + duplicate$ empty$ not + { format.publisher empty$ not + { bbl.colon * format.publisher * } + { entry.is.electronic not show.missing.address.publisher and + { bbl.colon * bbl.sine.nomine * } + 'skip$ + if$ + } + if$ + } + { pop$ + entry.is.electronic not show.missing.address.publisher and + { format.publisher empty$ not + { bbl.sine.loco bbl.colon * format.publisher * } + { bbl.sine.loco.sine.nomine } + if$ + } + { format.publisher empty$ not + { format.publisher } + { "" } + if$ + } + if$ + } + if$ +} + +FUNCTION {extract.before.dash} +{ duplicate$ empty$ + { pop$ "" } + { 's := + #1 'charptr := + s text.length$ #1 + 'len := + { charptr len < + s charptr #1 substring$ "-" = not + and + } + { charptr #1 + 'charptr := } + while$ + s #1 charptr #1 - substring$ + } + if$ +} + +FUNCTION {extract.after.dash} +{ duplicate$ empty$ + { pop$ "" } + { 's := + #1 'charptr := + s text.length$ #1 + 'len := + { charptr len < + s charptr #1 substring$ "-" = not + and + } + { charptr #1 + 'charptr := } + while$ + { charptr len < + s charptr #1 substring$ "-" = + and + } + { charptr #1 + 'charptr := } + while$ + s charptr global.max$ substring$ + } + if$ +} + +FUNCTION {extract.before.slash} +{ duplicate$ empty$ + { pop$ "" } + { 's := + #1 'charptr := + s text.length$ #1 + 'len := + { charptr len < + s charptr #1 substring$ "/" = not + and + } + { charptr #1 + 'charptr := } + while$ + s #1 charptr #1 - substring$ + } + if$ +} + +FUNCTION {extract.after.slash} +{ duplicate$ empty$ + { pop$ "" } + { 's := + #1 'charptr := + s text.length$ #1 + 'len := + { charptr len < + s charptr #1 substring$ "-" = not + and + s charptr #1 substring$ "/" = not + and + } + { charptr #1 + 'charptr := } + while$ + { charptr len < + s charptr #1 substring$ "-" = + s charptr #1 substring$ "/" = + or + and + } + { charptr #1 + 'charptr := } + while$ + s charptr global.max$ substring$ + } + if$ +} + +FUNCTION {format.year} +{ year empty$ not + { year extract.before.slash extra.label * } + { date empty$ not + { date extract.before.dash extra.label * } + { "empty year in " cite$ * warning$ + urldate empty$ not + { "[" urldate extract.before.dash * extra.label * "]" * } + { "" } + if$ + } + if$ + } + if$ +} + +FUNCTION {format.periodical.year} +{ year empty$ not + { year extract.before.slash + "--" * + year extract.after.slash + duplicate$ empty$ + 'pop$ + { * } + if$ + } + { date empty$ not + { date extract.before.dash } + { "empty year in " cite$ * warning$ + urldate empty$ not + { "[" urldate extract.before.dash * "]" * } + { "" } + if$ + } + if$ + } + if$ +} + +FUNCTION {format.date} +{ date empty$ not + { type$ "patent" = type$ "newspaper" = or + { date } + { format.year } + if$ + } + { year empty$ not + { format.year } + { "" } + if$ + } + if$ +} + +FUNCTION {format.editdate} +{ date empty$ not + { "\allowbreak(" date * ")" * } + { "" } + if$ +} + +FUNCTION {format.urldate} +{ show.urldate show.url and entry.url empty$ not and + is.pure.electronic or + urldate empty$ not and + { "\allowbreak[" urldate * "]" * } + { "" } + if$ +} + +FUNCTION {hyphenate} +{ 't := + "" + { t empty$ not } + { t #1 #1 substring$ "-" = + { wave.dash.in.pages + { "~" * } + { "-" * } + if$ + { t #1 #1 substring$ "-" = } + { t #2 global.max$ substring$ 't := } + while$ + } + { t #1 #1 substring$ * + t #2 global.max$ substring$ 't := + } + if$ + } + while$ +} + +FUNCTION {format.pages} +{ pages empty$ + { "" } + { pages hyphenate } + if$ +} + +FUNCTION {format.extracted.pages} +{ pages empty$ + { "" } + { pages + only.start.page + 'extract.before.dash + 'hyphenate + if$ + } + if$ +} + +FUNCTION {format.journal.volume} +{ volume empty$ not + { bold.journal.volume + { "\textbf{" volume * "}" * } + { volume } + if$ + } + { "" } + if$ +} + +FUNCTION {format.journal.number} +{ number empty$ not + { "\allowbreak (" number * ")" * } + { "" } + if$ +} + +FUNCTION {format.journal.pages} +{ pages empty$ + { "" } + { format.extracted.pages } + if$ +} + +FUNCTION {format.periodical.year.volume.number} +{ year empty$ not + { year extract.before.slash } + { "empty year in periodical " cite$ * warning$ } + if$ + volume empty$ not + { ", " * volume extract.before.dash * } + 'skip$ + if$ + number empty$ not + { "\allowbreak (" * number extract.before.dash * ")" * } + 'skip$ + if$ + "--" * + year extract.after.slash empty$ + volume extract.after.dash empty$ and + number extract.after.dash empty$ and not + { year extract.after.slash empty$ not + { year extract.after.slash * } + { year extract.before.slash * } + if$ + volume empty$ not + { ", " * volume extract.after.dash * } + 'skip$ + if$ + number empty$ not + { "\allowbreak (" * number extract.after.dash * ")" * } + 'skip$ + if$ + } + 'skip$ + if$ +} + +FUNCTION {check.url} +{ url empty$ not + { "\url{" url * "}" * 'entry.url := + #1 'entry.is.electronic := + } + { howpublished empty$ not + { howpublished #1 #5 substring$ "\url{" = + { howpublished 'entry.url := + #1 'entry.is.electronic := + } + 'skip$ + if$ + } + { note empty$ not + { note #1 #5 substring$ "\url{" = + { note 'entry.url := + #1 'entry.is.electronic := + } + 'skip$ + if$ + } + 'skip$ + if$ + } + if$ + } + if$ +} + +FUNCTION {output.url} +{ show.url is.pure.electronic or + entry.url empty$ not and + { new.block + entry.url output + } + 'skip$ + if$ +} + +FUNCTION {check.doi} +{ doi empty$ not + { #1 'entry.is.electronic := } + 'skip$ + if$ +} + +FUNCTION {is.in.url} +{ 's := + s empty$ + { #1 } + { entry.url empty$ + { #0 } + { s text.length$ 'len := + entry.url text.length$ 'charptr := + { entry.url charptr len substring$ s = not + charptr #0 > + and + } + { charptr #1 - 'charptr := } + while$ + charptr + } + if$ + } + if$ +} + +FUNCTION {format.doi} +{ "" + doi empty$ not + { "" 's := + doi 't := + #0 'numnames := + { t empty$ not} + { t #1 #1 substring$ 'tmp.str := + tmp.str "," = tmp.str " " = or t #2 #1 substring$ empty$ or + { t #2 #1 substring$ empty$ + { s tmp.str * 's := } + 'skip$ + if$ + s empty$ s is.in.url or + 'skip$ + { numnames #1 + 'numnames := + numnames #1 > + { ", " * } + { "DOI: " * } + if$ + "\doi{" s * "}" * * + } + if$ + "" 's := + } + { s tmp.str * 's := } + if$ + t #2 global.max$ substring$ 't := + } + while$ + } + 'skip$ + if$ +} + +FUNCTION {output.doi} +{ doi empty$ not show.doi and + show.english.translation entry.lang lang.zh = and not and + { new.block + format.doi output + } + 'skip$ + if$ +} + +FUNCTION {check.electronic} +{ "" 'entry.url := + #0 'entry.is.electronic := + 'check.doi + 'skip$ + if$ + 'check.url + 'skip$ + if$ + medium empty$ not + { medium "MT" = medium "DK" = or medium "CD" = or medium "OL" = or + { #1 'entry.is.electronic := } + 'skip$ + if$ + } + 'skip$ + if$ +} + +FUNCTION {format.eprint} +{ archivePrefix empty$ not + { archivePrefix } + { eprinttype empty$ not + { archivePrefix } + { "" } + if$ + } + if$ + 's := + s empty$ not + { s ": \eprint{" * + url empty$ not + { url } + { "https://" s "l" change.case$ * ".org/abs/" * eprint * } + if$ + * "}{" * + eprint * "}" * + } + { eprint } + if$ +} + +FUNCTION {output.eprint} +{ show.preprint eprint empty$ not and + { new.block + format.eprint output + } + 'skip$ + if$ +} + +FUNCTION {format.note} +{ note empty$ not show.note and + { note } + { "" } + if$ +} + +FUNCTION {output.translation} +{ show.english.translation entry.lang lang.zh = and + { translation empty$ not + { translation } + { "[English translation missing!]" } + if$ + " (in Chinese)" * output + write$ + format.doi duplicate$ empty$ not + { newline$ + write$ + } + 'pop$ + if$ + " \\" write$ + newline$ + "(" write$ + "" + before.all 'output.state := + } + 'skip$ + if$ +} + +FUNCTION {empty.misc.check} +{ author empty$ title empty$ + year empty$ + and and + key empty$ not and + { "all relevant fields are empty in " cite$ * warning$ } + 'skip$ + if$ +} + +FUNCTION {monograph} +{ output.bibitem + output.translation + author empty$ not + { format.authors } + { editor empty$ not + { format.editors } + { "empty author and editor in " cite$ * warning$ + bbl.anonymous + } + if$ + } + if$ + output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + format.series.vol.num.title "title" output.check + "M" set.entry.mark + format.mark "" output.after + new.block + format.translators output + new.sentence + format.edition output + new.block + format.address.publisher output + year.after.author not + { format.year "year" output.check } + 'skip$ + if$ + format.pages bbl.pages.colon output.after + format.urldate "" output.after + output.url + output.doi + new.block + format.note output + fin.entry +} + +FUNCTION {incollection} +{ output.bibitem + output.translation + format.authors output + author format.key output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + format.title "title" output.check + "M" set.entry.mark + format.mark "" output.after + new.block + format.translators output + new.slash + format.editors output + new.block + format.series.vol.num.booktitle "booktitle" output.check + new.block + format.edition output + new.block + format.address.publisher output + year.after.author not + { format.year "year" output.check } + 'skip$ + if$ + format.extracted.pages bbl.pages.colon output.after + format.urldate "" output.after + output.url + output.doi + new.block + format.note output + fin.entry +} + +FUNCTION {periodical} +{ output.bibitem + output.translation + format.authors output + author format.key output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + format.title "title" output.check + "J" set.entry.mark + format.mark "" output.after + new.block + format.periodical.year.volume.number output + new.block + format.address.publisher output + year.after.author not + { format.periodical.year "year" output.check } + 'skip$ + if$ + format.urldate "" output.after + output.url + output.doi + new.block + format.note output + fin.entry +} + +FUNCTION {journal.article} +{ output.bibitem + output.translation + format.authors output + author format.key output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + title.in.journal + { format.title "title" output.check + "J" set.entry.mark + format.mark "" output.after + new.block + } + 'skip$ + if$ + format.journal "journal" output.check + year.after.author not + { format.date "year" output.check } + 'skip$ + if$ + format.journal.volume output + format.journal.number "" output.after + format.journal.pages bbl.pages.colon output.after + format.urldate "" output.after + output.url + output.doi + new.block + format.note output + fin.entry +} + +FUNCTION {patent} +{ output.bibitem + output.translation + format.authors output + author format.key output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + format.title "title" output.check + "P" set.entry.mark + format.mark "" output.after + new.block + format.date "year" output.check + format.urldate "" output.after + output.url + output.doi + new.block + format.note output + fin.entry +} + +FUNCTION {electronic} +{ #1 #1 check.electronic + #1 'entry.is.electronic := + #1 'is.pure.electronic := + output.bibitem + output.translation + format.authors output + author format.key output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + format.series.vol.num.title "title" output.check + "EB" set.entry.mark + format.mark "" output.after + new.block + format.address.publisher output + year.after.author not + { date empty$ + { format.date output } + 'skip$ + if$ + } + 'skip$ + if$ + format.pages bbl.pages.colon output.after + format.editdate "" output.after + format.urldate "" output.after + output.url + output.doi + new.block + format.note output + fin.entry +} + +FUNCTION {preprint} +{ output.bibitem + output.translation + author empty$ not + { format.authors } + { editor empty$ not + { format.editors } + { "empty author and editor in " cite$ * warning$ + bbl.anonymous + } + if$ + } + if$ + output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + title.in.journal + { format.series.vol.num.title "title" output.check + "Z" set.entry.mark + format.mark "" output.after + new.block + } + 'skip$ + if$ + format.translators output + new.sentence + format.edition output + new.block + year.after.author not + { date empty$ + { format.date output } + 'skip$ + if$ + } + 'skip$ + if$ + format.pages bbl.pages.colon output.after + format.editdate "" output.after + format.urldate "" output.after + output.eprint + output.url + new.block + format.note output + fin.entry +} + +FUNCTION {misc} +{ get.journal.title + duplicate$ empty$ not + { check.arxiv.preprint + 'preprint + 'journal.article + if$ + } + { pop$ + booktitle empty$ not + 'incollection + { publisher empty$ not + 'monograph + { eprint empty$ not archivePrefix empty$ not or + 'preprint + { entry.is.electronic + 'electronic + { + "M" set.entry.mark + monograph + } + if$ + } + if$ + } + if$ + } + if$ + } + if$ + empty.misc.check +} + +FUNCTION {archive} +{ "A" set.entry.mark + misc +} + +FUNCTION {article} { misc } + +FUNCTION {book} { monograph } + +FUNCTION {booklet} { book } + +FUNCTION {collection} +{ "G" set.entry.mark + monograph +} + +FUNCTION {database} +{ "DB" set.entry.mark + electronic +} + +FUNCTION {dataset} +{ "DS" set.entry.mark + electronic +} + +FUNCTION {inbook} { book } + +FUNCTION {inproceedings} +{ "C" set.entry.mark + incollection +} + +FUNCTION {conference} { inproceedings } + +FUNCTION {legislation} { archive } + +FUNCTION {map} +{ "CM" set.entry.mark + misc +} + +FUNCTION {manual} { monograph } + +FUNCTION {mastersthesis} +{ "D" set.entry.mark + monograph +} + +FUNCTION {newspaper} +{ "N" set.entry.mark + article +} + +FUNCTION {online} +{ "EB" set.entry.mark + electronic +} + +FUNCTION {phdthesis} { mastersthesis } + +FUNCTION {proceedings} +{ "C" set.entry.mark + monograph +} + +FUNCTION {software} +{ "CP" set.entry.mark + electronic +} + +FUNCTION {standard} +{ "S" set.entry.mark + misc +} + +FUNCTION {techreport} +{ "R" set.entry.mark + misc +} + +FUNCTION {unpublished} { misc } + +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"} + +FUNCTION {sortify} +{ purify$ + "l" change.case$ +} + +FUNCTION {chop.word} +{ 's := + 'len := + s #1 len substring$ = + { s len #1 + global.max$ substring$ } + 's + if$ +} + +FUNCTION {format.lab.name} +{ "{vv~}{ll}{, jj}{, ff}" format.name$ 't := + t "others" = + { citation.et.al } + { t get.str.lang 'name.lang := + name.lang lang.zh = name.lang lang.ja = or + { t #1 "{ll}{ff}" format.name$ } + { t #1 "{vv~}{ll}" format.name$ } + if$ + } + if$ +} + +FUNCTION {format.lab.names} +{ 's := + s #1 format.lab.name 'short.label := + #1 'nameptr := + s num.names$ 'numnames := + "" + numnames 'namesleft := + { namesleft #0 > } + { s nameptr format.lab.name citation.et.al = + numnames citation.et.al.min #1 - > nameptr citation.et.al.use.first > and or + { bbl.space * + citation.et.al * + #1 'namesleft := + } + { nameptr #1 > + { namesleft #1 = citation.and "" = not and + { citation.and * } + { ", " * } + if$ + } + 'skip$ + if$ + s nameptr format.lab.name * + } + if$ + nameptr #1 + 'nameptr := + namesleft #1 - 'namesleft := + } + while$ +} + +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} +{ "" 'short.label := + type$ "book" = + type$ "inbook" = + or + 'author.editor.key.label + { type$ "collection" = + type$ "proceedings" = + or + { editor empty$ not + 'editor.key.organization.label + 'author.key.organization.label + if$ + } + 'author.key.label + if$ + } + if$ + 'short.list := + short.label empty$ + { short.list 'short.label := } + 'skip$ + if$ +} + +FUNCTION {calc.label} +{ calc.short.authors + short.list "]" contains + { "{" short.list * "}" * } + { short.list } + if$ + "(" + * + format.year duplicate$ empty$ + short.list key field.or.null = or + { pop$ "" } + 'skip$ + if$ + duplicate$ "]" contains + { "{" swap$ * "}" * } + 'skip$ + if$ + * + 'label := + short.label + "(" + * + format.year duplicate$ empty$ + short.list key field.or.null = or + { pop$ "" } + 'skip$ + if$ + * + 'short.label := +} + +FUNCTION {sort.language.label} +{ entry.lang lang.zh = + { lang.zh.order } + { entry.lang lang.ja = + { lang.ja.order } + { entry.lang lang.en = + { lang.en.order } + { entry.lang lang.ru = + { lang.ru.order } + { lang.other.order } + if$ + } + if$ + } + if$ + } + if$ + #64 + + int.to.chr$ +} + +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 {anonymous.sort} +{ entry.lang lang.zh = + { "yi4 ming2" } + { "anon" } + if$ +} + +FUNCTION {warn.empty.key} +{ entry.lang lang.zh = + { "empty key in " cite$ * warning$ } + 'skip$ + if$ +} + +FUNCTION {author.sort} +{ key empty$ + { warn.empty.key + author empty$ + { anonymous.sort } + { author sort.format.names } + if$ + } + { key } + if$ +} + +FUNCTION {author.editor.sort} +{ key empty$ + { warn.empty.key + author empty$ + { editor empty$ + { anonymous.sort } + { editor sort.format.names } + if$ + } + { author sort.format.names } + if$ + } + { key } + if$ +} + +FUNCTION {author.organization.sort} +{ key empty$ + { warn.empty.key + author empty$ + { organization empty$ + { anonymous.sort } + { "The " #4 organization chop.word sortify } + if$ + } + { author sort.format.names } + if$ + } + { key } + if$ +} + +FUNCTION {editor.organization.sort} +{ key empty$ + { warn.empty.key + editor empty$ + { organization empty$ + { anonymous.sort } + { "The " #4 organization chop.word sortify } + if$ + } + { editor sort.format.names } + if$ + } + { key } + if$ +} + +FUNCTION {presort} +{ set.entry.lang + set.entry.numbered + show.url show.doi check.electronic + #0 'is.pure.electronic := + calc.label + label sortify + " " + * + sort.language.label + " " + * + type$ "book" = + type$ "inbook" = + or + 'author.editor.sort + { type$ "collection" = + type$ "proceedings" = + or + 'editor.organization.sort + 'author.sort + if$ + } + if$ + * + " " + * + year field.or.null sortify + * + " " + * + cite$ + * + #1 entry.max$ substring$ + 'sort.label := + sort.label * + #1 entry.max$ substring$ + 'sort.key$ := +} + +STRINGS { longest.label last.label next.extra last.extra.label } + +INTEGERS { longest.label.width number.label } + +FUNCTION {initialize.longest.label} +{ "" 'longest.label := + #0 int.to.chr$ 'last.label := + "" 'next.extra := + #0 'longest.label.width := + #0 'number.label := + "" 'last.extra.label := +} + +FUNCTION {forward.pass} +{ + last.label short.label = + { "" 'extra.label := + last.extra.label text.length$ 'charptr := + { last.extra.label charptr #1 substring$ "z" = + charptr #0 > and + } + { "a" extra.label * 'extra.label := + charptr #1 - 'charptr := + } + while$ + charptr #0 > + { last.extra.label charptr #1 substring$ chr.to.int$ #1 + int.to.chr$ + extra.label * 'extra.label := + last.extra.label #1 charptr #1 - substring$ + extra.label * 'extra.label := + } + { "a" extra.label * 'extra.label := } + if$ + extra.label 'last.extra.label := + } + { "a" 'last.extra.label := + "" 'extra.label := + short.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 := +} + +FUNCTION {bib.sort.order} +{ sort.label 'sort.key$ := +} + +FUNCTION {begin.bib} +{ preamble$ empty$ + 'skip$ + { preamble$ write$ newline$ } + if$ + "\begin{thebibliography}{" number.label int.to.str$ * "}" * + write$ newline$ + terms.in.macro + { "\providecommand{\biband}{和}" + write$ newline$ + "\providecommand{\bibetal}{等}" + write$ newline$ + } + 'skip$ + if$ + "\providecommand{\natexlab}[1]{#1}" + write$ newline$ + "\providecommand{\url}[1]{#1}" + write$ newline$ + "\expandafter\ifx\csname urlstyle\endcsname\relax\else" + write$ newline$ + " \urlstyle{same}\fi" + write$ newline$ + "\expandafter\ifx\csname href\endcsname\relax" + write$ newline$ + " \DeclareUrlCommand\doi{\urlstyle{rm}}" + write$ newline$ + " \def\eprint#1#2{#2}" + write$ newline$ + "\else" + write$ newline$ + " \def\doi#1{\href{https://doi.org/#1}{\nolinkurl{#1}}}" + write$ newline$ + " \let\eprint\href" + write$ newline$ + "\fi" + write$ newline$ + } + +FUNCTION {end.bib} +{ newline$ + "\end{thebibliography}" write$ newline$ +} + +READ + +EXECUTE {init.state.consts} + +EXECUTE {load.config} + +ITERATE {presort} + +SORT + +EXECUTE {initialize.longest.label} + +ITERATE {forward.pass} + +REVERSE {reverse.pass} + +ITERATE {bib.sort.order} + +SORT + +EXECUTE {begin.bib} + +ITERATE {call.type$} + +EXECUTE {end.bib} diff --git a/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-2005-numerical.bst b/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-2005-numerical.bst new file mode 100644 index 00000000000..5c8b1da6bf5 --- /dev/null +++ b/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-2005-numerical.bst @@ -0,0 +1,2421 @@ +%% +%% This is file `gbt7714-2005-numerical.bst', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% gbt7714.dtx (with options: `2005,numerical') +%% ------------------------------------------------------------------- +%% GB/T 7714 BibTeX Style +%% https://github.com/zepinglee/gbt7714-bibtex-style +%% Version: 2021/12/08 v2.1.3 +%% ------------------------------------------------------------------- +%% Copyright (C) 2016—2021 by Zeping Lee +%% ------------------------------------------------------------------- +%% This file may be distributed and/or modified under the +%% conditions of the LaTeX Project Public License, either version 1.3c +%% of this license or (at your option) any later version. +%% The latest version of this license is in +%% https://www.latex-project.org/lppl.txt +%% and version 1.3c or later is part of all distributions of LaTeX +%% version 2008 or later. +%% ------------------------------------------------------------------- +INTEGERS { + citation.et.al.min + citation.et.al.use.first + bibliography.et.al.min + bibliography.et.al.use.first + uppercase.name + terms.in.macro + year.after.author + period.after.author + italic.book.title + sentence.case.title + link.title + title.in.journal + show.patent.country + show.mark + space.before.mark + show.medium.type + slash.for.extraction + in.booktitle + short.journal + italic.journal + bold.journal.volume + show.missing.address.publisher + space.before.pages + only.start.page + wave.dash.in.pages + show.urldate + show.url + show.doi + show.preprint + show.note + show.english.translation + end.with.period +} + +FUNCTION {load.config} +{ + #2 'citation.et.al.min := + #1 'citation.et.al.use.first := + #4 'bibliography.et.al.min := + #3 'bibliography.et.al.use.first := + #1 'uppercase.name := + #0 'terms.in.macro := + #0 'year.after.author := + #1 'period.after.author := + #0 'italic.book.title := + #1 'sentence.case.title := + #0 'link.title := + #1 'title.in.journal := + #1 'show.patent.country := + #1 'show.mark := + #0 'space.before.mark := + #1 'show.medium.type := + #1 'slash.for.extraction := + #0 'in.booktitle := + #0 'short.journal := + #0 'italic.journal := + #0 'bold.journal.volume := + #0 'show.missing.address.publisher := + #1 'space.before.pages := + #0 'only.start.page := + #0 'wave.dash.in.pages := + #1 'show.urldate := + #1 'show.url := + #0 'show.doi := + #1 'show.preprint := + #0 'show.note := + #0 'show.english.translation := + #1 'end.with.period := +} + +ENTRY + { address + archivePrefix + author + booktitle + date + doi + edition + editor + eprint + eprinttype + howpublished + institution + journal + journaltitle + key + langid + language + location + mark + medium + note + number + organization + pages + publisher + school + series + shortjournal + title + translation + translator + url + urldate + volume + year + } + { entry.lang entry.is.electronic is.pure.electronic entry.numbered } + { label extra.label sort.label short.label short.list entry.mark entry.url } + +INTEGERS { output.state before.all mid.sentence after.sentence after.block after.slash } + +INTEGERS { lang.zh lang.ja lang.en lang.ru lang.other } + +INTEGERS { charptr len } + +FUNCTION {init.state.consts} +{ #0 'before.all := + #1 'mid.sentence := + #2 'after.sentence := + #3 'after.block := + #4 'after.slash := + #3 'lang.zh := + #4 'lang.ja := + #1 'lang.en := + #2 'lang.ru := + #0 'lang.other := +} + +FUNCTION {bbl.anonymous} +{ entry.lang lang.zh = + { "佚名" } + { "Anon" } + if$ +} + +FUNCTION {bbl.space} +{ entry.lang lang.zh = + { "\ " } + { " " } + if$ +} + +FUNCTION {bbl.and} +{ "" } + +FUNCTION {bbl.et.al} +{ entry.lang lang.zh = + { "等" } + { entry.lang lang.ja = + { "他" } + { entry.lang lang.ru = + { "идр" } + { "et~al." } + if$ + } + if$ + } + if$ +} + +FUNCTION {citation.and} +{ terms.in.macro + { "{\biband}" } + 'bbl.and + if$ +} + +FUNCTION {citation.et.al} +{ terms.in.macro + { "{\bibetal}" } + 'bbl.et.al + if$ +} + +FUNCTION {bbl.colon} { ": " } + +FUNCTION {bbl.pages.colon} +{ space.before.pages + { ": " } + { ":\allowbreak " } + if$ +} + +FUNCTION {bbl.wide.space} { "\ " } + +FUNCTION {bbl.slash} { "//\allowbreak " } + +FUNCTION {bbl.sine.loco} +{ entry.lang lang.zh = + { "[出版地不详]" } + { "[S.l.]" } + if$ +} + +FUNCTION {bbl.sine.nomine} +{ entry.lang lang.zh = + { "[出版者不详]" } + { "[s.n.]" } + if$ +} + +FUNCTION {bbl.sine.loco.sine.nomine} +{ entry.lang lang.zh = + { "[出版地不详: 出版者不详]" } + { "[S.l.: s.n.]" } + if$ +} + +FUNCTION {not} +{ { #0 } + { #1 } + if$ +} + +FUNCTION {and} +{ 'skip$ + { pop$ #0 } + if$ +} + +FUNCTION {or} +{ { pop$ #1 } + 'skip$ + if$ +} + +STRINGS { x y } + +FUNCTION {contains} +{ 'y := + 'x := + y text.length$ 'len := + x text.length$ len - #1 + 'charptr := + { charptr #0 > + x charptr len substring$ y = not + and + } + { charptr #1 - 'charptr := } + while$ + charptr #0 > +} + +STRINGS { s t } + +FUNCTION {output.nonnull} +{ 's := + output.state mid.sentence = + { ", " * write$ } + { output.state after.block = + { add.period$ write$ + newline$ + "\newblock " write$ + } + { output.state before.all = + 'write$ + { output.state after.slash = + { bbl.slash * write$ + newline$ + } + { add.period$ " " * write$ } + if$ + } + if$ + } + if$ + mid.sentence 'output.state := + } + if$ + s +} + +FUNCTION {output} +{ duplicate$ empty$ + 'pop$ + 'output.nonnull + if$ +} + +FUNCTION {output.after} +{ 't := + duplicate$ empty$ + 'pop$ + { 's := + output.state mid.sentence = + { t * write$ } + { output.state after.block = + { add.period$ write$ + newline$ + "\newblock " write$ + } + { output.state before.all = + 'write$ + { output.state after.slash = + { bbl.slash * write$ } + { add.period$ " " * write$ } + if$ + } + if$ + } + if$ + mid.sentence 'output.state := + } + if$ + s + } + if$ +} + +FUNCTION {output.check} +{ 't := + duplicate$ empty$ + { pop$ "empty " t * " in " * cite$ * warning$ } + 'output.nonnull + if$ +} + +FUNCTION {fin.entry} +{ end.with.period + 'add.period$ + 'skip$ + if$ + write$ + show.english.translation entry.lang lang.zh = and + { ")" + write$ + } + 'skip$ + if$ + newline$ +} + +FUNCTION {new.block} +{ output.state before.all = + 'skip$ + { output.state after.slash = + 'skip$ + { after.block 'output.state := } + if$ + } + if$ +} + +FUNCTION {new.sentence} +{ output.state after.block = + 'skip$ + { output.state before.all = + 'skip$ + { output.state after.slash = + 'skip$ + { after.sentence 'output.state := } + if$ + } + if$ + } + if$ +} + +FUNCTION {new.slash} +{ output.state before.all = + 'skip$ + { slash.for.extraction + { after.slash 'output.state := } + { after.block 'output.state := } + if$ + } + 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 {format.btitle} +{ italic.book.title + entry.lang lang.en = and + 'emphasize + 'skip$ + if$ +} + +INTEGERS { byte second.byte } + +INTEGERS { char.lang tmp.lang } + +STRINGS { tmp.str } + +FUNCTION {get.str.lang} +{ 'tmp.str := + lang.other 'tmp.lang := + #1 'charptr := + tmp.str text.length$ #1 + 'len := + { charptr len < } + { tmp.str charptr #1 substring$ chr.to.int$ 'byte := + byte #128 < + { charptr #1 + 'charptr := + byte #64 > byte #91 < and byte #96 > byte #123 < and or + { lang.en 'char.lang := } + { lang.other 'char.lang := } + if$ + } + { tmp.str charptr #1 + #1 substring$ chr.to.int$ 'second.byte := + byte #224 < + { charptr #2 + 'charptr := + byte #207 > byte #212 < and + byte #212 = second.byte #176 < and or + { lang.ru 'char.lang := } + { lang.other 'char.lang := } + if$ + } + { byte #240 < + { charptr #3 + 'charptr := + byte #227 > byte #234 < and + { lang.zh 'char.lang := } + { byte #227 = + { second.byte #143 > + { lang.zh 'char.lang := } + { second.byte #128 > second.byte #132 < and + { lang.ja 'char.lang := } + { lang.other 'char.lang := } + if$ + } + if$ + } + { byte #239 = + second.byte #163 > second.byte #172 < and and + { lang.zh 'char.lang := } + { lang.other 'char.lang := } + if$ + } + if$ + } + if$ + } + { charptr #4 + 'charptr := + byte #240 = second.byte #159 > and + { lang.zh 'char.lang := } + { lang.other 'char.lang := } + if$ + } + if$ + } + if$ + } + if$ + char.lang tmp.lang > + { char.lang 'tmp.lang := } + 'skip$ + if$ + } + while$ + tmp.lang +} + +FUNCTION {check.entry.lang} +{ author field.or.null + title field.or.null * + get.str.lang +} + +STRINGS { entry.langid } + +FUNCTION {set.entry.lang} +{ "" 'entry.langid := + language empty$ not + { language 'entry.langid := } + 'skip$ + if$ + langid empty$ not + { langid 'entry.langid := } + 'skip$ + if$ + entry.langid empty$ + { check.entry.lang } + { entry.langid "english" = entry.langid "american" = or entry.langid "british" = or + { lang.en } + { entry.langid "chinese" = + { lang.zh } + { entry.langid "japanese" = + { lang.ja } + { entry.langid "russian" = + { lang.ru } + { check.entry.lang } + if$ + } + if$ + } + if$ + } + if$ + } + if$ + 'entry.lang := +} + +FUNCTION {set.entry.numbered} +{ type$ "patent" = + type$ "standard" = or + type$ "techreport" = or + { #1 'entry.numbered := } + { #0 'entry.numbered := } + if$ +} + +INTEGERS { nameptr namesleft numnames name.lang } + +FUNCTION {format.name} +{ "{vv~}{ll}{, jj}{, ff}" format.name$ 't := + t "others" = + { bbl.et.al } + { t get.str.lang 'name.lang := + name.lang lang.en = + { t #1 "{vv~}{ll}{ f{~}}" format.name$ + uppercase.name + { "u" change.case$ } + 'skip$ + if$ + t #1 "{, jj}" format.name$ * + } + { t #1 "{ll}{ff}" format.name$ } + if$ + } + if$ +} + +FUNCTION {format.names} +{ 's := + #1 'nameptr := + s num.names$ 'numnames := + "" + numnames 'namesleft := + { namesleft #0 > } + { s nameptr format.name bbl.et.al = + numnames bibliography.et.al.min #1 - > nameptr bibliography.et.al.use.first > and or + { ", " * + bbl.et.al * + #1 'namesleft := + } + { nameptr #1 > + { namesleft #1 = bbl.and "" = not and + { bbl.and * } + { ", " * } + if$ + } + 'skip$ + if$ + s nameptr format.name * + } + if$ + nameptr #1 + 'nameptr := + namesleft #1 - 'namesleft := + } + while$ +} + +FUNCTION {format.key} +{ empty$ + { key field.or.null } + { "" } + if$ +} + +FUNCTION {format.authors} +{ author empty$ not + { author format.names } + { "empty author in " cite$ * warning$ + "" + } + if$ +} + +FUNCTION {format.editors} +{ editor empty$ + { "" } + { editor format.names } + if$ +} + +FUNCTION {format.translators} +{ translator empty$ + { "" } + { translator format.names + entry.lang lang.zh = + { translator num.names$ #3 > + { "译" * } + { ", 译" * } + if$ + } + 'skip$ + if$ + } + if$ +} + +FUNCTION {format.full.names} +{'s := + #1 'nameptr := + s num.names$ 'numnames := + numnames 'namesleft := + { namesleft #0 > } + { s nameptr "{vv~}{ll}{, jj}{, ff}" format.name$ 't := + t get.str.lang 'name.lang := + name.lang lang.en = + { t #1 "{vv~}{ll}" format.name$ 't := } + { t #1 "{ll}{ff}" format.name$ 't := } + if$ + nameptr #1 > + { + namesleft #1 > + { ", " * t * } + { + numnames #2 > + { "," * } + 'skip$ + if$ + t "others" = + { " et~al." * } + { " and " * t * } + 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$ "collection" = + type$ "proceedings" = + or + 'editor.full + 'author.full + if$ + } + if$ +} + +FUNCTION {output.bibitem} +{ newline$ + "\bibitem[" write$ + label ")" * + make.full.names duplicate$ short.list = + { pop$ } + { duplicate$ "]" contains + { "{" swap$ * "}" * } + 'skip$ + if$ + * + } + if$ + "]{" * write$ + cite$ write$ + "}" write$ + newline$ + "" + before.all 'output.state := +} + +FUNCTION {change.sentence.case} +{ entry.lang lang.en = + { "t" change.case$ } + 'skip$ + if$ +} + +FUNCTION {add.link} +{ url empty$ not + { "\href{" url * "}{" * swap$ * "}" * } + { doi empty$ not + { "\href{https://doi.org/" doi * "}{" * swap$ * "}" * } + 'skip$ + if$ + } + if$ +} + +FUNCTION {format.title} +{ title empty$ + { "" } + { title + sentence.case.title + 'change.sentence.case + 'skip$ + if$ + entry.numbered number empty$ not and + { bbl.colon * + type$ "patent" = show.patent.country and + { address empty$ not + { address * ", " * } + { location empty$ not + { location * ", " * } + { entry.lang lang.zh = + { "中国" * ", " * } + 'skip$ + if$ + } + if$ + } + if$ + } + 'skip$ + if$ + number * + } + 'skip$ + if$ + link.title + 'add.link + 'skip$ + if$ + } + if$ +} + +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 {is.digit} +{ duplicate$ empty$ + { pop$ #0 } + { chr.to.int$ + duplicate$ "0" chr.to.int$ < + { pop$ #0 } + { "9" chr.to.int$ > + { #0 } + { #1 } + if$ + } + if$ + } + if$ +} + +FUNCTION {is.number} +{ 's := + s empty$ + { #0 } + { s text.length$ 'charptr := + { charptr #0 > + s charptr #1 substring$ is.digit + and + } + { charptr #1 - 'charptr := } + while$ + charptr not + } + if$ +} + +FUNCTION {format.volume} +{ volume empty$ not + { volume is.number + { entry.lang lang.zh = + { "第 " volume * " 卷" * } + { "volume" volume tie.or.space.connect } + if$ + } + { volume } + if$ + } + { "" } + if$ +} + +FUNCTION {format.number} +{ number empty$ not + { number is.number + { entry.lang lang.zh = + { "第 " number * " 册" * } + { "number" number tie.or.space.connect } + if$ + } + { number } + if$ + } + { "" } + if$ +} + +FUNCTION {format.volume.number} +{ volume empty$ not + { format.volume } + { format.number } + if$ +} + +FUNCTION {format.title.vol.num} +{ title + sentence.case.title + 'change.sentence.case + 'skip$ + if$ + entry.numbered + { number empty$ not + { bbl.colon * number * } + 'skip$ + if$ + } + { format.volume.number 's := + s empty$ not + { bbl.colon * s * } + 'skip$ + if$ + } + if$ +} + +FUNCTION {format.series.vol.num.title} +{ format.volume.number 's := + series empty$ not + { series + sentence.case.title + 'change.sentence.case + 'skip$ + if$ + entry.numbered + { bbl.wide.space * } + { bbl.colon * + s empty$ not + { s * bbl.wide.space * } + 'skip$ + if$ + } + if$ + title * + sentence.case.title + 'change.sentence.case + 'skip$ + if$ + entry.numbered number empty$ not and + { bbl.colon * number * } + 'skip$ + if$ + } + { format.title.vol.num } + if$ + format.btitle + link.title + 'add.link + 'skip$ + if$ +} + +FUNCTION {format.booktitle.vol.num} +{ booktitle + entry.numbered + 'skip$ + { format.volume.number 's := + s empty$ not + { bbl.colon * s * } + 'skip$ + if$ + } + if$ +} + +FUNCTION {format.series.vol.num.booktitle} +{ format.volume.number 's := + series empty$ not + { series bbl.colon * + entry.numbered not s empty$ not and + { s * bbl.wide.space * } + 'skip$ + if$ + booktitle * + } + { format.booktitle.vol.num } + if$ + format.btitle + in.booktitle + { duplicate$ empty$ not entry.lang lang.en = and + { "In: " swap$ * } + 'skip$ + if$ + } + 'skip$ + if$ +} + +FUNCTION {remove.period} +{ 't := + "" 's := + { t empty$ not } + { t #1 #1 substring$ 'tmp.str := + tmp.str "." = not + { s tmp.str * 's := } + 'skip$ + if$ + t #2 global.max$ substring$ 't := + } + while$ + s +} + +FUNCTION {abbreviate} +{ remove.period + 't := + t "l" change.case$ 's := + "" + s "physical review letters" = + { "Phys Rev Lett" } + 'skip$ + if$ + 's := + s empty$ + { t } + { pop$ s } + if$ +} + +FUNCTION {get.journal.title} +{ short.journal + { shortjournal empty$ not + { shortjournal } + { journal empty$ not + { journal abbreviate } + { journaltitle empty$ not + { journaltitle abbreviate } + { "" } + if$ + } + if$ + } + if$ + } + { journal empty$ not + { journal } + { journaltitle empty$ not + { journaltitle } + { shortjournal empty$ not + { shortjournal } + { "" } + if$ + } + if$ + } + if$ + } + if$ +} + +FUNCTION {check.arxiv.preprint} +{ #1 #5 substring$ "l" change.case$ "arxiv" = + { #1 } + { #0 } + if$ +} + +FUNCTION {format.journal} +{ get.journal.title + duplicate$ empty$ not + { italic.journal entry.lang lang.en = and + 'emphasize + 'skip$ + if$ + } + 'skip$ + if$ +} + +FUNCTION {set.entry.mark} +{ entry.mark empty$ not + 'pop$ + { mark empty$ not + { pop$ mark 'entry.mark := } + { 'entry.mark := } + if$ + } + if$ +} + +FUNCTION {format.mark} +{ show.mark + { entry.mark + show.medium.type + { medium empty$ not + { "/" * medium * } + { entry.is.electronic + { "/OL" * } + 'skip$ + if$ + } + if$ + } + 'skip$ + if$ + 'entry.mark := + space.before.mark + { " " } + { "\allowbreak" } + if$ + "[" * entry.mark * "]" * + } + { "" } + if$ +} + +FUNCTION {num.to.ordinal} +{ duplicate$ text.length$ 'charptr := + duplicate$ charptr #1 substring$ 's := + s "1" = + { "st" * } + { s "2" = + { "nd" * } + { s "3" = + { "rd" * } + { "th" * } + if$ + } + if$ + } + if$ +} + +FUNCTION {format.edition} +{ edition empty$ + { "" } + { edition is.number + { entry.lang lang.zh = + { edition " 版" * } + { edition num.to.ordinal " ed." * } + if$ + } + { entry.lang lang.en = + { edition change.sentence.case 's := + s "Revised" = s "Revised edition" = or + { "Rev. ed." } + { s " ed." * } + if$ + } + { edition } + if$ + } + if$ + } + if$ +} + +FUNCTION {format.publisher} +{ publisher empty$ not + { publisher } + { school empty$ not + { school } + { organization empty$ not + { organization } + { institution empty$ not + { institution } + { "" } + if$ + } + if$ + } + if$ + } + if$ +} + +FUNCTION {format.address.publisher} +{ address empty$ not + { address } + { location empty$ not + { location } + { "" } + if$ + } + if$ + duplicate$ empty$ not + { format.publisher empty$ not + { bbl.colon * format.publisher * } + { entry.is.electronic not show.missing.address.publisher and + { bbl.colon * bbl.sine.nomine * } + 'skip$ + if$ + } + if$ + } + { pop$ + entry.is.electronic not show.missing.address.publisher and + { format.publisher empty$ not + { bbl.sine.loco bbl.colon * format.publisher * } + { bbl.sine.loco.sine.nomine } + if$ + } + { format.publisher empty$ not + { format.publisher } + { "" } + if$ + } + if$ + } + if$ +} + +FUNCTION {extract.before.dash} +{ duplicate$ empty$ + { pop$ "" } + { 's := + #1 'charptr := + s text.length$ #1 + 'len := + { charptr len < + s charptr #1 substring$ "-" = not + and + } + { charptr #1 + 'charptr := } + while$ + s #1 charptr #1 - substring$ + } + if$ +} + +FUNCTION {extract.after.dash} +{ duplicate$ empty$ + { pop$ "" } + { 's := + #1 'charptr := + s text.length$ #1 + 'len := + { charptr len < + s charptr #1 substring$ "-" = not + and + } + { charptr #1 + 'charptr := } + while$ + { charptr len < + s charptr #1 substring$ "-" = + and + } + { charptr #1 + 'charptr := } + while$ + s charptr global.max$ substring$ + } + if$ +} + +FUNCTION {extract.before.slash} +{ duplicate$ empty$ + { pop$ "" } + { 's := + #1 'charptr := + s text.length$ #1 + 'len := + { charptr len < + s charptr #1 substring$ "/" = not + and + } + { charptr #1 + 'charptr := } + while$ + s #1 charptr #1 - substring$ + } + if$ +} + +FUNCTION {extract.after.slash} +{ duplicate$ empty$ + { pop$ "" } + { 's := + #1 'charptr := + s text.length$ #1 + 'len := + { charptr len < + s charptr #1 substring$ "-" = not + and + s charptr #1 substring$ "/" = not + and + } + { charptr #1 + 'charptr := } + while$ + { charptr len < + s charptr #1 substring$ "-" = + s charptr #1 substring$ "/" = + or + and + } + { charptr #1 + 'charptr := } + while$ + s charptr global.max$ substring$ + } + if$ +} + +FUNCTION {format.year} +{ year empty$ not + { year extract.before.slash extra.label * } + { date empty$ not + { date extract.before.dash extra.label * } + { "empty year in " cite$ * warning$ + urldate empty$ not + { "[" urldate extract.before.dash * extra.label * "]" * } + { "" } + if$ + } + if$ + } + if$ +} + +FUNCTION {format.periodical.year} +{ year empty$ not + { year extract.before.slash + "--" * + year extract.after.slash + duplicate$ empty$ + 'pop$ + { * } + if$ + } + { date empty$ not + { date extract.before.dash } + { "empty year in " cite$ * warning$ + urldate empty$ not + { "[" urldate extract.before.dash * "]" * } + { "" } + if$ + } + if$ + } + if$ +} + +FUNCTION {format.date} +{ date empty$ not + { type$ "patent" = type$ "newspaper" = or + { date } + { format.year } + if$ + } + { year empty$ not + { format.year } + { "" } + if$ + } + if$ +} + +FUNCTION {format.editdate} +{ date empty$ not + { "\allowbreak(" date * ")" * } + { "" } + if$ +} + +FUNCTION {format.urldate} +{ show.urldate show.url and entry.url empty$ not and + is.pure.electronic or + urldate empty$ not and + { "\allowbreak[" urldate * "]" * } + { "" } + if$ +} + +FUNCTION {hyphenate} +{ 't := + "" + { t empty$ not } + { t #1 #1 substring$ "-" = + { wave.dash.in.pages + { "~" * } + { "-" * } + if$ + { t #1 #1 substring$ "-" = } + { t #2 global.max$ substring$ 't := } + while$ + } + { t #1 #1 substring$ * + t #2 global.max$ substring$ 't := + } + if$ + } + while$ +} + +FUNCTION {format.pages} +{ pages empty$ + { "" } + { pages hyphenate } + if$ +} + +FUNCTION {format.extracted.pages} +{ pages empty$ + { "" } + { pages + only.start.page + 'extract.before.dash + 'hyphenate + if$ + } + if$ +} + +FUNCTION {format.journal.volume} +{ volume empty$ not + { bold.journal.volume + { "\textbf{" volume * "}" * } + { volume } + if$ + } + { "" } + if$ +} + +FUNCTION {format.journal.number} +{ number empty$ not + { "\allowbreak (" number * ")" * } + { "" } + if$ +} + +FUNCTION {format.journal.pages} +{ pages empty$ + { "" } + { format.extracted.pages } + if$ +} + +FUNCTION {format.periodical.year.volume.number} +{ year empty$ not + { year extract.before.slash } + { "empty year in periodical " cite$ * warning$ } + if$ + volume empty$ not + { ", " * volume extract.before.dash * } + 'skip$ + if$ + number empty$ not + { "\allowbreak (" * number extract.before.dash * ")" * } + 'skip$ + if$ + "--" * + year extract.after.slash empty$ + volume extract.after.dash empty$ and + number extract.after.dash empty$ and not + { year extract.after.slash empty$ not + { year extract.after.slash * } + { year extract.before.slash * } + if$ + volume empty$ not + { ", " * volume extract.after.dash * } + 'skip$ + if$ + number empty$ not + { "\allowbreak (" * number extract.after.dash * ")" * } + 'skip$ + if$ + } + 'skip$ + if$ +} + +FUNCTION {check.url} +{ url empty$ not + { "\url{" url * "}" * 'entry.url := + #1 'entry.is.electronic := + } + { howpublished empty$ not + { howpublished #1 #5 substring$ "\url{" = + { howpublished 'entry.url := + #1 'entry.is.electronic := + } + 'skip$ + if$ + } + { note empty$ not + { note #1 #5 substring$ "\url{" = + { note 'entry.url := + #1 'entry.is.electronic := + } + 'skip$ + if$ + } + 'skip$ + if$ + } + if$ + } + if$ +} + +FUNCTION {output.url} +{ show.url is.pure.electronic or + entry.url empty$ not and + { new.block + entry.url output + } + 'skip$ + if$ +} + +FUNCTION {check.doi} +{ doi empty$ not + { #1 'entry.is.electronic := } + 'skip$ + if$ +} + +FUNCTION {is.in.url} +{ 's := + s empty$ + { #1 } + { entry.url empty$ + { #0 } + { s text.length$ 'len := + entry.url text.length$ 'charptr := + { entry.url charptr len substring$ s = not + charptr #0 > + and + } + { charptr #1 - 'charptr := } + while$ + charptr + } + if$ + } + if$ +} + +FUNCTION {format.doi} +{ "" + doi empty$ not + { "" 's := + doi 't := + #0 'numnames := + { t empty$ not} + { t #1 #1 substring$ 'tmp.str := + tmp.str "," = tmp.str " " = or t #2 #1 substring$ empty$ or + { t #2 #1 substring$ empty$ + { s tmp.str * 's := } + 'skip$ + if$ + s empty$ s is.in.url or + 'skip$ + { numnames #1 + 'numnames := + numnames #1 > + { ", " * } + { "DOI: " * } + if$ + "\doi{" s * "}" * * + } + if$ + "" 's := + } + { s tmp.str * 's := } + if$ + t #2 global.max$ substring$ 't := + } + while$ + } + 'skip$ + if$ +} + +FUNCTION {output.doi} +{ doi empty$ not show.doi and + show.english.translation entry.lang lang.zh = and not and + { new.block + format.doi output + } + 'skip$ + if$ +} + +FUNCTION {check.electronic} +{ "" 'entry.url := + #0 'entry.is.electronic := + 'check.doi + 'skip$ + if$ + 'check.url + 'skip$ + if$ + medium empty$ not + { medium "MT" = medium "DK" = or medium "CD" = or medium "OL" = or + { #1 'entry.is.electronic := } + 'skip$ + if$ + } + 'skip$ + if$ +} + +FUNCTION {format.eprint} +{ archivePrefix empty$ not + { archivePrefix } + { eprinttype empty$ not + { archivePrefix } + { "" } + if$ + } + if$ + 's := + s empty$ not + { s ": \eprint{" * + url empty$ not + { url } + { "https://" s "l" change.case$ * ".org/abs/" * eprint * } + if$ + * "}{" * + eprint * "}" * + } + { eprint } + if$ +} + +FUNCTION {output.eprint} +{ show.preprint eprint empty$ not and + { new.block + format.eprint output + } + 'skip$ + if$ +} + +FUNCTION {format.note} +{ note empty$ not show.note and + { note } + { "" } + if$ +} + +FUNCTION {output.translation} +{ show.english.translation entry.lang lang.zh = and + { translation empty$ not + { translation } + { "[English translation missing!]" } + if$ + " (in Chinese)" * output + write$ + format.doi duplicate$ empty$ not + { newline$ + write$ + } + 'pop$ + if$ + " \\" write$ + newline$ + "(" write$ + "" + before.all 'output.state := + } + 'skip$ + if$ +} + +FUNCTION {empty.misc.check} +{ author empty$ title empty$ + year empty$ + and and + key empty$ not and + { "all relevant fields are empty in " cite$ * warning$ } + 'skip$ + if$ +} + +FUNCTION {monograph} +{ output.bibitem + output.translation + author empty$ not + { format.authors } + { editor empty$ not + { format.editors } + { "empty author and editor in " cite$ * warning$ + "" + } + if$ + } + if$ + output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + format.series.vol.num.title "title" output.check + "M" set.entry.mark + format.mark "" output.after + new.block + format.translators output + new.sentence + format.edition output + new.block + format.address.publisher output + year.after.author not + { format.year "year" output.check } + 'skip$ + if$ + format.pages bbl.pages.colon output.after + format.urldate "" output.after + output.url + output.doi + new.block + format.note output + fin.entry +} + +FUNCTION {incollection} +{ output.bibitem + output.translation + format.authors output + author format.key output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + format.title "title" output.check + "M" set.entry.mark + format.mark "" output.after + new.block + format.translators output + new.slash + format.editors output + new.block + format.series.vol.num.booktitle "booktitle" output.check + new.block + format.edition output + new.block + format.address.publisher output + year.after.author not + { format.year "year" output.check } + 'skip$ + if$ + format.extracted.pages bbl.pages.colon output.after + format.urldate "" output.after + output.url + output.doi + new.block + format.note output + fin.entry +} + +FUNCTION {periodical} +{ output.bibitem + output.translation + format.authors output + author format.key output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + format.title "title" output.check + "J" set.entry.mark + format.mark "" output.after + new.block + format.periodical.year.volume.number output + new.block + format.address.publisher output + year.after.author not + { format.periodical.year "year" output.check } + 'skip$ + if$ + format.urldate "" output.after + output.url + output.doi + new.block + format.note output + fin.entry +} + +FUNCTION {journal.article} +{ output.bibitem + output.translation + format.authors output + author format.key output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + title.in.journal + { format.title "title" output.check + "J" set.entry.mark + format.mark "" output.after + new.block + } + 'skip$ + if$ + format.journal "journal" output.check + year.after.author not + { format.date "year" output.check } + 'skip$ + if$ + format.journal.volume output + format.journal.number "" output.after + format.journal.pages bbl.pages.colon output.after + format.urldate "" output.after + output.url + output.doi + new.block + format.note output + fin.entry +} + +FUNCTION {patent} +{ output.bibitem + output.translation + format.authors output + author format.key output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + format.title "title" output.check + "P" set.entry.mark + format.mark "" output.after + new.block + format.date "year" output.check + format.urldate "" output.after + output.url + output.doi + new.block + format.note output + fin.entry +} + +FUNCTION {electronic} +{ #1 #1 check.electronic + #1 'entry.is.electronic := + #1 'is.pure.electronic := + output.bibitem + output.translation + format.authors output + author format.key output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + format.series.vol.num.title "title" output.check + "EB" set.entry.mark + format.mark "" output.after + new.block + format.address.publisher output + year.after.author not + { date empty$ + { format.date output } + 'skip$ + if$ + } + 'skip$ + if$ + format.pages bbl.pages.colon output.after + format.editdate "" output.after + format.urldate "" output.after + output.url + output.doi + new.block + format.note output + fin.entry +} + +FUNCTION {preprint} +{ output.bibitem + output.translation + author empty$ not + { format.authors } + { editor empty$ not + { format.editors } + { "empty author and editor in " cite$ * warning$ + "" + } + if$ + } + if$ + output + year.after.author + { period.after.author + 'new.sentence + 'skip$ + if$ + format.year "year" output.check + } + 'skip$ + if$ + new.block + title.in.journal + { format.series.vol.num.title "title" output.check + "Z" set.entry.mark + format.mark "" output.after + new.block + } + 'skip$ + if$ + format.translators output + new.sentence + format.edition output + new.block + year.after.author not + { date empty$ + { format.date output } + 'skip$ + if$ + } + 'skip$ + if$ + format.pages bbl.pages.colon output.after + format.editdate "" output.after + format.urldate "" output.after + output.eprint + output.url + new.block + format.note output + fin.entry +} + +FUNCTION {misc} +{ get.journal.title + duplicate$ empty$ not + { check.arxiv.preprint + 'preprint + 'journal.article + if$ + } + { pop$ + booktitle empty$ not + 'incollection + { publisher empty$ not + 'monograph + { eprint empty$ not archivePrefix empty$ not or + 'preprint + { entry.is.electronic + 'electronic + { + "M" set.entry.mark + monograph + } + if$ + } + if$ + } + if$ + } + if$ + } + if$ + empty.misc.check +} + +FUNCTION {archive} +{ "A" set.entry.mark + misc +} + +FUNCTION {article} { misc } + +FUNCTION {book} { monograph } + +FUNCTION {booklet} { book } + +FUNCTION {collection} +{ "G" set.entry.mark + monograph +} + +FUNCTION {database} +{ "DB" set.entry.mark + electronic +} + +FUNCTION {dataset} +{ "DS" set.entry.mark + electronic +} + +FUNCTION {inbook} { book } + +FUNCTION {inproceedings} +{ "C" set.entry.mark + incollection +} + +FUNCTION {conference} { inproceedings } + +FUNCTION {legislation} { archive } + +FUNCTION {map} +{ "CM" set.entry.mark + misc +} + +FUNCTION {manual} { monograph } + +FUNCTION {mastersthesis} +{ "D" set.entry.mark + monograph +} + +FUNCTION {newspaper} +{ "N" set.entry.mark + article +} + +FUNCTION {online} +{ "EB" set.entry.mark + electronic +} + +FUNCTION {phdthesis} { mastersthesis } + +FUNCTION {proceedings} +{ "C" set.entry.mark + monograph +} + +FUNCTION {software} +{ "CP" set.entry.mark + electronic +} + +FUNCTION {standard} +{ "S" set.entry.mark + misc +} + +FUNCTION {techreport} +{ "R" set.entry.mark + misc +} + +FUNCTION {unpublished} { misc } + +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"} + +FUNCTION {sortify} +{ purify$ + "l" change.case$ +} + +FUNCTION {chop.word} +{ 's := + 'len := + s #1 len substring$ = + { s len #1 + global.max$ substring$ } + 's + if$ +} + +FUNCTION {format.lab.name} +{ "{vv~}{ll}{, jj}{, ff}" format.name$ 't := + t "others" = + { citation.et.al } + { t get.str.lang 'name.lang := + name.lang lang.zh = name.lang lang.ja = or + { t #1 "{ll}{ff}" format.name$ } + { t #1 "{vv~}{ll}" format.name$ } + if$ + } + if$ +} + +FUNCTION {format.lab.names} +{ 's := + s #1 format.lab.name 'short.label := + #1 'nameptr := + s num.names$ 'numnames := + "" + numnames 'namesleft := + { namesleft #0 > } + { s nameptr format.lab.name citation.et.al = + numnames citation.et.al.min #1 - > nameptr citation.et.al.use.first > and or + { bbl.space * + citation.et.al * + #1 'namesleft := + } + { nameptr #1 > + { namesleft #1 = citation.and "" = not and + { citation.and * } + { ", " * } + if$ + } + 'skip$ + if$ + s nameptr format.lab.name * + } + if$ + nameptr #1 + 'nameptr := + namesleft #1 - 'namesleft := + } + while$ +} + +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} +{ "" 'short.label := + type$ "book" = + type$ "inbook" = + or + 'author.editor.key.label + { type$ "collection" = + type$ "proceedings" = + or + { editor empty$ not + 'editor.key.organization.label + 'author.key.organization.label + if$ + } + 'author.key.label + if$ + } + if$ + 'short.list := + short.label empty$ + { short.list 'short.label := } + 'skip$ + if$ +} + +FUNCTION {calc.label} +{ calc.short.authors + short.list "]" contains + { "{" short.list * "}" * } + { short.list } + if$ + "(" + * + format.year duplicate$ empty$ + short.list key field.or.null = or + { pop$ "" } + 'skip$ + if$ + duplicate$ "]" contains + { "{" swap$ * "}" * } + 'skip$ + if$ + * + 'label := + short.label + "(" + * + format.year duplicate$ empty$ + short.list key field.or.null = or + { pop$ "" } + 'skip$ + if$ + * + 'short.label := +} + +INTEGERS { seq.num } + +FUNCTION {init.seq} +{ #0 'seq.num :=} + +FUNCTION {int.to.fix} +{ "000000000" swap$ int.to.str$ * + #-1 #10 substring$ +} + +FUNCTION {presort} +{ set.entry.lang + set.entry.numbered + show.url show.doi check.electronic + #0 'is.pure.electronic := + calc.label + label sortify + " " + * + seq.num #1 + 'seq.num := + seq.num int.to.fix + 'sort.label := + sort.label * + #1 entry.max$ substring$ + 'sort.key$ := +} + +STRINGS { longest.label last.label next.extra last.extra.label } + +INTEGERS { longest.label.width number.label } + +FUNCTION {initialize.longest.label} +{ "" 'longest.label := + #0 int.to.chr$ 'last.label := + "" 'next.extra := + #0 'longest.label.width := + #0 'number.label := + "" 'last.extra.label := +} + +FUNCTION {forward.pass} +{ + number.label #1 + 'number.label := +} + +FUNCTION {reverse.pass} +{ + label extra.label * 'label := +} + +FUNCTION {bib.sort.order} +{ sort.label 'sort.key$ := +} + +FUNCTION {begin.bib} +{ preamble$ empty$ + 'skip$ + { preamble$ write$ newline$ } + if$ + "\begin{thebibliography}{" number.label int.to.str$ * "}" * + write$ newline$ + terms.in.macro + { "\providecommand{\biband}{和}" + write$ newline$ + "\providecommand{\bibetal}{等}" + write$ newline$ + } + 'skip$ + if$ + "\providecommand{\natexlab}[1]{#1}" + write$ newline$ + "\providecommand{\url}[1]{#1}" + write$ newline$ + "\expandafter\ifx\csname urlstyle\endcsname\relax\else" + write$ newline$ + " \urlstyle{same}\fi" + write$ newline$ + "\expandafter\ifx\csname href\endcsname\relax" + write$ newline$ + " \DeclareUrlCommand\doi{\urlstyle{rm}}" + write$ newline$ + " \def\eprint#1#2{#2}" + write$ newline$ + "\else" + write$ newline$ + " \def\doi#1{\href{https://doi.org/#1}{\nolinkurl{#1}}}" + write$ newline$ + " \let\eprint\href" + write$ newline$ + "\fi" + write$ newline$ + } + +FUNCTION {end.bib} +{ newline$ + "\end{thebibliography}" write$ newline$ +} + +READ + +EXECUTE {init.state.consts} + +EXECUTE {load.config} + +EXECUTE {init.seq} + +ITERATE {presort} + +SORT + +EXECUTE {initialize.longest.label} + +ITERATE {forward.pass} + +REVERSE {reverse.pass} + +ITERATE {bib.sort.order} + +SORT + +EXECUTE {begin.bib} + +ITERATE {call.type$} + +EXECUTE {end.bib} diff --git a/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-author-year.bst b/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-author-year.bst index 76138dd215e..656d2563118 100644 --- a/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-author-year.bst +++ b/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-author-year.bst @@ -6,9 +6,9 @@ %% %% gbt7714.dtx (with options: `2015,author-year') %% ------------------------------------------------------------------- -%% GB/T 7714—2015 BibTeX Style -%% https://github.com/CTeX-org/gbt7714-bibtex-style -%% Version: 2021/06/20 v2.1.2 +%% GB/T 7714 BibTeX Style +%% https://github.com/zepinglee/gbt7714-bibtex-style +%% Version: 2021/12/08 v2.1.3 %% ------------------------------------------------------------------- %% Copyright (C) 2016—2021 by Zeping Lee %% ------------------------------------------------------------------- @@ -33,6 +33,7 @@ INTEGERS { sentence.case.title link.title title.in.journal + show.patent.country show.mark space.before.mark show.medium.type @@ -73,6 +74,7 @@ FUNCTION {load.config} #1 'sentence.case.title := #0 'link.title := #1 'title.in.journal := + #0 'show.patent.country := #1 'show.mark := #0 'space.before.mark := #1 'show.medium.type := @@ -88,7 +90,7 @@ FUNCTION {load.config} #1 'show.urldate := #1 'show.url := #1 'show.doi := - #0 'show.preprint := + #1 'show.preprint := #0 'show.note := #0 'show.english.translation := #1 'end.with.period := @@ -773,7 +775,7 @@ FUNCTION {add.link} { url empty$ not { "\href{" url * "}{" * swap$ * "}" * } { doi empty$ not - { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * } + { "\href{https://doi.org/" doi * "}{" * swap$ * "}" * } 'skip$ if$ } @@ -789,7 +791,25 @@ FUNCTION {format.title} 'skip$ if$ entry.numbered number empty$ not and - { bbl.colon * number * } + { bbl.colon * + type$ "patent" = show.patent.country and + { address empty$ not + { address * ", " * } + { location empty$ not + { location * ", " * } + { entry.lang lang.zh = + { "中国" * ", " * } + 'skip$ + if$ + } + if$ + } + if$ + } + 'skip$ + if$ + number * + } 'skip$ if$ link.title @@ -1008,16 +1028,15 @@ FUNCTION {abbreviate} if$ } -FUNCTION {format.journal} -{ "" - short.journal +FUNCTION {get.journal.title} +{ short.journal { shortjournal empty$ not - { shortjournal * } + { shortjournal } { journal empty$ not - { journal * abbreviate } + { journal abbreviate } { journaltitle empty$ not - { journaltitle * abbreviate } - 'skip$ + { journaltitle abbreviate } + { "" } if$ } if$ @@ -1025,15 +1044,30 @@ FUNCTION {format.journal} if$ } { journal empty$ not - { journal * } + { journal } { journaltitle empty$ not - { journaltitle * } - 'skip$ + { journaltitle } + { shortjournal empty$ not + { shortjournal } + { "" } + if$ + } if$ } if$ } if$ +} + +FUNCTION {check.arxiv.preprint} +{ #1 #5 substring$ "l" change.case$ "arxiv" = + { #1 } + { #0 } + if$ +} + +FUNCTION {format.journal} +{ get.journal.title duplicate$ empty$ not { italic.journal entry.lang lang.en = and 'emphasize @@ -1111,7 +1145,7 @@ FUNCTION {format.edition} { edition change.sentence.case 's := s "Revised" = s "Revised edition" = or { "Rev. ed." } - { s " ed." *} + { s " ed." * } if$ } { edition } @@ -1323,9 +1357,9 @@ FUNCTION {format.editdate} } FUNCTION {format.urldate} -{ urldate empty$ not - show.urldate show.url and is.pure.electronic or and - url empty$ not and +{ show.urldate show.url and entry.url empty$ not and + is.pure.electronic or + urldate empty$ not and { "\allowbreak[" urldate * "]" * } { "" } if$ @@ -1459,12 +1493,9 @@ FUNCTION {check.url} if$ } -FUNCTION {format.url} -{ entry.url -} - FUNCTION {output.url} -{ entry.url empty$ not +{ show.url is.pure.electronic or + entry.url empty$ not and { new.block entry.url output } @@ -1565,9 +1596,9 @@ FUNCTION {check.electronic} } FUNCTION {format.eprint} -{ eprinttype empty$ not - { eprinttype } - { archivePrefix empty$ not +{ archivePrefix empty$ not + { archivePrefix } + { eprinttype empty$ not { archivePrefix } { "" } if$ @@ -1758,7 +1789,7 @@ FUNCTION {periodical} fin.entry } -FUNCTION {article} +FUNCTION {journal.article} { output.bibitem output.translation format.authors output @@ -1892,7 +1923,7 @@ FUNCTION {preprint} new.block title.in.journal { format.series.vol.num.title "title" output.check - "Z" set.entry.mark + "A" set.entry.mark format.mark "" output.after new.block } @@ -1902,13 +1933,18 @@ FUNCTION {preprint} new.sentence format.edition output new.block - output.eprint year.after.author not - { format.year "year" output.check } + { date empty$ + { format.date output } + 'skip$ + if$ + } 'skip$ if$ format.pages bbl.pages.colon output.after + format.editdate "" output.after format.urldate "" output.after + output.eprint output.url new.block format.note output @@ -1916,13 +1952,19 @@ FUNCTION {preprint} } FUNCTION {misc} -{ journal empty$ not - 'article - { booktitle empty$ not +{ get.journal.title + duplicate$ empty$ not + { check.arxiv.preprint + 'preprint + 'journal.article + if$ + } + { pop$ + booktitle empty$ not 'incollection { publisher empty$ not 'monograph - { eprint empty$ not show.preprint and + { eprint empty$ not archivePrefix empty$ not or 'preprint { entry.is.electronic 'electronic @@ -1947,6 +1989,8 @@ FUNCTION {archive} misc } +FUNCTION {article} { misc } + FUNCTION {book} { monograph } FUNCTION {booklet} { book } @@ -1975,6 +2019,8 @@ FUNCTION {inproceedings} FUNCTION {conference} { inproceedings } +FUNCTION {legislation} { archive } + FUNCTION {map} { "CM" set.entry.mark misc @@ -2434,25 +2480,42 @@ FUNCTION {presort} 'sort.key$ := } -STRINGS { longest.label last.label next.extra } +STRINGS { longest.label last.label next.extra last.extra.label } -INTEGERS { longest.label.width last.extra.num number.label } +INTEGERS { longest.label.width 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 := + "" 'last.extra.label := } FUNCTION {forward.pass} -{ last.label short.label = - { last.extra.num #1 + 'last.extra.num := - last.extra.num int.to.chr$ 'extra.label := +{ + last.label short.label = + { "" 'extra.label := + last.extra.label text.length$ 'charptr := + { last.extra.label charptr #1 substring$ "z" = + charptr #0 > and + } + { "a" extra.label * 'extra.label := + charptr #1 - 'charptr := + } + while$ + charptr #0 > + { last.extra.label charptr #1 substring$ chr.to.int$ #1 + int.to.chr$ + extra.label * 'extra.label := + last.extra.label #1 charptr #1 - substring$ + extra.label * 'extra.label := + } + { "a" extra.label * 'extra.label := } + if$ + extra.label 'last.extra.label := } - { "a" chr.to.int$ 'last.extra.num := + { "a" 'last.extra.label := "" 'extra.label := short.label 'last.label := } @@ -2461,7 +2524,8 @@ FUNCTION {forward.pass} } FUNCTION {reverse.pass} -{ next.extra "b" = +{ + next.extra "b" = { "a" 'extra.label := } 'skip$ if$ diff --git a/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-numerical.bst b/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-numerical.bst index 634510cedc1..a6eb769bdcb 100644 --- a/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-numerical.bst +++ b/Master/texmf-dist/bibtex/bst/gbt7714/gbt7714-numerical.bst @@ -6,9 +6,9 @@ %% %% gbt7714.dtx (with options: `2015,numerical') %% ------------------------------------------------------------------- -%% GB/T 7714—2015 BibTeX Style -%% https://github.com/CTeX-org/gbt7714-bibtex-style -%% Version: 2021/06/20 v2.1.2 +%% GB/T 7714 BibTeX Style +%% https://github.com/zepinglee/gbt7714-bibtex-style +%% Version: 2021/12/08 v2.1.3 %% ------------------------------------------------------------------- %% Copyright (C) 2016—2021 by Zeping Lee %% ------------------------------------------------------------------- @@ -33,6 +33,7 @@ INTEGERS { sentence.case.title link.title title.in.journal + show.patent.country show.mark space.before.mark show.medium.type @@ -68,6 +69,7 @@ FUNCTION {load.config} #1 'sentence.case.title := #0 'link.title := #1 'title.in.journal := + #0 'show.patent.country := #1 'show.mark := #0 'space.before.mark := #1 'show.medium.type := @@ -83,7 +85,7 @@ FUNCTION {load.config} #1 'show.urldate := #1 'show.url := #1 'show.doi := - #0 'show.preprint := + #1 'show.preprint := #0 'show.note := #0 'show.english.translation := #1 'end.with.period := @@ -763,7 +765,7 @@ FUNCTION {add.link} { url empty$ not { "\href{" url * "}{" * swap$ * "}" * } { doi empty$ not - { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * } + { "\href{https://doi.org/" doi * "}{" * swap$ * "}" * } 'skip$ if$ } @@ -779,7 +781,25 @@ FUNCTION {format.title} 'skip$ if$ entry.numbered number empty$ not and - { bbl.colon * number * } + { bbl.colon * + type$ "patent" = show.patent.country and + { address empty$ not + { address * ", " * } + { location empty$ not + { location * ", " * } + { entry.lang lang.zh = + { "中国" * ", " * } + 'skip$ + if$ + } + if$ + } + if$ + } + 'skip$ + if$ + number * + } 'skip$ if$ link.title @@ -998,16 +1018,15 @@ FUNCTION {abbreviate} if$ } -FUNCTION {format.journal} -{ "" - short.journal +FUNCTION {get.journal.title} +{ short.journal { shortjournal empty$ not - { shortjournal * } + { shortjournal } { journal empty$ not - { journal * abbreviate } + { journal abbreviate } { journaltitle empty$ not - { journaltitle * abbreviate } - 'skip$ + { journaltitle abbreviate } + { "" } if$ } if$ @@ -1015,15 +1034,30 @@ FUNCTION {format.journal} if$ } { journal empty$ not - { journal * } + { journal } { journaltitle empty$ not - { journaltitle * } - 'skip$ + { journaltitle } + { shortjournal empty$ not + { shortjournal } + { "" } + if$ + } if$ } if$ } if$ +} + +FUNCTION {check.arxiv.preprint} +{ #1 #5 substring$ "l" change.case$ "arxiv" = + { #1 } + { #0 } + if$ +} + +FUNCTION {format.journal} +{ get.journal.title duplicate$ empty$ not { italic.journal entry.lang lang.en = and 'emphasize @@ -1101,7 +1135,7 @@ FUNCTION {format.edition} { edition change.sentence.case 's := s "Revised" = s "Revised edition" = or { "Rev. ed." } - { s " ed." *} + { s " ed." * } if$ } { edition } @@ -1313,9 +1347,9 @@ FUNCTION {format.editdate} } FUNCTION {format.urldate} -{ urldate empty$ not - show.urldate show.url and is.pure.electronic or and - url empty$ not and +{ show.urldate show.url and entry.url empty$ not and + is.pure.electronic or + urldate empty$ not and { "\allowbreak[" urldate * "]" * } { "" } if$ @@ -1449,12 +1483,9 @@ FUNCTION {check.url} if$ } -FUNCTION {format.url} -{ entry.url -} - FUNCTION {output.url} -{ entry.url empty$ not +{ show.url is.pure.electronic or + entry.url empty$ not and { new.block entry.url output } @@ -1555,9 +1586,9 @@ FUNCTION {check.electronic} } FUNCTION {format.eprint} -{ eprinttype empty$ not - { eprinttype } - { archivePrefix empty$ not +{ archivePrefix empty$ not + { archivePrefix } + { eprinttype empty$ not { archivePrefix } { "" } if$ @@ -1748,7 +1779,7 @@ FUNCTION {periodical} fin.entry } -FUNCTION {article} +FUNCTION {journal.article} { output.bibitem output.translation format.authors output @@ -1882,7 +1913,7 @@ FUNCTION {preprint} new.block title.in.journal { format.series.vol.num.title "title" output.check - "Z" set.entry.mark + "A" set.entry.mark format.mark "" output.after new.block } @@ -1892,13 +1923,18 @@ FUNCTION {preprint} new.sentence format.edition output new.block - output.eprint year.after.author not - { format.year "year" output.check } + { date empty$ + { format.date output } + 'skip$ + if$ + } 'skip$ if$ format.pages bbl.pages.colon output.after + format.editdate "" output.after format.urldate "" output.after + output.eprint output.url new.block format.note output @@ -1906,13 +1942,19 @@ FUNCTION {preprint} } FUNCTION {misc} -{ journal empty$ not - 'article - { booktitle empty$ not +{ get.journal.title + duplicate$ empty$ not + { check.arxiv.preprint + 'preprint + 'journal.article + if$ + } + { pop$ + booktitle empty$ not 'incollection { publisher empty$ not 'monograph - { eprint empty$ not show.preprint and + { eprint empty$ not archivePrefix empty$ not or 'preprint { entry.is.electronic 'electronic @@ -1937,6 +1979,8 @@ FUNCTION {archive} misc } +FUNCTION {article} { misc } + FUNCTION {book} { monograph } FUNCTION {booklet} { book } @@ -1965,6 +2009,8 @@ FUNCTION {inproceedings} FUNCTION {conference} { inproceedings } +FUNCTION {legislation} { archive } + FUNCTION {map} { "CM" set.entry.mark misc @@ -2275,44 +2321,26 @@ FUNCTION {presort} 'sort.key$ := } -STRINGS { longest.label last.label next.extra } +STRINGS { longest.label last.label next.extra last.extra.label } -INTEGERS { longest.label.width last.extra.num number.label } +INTEGERS { longest.label.width 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 := + "" 'last.extra.label := } FUNCTION {forward.pass} -{ last.label short.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 := - short.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 := } diff --git a/Master/texmf-dist/doc/bibtex/gbt7714/CHANGELOG.md b/Master/texmf-dist/doc/bibtex/gbt7714/CHANGELOG.md index a4e37872f64..28bda24f172 100644 --- a/Master/texmf-dist/doc/bibtex/gbt7714/CHANGELOG.md +++ b/Master/texmf-dist/doc/bibtex/gbt7714/CHANGELOG.md @@ -1,163 +1,232 @@ # Changelog + All notable changes to this project will be documented in this file. The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/). ## [Unreleased] +## [v2.1.3] - 2021-12-08 + +### Added + +- 新增选项 `show.patent.country` 控制专利文献的题名是否含专利国别。 + +### Changed + +- 预印本 `@preprint` 的文献类型标识改为“`A`”([#89](https://github.com/zepinglee/gbt7714-bibtex-style/issues/89))。 +- 预印本的信息(如“arXiv: 1703.03400”)改在日期后输出([#89](https://github.com/zepinglee/gbt7714-bibtex-style/issues/89))。 +- 默认显示预印本的信息([#89](https://github.com/zepinglee/gbt7714-bibtex-style/issues/89))。 + +### Fixed + +- 修正了只有 `howpublished` 时的 URL 显示问题([stone-zeng/fduthesis#218](https://github.com/stone-zeng/fduthesis/issues/218))。 +- 修正了出版年后缀超出“z”的问题([#90](https://github.com/zepinglee/gbt7714-bibtex-style/issues/90))。 + ## [v2.1.2] - 2021-06-20 + ### Added + - 新增选项 `italic.book.title` 控制书名使用斜体。 - 新增选项 `wave.dash.in.pages` 控制起止页码使用波浪号。 - 新增选项 `end.with.period` 控制结尾加句点。 ### Fixed -- 修正了 `article` 只有 `date` 时年份缺失的问题(ustctug/ustcthesis#299)。 + +- 修正了 `article` 只有 `date` 时年份缺失的问题([ustctug/ustcthesis#299](https://github.com/ustctug/ustcthesis/issues/299))。 ## [v2.1.1] - 2021-04-03 + ### Added + - 新增选项 `space.before.mark` 选择文献类型标识前是否有空格。 ### Changed + - 默认不再显示“出版地不详”、“S.l.”等信息。 ### Fixed -- 修正了上标式引用后与中文之间多余的空格(tuna/thuthesis#624)。 -- 修正了姓名或年份中含有中括号时的引用错误,该问题是同时使用 `bibunits` 导致的(tuna/thuthesis#630)。 + +- 修正了上标式引用后与中文之间多余的空格([tuna/thuthesis#624](https://github.com/tuna/thuthesis/issues/624))。 +- 修正了姓名或年份中含有中括号时的引用错误,该问题是同时使用 `bibunits` 导致的([tuna/thuthesis#630](https://github.com/tuna/thuthesis/issues/630))。 ## [v2.1] - 2020-12-17 + ### Changed -- 著者-出版年制的 `key` 域如果含有多个姓名的拼音,改为使用 ` & ` 分隔(#68) -- 选项 `abbreviate.journal` 改为 `short.journal` -- 选项 `max.num.authors` 改为 `et.al.min` 和 `et.al.use.first` 控制输出作者姓名的数量 -- 期刊的起止年份分隔符由 `--` 改为 `/`(hushidong/biblatex-gb7714-2015/pull/79) -- 统一空格的处理 -- 添加选项 `space.before.pages` 控制页码与前面的冒号之间有无空格 + +- 著者-出版年制的 `key` 域如果含有多个姓名的拼音,改为使用 ` & ` 分隔([#68](https://github.com/zepinglee/gbt7714-bibtex-style/issues/68))。 +- 选项 `abbreviate.journal` 改为 `short.journal`。 +- 选项 `max.num.authors` 改为 `et.al.min` 和 `et.al.use.first` 控制输出作者姓名的数量。 +- 期刊的起止年份分隔符由 `--` 改为 `/`([hushidong/biblatex-gb7714-2015#79](https://github.com/hushidong/biblatex-gb7714-2015/pull/79))。 +- 统一空格的处理。 +- 添加选项 `space.before.pages` 控制页码与前面的冒号之间有无空格。 ## Fixed -- 修正第一作者姓名相同、年份相同但作者数量不同时的年份标签 -- 修正 `number` 样式 `\citep` 命令引用的页码位置 + +- 修正第一作者姓名相同、年份相同但作者数量不同时的年份标签。 +- 修正 `number` 样式 `\citep` 命令引用的页码位置。 ### Added -- 新增选项 `show.urldate` 选择是否显示非电子文献的引用日期 -- 兼容 biblatex 的 `langid` 域 -- 兼容 biblatex 的 `journaltitle` 和 `shortjournal` 域 -- 兼容 biblatex 的 `location` 域 -- 兼容 biblatex 的 `eprinttype` 域 -- 新增选项 `year.after.author` 选择将年份置于著者后 -- 新增选项 `terms.in.macro` 选择以 TeX 宏输出“和”、“等” + +- 新增选项 `show.urldate` 选择是否显示非电子文献的引用日期。 +- 兼容 biblatex 的 `langid` 域。 +- 兼容 biblatex 的 `journaltitle` 和 `shortjournal` 域。 +- 兼容 biblatex 的 `location` 域。 +- 兼容 biblatex 的 `eprinttype` 域。 +- 新增选项 `year.after.author` 选择将年份置于著者后。 +- 新增选项 `terms.in.macro` 选择以 TeX 宏输出“和”、“等”。 ## [v2.0.2] - 2020-06-08 + ### Changed -- 期刊的页码前默认有空格(#62) + +- 期刊的页码前默认有空格([#62](https://github.com/zepinglee/gbt7714-bibtex-style/issues/62))。 ### Added -- 支持预印本(preprint)文献类型 + +- 支持预印本(preprint)文献类型。 ## [v2.0.1] - 2020-03-14 + ### Added -- 新增选项 `only.start.page` -- 增加选项 `title.in.journal` -- 增加选项 `abbreviate.journal` -- 增加选项 `show.english.translation` + +- 新增选项 `only.start.page`。 +- 增加选项 `title.in.journal`。 +- 增加选项 `abbreviate.journal`。 +- 增加选项 `show.english.translation`。 ### Fixed -- 修正 DOI 中含有下划线的问题 + +- 修正 DOI 中含有下划线的问题。 ## [v2.0] - 2020-03-04 + ### Changed -- 需要用户在主文档使用 `\bibliographystyle` 命令 -- 更改 `bst` 文件名为 `-numerical` 和 `-author-year` -- 不再默认对顺序编码制的引用标注进行排序 + +- 需要用户在主文档使用 `\bibliographystyle` 命令。 +- 更改 `bst` 文件名为 `-numerical` 和 `-author-year`。 +- 不再默认对顺序编码制的引用标注进行排序。 ### Added -- 兼容 `chapterbib` 宏包(#48) + +- 兼容 `chapterbib` 宏包([#48](https://github.com/zepinglee/gbt7714-bibtex-style/issues/48))。 ## [v1.1.2] - 2019-11-20 + ### Changed -- 不再依赖 `etoolbox` + +- 不再依赖 `etoolbox`。 ### Fixed -- 修正与 `newtx` 冲突([#42](https://github.com/CTeX-org/gbt7714-bibtex-style/issues/42)) + +- 修正与 `newtx` 冲突([#42](https://github.com/zepinglee/gbt7714-bibtex-style/issues/42))。 ## [v1.1.1] - 2019-03-21 + ### Added -- 允许自定义文种的顺序 + +- 允许自定义文种的顺序。 ## [v1.1] - 2019-01-02 + ### Added -- 允许自定义“et al” + +- 允许自定义“et al”。 ### Changed -- 修正 series 的 bug + +- 修正 series 的 bug。 ## [v1.0.9] - 2018-08-05 + ### Added -- 增加选项在题名添加超链接 + +- 增加选项在题名添加超链接。 ### Changed -- 不再转换题名 volume 的大小写 -- 修正不显示 url 的选项 + +- 不再转换题名 volume 的大小写。 +- 修正不显示 url 的选项。 ## [v1.0.8] - 2018-06-23 + ### Added -- 新增接口供用户自定义样式 -- 支持 howpublished 中的 url + +- 新增接口供用户自定义样式。 +- 支持 howpublished 中的 url。 ### Changed -- 使用 `xurl` 的方法改进 URL 断行 -- 使用“~”连接英文姓名 + +- 使用 `xurl` 的方法改进 URL 断行。 +- 使用“~”连接英文姓名。 ## [v1.0.7] - 2018-05-12 + ### Changed -- 修正了检测 Unicode 语言 + +- 修正了检测 Unicode 语言。 ## [v1.0.6] - 2018-05-10 + ### Changed -- 文献列表的数字标签左对齐 -- 不再处理中文标题的英文单词的大小写 + +- 文献列表的数字标签左对齐。 +- 不再处理中文标题的英文单词的大小写。 ## [v1.0.5] - 2018-04-18 + ### Added -- 允许著录多个 DOI + +- 允许著录多个 DOI。 ## [v1.0.4] - 2018-04-12 + ### Changed -- 页码的连接号由 en dash 改为 hyphen + +- 页码的连接号由 en dash 改为 hyphen。 ## [v1.0.3] - 2018-03-29 + ### Changed -- 顺序编码制连续两个文献引用之间使用连接号 + +- 顺序编码制连续两个文献引用之间使用连接号。 ## [v1.0.2] - 2018-03-16 + ### Changed -- 正确识别姓名中的“others” + +- 正确识别姓名中的“others”。 ## [v1.0.1] - 2018-03-09 + ### Changed -- 著者出版年制的文献引用不再排序 + +- 著者出版年制的文献引用不再排序。 ## [v1.0] - 2018-01-01 + ### Changed -- Initial release. - -[Unreleased]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v2.1.2...HEAD -[v2.1.2]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v2.1.1...v2.1.2 -[v2.1.1]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v2.1...v2.1.1 -[v2.1]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v2.0.2...v2.1 -[v2.0.2]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v2.0.1...v2.0.2 -[v2.0.1]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v2.0...v2.0.1 -[v2.0]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v1.1.2...v2.0 -[v1.1.2]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v1.1.1...v1.1.2 -[v1.1.1]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v1.1...v1.1.1 -[v1.1]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v1.0.9...v1.1 -[v1.0.9]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v1.0.8...v1.0.9 -[v1.0.8]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v1.0.7...v1.0.8 -[v1.0.7]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v1.0.6...v1.0.7 -[v1.0.6]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v1.0.5...v1.0.6 -[v1.0.5]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v1.0.4...v1.0.5 -[v1.0.4]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v1.0.3...v1.0.4 -[v1.0.3]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v1.0.2...v1.0.3 -[v1.0.2]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v1.0.1...v1.0.2 -[v1.0.1]: https://github.com/CTeX-org/gbt7714-bibtex-style/compare/v1.0...v1.0.1 -[v1.0]: https://github.com/CTeX-org/gbt7714-bibtex-style/releases/tag/v1.0 + +- Initial release.。 + +[Unreleased]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v2.1.3...HEAD +[v2.1.3]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v2.1.2...v2.1.3 +[v2.1.2]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v2.1.1...v2.1.2 +[v2.1.1]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v2.1...v2.1.1 +[v2.1]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v2.0.2...v2.1 +[v2.0.2]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v2.0.1...v2.0.2 +[v2.0.1]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v2.0...v2.0.1 +[v2.0]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v1.1.2...v2.0 +[v1.1.2]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v1.1.1...v1.1.2 +[v1.1.1]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v1.1...v1.1.1 +[v1.1]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v1.0.9...v1.1 +[v1.0.9]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v1.0.8...v1.0.9 +[v1.0.8]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v1.0.7...v1.0.8 +[v1.0.7]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v1.0.6...v1.0.7 +[v1.0.6]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v1.0.5...v1.0.6 +[v1.0.5]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v1.0.4...v1.0.5 +[v1.0.4]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v1.0.3...v1.0.4 +[v1.0.3]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v1.0.2...v1.0.3 +[v1.0.2]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v1.0.1...v1.0.2 +[v1.0.1]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v1.0...v1.0.1 +[v1.0]: https://github.com/zepinglee/gbt7714-bibtex-style/releases/tag/v1.0 diff --git a/Master/texmf-dist/doc/bibtex/gbt7714/LICENSE b/Master/texmf-dist/doc/bibtex/gbt7714/LICENSE deleted file mode 100644 index 22443139013..00000000000 --- a/Master/texmf-dist/doc/bibtex/gbt7714/LICENSE +++ /dev/null @@ -1,416 +0,0 @@ -The LaTeX Project Public License -=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=- - -LPPL Version 1.3c 2008-05-04 - -Copyright 1999 2002-2008 LaTeX3 Project - Everyone is allowed to distribute verbatim copies of this - license document, but modification of it is not allowed. - - -PREAMBLE -======== - -The LaTeX Project Public License (LPPL) is the primary license under -which the LaTeX kernel and the base LaTeX packages are distributed. - -You may use this license for any work of which you hold the copyright -and which you wish to distribute. This license may be particularly -suitable if your work is TeX-related (such as a LaTeX package), but -it is written in such a way that you can use it even if your work is -unrelated to TeX. - -The section `WHETHER AND HOW TO DISTRIBUTE WORKS UNDER THIS LICENSE', -below, gives instructions, examples, and recommendations for authors -who are considering distributing their works under this license. - -This license gives conditions under which a work may be distributed -and modified, as well as conditions under which modified versions of -that work may be distributed. - -We, the LaTeX3 Project, believe that the conditions below give you -the freedom to make and distribute modified versions of your work -that conform with whatever technical specifications you wish while -maintaining the availability, integrity, and reliability of -that work. If you do not see how to achieve your goal while -meeting these conditions, then read the document `cfgguide.tex' -and `modguide.tex' in the base LaTeX distribution for suggestions. - - -DEFINITIONS -=========== - -In this license document the following terms are used: - - `Work' - Any work being distributed under this License. - - `Derived Work' - Any work that under any applicable law is derived from the Work. - - `Modification' - Any procedure that produces a Derived Work under any applicable - law -- for example, the production of a file containing an - original file associated with the Work or a significant portion of - such a file, either verbatim or with modifications and/or - translated into another language. - - `Modify' - To apply any procedure that produces a Derived Work under any - applicable law. - - `Distribution' - Making copies of the Work available from one person to another, in - whole or in part. Distribution includes (but is not limited to) - making any electronic components of the Work accessible by - file transfer protocols such as FTP or HTTP or by shared file - systems such as Sun's Network File System (NFS). - - `Compiled Work' - A version of the Work that has been processed into a form where it - is directly usable on a computer system. This processing may - include using installation facilities provided by the Work, - transformations of the Work, copying of components of the Work, or - other activities. Note that modification of any installation - facilities provided by the Work constitutes modification of the Work. - - `Current Maintainer' - A person or persons nominated as such within the Work. If there is - no such explicit nomination then it is the `Copyright Holder' under - any applicable law. - - `Base Interpreter' - A program or process that is normally needed for running or - interpreting a part or the whole of the Work. - - A Base Interpreter may depend on external components but these - are not considered part of the Base Interpreter provided that each - external component clearly identifies itself whenever it is used - interactively. Unless explicitly specified when applying the - license to the Work, the only applicable Base Interpreter is a - `LaTeX-Format' or in the case of files belonging to the - `LaTeX-format' a program implementing the `TeX language'. - - - -CONDITIONS ON DISTRIBUTION AND MODIFICATION -=========================================== - -1. Activities other than distribution and/or modification of the Work -are not covered by this license; they are outside its scope. In -particular, the act of running the Work is not restricted and no -requirements are made concerning any offers of support for the Work. - -2. You may distribute a complete, unmodified copy of the Work as you -received it. Distribution of only part of the Work is considered -modification of the Work, and no right to distribute such a Derived -Work may be assumed under the terms of this clause. - -3. You may distribute a Compiled Work that has been generated from a -complete, unmodified copy of the Work as distributed under Clause 2 -above, as long as that Compiled Work is distributed in such a way that -the recipients may install the Compiled Work on their system exactly -as it would have been installed if they generated a Compiled Work -directly from the Work. - -4. If you are the Current Maintainer of the Work, you may, without -restriction, modify the Work, thus creating a Derived Work. You may -also distribute the Derived Work without restriction, including -Compiled Works generated from the Derived Work. Derived Works -distributed in this manner by the Current Maintainer are considered to -be updated versions of the Work. - -5. If you are not the Current Maintainer of the Work, you may modify -your copy of the Work, thus creating a Derived Work based on the Work, -and compile this Derived Work, thus creating a Compiled Work based on -the Derived Work. - -6. If you are not the Current Maintainer of the Work, you may -distribute a Derived Work provided the following conditions are met -for every component of the Work unless that component clearly states -in the copyright notice that it is exempt from that condition. Only -the Current Maintainer is allowed to add such statements of exemption -to a component of the Work. - - a. If a component of this Derived Work can be a direct replacement - for a component of the Work when that component is used with the - Base Interpreter, then, wherever this component of the Work - identifies itself to the user when used interactively with that - Base Interpreter, the replacement component of this Derived Work - clearly and unambiguously identifies itself as a modified version - of this component to the user when used interactively with that - Base Interpreter. - - b. Every component of the Derived Work contains prominent notices - detailing the nature of the changes to that component, or a - prominent reference to another file that is distributed as part - of the Derived Work and that contains a complete and accurate log - of the changes. - - c. No information in the Derived Work implies that any persons, - including (but not limited to) the authors of the original version - of the Work, provide any support, including (but not limited to) - the reporting and handling of errors, to recipients of the - Derived Work unless those persons have stated explicitly that - they do provide such support for the Derived Work. - - d. You distribute at least one of the following with the Derived Work: - - 1. A complete, unmodified copy of the Work; - if your distribution of a modified component is made by - offering access to copy the modified component from a - designated place, then offering equivalent access to copy - the Work from the same or some similar place meets this - condition, even though third parties are not compelled to - copy the Work along with the modified component; - - 2. Information that is sufficient to obtain a complete, - unmodified copy of the Work. - -7. If you are not the Current Maintainer of the Work, you may -distribute a Compiled Work generated from a Derived Work, as long as -the Derived Work is distributed to all recipients of the Compiled -Work, and as long as the conditions of Clause 6, above, are met with -regard to the Derived Work. - -8. The conditions above are not intended to prohibit, and hence do not -apply to, the modification, by any method, of any component so that it -becomes identical to an updated version of that component of the Work as -it is distributed by the Current Maintainer under Clause 4, above. - -9. Distribution of the Work or any Derived Work in an alternative -format, where the Work or that Derived Work (in whole or in part) is -then produced by applying some process to that format, does not relax or -nullify any sections of this license as they pertain to the results of -applying that process. - -10. a. A Derived Work may be distributed under a different license - provided that license itself honors the conditions listed in - Clause 6 above, in regard to the Work, though it does not have - to honor the rest of the conditions in this license. - - b. If a Derived Work is distributed under a different license, that - Derived Work must provide sufficient documentation as part of - itself to allow each recipient of that Derived Work to honor the - restrictions in Clause 6 above, concerning changes from the Work. - -11. This license places no restrictions on works that are unrelated to -the Work, nor does this license place any restrictions on aggregating -such works with the Work by any means. - -12. Nothing in this license is intended to, or may be used to, prevent -complete compliance by all parties with all applicable laws. - - -NO WARRANTY -=========== - -There is no warranty for the Work. Except when otherwise stated in -writing, the Copyright Holder provides the Work `as is', without -warranty of any kind, either expressed or implied, including, but not -limited to, the implied warranties of merchantability and fitness for a -particular purpose. The entire risk as to the quality and performance -of the Work is with you. Should the Work prove defective, you assume -the cost of all necessary servicing, repair, or correction. - -In no event unless required by applicable law or agreed to in writing -will The Copyright Holder, or any author named in the components of the -Work, or any other party who may distribute and/or modify the Work as -permitted above, be liable to you for damages, including any general, -special, incidental or consequential damages arising out of any use of -the Work or out of inability to use the Work (including, but not limited -to, loss of data, data being rendered inaccurate, or losses sustained by -anyone as a result of any failure of the Work to operate with any other -programs), even if the Copyright Holder or said author or said other -party has been advised of the possibility of such damages. - - -MAINTENANCE OF THE WORK -======================= - -The Work has the status `author-maintained' if the Copyright Holder -explicitly and prominently states near the primary copyright notice in -the Work that the Work can only be maintained by the Copyright Holder -or simply that it is `author-maintained'. - -The Work has the status `maintained' if there is a Current Maintainer -who has indicated in the Work that they are willing to receive error -reports for the Work (for example, by supplying a valid e-mail -address). It is not required for the Current Maintainer to acknowledge -or act upon these error reports. - -The Work changes from status `maintained' to `unmaintained' if there -is no Current Maintainer, or the person stated to be Current -Maintainer of the work cannot be reached through the indicated means -of communication for a period of six months, and there are no other -significant signs of active maintenance. - -You can become the Current Maintainer of the Work by agreement with -any existing Current Maintainer to take over this role. - -If the Work is unmaintained, you can become the Current Maintainer of -the Work through the following steps: - - 1. Make a reasonable attempt to trace the Current Maintainer (and - the Copyright Holder, if the two differ) through the means of - an Internet or similar search. - - 2. If this search is successful, then enquire whether the Work - is still maintained. - - a. If it is being maintained, then ask the Current Maintainer - to update their communication data within one month. - - b. If the search is unsuccessful or no action to resume active - maintenance is taken by the Current Maintainer, then announce - within the pertinent community your intention to take over - maintenance. (If the Work is a LaTeX work, this could be - done, for example, by posting to comp.text.tex.) - - 3a. If the Current Maintainer is reachable and agrees to pass - maintenance of the Work to you, then this takes effect - immediately upon announcement. - - b. If the Current Maintainer is not reachable and the Copyright - Holder agrees that maintenance of the Work be passed to you, - then this takes effect immediately upon announcement. - - 4. If you make an `intention announcement' as described in 2b. above - and after three months your intention is challenged neither by - the Current Maintainer nor by the Copyright Holder nor by other - people, then you may arrange for the Work to be changed so as - to name you as the (new) Current Maintainer. - - 5. If the previously unreachable Current Maintainer becomes - reachable once more within three months of a change completed - under the terms of 3b) or 4), then that Current Maintainer must - become or remain the Current Maintainer upon request provided - they then update their communication data within one month. - -A change in the Current Maintainer does not, of itself, alter the fact -that the Work is distributed under the LPPL license. - -If you become the Current Maintainer of the Work, you should -immediately provide, within the Work, a prominent and unambiguous -statement of your status as Current Maintainer. You should also -announce your new status to the same pertinent community as -in 2b) above. - - -WHETHER AND HOW TO DISTRIBUTE WORKS UNDER THIS LICENSE -====================================================== - -This section contains important instructions, examples, and -recommendations for authors who are considering distributing their -works under this license. These authors are addressed as `you' in -this section. - -Choosing This License or Another License ----------------------------------------- - -If for any part of your work you want or need to use *distribution* -conditions that differ significantly from those in this license, then -do not refer to this license anywhere in your work but, instead, -distribute your work under a different license. You may use the text -of this license as a model for your own license, but your license -should not refer to the LPPL or otherwise give the impression that -your work is distributed under the LPPL. - -The document `modguide.tex' in the base LaTeX distribution explains -the motivation behind the conditions of this license. It explains, -for example, why distributing LaTeX under the GNU General Public -License (GPL) was considered inappropriate. Even if your work is -unrelated to LaTeX, the discussion in `modguide.tex' may still be -relevant, and authors intending to distribute their works under any -license are encouraged to read it. - -A Recommendation on Modification Without Distribution ------------------------------------------------------ - -It is wise never to modify a component of the Work, even for your own -personal use, without also meeting the above conditions for -distributing the modified component. While you might intend that such -modifications will never be distributed, often this will happen by -accident -- you may forget that you have modified that component; or -it may not occur to you when allowing others to access the modified -version that you are thus distributing it and violating the conditions -of this license in ways that could have legal implications and, worse, -cause problems for the community. It is therefore usually in your -best interest to keep your copy of the Work identical with the public -one. Many works provide ways to control the behavior of that work -without altering any of its licensed components. - -How to Use This License ------------------------ - -To use this license, place in each of the components of your work both -an explicit copyright notice including your name and the year the work -was authored and/or last substantially modified. Include also a -statement that the distribution and/or modification of that -component is constrained by the conditions in this license. - -Here is an example of such a notice and statement: - - %% pig.dtx - %% Copyright 2005 M. Y. Name - % - % This work may be distributed and/or modified under the - % conditions of the LaTeX Project Public License, either version 1.3 - % of this license or (at your option) any later version. - % The latest version of this license is in - % http://www.latex-project.org/lppl.txt - % and version 1.3 or later is part of all distributions of LaTeX - % version 2005/12/01 or later. - % - % This work has the LPPL maintenance status `maintained'. - % - % The Current Maintainer of this work is M. Y. Name. - % - % This work consists of the files pig.dtx and pig.ins - % and the derived file pig.sty. - -Given such a notice and statement in a file, the conditions -given in this license document would apply, with the `Work' referring -to the three files `pig.dtx', `pig.ins', and `pig.sty' (the last being -generated from `pig.dtx' using `pig.ins'), the `Base Interpreter' -referring to any `LaTeX-Format', and both `Copyright Holder' and -`Current Maintainer' referring to the person `M. Y. Name'. - -If you do not want the Maintenance section of LPPL to apply to your -Work, change `maintained' above into `author-maintained'. -However, we recommend that you use `maintained', as the Maintenance -section was added in order to ensure that your Work remains useful to -the community even when you can no longer maintain and support it -yourself. - -Derived Works That Are Not Replacements ---------------------------------------- - -Several clauses of the LPPL specify means to provide reliability and -stability for the user community. They therefore concern themselves -with the case that a Derived Work is intended to be used as a -(compatible or incompatible) replacement of the original Work. If -this is not the case (e.g., if a few lines of code are reused for a -completely different task), then clauses 6b and 6d shall not apply. - - -Important Recommendations -------------------------- - - Defining What Constitutes the Work - - The LPPL requires that distributions of the Work contain all the - files of the Work. It is therefore important that you provide a - way for the licensee to determine which files constitute the Work. - This could, for example, be achieved by explicitly listing all the - files of the Work near the copyright notice of each file or by - using a line such as: - - % This work consists of all files listed in manifest.txt. - - in that place. In the absence of an unequivocal list it might be - impossible for the licensee to determine what is considered by you - to comprise the Work and, in such a case, the licensee would be - entitled to make reasonable conjectures as to which files comprise - the Work. - diff --git a/Master/texmf-dist/doc/bibtex/gbt7714/README.md b/Master/texmf-dist/doc/bibtex/gbt7714/README.md index fdd9abfac4a..3f6e2130c49 100644 --- a/Master/texmf-dist/doc/bibtex/gbt7714/README.md +++ b/Master/texmf-dist/doc/bibtex/gbt7714/README.md @@ -2,21 +2,21 @@ [![CTAN](https://img.shields.io/ctan/v/gbt7714.svg)](https://ctan.org/pkg/gbt7714) -[![GitHub release](https://img.shields.io/github/release/CTeX-org/gbt7714-bibtex-style/all.svg)](https://github.com/CTeX-org/gbt7714-bibtex-style/releases/latest) -[![GitHub commits](https://img.shields.io/github/commits-since/CTeX-org/gbt7714-bibtex-style/latest.svg)](https://github.com/CTeX-org/gbt7714-bibtex-style/commits/master) -[![Build](https://github.com/CTeX-org/gbt7714-bibtex-style/workflows/build/badge.svg)](https://github.com/CTeX-org/gbt7714-bibtex-style/actions) +[![GitHub release](https://img.shields.io/github/release/zepinglee/gbt7714-bibtex-style/all.svg)](https://github.com/zepinglee/gbt7714-bibtex-style/releases/latest) +[![GitHub commits](https://img.shields.io/github/commits-since/zepinglee/gbt7714-bibtex-style/latest.svg)](https://github.com/zepinglee/gbt7714-bibtex-style/commits/master) +[![Build](https://github.com/zepinglee/gbt7714-bibtex-style/workflows/build/badge.svg)](https://github.com/zepinglee/gbt7714-bibtex-style/actions) ## Introduction The `gbt7714` package provides a BibTeX implementation for the China's -bibliography style standard GB/T 7714—2015. -It consists of two `bst` files for numerical and authoryear styles as well as a +national bibliography style standard GB/T 7714. +It consists of `.bst` files for both numeric and author-date styles as well as a LaTeX package which provides the citation style defined in the standard. It is compatible with `natbib` and supports language detection (Chinese and English) for each biblilography entry. -- Homepage: https://github.com/CTeX-org/gbt7714-bibtex-style +- Homepage: https://github.com/zepinglee/gbt7714-bibtex-style - Maintainer: Zeping Lee - Email: zepinglee AT gmail DOT com - License: LaTeX Project Public License 1.3c or later @@ -24,12 +24,13 @@ and English) for each biblilography entry. ## 简介 -GB/T 7714—2015 《信息与文献\quad 参考文献著录规则》是中国的参考文献推荐标准。 +GB/T 7714—2015 《信息与文献 参考文献著录规则》是中国的参考文献推荐标准。 国内的绝大部分学术期刊、学位论文都使用了基于该标准的格式。 本宏包是国标的 BibTeX 实现,主要有以下特性: -- 兼容 `natbib` -- 支持“顺序编码制”和“著者-出版年制”两种风格 -- 自动识别语言并进行相应处理 -- 提供了简单的接口供用户修改样式 +- 兼容 `natbib` 宏包。 +- 支持“顺序编码制”和“著者-出版年制”两种风格。 +- 自动识别语言并进行相应处理。 +- 提供了简单的接口供用户修改样式。 +- 同时提供了 2005 版的 `.bst` 文件。 ## 版本 v2.0 的重要修改 @@ -43,6 +44,20 @@ GB/T 7714—2015 《信息与文献\quad 参考文献著录规则》是中国的 ## 使用方法 +以下是 \pkg{gbt7714} 宏包的一个简单示例。 +```latex +\begin{latex} + \documentclass{ctexart} + \usepackage{gbt7714} + \bibliographystyle{gbt7714-numerical} + \begin{document} + \cite{...} + ... + \bibliography{bibfile} + \end{document} +\end{latex} +``` + 1. 在导言区调用宏包 `gbt7714`; 2. 在正文中 `\cite` 文献; @@ -90,24 +105,24 @@ GB/T 7714—2015 《信息与文献\quad 参考文献著录规则》是中国的 文献类型 | 标识代码 | Entry Type --- | :---: | --- -普通图书 | M | `book` -图书的析出文献 | M | `incollection` -会议录 | C | `proceedings` -会议录的析出文献 | C | `inproceedings` 或 `conference` -汇编 | G | `collection`\* -报纸 | N | `newspaper`\* -期刊的析出文献 | J | `article` -学位论文 | D | `mastersthesis` 或 `phdthesis` -报告 | R | `techreport` -标准 | S | `standard`\* -专利 | P | `patent`\* -数据库 | DB | `database`\* -计算机程序 | CP | `software`\* -电子公告 | EB | `online`\* -档案 | A | `archive`\* -舆图 | CM | `map`\* -数据集 | DS | `dataset`\* -其他 | Z | `misc` +普通图书 | M | `@book` +图书的析出文献 | M | `@incollection` +会议录 | C | `@proceedings` +会议录的析出文献 | C | `@inproceedings` 或 `@conference` +汇编 | G | `@collection`\* +报纸 | N | `@newspaper`\* +期刊的析出文献 | J | `@article` +学位论文 | D | `@mastersthesis` 或 `@phdthesis` +报告 | R | `@techreport` +标准 | S | `@standard`\* +专利 | P | `@patent`\* +数据库 | DB | `@database`\* +计算机程序 | CP | `@software`\* +电子公告 | EB | `@online`\* +档案 | A | `@archive`\* +舆图 | CM | `@map`\* +数据集 | DS | `@dataset`\* +其他 | Z | `@misc` 注: - 带 “\*” 的类型不是 BibTeX 的标准文献类型。 @@ -130,8 +145,8 @@ GB/T 7714—2015 《信息与文献\quad 参考文献著录规则》是中国的 版本 | `edition` 出版地 | `address` 出版者 | `publisher` -学校(用于phdthesis) | `school` -机构(用于techreport) | `institution` +学校(用于 `phdthesis`) | `school` +机构(用于 `techreport`) | `institution` 出版年 | `year` 卷 | `volume` 期(或者专利号) | `number` diff --git a/Master/texmf-dist/doc/bibtex/gbt7714/gbt7714.pdf b/Master/texmf-dist/doc/bibtex/gbt7714/gbt7714.pdf index 0d029a13c63..30856d73564 100644 Binary files a/Master/texmf-dist/doc/bibtex/gbt7714/gbt7714.pdf and b/Master/texmf-dist/doc/bibtex/gbt7714/gbt7714.pdf differ diff --git a/Master/texmf-dist/source/bibtex/gbt7714/gbt7714.dtx b/Master/texmf-dist/source/bibtex/gbt7714/gbt7714.dtx deleted file mode 100644 index fa0e99aae5e..00000000000 --- a/Master/texmf-dist/source/bibtex/gbt7714/gbt7714.dtx +++ /dev/null @@ -1,4672 +0,0 @@ -% \iffalse meta-comment -% GB/T 7714—2015 BibTeX Style -% https://github.com/CTeX-org/gbt7714-bibtex-style -% -% Copyright (C) 2016—2021 by Zeping Lee -% -% This file may be distributed and/or modified under the -% conditions of the LaTeX Project Public License, either version 1.3c -% of this license or (at your option) any later version. -% The latest version of this license is in -% https://www.latex-project.org/lppl.txt -% and version 1.3c or later is part of all distributions of LaTeX -% version 2008 or later. -% -% \fi -% -% \iffalse -%\NeedsTeXFormat{LaTeX2e}[1999/12/01] -%\ProvidesPackage{gbt7714} -% [2021/06/20 v2.1.2 GB/T 7714—2015 BibTeX Style] -% -%<*driver> -\documentclass[a4paper]{ltxdoc} -\usepackage{hypdoc} -\usepackage[UTF8]{ctex} -\usepackage{caption} -\usepackage{booktabs} -\usepackage{gbt7714} -\usepackage{listings} -\makeatletter -\hypersetup{allcolors=blue} -\IfFileExists{/System/Library/Fonts/Times.ttc}{ - \setmainfont{Times} - \setsansfont[Scale=MatchLowercase]{Helvetica} - \setmonofont[Scale=MatchLowercase]{Menlo} -}{} -\citestyle{super} -\lstnewenvironment{latex}{% - \lstset{ - basicstyle = \ttfamily\small, - language = [LaTeX]TeX, - gobble = 4, - frame = single, - }% -}{} -\lstnewenvironment{pseudocode}{% - \lstset{ - basicstyle=\ttfamily\small, - language=bash, - gobble=2, - frame=single, - }% -}{} -\DeclareRobustCommand\file{\nolinkurl} -\DeclareRobustCommand\env{\texttt} -\DeclareRobustCommand\pkg{\textsf} -\DeclareRobustCommand\cls{\textsf} -\DeclareRobustCommand\opt{\texttt} -\setlength\partopsep{\z@} -\def\@listi{\leftmargin\leftmargini - \parsep \z@ - \topsep 5\p@ \@plus2\p@ \@minus3\p@ - \itemsep\z@} -\let\@listI\@listi -\@listi -\makeatother -\EnableCrossrefs -\CodelineIndex -% \OnlyDescription - -\begin{document} - \DocInput{\jobname.dtx} -\end{document} -% -% \fi -% -% -% -% \GetFileInfo{gbt7714.sty} -% -% \title{GB/T 7714—2015 \BibTeX{} style} -% \author{Zeping Lee\thanks{zepinglee AT gmail.com}} -% \date{\filedate\qquad\fileversion} -% \maketitle -% -% -% -% \begin{abstract} -% The \pkg{gbt7714} package provides a \BibTeX{} implementation for the China's -% bibliography style standard GB/T 7714—2015. -% It consists of two bst files for numerical and authoryear styles as well as a -% \LaTeX{} package which provides the citation style defined in the standard. -% It is compatible with \pkg{natbib} and supports language detection (Chinese -% and English) for each biblilography entry. -% \end{abstract} -% -% \section{简介} -% -% GB/T 7714—2015 《信息与文献\quad 参考文献著录规则》\cite{gbt77142015} -% (以下简称“国标”)是中国的参考文献推荐标准。 -% 本宏包是国标的 \BibTeX{}\cite{bibtex} 实现,具有以下特性: -% \begin{itemize} -% \item 兼容 \pkg{natbib} 宏包\cite{natbib} -% \item 支持顺序编码制和著者-出版年制两种风格 -% \item 自动识别语言并进行相应处理 -% \item 提供了简单的接口供用户修改样式 -% \end{itemize} -% 本宏包的主页:\url{https://github.com/CTeX-org/gbt7714-bibtex-style}。 -% -% -% \section{版本 v2.0 的重要修改} -% -% 从 v2.0 版本开始(2020-03-04),用户必须在文档中使用 \cs{biblilographystyle} 命令选择参考文献样式, -% 如 \opt{gbt7714-numerical} 或 \opt{gbt7714-author-year}。 -% 在早期的版本中,选择文献样式的方法是将 \opt{numbers} 或 \opt{super} 等参数传递给 -% \pkg{gbt7714}, -% 而不能使用 \cs{bibliographystyle}。 -% 这跟标准的 LaTeX 接口不一致,所以将被弃用。 -% -% -% \section{使用方法} -% -% 按照国标的规定,参考文献的标注体系分为“顺序编码制”和 -% “著者-出版年制”。 -% 用户应在导言区调用宏包 \pkg{gbt7714},并且使用 \cs{bibliographystyle} -% 命令选择参考文献表的样式,比如: -% \begin{latex} -% \bibliographystyle{gbt7714-numerical} % 顺序编码制 -% \end{latex} -% 或者 -% \begin{latex} -% \bibliographystyle{gbt7714-author-year} % 著者-出版年制 -% \end{latex} -% -% 注意,版本 v2.0 更改了设置参考文献表样式的方法, -% 要求直接使用 \cs{bibliographystyle},不再使用宏包的参数, -% 而且更改了 \file{bst} 的文件名。 -% -% 顺序编码制的引用标注默认使用角标式, -% 如“张三\textsuperscript{[2]}提出”。 -% 如果要使用正文模式,如“文献 [3] 中说明”, -% 可以使用 \cs{citestyle} 命令进行切换: -% \begin{latex} -% \citestyle{numbers} -% \end{latex} -% -% 同一处引用多篇文献时,应当将各篇文献的 key 一同写在 \cs{cite} 命令中。 -% 如遇连续编号,默认会自动转为起讫序号并用短横线连接 -% (见\pkg{natbib} 的 \opt{compress} 选项)。 -% 如果要对引用的编号进行自动排序,需要在调用 \pkg{gbt7714} 时加 -% \opt{sort\&compress} 参数: -% \begin{latex} -% \usepackage[sort&compress]{gbt7714} -% \end{latex} -% 这些参数会传给 \pkg{natbib} 处理。 -% -% 若需要标出引文的页码,可以标在 \cs{cite} 的可选参数中,如 -% |\cite[42]{knuth84}|。 -% 更多的引用标注方法可以参考 \pkg{natbib} 宏包的使用说明\cite{natbib}。 -% -% 使用时需要注意以下几点: -% \begin{itemize} -% \item \file{.bib} 数据库应使用 UTF-8 编码。 -% \item 使用著者-出版年制参考文献表时,中文的文献\emph{必须} -% 在 key 域填写作者姓名的拼音,才能按照拼音排序, -% 详见第~\ref{sec:sort}~节。 -% \end{itemize} -% -% -% \section{文献类型} -% -% 国标中规定了 16 种参考文献类型, -% 表~\ref{tab:entry-types} 列举了 \file{bib} 数据库中对应的文献类型。 -% 这些尽可能兼容 \BibTeX{} 的标准类型,但是新增了若干文献类型(带 * 号)。 -% -% \begin{table}[htb] -% \centering\small -% \caption{全部文献类型} -% \label{tab:entry-types} -% \begin{tabular}{lcl} -% \toprule -% 文献类型 & 标识代码 & Entry Type \\ -% \midrule -% 普通图书 & M & book \\ -% 图书的析出文献 & M & incollection \\ -% 会议录 & C & proceedings \\ -% 会议录的析出文献 & C & inproceedings 或 conference \\ -% 汇编 & G & collection* \\ -% 报纸 & N & newspaper* \\ -% 期刊的析出文献 & J & article \\ -% 学位论文 & D & mastersthesis 或 phdthesis \\ -% 报告 & R & techreport \\ -% 标准 & S & standard* \\ -% 专利 & P & patent* \\ -% 数据库 & DB & database* \\ -% 计算机程序 & CP & software* \\ -% 电子公告 & EB & online* \\ -% 档案 & A & archive* \\ -% 舆图 & CM & map* \\ -% 数据集 & DS & dataset* \\ -% 其他 & Z & misc \\ -% \bottomrule -% \end{tabular} -% \end{table} -% -% -% \section{著录项目} -% -% 由于国标中规定的著录项目多于 \BibTeX{} 的标准域, -% 必须新增一些著录项目(带 * 号), -% 这些新增的类型在设计时参考了 BibLaTeX,如 date 和 urldate。 -% 本宏包支持的全部域如下: -% \begin{description} -% \item[author] 主要责任者 -% \item[title] 题名 -% \item[mark*] 文献类型标识 -% \item[medium*] 载体类型标识 -% \item[translator*] 译者 -% \item[editor] 编辑 -% \item[organization] 组织(用于会议) -% \item[booktitle] 图书题名 -% \item[series] 系列 -% \item[journal] 期刊题名 -% \item[edition] 版本 -% \item[address] 出版地 -% \item[publisher] 出版者 -% \item[school] 学校(用于phdthesis) -% \item[institution] 机构(用于techreport) -% \item[year] 出版年 -% \item[volume] 卷 -% \item[number] 期(或者专利号) -% \item[pages] 引文页码 -% \item[date*] 更新或修改日期 -% \item[urldate*] 引用日期 -% \item[url] 获取和访问路径 -% \item[doi] 数字对象唯一标识符 -% \item[langid*] 语言 -% \item[key] 拼音(用于排序) -% \end{description} -% 不支持的 \BibTeX{} 标准著录项目有 annote, chapter, crossref, month, type。 -% -% 本宏包默认情况下可以自动识别文献语言,并自动处理文献类型和载体类型标识, -% 但是在少数情况下需要用户手动指定,如: -% \begin{latex} -% @misc{citekey, -% langid = {japanese}, -% mark = {Z}, -% medium = {DK}, -% ... -% } -% \end{latex} -% 可选的语言有 english, chinese, japanese, russian。 -% -% -% \section{文献列表的排序} -% \label{sec:sort} -% -% 国标规定参考文献表采用著者-出版年制组织时,各篇文献首先按文种集中, -% 然后按著者字顺和出版年排列; -% 中文文献可以按著者汉语拼音字顺排列,也可以按著者的笔画笔顺排列。 -% 然而由于 \BibTeX{} 功能的局限性,无法自动获取著者姓名的拼音或笔画笔顺, -% 所以\emph{必须}在 bib 数据库中的 key 域手动录入著者姓名的拼音,如: -% \begin{latex} -% @book{capital, -% author = {马克思 and 恩格斯}, -% key = {ma3 ke4 si1 & en1 ge2 si1}, -% ... -% } -% \end{latex} -% -% -% \section{自定义样式} -% -% \BibTeX{} 对自定义样式的支持比较有限, -% 所以用户只能通过修改 \file{bst} 文件来修改文献列表的格式。 -% 本宏包提供了一些接口供用户更方便地修改。 -% -% 在 \file{bst} 文件开始处的 |load.config| 函数中, -% 有一组配置参数用来控制样式,表~\ref{tab:config} 列出了每一项的默认值和功能。 -% 若变量被设为 |#1| 则表示该项被启用,设为 |#0| 则不启用。 -% 默认的值是严格遵循国标的配置。 -% -% \begin{table}[htb] -% \centering\small -% \caption{参考文献表样式的配置参数} -% \label{tab:config} -% \begin{tabular}{lcl} -% \toprule -% 参数值 & 默认值 & 功能 \\ -% \midrule -% uppercase.name & |#1| & 将著者姓名转为大写 \\ -% max.num.authors & |#3| & 输出著者的最多数量 \\ -% year.after.author & |#0| & 年份置于著者之后 \\ -% period.after.author & |#0| & 著者和年份之间使用句点连接 \\ -% italic.book.title & |#0| & 西文书籍名使用斜体 \\ -% sentence.case.title & |#1| & 将西文的题名转为 sentence case \\ -% link.title & |#0| & 在题名上添加 url 的超链接 \\ -% title.in.journal & |#1| & 期刊是否显示标题 \\ -% space.before.mark & |#0| & 文献类型标识前是否有空格 \\ -% show.mark & |#1| & 显示文献类型标识 \\ -% show.medium.type & |#1| & 显示载体类型标识 \\ -% italic.journal & |#0| & 西文期刊名使用斜体 \\ -% show.missing.address.publisher & |#0| & 出版项缺失时显示“出版者不详” \\ -% space.before.pages & |#1| & 页码与前面的冒号之间有空格 \\ -% only.start.page & |#0| & 只显示起始页码 \\ -% wave.dash.in.pages & |#0| & 起止页码使用波浪号 \\ -% show.urldate & |#1| & 显示引用日期 urldate \\ -% show.url & |#1| & 显示 url \\ -% show.doi & |#1| & 显示 DOI \\ -% show.preprint & |#0| & 显示预印本信息 \\ -% show.note & |#0| & 显示 note 域的信息 \\ -% end.with.period & |#1| & 结尾加句点 \\ -% \bottomrule -% \end{tabular} -% \end{table} -% -% 若用户需要定制更多内容,可以学习 \file{bst} 文件的语法并修改 -% \cite{btxhak,ttb,tlc2},或者联系作者。 -% -% -% \section{相关工作} -% -% TeX 社区也有其他关于 GB/T 7714 系列参考文献标准的工作。 -% 2005 年吴凯\cite{wk2006}发布了基于 GB/T 7714—2005 的 \BibTeX{} 样式, -% 支持顺序编码制和著者出版年制两种风格。 -% 李志奇\cite{lqz2013}发布了严格遵循 GB/T 7714—2005 的 BibLaTeX 的样式。 -% 胡海星\cite{hhx2013}提供了另一个 \BibTeX{} 实现, -% 还给每行 bst 代码写了 java 语言注释。 -% 沈周\cite{sz2016}基于 \pkg{biblatex-caspervector}\cite{vector2012} 进行修改, -% 以符合国标的格式。 -% 胡振震发布了符合 GB/T 7714—2015 标准的 BibLaTeX 参考文献样式\cite{hzz2016}, -% 并进行了比较完善的持续维护。 -% -% -% \begin{thebibliography}{12} -% \providecommand{\natexlab}[1]{#1} -% \providecommand{\url}[1]{#1} -% \expandafter\ifx\csname urlstyle\endcsname\relax\relax\else -% \urlstyle{same}\fi -% \providecommand{\href}[2]{\url{#2}} -% \providecommand{\doi}[1]{\href{https://doi.org/#1}{#1}} -% -% \bibitem[{中国国家标准化委员会}(2015)]{gbt77142015} -% {中国国家标准化委员会}. -% \newblock 信息与文献\quad 参考文献著录规则: GB/T -% 7714—2015[S]. -% \newblock 北京: 中国标准出版社, 2015. -% -% \bibitem[Patashnik(1988{\natexlab{a}})]{bibtex} -% PATASHNIK~O. -% \newblock {\BibTeX}ing[M/OL]. -% \newblock 1988{\natexlab{a}}. -% \newblock \url{http://mirrors.ctan.org/biblio/bibtex/base/btxdoc.pdf}. -% -% \bibitem[Daly(1999)]{natbib} -% DALY~P~W. -% \newblock Natural sciences citations and references[M/OL]. -% \newblock 1999. -% \newblock \url{http://mirrors.ctan.org/macros/latex/contrib/natbib/natbib.pdf}. -% -% \bibitem[Patashnik(1988{\natexlab{b}})]{btxhak} -% PATASHNIK~O. -% \newblock Designing {\BibTeX} styles[M/OL]. -% \newblock 1988{\natexlab{b}}. -% \newblock \url{http://mirrors.ctan.org/biblio/bibtex/base/btxhak.pdf}. -% -% \bibitem[Markey(2003)]{ttb} -% MARKEY~N. -% \newblock Tame the beast[M/OL]. -% \newblock 2003. -% \newblock \url{http://mirrors.ctan.org/info/bibtex/tamethebeast/ttb_en.pdf}. -% -% \bibitem[Mittelbach et~al.(2004)Mittelbach, Goossens, Braams, Carlisle, and -% Rowley]{tlc2} -% MITTELBACH~F, GOOSSENS~M, BRAAMS~J, et~al. -% \newblock The {\LaTeX} companion[M]. -% \newblock 2nd ed. -% \newblock Reading, MA, USA: Addison-Wesley, 2004. -% -% \bibitem[吴凯(2006)]{wk2006} -% 吴凯. -% \newblock 发布GBT7714-2005.bst version1 Beta版[EB/OL]. -% \newblock 2006. -% \newblock CTeX 论坛(已关闭). -% -% \bibitem[李志奇(2013)]{lqz2013} -% 李志奇. -% \newblock -% 基于biblatex的符合GBT7714—2005的中文文献生成工具[EB/OL]. -% \newblock 2013. -% \newblock CTeX 论坛(已关闭). -% -% \bibitem[胡海星(2013)]{hhx2013} -% 胡海星. -% \newblock A GB/T 7714—2005 national standard compliant BibTeX -% style[EB/OL]. -% \newblock 2013. -% \newblock \url{https://github.com/Haixing-Hu/GBT7714-2005-BibTeX-Style}. -% -% \bibitem[沈周(2016)]{sz2016} -% 沈周. -% \newblock 基于caspervector改写的符合GB/T -% 7714—2005标准的参考文献格式[EB/OL]. -% \newblock 2016. -% \newblock \url{https://github.com/szsdk/biblatex-gbt77142005}. -% -% \bibitem[Vector(2012)]{vector2012} -% VECTOR~C~T. -% \newblock biblatex 参考文献和引用样式: caspervector[M/OL]. -% \newblock 2012. -% \newblock -% \url{http://mirrors.ctan.org/macros/latex/contrib/biblatex-contrib/biblatex-caspervector/doc/caspervector.pdf}. -% -% \bibitem[胡振震(2016)]{hzz2016} -% 胡振震. -% \newblock 符合 GB/T 7714—2015 标准的 biblatex -% 参考文献样式[M/OL]. -% \newblock 2016. -% \newblock -% \url{http://mirrors.ctan.org/macros/latex/contrib/biblatex-contrib/biblatex-gb7714-2015/biblatex-gb7714-2015.pdf}. -% -% \end{thebibliography} -% -% -% -% -% \clearpage -% \appendix -% \StopEventually{} -% -% \section{宏包的代码实现} -% -% 兼容过时的接口 -% \begin{macrocode} -%<*package> -\newif\ifgbt@legacy@interface -\newif\ifgbt@mmxv -\newif\ifgbt@numerical -\newif\ifgbt@super -\newcommand\gbt@obsolete@option[1]{% - \PackageWarning{gbt7714}{The option "#1" is obsolete}% -} -\DeclareOption{2015}{% - \gbt@obsolete@option{2015}% - \gbt@legacy@interfacetrue - \gbt@mmxvtrue -} -\DeclareOption{2005}{% - \gbt@obsolete@option{2005}% - \gbt@legacy@interfacetrue - \gbt@mmxvfalse -} -\DeclareOption{super}{% - \gbt@obsolete@option{super}% - \gbt@legacy@interfacetrue - \gbt@numericaltrue - \gbt@supertrue -} -\DeclareOption{numbers}{% - \gbt@obsolete@option{numbers}% - \gbt@legacy@interfacetrue - \gbt@numericaltrue - \gbt@superfalse -} -\DeclareOption{authoryear}{% - \gbt@obsolete@option{authoryear}% - \gbt@legacy@interfacetrue - \gbt@numericalfalse -} -% \end{macrocode} -% -% 将选项传递给 \pkg{natbib} -% \begin{macrocode} -\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{natbib}} -\ProcessOptions\relax -% \end{macrocode} -% -% 调用宏包,注意只需要 \opt{compress} 不需要 \opt{sort}。 -% \begin{macrocode} -\RequirePackage{natbib} -\RequirePackage{url} -% \end{macrocode} -% -% 如果将 \opt{compress} 传给 \pkg{natbib} 容易导致 option clash。 -% 这里直接修改内部命令。 -% \begin{macrocode} -\def\NAT@cmprs{\@ne} -% \end{macrocode} -% -% \begin{macro}{\citestyle} -% 定义接口切换引用文献的标注法,可用 \cs{citestyle} 调用 \opt{numerical} -% 或 \opt{authoryear},参见 \pkg{natbib}。 -% \begin{macrocode} -\renewcommand\newblock{\space} -\newcommand\bibstyle@super{\bibpunct{[}{]}{,}{s}{,}{\textsuperscript{,}}} -\newcommand\bibstyle@numbers{\bibpunct{[}{]}{,}{n}{,}{,}} -\newcommand\bibstyle@authoryear{\bibpunct{(}{)}{;}{a}{,}{,}} -\newcommand\bibstyle@inline{\bibstyle@numbers} -% \end{macrocode} -% \end{macro} -% -% 在使用 \cs{bibliographystyle} 时自动切换引用文献的标注的样式。 -% \begin{macrocode} -\@namedef{bibstyle@gbt7714-numerical}{\bibstyle@super} -\@namedef{bibstyle@gbt7714-author-year}{\bibstyle@authoryear} -\@namedef{bibstyle@gbt7714-2005-numerical}{\bibstyle@super} -\@namedef{bibstyle@gbt7714-2005-author-year}{\bibstyle@authoryear} -% \end{macrocode} -% -% \begin{macro}{\cite} -% 下面修改 \pkg{natbib} 的引用格式。 -% 为了减少依赖的宏包,这里直接重定义命令不使用 \cs{patchcmd}。 -% -% Super 样式的 \cs{citep} 的页码也为上标。 -% 另外加上 |\kern\p@| 去掉上标式引用后与中文之间多余的空格, -% 参考 \href{https://github.com/tuna/thuthesis/issues/624}{tuna/thuthesis\#624}。 -% \begin{macrocode} -\renewcommand\NAT@citesuper[3]{% - \ifNAT@swa - \if*#2*\else - #2\NAT@spacechar - \fi - % \unskip\kern\p@\textsuperscript{\NAT@@open#1\NAT@@close}% - % \if*#3*\else\NAT@spacechar#3\fi\else #1\fi\endgroup} - \unskip\kern\p@ - \textsuperscript{% - \NAT@@open - #1% - \NAT@@close - \if*#3*\else - #3% - \fi - }% - \kern\p@ - \else - #1% - \fi - \endgroup -} -% \end{macrocode} -% -% 将 numbers 样式的 \cs{citep} 的页码置于括号外。 -% \begin{macrocode} -\renewcommand\NAT@citenum[3]{% - \ifNAT@swa - \NAT@@open - \if*#2*\else - #2\NAT@spacechar - \fi - % #1\if*#3*\else\NAT@cmt#3\fi\NAT@@close\else#1\fi\endgroup} - #1\NAT@@close - \if*#3*\else - \textsuperscript{#3}% - \fi - \else - #1% - \fi - \endgroup -} -% \end{macrocode} -% -% Numerical 模式的 \cs{citet} 的页码: -% \begin{macrocode} -\def\NAT@citexnum[#1][#2]#3{% - \NAT@reset@parser - \NAT@sort@cites{#3}% - \NAT@reset@citea - \@cite{\def\NAT@num{-1}\let\NAT@last@yr\relax\let\NAT@nm\@empty - \@for\@citeb:=\NAT@cite@list\do - {\@safe@activestrue - \edef\@citeb{\expandafter\@firstofone\@citeb\@empty}% - \@safe@activesfalse - \@ifundefined{b@\@citeb\@extra@b@citeb}{% - {\reset@font\bfseries?} - \NAT@citeundefined\PackageWarning{natbib}% - {Citation `\@citeb' on page \thepage \space undefined}}% - {\let\NAT@last@num\NAT@num\let\NAT@last@nm\NAT@nm - \NAT@parse{\@citeb}% - \ifNAT@longnames\@ifundefined{bv@\@citeb\@extra@b@citeb}{% - \let\NAT@name=\NAT@all@names - \global\@namedef{bv@\@citeb\@extra@b@citeb}{}}{}% - \fi - \ifNAT@full\let\NAT@nm\NAT@all@names\else - \let\NAT@nm\NAT@name\fi - \ifNAT@swa - \@ifnum{\NAT@ctype>\@ne}{% - \@citea - \NAT@hyper@{\@ifnum{\NAT@ctype=\tw@}{\NAT@test{\NAT@ctype}}{\NAT@alias}}% - }{% - \@ifnum{\NAT@cmprs>\z@}{% - \NAT@ifcat@num\NAT@num - {\let\NAT@nm=\NAT@num}% - {\def\NAT@nm{-2}}% - \NAT@ifcat@num\NAT@last@num - {\@tempcnta=\NAT@last@num\relax}% - {\@tempcnta\m@ne}% - \@ifnum{\NAT@nm=\@tempcnta}{% - \@ifnum{\NAT@merge>\@ne}{}{\NAT@last@yr@mbox}% - }{% - \advance\@tempcnta by\@ne - \@ifnum{\NAT@nm=\@tempcnta}{% -% \end{macrocode} -% -% 在顺序编码制下,\pkg{natbib} 只有在三个以上连续文献引用才会使用连接号, -% 这里修改为允许两个引用使用连接号。 -% \begin{macrocode} - % \ifx\NAT@last@yr\relax - % \def@NAT@last@yr{\@citea}% - % \else - % \def@NAT@last@yr{--\NAT@penalty}% - % \fi - \def@NAT@last@yr{-\NAT@penalty}% - }{% - \NAT@last@yr@mbox - }% - }% - }{% - \@tempswatrue - \@ifnum{\NAT@merge>\@ne}{\@ifnum{\NAT@last@num=\NAT@num\relax}{\@tempswafalse}{}}{}% - \if@tempswa\NAT@citea@mbox\fi - }% - }% - \NAT@def@citea - \else - \ifcase\NAT@ctype - \ifx\NAT@last@nm\NAT@nm \NAT@yrsep\NAT@penalty\NAT@space\else - \@citea \NAT@test{\@ne}\NAT@spacechar\NAT@mbox{\NAT@super@kern\NAT@@open}% - \fi - \if*#1*\else#1\NAT@spacechar\fi - \NAT@mbox{\NAT@hyper@{{\citenumfont{\NAT@num}}}}% - \NAT@def@citea@box - \or - \NAT@hyper@citea@space{\NAT@test{\NAT@ctype}}% - \or - \NAT@hyper@citea@space{\NAT@test{\NAT@ctype}}% - \or - \NAT@hyper@citea@space\NAT@alias - \fi - \fi - }% - }% - \@ifnum{\NAT@cmprs>\z@}{\NAT@last@yr}{}% - \ifNAT@swa\else -% \end{macrocode} -% -% 将页码放在括号外边,并且置于上标。 -% \begin{macrocode} - % \@ifnum{\NAT@ctype=\z@}{% - % \if*#2*\else\NAT@cmt#2\fi - % }{}% - \NAT@mbox{\NAT@@close}% - \@ifnum{\NAT@ctype=\z@}{% - \if*#2*\else - \textsuperscript{#2}% - \fi - }{}% - \NAT@super@kern - \fi - }{#1}{#2}% -}% -% \end{macrocode} -% -% Author-year 模式的 \cs{citep} 的页码: -% \begin{macrocode} -\renewcommand\NAT@cite% - [3]{\ifNAT@swa\NAT@@open\if*#2*\else#2\NAT@spacechar\fi - #1\NAT@@close\if*#3*\else\textsuperscript{#3}\fi\else#1\fi\endgroup} -% \end{macrocode} -% \end{macro} -% -% Author-year 模式的 \cs{citet} 的页码: -% \begin{macrocode} -\def\NAT@citex% - [#1][#2]#3{% - \NAT@reset@parser - \NAT@sort@cites{#3}% - \NAT@reset@citea - \@cite{\let\NAT@nm\@empty\let\NAT@year\@empty - \@for\@citeb:=\NAT@cite@list\do - {\@safe@activestrue - \edef\@citeb{\expandafter\@firstofone\@citeb\@empty}% - \@safe@activesfalse - \@ifundefined{b@\@citeb\@extra@b@citeb}{\@citea% - {\reset@font\bfseries ?}\NAT@citeundefined - \PackageWarning{natbib}% - {Citation `\@citeb' on page \thepage \space undefined}\def\NAT@date{}}% - {\let\NAT@last@nm=\NAT@nm\let\NAT@last@yr=\NAT@year - \NAT@parse{\@citeb}% - \ifNAT@longnames\@ifundefined{bv@\@citeb\@extra@b@citeb}{% - \let\NAT@name=\NAT@all@names - \global\@namedef{bv@\@citeb\@extra@b@citeb}{}}{}% - \fi - \ifNAT@full\let\NAT@nm\NAT@all@names\else - \let\NAT@nm\NAT@name\fi - \ifNAT@swa\ifcase\NAT@ctype - \if\relax\NAT@date\relax - \@citea\NAT@hyper@{\NAT@nmfmt{\NAT@nm}\NAT@date}% - \else - \ifx\NAT@last@nm\NAT@nm\NAT@yrsep - \ifx\NAT@last@yr\NAT@year - \def\NAT@temp{{?}}% - \ifx\NAT@temp\NAT@exlab\PackageWarningNoLine{natbib}% - {Multiple citation on page \thepage: same authors and - year\MessageBreak without distinguishing extra - letter,\MessageBreak appears as question mark}\fi - \NAT@hyper@{\NAT@exlab}% - \else\unskip\NAT@spacechar - \NAT@hyper@{\NAT@date}% - \fi - \else - \@citea\NAT@hyper@{% - \NAT@nmfmt{\NAT@nm}% - \hyper@natlinkbreak{% - \NAT@aysep\NAT@spacechar}{\@citeb\@extra@b@citeb - }% - \NAT@date - }% - \fi - \fi - \or\@citea\NAT@hyper@{\NAT@nmfmt{\NAT@nm}}% - \or\@citea\NAT@hyper@{\NAT@date}% - \or\@citea\NAT@hyper@{\NAT@alias}% - \fi \NAT@def@citea - \else - \ifcase\NAT@ctype - \if\relax\NAT@date\relax - \@citea\NAT@hyper@{\NAT@nmfmt{\NAT@nm}}% - \else - \ifx\NAT@last@nm\NAT@nm\NAT@yrsep - \ifx\NAT@last@yr\NAT@year - \def\NAT@temp{{?}}% - \ifx\NAT@temp\NAT@exlab\PackageWarningNoLine{natbib}% - {Multiple citation on page \thepage: same authors and - year\MessageBreak without distinguishing extra - letter,\MessageBreak appears as question mark}\fi - \NAT@hyper@{\NAT@exlab}% - \else - \unskip\NAT@spacechar - \NAT@hyper@{\NAT@date}% - \fi - \else - \@citea\NAT@hyper@{% - \NAT@nmfmt{\NAT@nm}% - \hyper@natlinkbreak{\NAT@spacechar\NAT@@open\if*#1*\else#1\NAT@spacechar\fi}% - {\@citeb\@extra@b@citeb}% - \NAT@date - }% - \fi - \fi - \or\@citea\NAT@hyper@{\NAT@nmfmt{\NAT@nm}}% - \or\@citea\NAT@hyper@{\NAT@date}% - \or\@citea\NAT@hyper@{\NAT@alias}% - \fi - \if\relax\NAT@date\relax - \NAT@def@citea - \else - \NAT@def@citea@close - \fi - \fi - }}\ifNAT@swa\else -% \end{macrocode} -% -% 将页码放在括号外边,并且置于上标。 -% \begin{macrocode} - % \if*#2*\else\NAT@cmt#2\fi - \if\relax\NAT@date\relax\else\NAT@@close\fi - \if*#2*\else\textsuperscript{#2}\fi - \fi}{#1}{#2}} -% \end{macrocode} -% -% \begin{environment}{thebibliography} -% 参考文献列表的标签左对齐 -% \begin{macrocode} -\renewcommand\@biblabel[1]{[#1]\hfill} -% \end{macrocode} -% \end{environment} -% -% \begin{macro}{\url} -% 使用 \pkg{xurl} 宏包的方法,增加 URL 可断行的位置。 -% \begin{macrocode} -\g@addto@macro\UrlBreaks{% - \do0\do1\do2\do3\do4\do5\do6\do7\do8\do9% - \do\A\do\B\do\C\do\D\do\E\do\F\do\G\do\H\do\I\do\J\do\K\do\L\do\M - \do\N\do\O\do\P\do\Q\do\R\do\S\do\T\do\U\do\V\do\W\do\X\do\Y\do\Z - \do\a\do\b\do\c\do\d\do\e\do\f\do\g\do\h\do\i\do\j\do\k\do\l\do\m - \do\n\do\o\do\p\do\q\do\r\do\s\do\t\do\u\do\v\do\w\do\x\do\y\do\z -} -\Urlmuskip=0mu plus 0.1mu -% \end{macrocode} -% \end{macro} -% -% 兼容 v2.0 前过时的接口: -% \begin{macrocode} -\newif\ifgbt@bib@style@written -\@ifpackageloaded{chapterbib}{}{% - \def\bibliography#1{% - \ifgbt@bib@style@written\else - \bibliographystyle{gbt7714-numerical}% - \fi - \if@filesw - \immediate\write\@auxout{\string\bibdata{\zap@space#1 \@empty}}% - \fi - \@input@{\jobname.bbl}} - \def\bibliographystyle#1{% - \gbt@bib@style@writtentrue - \ifx\@begindocumenthook\@undefined\else - \expandafter\AtBeginDocument - \fi - {\if@filesw - \immediate\write\@auxout{\string\bibstyle{#1}}% - \fi}% - }% -} -\ifgbt@legacy@interface - \ifgbt@numerical - \ifgbt@super\else - \citestyle{numbers} - \fi - \bibliographystyle{gbt7714-numerical} - \else - \bibliographystyle{gbt7714-author-year} - \fi -\fi -% -% \end{macrocode} -% -% -% -% \section{BibTeX 样式的代码实现} -% \label{bst-implementation} -% \linespread{1} -% -% \subsection{自定义选项} -% \label{sec:options} -% -% \begin{environment}{bst} -% 这里定义了一些变量用于定制样式, -% 可以在下面的 |load.config| 函数中选择是否启用。 -% \begin{macrocode} -%<*author-year|numerical> -INTEGERS { - citation.et.al.min - citation.et.al.use.first - bibliography.et.al.min - bibliography.et.al.use.first - uppercase.name - terms.in.macro - year.after.author - period.after.author - italic.book.title - sentence.case.title - link.title - title.in.journal - show.mark - space.before.mark - show.medium.type - slash.for.extraction - in.booktitle - short.journal - italic.journal - bold.journal.volume - show.missing.address.publisher - space.before.pages - only.start.page - wave.dash.in.pages - show.urldate - show.url - show.doi - show.preprint - show.note - show.english.translation - end.with.period -%<*author-year> - lang.zh.order - lang.ja.order - lang.en.order - lang.ru.order - lang.other.order -% -} - -% \end{macrocode} -% -% 下面每个变量若被设为 |#1| 则启用该项,若被设为 |#0| 则不启用。 -% 默认的值是严格遵循国标的配置。 -% \begin{macrocode} -FUNCTION {load.config} -{ -% \end{macrocode} -% -% 如果姓名的数量大于等于 |et.al.min|,只著录前 |et.al.use.first| 个, -% 其后加“et al.”或“等”。 -% \begin{macrocode} -%<*!ucas> - #2 'citation.et.al.min := - #1 'citation.et.al.use.first := -% -%<*ucas> - #3 'citation.et.al.min := - #1 'citation.et.al.use.first := -% - #4 'bibliography.et.al.min := - #3 'bibliography.et.al.use.first := -% \end{macrocode} -% -% 英文姓名转为全大写: -% \begin{macrocode} -%<*!(no-uppercase|thu)> - #1 'uppercase.name := -% -%<*no-uppercase|thu> - #0 'uppercase.name := -% -% \end{macrocode} -% -% 使用 TeX 宏输出“和”、“等” -% \begin{macrocode} -%<*!(macro|ucas)> - #0 'terms.in.macro := -% -%<*macro|ucas> - #1 'terms.in.macro := -% -% \end{macrocode} -% -% 将年份置于著者后面(著者-出版年制默认) -% \begin{macrocode} -%<*numerical|ucas> - #0 'year.after.author := -% -%<*author-year&!ucas> - #1 'year.after.author := -% -% \end{macrocode} -% -% 采用著者-出版年制时,作者姓名与年份之间使用句点连接: -% \begin{macrocode} -%<*numerical> - #1 'period.after.author := -% -%<*author-year> -%<*2015&!(period|ustc)> - #0 'period.after.author := -% -%<*period|2005|ustc> - #1 'period.after.author := -% -% -% \end{macrocode} -% -% 书名使用斜体: -% \begin{macrocode} -%<*!italic-book-title> - #0 'italic.book.title := -% -%<*italic-book-title> - #1 'italic.book.title := -% -% \end{macrocode} -% -% 英文标题转为 sentence case (句首字母大写,其余小写): -% \begin{macrocode} -%<*!no-sentence-case> - #1 'sentence.case.title := -% -%<*no-sentence-case> - #0 'sentence.case.title := -% -% \end{macrocode} -% -% 在标题添加超链接: -% \begin{macrocode} -%<*!link-title> - #0 'link.title := -% -%<*link-title> - #1 'link.title := -% -% \end{macrocode} -% -% 期刊是否含标题: -% \begin{macrocode} -%<*!no-title-in-journal> - #1 'title.in.journal := -% -%<*no-title-in-journal> - #0 'title.in.journal := -% -% \end{macrocode} -% -% 著录文献类型标识(比如“[M/OL]“): -% \begin{macrocode} -%<*!no-mark> - #1 'show.mark := -% -%<*no-mark> - #0 'show.mark := -% -% \end{macrocode} -% -% 文献类型标识前是否有空格: -% \begin{macrocode} -%<*!space-before-mark> - #0 'space.before.mark := -% -%<*space-before-mark> - #1 'space.before.mark := -% -% \end{macrocode} -% -% 是否显示载体类型标识(比如“/OL“): -% \begin{macrocode} -%<*!no-medium-type> - #1 'show.medium.type := -% -%<*no-medium-type> - #0 'show.medium.type := -% -% \end{macrocode} -% -% 使用“//”表示析出文献 -% \begin{macrocode} -%<*!no-slash> - #1 'slash.for.extraction := -% -%<*no-slash> - #0 'slash.for.extraction := -% -% \end{macrocode} -% -% 使用“In:”表示析出文献 -% \begin{macrocode} - #0 'in.booktitle := -% \end{macrocode} -% -% 期刊名使用缩写: -% \begin{macrocode} -%<*!short-journal> - #0 'short.journal := -% -%<*short-journal> - #1 'short.journal := -% -% \end{macrocode} -% -% 期刊名使用斜体: -% \begin{macrocode} -%<*!italic-journal> - #0 'italic.journal := -% -%<*italic-journal> - #1 'italic.journal := -% -% \end{macrocode} -% -% 期刊的卷使用粗体: -% \begin{macrocode} - #0 'bold.journal.volume := -% \end{macrocode} -% -% 无出版地或出版者时,著录“出版地不详”,“出版者不详”,“S.l.” 或 “s.n.”: -% \begin{macrocode} -%<*!sl-sn> - #0 'show.missing.address.publisher := -% -%<*sl-sn> - #1 'show.missing.address.publisher := -% -% \end{macrocode} -% -% 页码与前面的冒号之间是否有空格: -% \begin{macrocode} -%<*!no-space-before-pages> - #1 'space.before.pages := -% -%<*no-space-before-pages> - #0 'space.before.pages := -% -% \end{macrocode} -% -% 页码是否只含起始页: -% \begin{macrocode} -%<*!only-start-page> - #0 'only.start.page := -% -%<*only-start-page> - #1 'only.start.page := -% -% \end{macrocode} -% -% 起止页码使用波浪号: -% \begin{macrocode} -%<*!wave-dash-in-pages> - #0 'wave.dash.in.pages := -% -%<*wave-dash-in-pages> - #1 'wave.dash.in.pages := -% -% \end{macrocode} -% -% 是否著录非电子文献的引用日期: -% \begin{macrocode} -%<*!no-urldate> - #1 'show.urldate := -% -%<*no-urldate> - #0 'show.urldate := -% -% \end{macrocode} -% -% 是否著录 URL: -% \begin{macrocode} -%<*!no-url> - #1 'show.url := -% -%<*no-url> - #0 'show.url := -% -% \end{macrocode} -% -% 是否著录 DOI: -% \begin{macrocode} -%<*!(no-doi|2005)> - #1 'show.doi := -% -%<*no-doi|2005> - #0 'show.doi := -% -% \end{macrocode} -% -% 是否著录 e-print: -% \begin{macrocode} -%<*!preprint> - #0 'show.preprint := -% -%<*preprint> - #1 'show.preprint := -% -% \end{macrocode} -% -% 在每一条文献最后输出注释(note)的内容: -% \begin{macrocode} - #0 'show.note := -% \end{macrocode} -% -% 中文文献是否显示英文翻译 -% \begin{macrocode} -%<*!show-english-translation> - #0 'show.english.translation := -% -%<*show-english-translation> - #1 'show.english.translation := -% -% \end{macrocode} -% -% 结尾加句点 -% \begin{macrocode} -%<*!no-period-at-end> - #1 'end.with.period := -% -%<*no-period-at-end> - #0 'end.with.period := -% -% \end{macrocode} -% -% 参考文献表按照“著者-出版年”组织时,各个文种的顺序: -% \begin{macrocode} -%<*author-year> - #1 'lang.zh.order := - #2 'lang.ja.order := - #3 'lang.en.order := - #4 'lang.ru.order := - #5 'lang.other.order := -% -} - -% \end{macrocode} -% -% -% \subsection{The ENTRY declaration} -% -% Like Scribe's (according to pages 231-2 of the April '84 edition), -% but no fullauthor or editors fields because BibTeX does name handling. -% The annote field is commented out here because this family doesn't -% include an annotated bibliography style. And in addition to the fields -% listed here, BibTeX has a built-in crossref field, explained later. -% \begin{macrocode} -ENTRY - { address - archivePrefix - author - booktitle - date - doi - edition - editor - eprint - eprinttype - howpublished - institution - journal - journaltitle - key - langid - language - location - mark - medium - note - number - organization - pages - publisher - school - series - shortjournal - title - translation - translator - url - urldate - volume - year - } - { entry.lang entry.is.electronic is.pure.electronic entry.numbered } -% \end{macrocode} -% -% These string entry variables are used to form the citation label. -% In a storage pinch, sort.label can be easily computed on the fly. -% \begin{macrocode} - { label extra.label sort.label short.label short.list entry.mark entry.url } - -% \end{macrocode} -% -% -% \subsection{Entry functions} -% -% Each entry function starts by calling output.bibitem, to write the -% |\bibitem| and its arguments to the .BBL file. Then the various fields -% are formatted and printed by output or output.check. Those functions -% handle the writing of separators (commas, periods, |\newblock|'s), -% taking care not to do so when they are passed a null string. -% Finally, fin.entry is called to add the final period and finish the -% entry. -% -% A bibliographic reference is formatted into a number of `blocks': -% in the open format, a block begins on a new line and subsequent -% lines of the block are indented. A block may contain more than -% one sentence (well, not a grammatical sentence, but something to -% be ended with a sentence ending period). The entry functions should -% call new.block whenever a block other than the first is about to be -% started. They should call new.sentence whenever a new sentence is -% to be started. The output functions will ensure that if two -% new.sentence's occur without any non-null string being output between -% them then there won't be two periods output. Similarly for two -% successive new.block's. -% -% The output routines don't write their argument immediately. -% Instead, by convention, that argument is saved on the stack to be -% output next time (when we'll know what separator needs to come -% after it). Meanwhile, the output routine has to pop the pending -% output off the stack, append any needed separator, and write it. -% -% To tell which separator is needed, we maintain an output.state. -% It will be one of these values: -% before.all just after the |\bibitem| -% mid.sentence in the middle of a sentence: comma needed -% if more sentence is output -% after.sentence just after a sentence: period needed -% after.block just after a block (and sentence): -% period and |\newblock| needed. -% Note: These styles don't use after.sentence -% -% VAR: output.state : INTEGER -- state variable for output -% -% The output.nonnull function saves its argument (assumed to be nonnull) -% on the stack, and writes the old saved value followed by any needed -% separator. The ordering of the tests is decreasing frequency of -% occurrence. -% -% 由于专著中的析出文献需要用到很特殊的“//”,所以我又加了一个 after.slash。 -% 其他需要在特定符号后面输出,所以写了一个 output.after。 -% -% \begin{pseudocode} -% output.nonnull(s) == -% BEGIN -% s := argument on stack -% if output.state = mid.sentence then -% write$(pop() * ", ") -% -- "pop" isn't a function: just use stack top -% else -% if output.state = after.block then -% write$(add.period$(pop())) -% newline$ -% write$("\newblock ") -% else -% if output.state = before.all then -% write$(pop()) -% else -- output.state should be after.sentence -% write$(add.period$(pop()) * " ") -% fi -% fi -% output.state := mid.sentence -% fi -% push s on stack -% END -% \end{pseudocode} -% -% The output function calls output.nonnull if its argument is non-empty; -% its argument may be a missing field (thus, not necessarily a string) -% -% \begin{pseudocode} -% output(s) == -% BEGIN -% if not empty$(s) then output.nonnull(s) -% fi -% END -% \end{pseudocode} -% -% The output.check function is the same as the output function except that, if -% necessary, output.check warns the user that the t field shouldn't be empty -% (this is because it probably won't be a good reference without the field; -% the entry functions try to make the formatting look reasonable even when -% such fields are empty). -% -% \begin{pseudocode} -% output.check(s,t) == -% BEGIN -% if empty$(s) then -% warning$("empty " * t * " in " * cite$) -% else output.nonnull(s) -% fi -% END -% \end{pseudocode} -% -% The output.bibitem function writes the |\bibitem| for the current entry -% (the label should already have been set up), and sets up the separator -% state for the output functions. And, it leaves a string on the stack -% as per the output convention. -% -% \begin{pseudocode} -% output.bibitem == -% BEGIN -% newline$ -% write$("\bibitem[") % for alphabetic labels, -% write$(label) % these three lines -% write$("]{") % are used -% write$("\bibitem{") % this line for numeric labels -% write$(cite$) -% write$("}") -% push "" on stack -% output.state := before.all -% END -% \end{pseudocode} -% -% The fin.entry function finishes off an entry by adding a period to the -% string remaining on the stack. If the state is still before.all -% then nothing was produced for this entry, so the result will look bad, -% but the user deserves it. (We don't omit the whole entry because the -% entry was cited, and a bibitem is needed to define the citation label.) -% -% \begin{pseudocode} -% fin.entry == -% BEGIN -% write$(add.period$(pop())) -% newline$ -% END -% \end{pseudocode} -% -% The new.block function prepares for a new block to be output, and -% new.sentence prepares for a new sentence. -% -% \begin{pseudocode} -% new.block == -% BEGIN -% if output.state <> before.all then -% output.state := after.block -% fi -% END -% \end{pseudocode} -% -% \begin{pseudocode} -% new.sentence == -% BEGIN -% if output.state <> after.block then -% if output.state <> before.all then -% output.state := after.sentence -% fi -% fi -% END -% \end{pseudocode} -% \begin{macrocode} -INTEGERS { output.state before.all mid.sentence after.sentence after.block after.slash } - -INTEGERS { lang.zh lang.ja lang.en lang.ru lang.other } - -INTEGERS { charptr len } - -FUNCTION {init.state.consts} -{ #0 'before.all := - #1 'mid.sentence := - #2 'after.sentence := - #3 'after.block := - #4 'after.slash := - #3 'lang.zh := - #4 'lang.ja := - #1 'lang.en := - #2 'lang.ru := - #0 'lang.other := -} - -% \end{macrocode} -% -% 下面是一些常量的定义 -% \begin{macrocode} -FUNCTION {bbl.anonymous} -{ entry.lang lang.zh = - { "佚名" } - { "Anon" } - if$ -} - -FUNCTION {bbl.space} -{ entry.lang lang.zh = - { "\ " } - { " " } - if$ -} - -FUNCTION {bbl.and} -{ "" } - -FUNCTION {bbl.et.al} -{ entry.lang lang.zh = - { "等" } - { entry.lang lang.ja = - { "他" } - { entry.lang lang.ru = - { "идр" } - { "et~al." } - if$ - } - if$ - } - if$ -} - -FUNCTION {citation.and} -{ terms.in.macro - { "{\biband}" } - 'bbl.and - if$ -} - -FUNCTION {citation.et.al} -{ terms.in.macro - { "{\bibetal}" } - 'bbl.et.al - if$ -} - -FUNCTION {bbl.colon} { ": " } - -FUNCTION {bbl.pages.colon} -{ space.before.pages - { ": " } - { ":\allowbreak " } - if$ -} - -%<*!2005> -FUNCTION {bbl.wide.space} { "\quad " } -% -%<*2005> -FUNCTION {bbl.wide.space} { "\ " } -% - -FUNCTION {bbl.slash} { "//\allowbreak " } - -FUNCTION {bbl.sine.loco} -{ entry.lang lang.zh = - { "[出版地不详]" } - { "[S.l.]" } - if$ -} - -FUNCTION {bbl.sine.nomine} -{ entry.lang lang.zh = - { "[出版者不详]" } - { "[s.n.]" } - if$ -} - -FUNCTION {bbl.sine.loco.sine.nomine} -{ entry.lang lang.zh = - { "[出版地不详: 出版者不详]" } - { "[S.l.: s.n.]" } - if$ -} - -% \end{macrocode} -% -% These three functions pop one or two (integer) arguments from the stack -% and push a single one, either 0 or 1. -% The |'skip$| in the `and' and `or' functions are used because -% the corresponding |if$| would be idempotent -% \begin{macrocode} -FUNCTION {not} -{ { #0 } - { #1 } - if$ -} - -FUNCTION {and} -{ 'skip$ - { pop$ #0 } - if$ -} - -FUNCTION {or} -{ { pop$ #1 } - 'skip$ - if$ -} - -STRINGS { x y } - -FUNCTION {contains} -{ 'y := - 'x := - y text.length$ 'len := - x text.length$ len - #1 + 'charptr := - { charptr #0 > - x charptr len substring$ y = not - and - } - { charptr #1 - 'charptr := } - while$ - charptr #0 > -} - -% \end{macrocode} -% -% the variables s and t are temporary string holders -% \begin{macrocode} -STRINGS { s t } - -FUNCTION {output.nonnull} -{ 's := - output.state mid.sentence = - { ", " * write$ } - { output.state after.block = - { add.period$ write$ - newline$ - "\newblock " write$ - } - { output.state before.all = - 'write$ - { output.state after.slash = - { bbl.slash * write$ - newline$ - } - { add.period$ " " * write$ } - if$ - } - if$ - } - if$ - mid.sentence 'output.state := - } - if$ - s -} - -FUNCTION {output} -{ duplicate$ empty$ - 'pop$ - 'output.nonnull - if$ -} - -FUNCTION {output.after} -{ 't := - duplicate$ empty$ - 'pop$ - { 's := - output.state mid.sentence = - { t * write$ } - { output.state after.block = - { add.period$ write$ - newline$ - "\newblock " write$ - } - { output.state before.all = - 'write$ - { output.state after.slash = - { bbl.slash * write$ } - { add.period$ " " * write$ } - if$ - } - if$ - } - if$ - mid.sentence 'output.state := - } - if$ - s - } - if$ -} - -FUNCTION {output.check} -{ 't := - duplicate$ empty$ - { pop$ "empty " t * " in " * cite$ * warning$ } - 'output.nonnull - if$ -} - -% \end{macrocode} -% -% This function finishes all entries. -% -% \begin{macrocode} -FUNCTION {fin.entry} -{ end.with.period - 'add.period$ - 'skip$ - if$ - write$ - show.english.translation entry.lang lang.zh = and - { ")" - write$ - } - 'skip$ - if$ - newline$ -} - -FUNCTION {new.block} -{ output.state before.all = - 'skip$ - { output.state after.slash = - 'skip$ - { after.block 'output.state := } - if$ - } - if$ -} - -FUNCTION {new.sentence} -{ output.state after.block = - 'skip$ - { output.state before.all = - 'skip$ - { output.state after.slash = - 'skip$ - { after.sentence 'output.state := } - if$ - } - if$ - } - if$ -} - -FUNCTION {new.slash} -{ output.state before.all = - 'skip$ - { slash.for.extraction - { after.slash 'output.state := } - { after.block 'output.state := } - if$ - } - if$ -} - -% \end{macrocode} -% -% Sometimes we begin a new block only if the block will be big enough. The -% new.block.checka function issues a new.block if its argument is nonempty; -% new.block.checkb does the same if either of its TWO arguments is nonempty. -% \begin{macrocode} -FUNCTION {new.block.checka} -{ empty$ - 'skip$ - 'new.block - if$ -} - -FUNCTION {new.block.checkb} -{ empty$ - swap$ empty$ - and - 'skip$ - 'new.block - if$ -} - -% \end{macrocode} -% -% The new.sentence.check functions are analogous. -% \begin{macrocode} -FUNCTION {new.sentence.checka} -{ empty$ - 'skip$ - 'new.sentence - if$ -} - -FUNCTION {new.sentence.checkb} -{ empty$ - swap$ empty$ - and - 'skip$ - 'new.sentence - if$ -} - -% \end{macrocode} -% -% -% \subsection{Formatting chunks} -% -% Here are some functions for formatting chunks of an entry. -% By convention they either produce a string that can be followed by -% a comma or period (using |add.period$|, so it is OK to end in a period), -% or they produce the null string. -% -% A useful utility is the field.or.null function, which checks if the -% argument is the result of pushing a `missing' field (one for which no -% assignment was made when the current entry was read in from the database) -% or the result of pushing a string having no non-white-space characters. -% It returns the null string if so, otherwise it returns the field string. -% Its main (but not only) purpose is to guarantee that what's left on the -% stack is a string rather than a missing field. -% -% \begin{pseudocode} -% field.or.null(s) == -% BEGIN -% if empty$(s) then return "" -% else return s -% END -% \end{pseudocode} -% -% Another helper function is emphasize, which returns the argument emphazised, -% if that is non-empty, otherwise it returns the null string. Italic -% corrections aren't used, so this function should be used when punctation -% will follow the result. -% -% \begin{pseudocode} -% emphasize(s) == -% BEGIN -% if empty$(s) then return "" -% else return "{\em " * s * "}" -% \end{pseudocode} -% -% The `pop\$' in this function gets rid of the duplicate `empty' value and -% the `skip\$' returns the duplicate field value -% \begin{macrocode} -FUNCTION {field.or.null} -{ duplicate$ empty$ - { pop$ "" } - 'skip$ - if$ -} - -FUNCTION {emphasize} -{ duplicate$ empty$ - { pop$ "" } - { "\emph{" swap$ * "}" * } - if$ -} - -FUNCTION {format.btitle} -{ italic.book.title - entry.lang lang.en = and - 'emphasize - 'skip$ - if$ -} - -% \end{macrocode} -% -% \subsubsection{Detect Language} -% \begin{macrocode} -INTEGERS { byte second.byte } - -INTEGERS { char.lang tmp.lang } - -STRINGS { tmp.str } - -FUNCTION {get.str.lang} -{ 'tmp.str := - lang.other 'tmp.lang := - #1 'charptr := - tmp.str text.length$ #1 + 'len := - { charptr len < } - { tmp.str charptr #1 substring$ chr.to.int$ 'byte := - byte #128 < - { charptr #1 + 'charptr := - byte #64 > byte #91 < and byte #96 > byte #123 < and or - { lang.en 'char.lang := } - { lang.other 'char.lang := } - if$ - } - { tmp.str charptr #1 + #1 substring$ chr.to.int$ 'second.byte := - byte #224 < -% \end{macrocode} -% 俄文西里尔字母:U+0400 到 U+052F,对应 UTF-8 从 D0 80 到 D4 AF。 -% \begin{macrocode} - { charptr #2 + 'charptr := - byte #207 > byte #212 < and - byte #212 = second.byte #176 < and or - { lang.ru 'char.lang := } - { lang.other 'char.lang := } - if$ - } - { byte #240 < -% \end{macrocode} -% CJK Unified Ideographs: U+4E00--U+9FFF; UTF-8: E4 B8 80--E9 BF BF. -% \begin{macrocode} - { charptr #3 + 'charptr := - byte #227 > byte #234 < and - { lang.zh 'char.lang := } -% \end{macrocode} -% CJK Unified Ideographs Extension A: U+3400--U+4DBF; UTF-8: E3 90 80--E4 B6 BF. -% \begin{macrocode} - { byte #227 = - { second.byte #143 > - { lang.zh 'char.lang := } -% \end{macrocode} -% 日语假名:U+3040--U+30FF, UTF-8: E3 81 80--E3 83 BF. -% \begin{macrocode} - { second.byte #128 > second.byte #132 < and - { lang.ja 'char.lang := } - { lang.other 'char.lang := } - if$ - } - if$ - } -% \end{macrocode} -% CJK Compatibility Ideographs: U+F900--U+FAFF, UTF-8: EF A4 80--EF AB BF. -% \begin{macrocode} - { byte #239 = - second.byte #163 > second.byte #172 < and and - { lang.zh 'char.lang := } - { lang.other 'char.lang := } - if$ - } - if$ - } - if$ - } -% \end{macrocode} -% CJK Unified Ideographs Extension B--F: U+20000--U+2EBEF, -% UTF-8: F0 A0 80 80--F0 AE AF AF. -% CJK Compatibility Ideographs Supplement: U+2F800--U+2FA1F, -% UTF-8: F0 AF A0 80--F0 AF A8 9F. -% \begin{macrocode} - { charptr #4 + 'charptr := - byte #240 = second.byte #159 > and - { lang.zh 'char.lang := } - { lang.other 'char.lang := } - if$ - } - if$ - } - if$ - } - if$ - char.lang tmp.lang > - { char.lang 'tmp.lang := } - 'skip$ - if$ - } - while$ - tmp.lang -} - -FUNCTION {check.entry.lang} -{ author field.or.null - title field.or.null * - get.str.lang -} - -STRINGS { entry.langid } - -FUNCTION {set.entry.lang} -{ "" 'entry.langid := - language empty$ not - { language 'entry.langid := } - 'skip$ - if$ - langid empty$ not - { langid 'entry.langid := } - 'skip$ - if$ - entry.langid empty$ - { check.entry.lang } - { entry.langid "english" = entry.langid "american" = or entry.langid "british" = or - { lang.en } - { entry.langid "chinese" = - { lang.zh } - { entry.langid "japanese" = - { lang.ja } - { entry.langid "russian" = - { lang.ru } - { check.entry.lang } - if$ - } - if$ - } - if$ - } - if$ - } - if$ - 'entry.lang := -} - -FUNCTION {set.entry.numbered} -{ type$ "patent" = - type$ "standard" = or - type$ "techreport" = or - { #1 'entry.numbered := } - { #0 'entry.numbered := } - if$ -} - -% \end{macrocode} -% -% \subsubsection{Format names} -% -% The format.names function formats the argument (which should be in -% BibTeX name format) into "First Von Last, Junior", separated by commas -% and with an "and" before the last (but ending with "et~al." if the last -% of multiple authors is "others"). This function's argument should always -% contain at least one name. -% -% \begin{pseudocode} -% VAR: nameptr, namesleft, numnames: INTEGER -% pseudoVAR: nameresult: STRING (it's what's accumulated on the stack) -% -% format.names(s) == -% BEGIN -% nameptr := 1 -% numnames := num.names$(s) -% namesleft := numnames -% while namesleft > 0 -% do -% % for full names: -% t := format.name$(s, nameptr, "{ff~}{vv~}{ll}{, jj}") -% % for abbreviated first names: -% t := format.name$(s, nameptr, "{f.~}{vv~}{ll}{, jj}") -% if nameptr > 1 then -% if namesleft > 1 then nameresult := nameresult * ", " * t -% else if numnames > 2 -% then nameresult := nameresult * "," -% fi -% if t = "others" -% then nameresult := nameresult * " et~al." -% else nameresult := nameresult * " and " * t -% fi -% fi -% else nameresult := t -% fi -% nameptr := nameptr + 1 -% namesleft := namesleft - 1 -% od -% return nameresult -% END -% \end{pseudocode} -% -% The format.authors function returns the result of format.names(author) -% if the author is present, or else it returns the null string -% -% \begin{pseudocode} -% format.authors == -% BEGIN -% if empty$(author) then return "" -% else return format.names(author) -% fi -% END -% \end{pseudocode} -% -% Format.editors is like format.authors, but it uses the editor field, -% and appends ", editor" or ", editors" -% -% \begin{pseudocode} -% format.editors == -% BEGIN -% if empty$(editor) then return "" -% else -% if num.names$(editor) > 1 then -% return format.names(editor) * ", editors" -% else -% return format.names(editor) * ", editor" -% fi -% fi -% END -% \end{pseudocode} -% -% Other formatting functions are similar, so no "comment version" will be -% given for them. -% \begin{macrocode} -INTEGERS { nameptr namesleft numnames name.lang } - -FUNCTION {format.name} -{ "{vv~}{ll}{, jj}{, ff}" format.name$ 't := - t "others" = - { bbl.et.al } - { t get.str.lang 'name.lang := - name.lang lang.en = - { t #1 "{vv~}{ll}{ f{~}}" format.name$ - uppercase.name - { "u" change.case$ } - 'skip$ - if$ - t #1 "{, jj}" format.name$ * - } - { t #1 "{ll}{ff}" format.name$ } - if$ - } - if$ -} - -FUNCTION {format.names} -{ 's := - #1 'nameptr := - s num.names$ 'numnames := - "" - numnames 'namesleft := - { namesleft #0 > } - { s nameptr format.name bbl.et.al = - numnames bibliography.et.al.min #1 - > nameptr bibliography.et.al.use.first > and or - { ", " * - bbl.et.al * - #1 'namesleft := - } - { nameptr #1 > - { namesleft #1 = bbl.and "" = not and - { bbl.and * } - { ", " * } - if$ - } - 'skip$ - if$ - s nameptr format.name * - } - if$ - nameptr #1 + 'nameptr := - namesleft #1 - 'namesleft := - } - while$ -} - -FUNCTION {format.key} -{ empty$ - { key field.or.null } - { "" } - if$ -} - -FUNCTION {format.authors} -{ author empty$ not - { author format.names } - { "empty author in " cite$ * warning$ -%<*author-year> - bbl.anonymous -% -%<*numerical> - "" -% - } - if$ -} - -FUNCTION {format.editors} -{ editor empty$ - { "" } - { editor format.names } - if$ -} - -FUNCTION {format.translators} -{ translator empty$ - { "" } - { translator format.names - entry.lang lang.zh = - { translator num.names$ #3 > - { "译" * } - { ", 译" * } - if$ - } - 'skip$ - if$ - } - if$ -} - -FUNCTION {format.full.names} -{'s := - #1 'nameptr := - s num.names$ 'numnames := - numnames 'namesleft := - { namesleft #0 > } - { s nameptr "{vv~}{ll}{, jj}{, ff}" format.name$ 't := - t get.str.lang 'name.lang := - name.lang lang.en = - { t #1 "{vv~}{ll}" format.name$ 't := } - { t #1 "{ll}{ff}" format.name$ 't := } - if$ - nameptr #1 > - { - namesleft #1 > - { ", " * t * } - { - numnames #2 > - { "," * } - 'skip$ - if$ - t "others" = - { " et~al." * } - { " and " * t * } - 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$ "collection" = - type$ "proceedings" = - or - 'editor.full - 'author.full - if$ - } - if$ -} - -FUNCTION {output.bibitem} -{ newline$ - "\bibitem[" write$ - label ")" * - make.full.names duplicate$ short.list = - { pop$ } - { duplicate$ "]" contains - { "{" swap$ * "}" * } - 'skip$ - if$ - * - } - if$ - "]{" * write$ - cite$ write$ - "}" write$ - newline$ - "" - before.all 'output.state := -} - -% \end{macrocode} -% -% \subsubsection{Format title} -% -% The |format.title| function is used for non-book-like titles. -% For most styles we convert to lowercase (except for the very first letter, -% and except for the first one after a colon (followed by whitespace)), -% and hope the user has brace-surrounded words that need to stay capitilized; -% for some styles, however, we leave it as it is in the database. -% \begin{macrocode} -FUNCTION {change.sentence.case} -{ entry.lang lang.en = - { "t" change.case$ } - 'skip$ - if$ -} - -FUNCTION {add.link} -{ url empty$ not - { "\href{" url * "}{" * swap$ * "}" * } - { doi empty$ not - { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * } - 'skip$ - if$ - } - if$ -} - -FUNCTION {format.title} -{ title empty$ - { "" } - { title - sentence.case.title - 'change.sentence.case - 'skip$ - if$ - entry.numbered number empty$ not and - { bbl.colon * number * } - 'skip$ - if$ - link.title - 'add.link - 'skip$ - if$ - } - if$ -} - -% \end{macrocode} -% -% For several functions we'll need to connect two strings with a -% tie (|~|) if the second one isn't very long (fewer than 3 characters). -% The tie.or.space.connect function does that. It concatenates the two -% strings on top of the stack, along with either a tie or space between -% them, and puts this concatenation back onto the stack: -% -% \begin{pseudocode} -% tie.or.space.connect(str1,str2) == -% BEGIN -% if text.length$(str2) < 3 -% then return the concatenation of str1, "~", and str2 -% else return the concatenation of str1, " ", and str2 -% END -% \end{pseudocode} -% \begin{macrocode} -FUNCTION {tie.or.space.connect} -{ duplicate$ text.length$ #3 < - { "~" } - { " " } - if$ - swap$ * * -} - -% \end{macrocode} -% -% The either.or.check function complains if both fields or an either-or pair -% are nonempty. -% -% \begin{pseudocode} -% either.or.check(t,s) == -% BEGIN -% if empty$(s) then -% warning$(can't use both " * t * " fields in " * cite$) -% fi -% END -% \end{pseudocode} -% \begin{macrocode} -FUNCTION {either.or.check} -{ empty$ - 'pop$ - { "can't use both " swap$ * " fields in " * cite$ * warning$ } - if$ -} - -% \end{macrocode} -% -% The format.bvolume function is for formatting the volume and perhaps -% series name of a multivolume work. If both a volume and a series field -% are there, we assume the series field is the title of the whole multivolume -% work (the title field should be the title of the thing being referred to), -% and we add an "of ". This function is called in mid-sentence. -% -% The format.number.series function is for formatting the series name -% and perhaps number of a work in a series. This function is similar to -% format.bvolume, although for this one the series must exist (and the -% volume must not exist). If the number field is empty we output either -% the series field unchanged if it exists or else the null string. -% If both the number and series fields are there we assume the series field -% gives the name of the whole series (the title field should be the title -% of the work being one referred to), and we add an "in ". -% We capitilize Number when this function is used at the beginning of a block. -% \begin{macrocode} -FUNCTION {is.digit} -{ duplicate$ empty$ - { pop$ #0 } - { chr.to.int$ - duplicate$ "0" chr.to.int$ < - { pop$ #0 } - { "9" chr.to.int$ > - { #0 } - { #1 } - if$ - } - if$ - } - if$ -} - -FUNCTION {is.number} -{ 's := - s empty$ - { #0 } - { s text.length$ 'charptr := - { charptr #0 > - s charptr #1 substring$ is.digit - and - } - { charptr #1 - 'charptr := } - while$ - charptr not - } - if$ -} - -FUNCTION {format.volume} -{ volume empty$ not - { volume is.number - { entry.lang lang.zh = - { "第 " volume * " 卷" * } - { "volume" volume tie.or.space.connect } - if$ - } - { volume } - if$ - } - { "" } - if$ -} - -FUNCTION {format.number} -{ number empty$ not - { number is.number - { entry.lang lang.zh = - { "第 " number * " 册" * } - { "number" number tie.or.space.connect } - if$ - } - { number } - if$ - } - { "" } - if$ -} - -FUNCTION {format.volume.number} -{ volume empty$ not - { format.volume } - { format.number } - if$ -} - -FUNCTION {format.title.vol.num} -{ title - sentence.case.title - 'change.sentence.case - 'skip$ - if$ - entry.numbered - { number empty$ not - { bbl.colon * number * } - 'skip$ - if$ - } - { format.volume.number 's := - s empty$ not - { bbl.colon * s * } - 'skip$ - if$ - } - if$ -} - -FUNCTION {format.series.vol.num.title} -{ format.volume.number 's := - series empty$ not - { series - sentence.case.title - 'change.sentence.case - 'skip$ - if$ - entry.numbered - { bbl.wide.space * } - { bbl.colon * - s empty$ not - { s * bbl.wide.space * } - 'skip$ - if$ - } - if$ - title * - sentence.case.title - 'change.sentence.case - 'skip$ - if$ - entry.numbered number empty$ not and - { bbl.colon * number * } - 'skip$ - if$ - } - { format.title.vol.num } - if$ - format.btitle - link.title - 'add.link - 'skip$ - if$ -} - -FUNCTION {format.booktitle.vol.num} -{ booktitle - entry.numbered - 'skip$ - { format.volume.number 's := - s empty$ not - { bbl.colon * s * } - 'skip$ - if$ - } - if$ -} - -% \end{macrocode} -% -% \begin{macrocode} -FUNCTION {format.series.vol.num.booktitle} -{ format.volume.number 's := - series empty$ not - { series bbl.colon * - entry.numbered not s empty$ not and - { s * bbl.wide.space * } - 'skip$ - if$ - booktitle * - } - { format.booktitle.vol.num } - if$ - format.btitle - in.booktitle - { duplicate$ empty$ not entry.lang lang.en = and - { "In: " swap$ * } - 'skip$ - if$ - } - 'skip$ - if$ -} - -FUNCTION {remove.period} -{ 't := - "" 's := - { t empty$ not } - { t #1 #1 substring$ 'tmp.str := - tmp.str "." = not - { s tmp.str * 's := } - 'skip$ - if$ - t #2 global.max$ substring$ 't := - } - while$ - s -} - -FUNCTION {abbreviate} -{ remove.period - 't := - t "l" change.case$ 's := - "" - s "physical review letters" = - { "Phys Rev Lett" } - 'skip$ - if$ - 's := - s empty$ - { t } - { pop$ s } - if$ -} - -FUNCTION {format.journal} -{ "" - short.journal - { shortjournal empty$ not - { shortjournal * } - { journal empty$ not - { journal * abbreviate } - { journaltitle empty$ not - { journaltitle * abbreviate } - 'skip$ - if$ - } - if$ - } - if$ - } - { journal empty$ not - { journal * } - { journaltitle empty$ not - { journaltitle * } - 'skip$ - if$ - } - if$ - } - if$ - duplicate$ empty$ not - { italic.journal entry.lang lang.en = and - 'emphasize - 'skip$ - if$ - } - 'skip$ - if$ -} - -% \end{macrocode} -% -% \subsubsection{Format entry type mark} -% -% \begin{macrocode} -FUNCTION {set.entry.mark} -{ entry.mark empty$ not - 'pop$ - { mark empty$ not - { pop$ mark 'entry.mark := } - { 'entry.mark := } - if$ - } - if$ -} - -FUNCTION {format.mark} -{ show.mark - { entry.mark - show.medium.type - { medium empty$ not - { "/" * medium * } - { entry.is.electronic - { "/OL" * } - 'skip$ - if$ - } - if$ - } - 'skip$ - if$ - 'entry.mark := - space.before.mark - { " " } - { "\allowbreak" } - if$ - "[" * entry.mark * "]" * - } - { "" } - if$ -} - -% \end{macrocode} -% -% \subsubsection{Format edition} -% -% The format.edition function appends " edition" to the edition, if present. -% We lowercase the edition (it should be something like "Third"), because -% this doesn't start a sentence. -% \begin{macrocode} -FUNCTION {num.to.ordinal} -{ duplicate$ text.length$ 'charptr := - duplicate$ charptr #1 substring$ 's := - s "1" = - { "st" * } - { s "2" = - { "nd" * } - { s "3" = - { "rd" * } - { "th" * } - if$ - } - if$ - } - if$ -} - -FUNCTION {format.edition} -{ edition empty$ - { "" } - { edition is.number - { entry.lang lang.zh = - { edition " 版" * } - { edition num.to.ordinal " ed." * } - if$ - } - { entry.lang lang.en = - { edition change.sentence.case 's := - s "Revised" = s "Revised edition" = or - { "Rev. ed." } - { s " ed." *} - if$ - } - { edition } - if$ - } - if$ - } - if$ -} - -% \end{macrocode} -% -% \subsubsection{Format publishing items} -% -% 出版地址和出版社会有 “[S.l.: s.n.]” 的情况,所以必须一起处理。 -% \begin{macrocode} -FUNCTION {format.publisher} -{ publisher empty$ not - { publisher } - { school empty$ not - { school } - { organization empty$ not - { organization } - { institution empty$ not - { institution } - { "" } - if$ - } - if$ - } - if$ - } - if$ -} - -FUNCTION {format.address.publisher} -{ address empty$ not - { address } - { location empty$ not - { location } - { "" } - if$ - } - if$ - duplicate$ empty$ not - { format.publisher empty$ not - { bbl.colon * format.publisher * } - { entry.is.electronic not show.missing.address.publisher and - { bbl.colon * bbl.sine.nomine * } - 'skip$ - if$ - } - if$ - } - { pop$ - entry.is.electronic not show.missing.address.publisher and - { format.publisher empty$ not - { bbl.sine.loco bbl.colon * format.publisher * } - { bbl.sine.loco.sine.nomine } - if$ - } - { format.publisher empty$ not - { format.publisher } - { "" } - if$ - } - if$ - } - if$ -} - -% \end{macrocode} -% -% \subsubsection{Format date} -% -% The format.date function is for the month and year, but we give a warning if -% there's an empty year but the month is there, and we return the empty string -% if they're both empty. -% -% 期刊需要著录起止范围,其中年份使用“/”分隔,卷和期使用“--”分隔。 -% 版本 v2.0.2 前的年份也使用“--”分隔,仅提供兼容性,不再推荐。 -% \begin{macrocode} -FUNCTION {extract.before.dash} -{ duplicate$ empty$ - { pop$ "" } - { 's := - #1 'charptr := - s text.length$ #1 + 'len := - { charptr len < - s charptr #1 substring$ "-" = not - and - } - { charptr #1 + 'charptr := } - while$ - s #1 charptr #1 - substring$ - } - if$ -} - -FUNCTION {extract.after.dash} -{ duplicate$ empty$ - { pop$ "" } - { 's := - #1 'charptr := - s text.length$ #1 + 'len := - { charptr len < - s charptr #1 substring$ "-" = not - and - } - { charptr #1 + 'charptr := } - while$ - { charptr len < - s charptr #1 substring$ "-" = - and - } - { charptr #1 + 'charptr := } - while$ - s charptr global.max$ substring$ - } - if$ -} - -FUNCTION {extract.before.slash} -{ duplicate$ empty$ - { pop$ "" } - { 's := - #1 'charptr := - s text.length$ #1 + 'len := - { charptr len < - s charptr #1 substring$ "/" = not - and - } - { charptr #1 + 'charptr := } - while$ - s #1 charptr #1 - substring$ - } - if$ -} - -FUNCTION {extract.after.slash} -{ duplicate$ empty$ - { pop$ "" } - { 's := - #1 'charptr := - s text.length$ #1 + 'len := - { charptr len < - s charptr #1 substring$ "-" = not - and - s charptr #1 substring$ "/" = not - and - } - { charptr #1 + 'charptr := } - while$ - { charptr len < - s charptr #1 substring$ "-" = - s charptr #1 substring$ "/" = - or - and - } - { charptr #1 + 'charptr := } - while$ - s charptr global.max$ substring$ - } - if$ -} - -% \end{macrocode} -% -% 著者-出版年制必须提取出年份 -% \begin{macrocode} -FUNCTION {format.year} -{ year empty$ not - { year extract.before.slash extra.label * } - { date empty$ not - { date extract.before.dash extra.label * } - { "empty year in " cite$ * warning$ - urldate empty$ not - { "[" urldate extract.before.dash * extra.label * "]" * } - { "" } - if$ - } - if$ - } - if$ -} - -FUNCTION {format.periodical.year} -{ year empty$ not - { year extract.before.slash - "--" * - year extract.after.slash - duplicate$ empty$ - 'pop$ - { * } - if$ - } - { date empty$ not - { date extract.before.dash } - { "empty year in " cite$ * warning$ - urldate empty$ not - { "[" urldate extract.before.dash * "]" * } - { "" } - if$ - } - if$ - } - if$ -} - -% \end{macrocode} -% -% 专利和报纸都是使用日期而不是年 -% \begin{macrocode} -FUNCTION {format.date} -{ date empty$ not - { type$ "patent" = type$ "newspaper" = or - { date } - { format.year } - if$ - } - { year empty$ not - { format.year } - { "" } - if$ - } - if$ -} - -% \end{macrocode} -% -% 更新、修改日期只用于电子资源 elctronic -% \begin{macrocode} -FUNCTION {format.editdate} -{ date empty$ not - { "\allowbreak(" date * ")" * } - { "" } - if$ -} - -% \end{macrocode} -% -% 国标中的“引用日期”都是与 URL 同时出现的,所以其实为 urldate,这个虽然 -% 不是 \BibTeX{} 标准的域,但是实际中很常见。 -% \begin{macrocode} -FUNCTION {format.urldate} -{ urldate empty$ not - show.urldate show.url and is.pure.electronic or and - url empty$ not and - { "\allowbreak[" urldate * "]" * } - { "" } - if$ -} - -% \end{macrocode} -% -% \subsubsection{Format pages} -% -% By default, BibTeX sets the global integer variable |global.max$| to the BibTeX -% constant |glob_str_size|, the maximum length of a global string variable. -% Analogously, BibTeX sets the global integer variable |entry.max$| to -% |ent_str_size|, the maximum length of an entry string variable. -% The style designer may change these if necessary (but this is unlikely) -% -% The n.dashify function makes each single |`-'| in a string a double |`--'| -% if it's not already -% -% \begin{pseudocode} -% pseudoVAR: pageresult: STRING (it's what's accumulated on the stack) -% -% n.dashify(s) == -% BEGIN -% t := s -% pageresult := "" -% while (not empty$(t)) -% do -% if (first character of t = "-") -% then -% if (next character isn't) -% then -% pageresult := pageresult * "--" -% t := t with the "-" removed -% else -% while (first character of t = "-") -% do -% pageresult := pageresult * "-" -% t := t with the "-" removed -% od -% fi -% else -% pageresult := pageresult * the first character -% t := t with the first character removed -% fi -% od -% return pageresult -% END -% \end{pseudocode} -% -% 国标里页码范围的连接号使用 hyphen,需要将 dash 转为 hyphen。 -% \begin{macrocode} -FUNCTION {hyphenate} -{ 't := - "" - { t empty$ not } - { t #1 #1 substring$ "-" = - { wave.dash.in.pages - { "~" * } - { "-" * } - if$ - { t #1 #1 substring$ "-" = } - { t #2 global.max$ substring$ 't := } - while$ - } - { t #1 #1 substring$ * - t #2 global.max$ substring$ 't := - } - if$ - } - while$ -} - -% \end{macrocode} -% -% This function doesn't begin a sentence so "pages" isn't capitalized. -% Other functions that use this should keep that in mind. -% \begin{macrocode} -FUNCTION {format.pages} -{ pages empty$ - { "" } - { pages hyphenate } - if$ -} - -FUNCTION {format.extracted.pages} -{ pages empty$ - { "" } - { pages - only.start.page - 'extract.before.dash - 'hyphenate - if$ - } - if$ -} - -% \end{macrocode} -% -% The |format.vol.num.pages| function is for the volume, number, and page range -% of a journal article. We use the format: vol(number):pages, with some -% variations for empty fields. This doesn't begin a sentence. -% -% 报纸在卷号缺失时,期号与前面的日期直接相连,所以必须拆开输出。 -% \begin{macrocode} -FUNCTION {format.journal.volume} -{ volume empty$ not - { bold.journal.volume - { "\textbf{" volume * "}" * } - { volume } - if$ - } - { "" } - if$ -} - -FUNCTION {format.journal.number} -{ number empty$ not - { "\allowbreak (" number * ")" * } - { "" } - if$ -} - -FUNCTION {format.journal.pages} -{ pages empty$ - { "" } - { format.extracted.pages } - if$ -} - -% \end{macrocode} -% -% 连续出版物的年卷期有起止范围,需要特殊处理 -% \begin{macrocode} -FUNCTION {format.periodical.year.volume.number} -{ year empty$ not - { year extract.before.slash } - { "empty year in periodical " cite$ * warning$ } - if$ - volume empty$ not - { ", " * volume extract.before.dash * } - 'skip$ - if$ - number empty$ not - { "\allowbreak (" * number extract.before.dash * ")" * } - 'skip$ - if$ - "--" * - year extract.after.slash empty$ - volume extract.after.dash empty$ and - number extract.after.dash empty$ and not - { year extract.after.slash empty$ not - { year extract.after.slash * } - { year extract.before.slash * } - if$ - volume empty$ not - { ", " * volume extract.after.dash * } - 'skip$ - if$ - number empty$ not - { "\allowbreak (" * number extract.after.dash * ")" * } - 'skip$ - if$ - } - 'skip$ - if$ -} - -% \end{macrocode} -% -% \subsubsection{Format url and doi} -% -% 传统的 \BibTeX{} 习惯使用 howpublished 著录 url,这里提供支持。 -% \begin{macrocode} -FUNCTION {check.url} -{ url empty$ not - { "\url{" url * "}" * 'entry.url := - #1 'entry.is.electronic := - } - { howpublished empty$ not - { howpublished #1 #5 substring$ "\url{" = - { howpublished 'entry.url := - #1 'entry.is.electronic := - } - 'skip$ - if$ - } - { note empty$ not - { note #1 #5 substring$ "\url{" = - { note 'entry.url := - #1 'entry.is.electronic := - } - 'skip$ - if$ - } - 'skip$ - if$ - } - if$ - } - if$ -} - -FUNCTION {format.url} -{ entry.url -} - -FUNCTION {output.url} -{ entry.url empty$ not - { new.block - entry.url output - } - 'skip$ - if$ -} - -% \end{macrocode} -% -% 需要检测 DOI 是否已经包含在 URL 中。 -% \begin{macrocode} -FUNCTION {check.doi} -{ doi empty$ not - { #1 'entry.is.electronic := } - 'skip$ - if$ -} - -FUNCTION {is.in.url} -{ 's := - s empty$ - { #1 } - { entry.url empty$ - { #0 } - { s text.length$ 'len := - entry.url text.length$ 'charptr := - { entry.url charptr len substring$ s = not - charptr #0 > - and - } - { charptr #1 - 'charptr := } - while$ - charptr - } - if$ - } - if$ -} - -FUNCTION {format.doi} -{ "" - doi empty$ not - { "" 's := - doi 't := - #0 'numnames := - { t empty$ not} - { t #1 #1 substring$ 'tmp.str := - tmp.str "," = tmp.str " " = or t #2 #1 substring$ empty$ or - { t #2 #1 substring$ empty$ - { s tmp.str * 's := } - 'skip$ - if$ - s empty$ s is.in.url or - 'skip$ - { numnames #1 + 'numnames := - numnames #1 > - { ", " * } - { "DOI: " * } - if$ - "\doi{" s * "}" * * - } - if$ - "" 's := - } - { s tmp.str * 's := } - if$ - t #2 global.max$ substring$ 't := - } - while$ - } - 'skip$ - if$ -} - -FUNCTION {output.doi} -{ doi empty$ not show.doi and - show.english.translation entry.lang lang.zh = and not and - { new.block - format.doi output - } - 'skip$ - if$ -} - -FUNCTION {check.electronic} -{ "" 'entry.url := - #0 'entry.is.electronic := - 'check.doi - 'skip$ - if$ - 'check.url - 'skip$ - if$ - medium empty$ not - { medium "MT" = medium "DK" = or medium "CD" = or medium "OL" = or - { #1 'entry.is.electronic := } - 'skip$ - if$ - } - 'skip$ - if$ -} - -FUNCTION {format.eprint} -{ eprinttype empty$ not - { eprinttype } - { archivePrefix empty$ not - { archivePrefix } - { "" } - if$ - } - if$ - 's := - s empty$ not - { s ": \eprint{" * - url empty$ not - { url } - { "https://" s "l" change.case$ * ".org/abs/" * eprint * } - if$ - * "}{" * - eprint * "}" * - } - { eprint } - if$ -} - -FUNCTION {output.eprint} -{ show.preprint eprint empty$ not and - { new.block - format.eprint output - } - 'skip$ - if$ -} - -FUNCTION {format.note} -{ note empty$ not show.note and - { note } - { "" } - if$ -} - -FUNCTION {output.translation} -{ show.english.translation entry.lang lang.zh = and - { translation empty$ not - { translation } - { "[English translation missing!]" } - if$ - " (in Chinese)" * output - write$ - format.doi duplicate$ empty$ not - { newline$ - write$ - } - 'pop$ - if$ - " \\" write$ - newline$ - "(" write$ - "" - before.all 'output.state := - } - 'skip$ - if$ -} - -% \end{macrocode} -% -% The function empty.misc.check complains if all six fields are empty, and -% if there's been no sorting or alphabetic-label complaint. -% \begin{macrocode} -FUNCTION {empty.misc.check} -{ author empty$ title empty$ - year empty$ - and and - key empty$ not and - { "all relevant fields are empty in " cite$ * warning$ } - 'skip$ - if$ -} - -% \end{macrocode} -% -% -% \subsection{Functions for all entry types} -% -% Now we define the type functions for all entry types that may appear -% in the .BIB file---e.g., functions like `article' and `book'. These -% are the routines that actually generate the .BBL-file output for -% the entry. These must all precede the READ command. In addition, the -% style designer should have a function `default.type' for unknown types. -% Note: The fields (within each list) are listed in order of appearance, -% except as described for an `inbook' or a `proceedings'. -% -% \subsubsection{专著} -% -% \begin{macrocode} -FUNCTION {monograph} -{ output.bibitem - output.translation - author empty$ not - { format.authors } - { editor empty$ not - { format.editors } - { "empty author and editor in " cite$ * warning$ -%<*author-year> - bbl.anonymous -% -%<*numerical> - "" -% - } - if$ - } - if$ - output - year.after.author - { period.after.author - 'new.sentence - 'skip$ - if$ - format.year "year" output.check - } - 'skip$ - if$ - new.block - format.series.vol.num.title "title" output.check - "M" set.entry.mark - format.mark "" output.after - new.block - format.translators output - new.sentence - format.edition output - new.block - format.address.publisher output - year.after.author not - { format.year "year" output.check } - 'skip$ - if$ - format.pages bbl.pages.colon output.after - format.urldate "" output.after - output.url - output.doi - new.block - format.note output - fin.entry -} - -% \end{macrocode} -% -% \subsubsection{专著中的析出文献} -% -% An incollection is like inbook, but where there is a separate title -% for the referenced thing (and perhaps an editor for the whole). -% An incollection may CROSSREF a book. -% -% Required: author, title, booktitle, publisher, year -% -% Optional: editor, volume or number, series, type, chapter, pages, -% address, edition, month, note -% \begin{macrocode} -FUNCTION {incollection} -{ output.bibitem - output.translation - format.authors output - author format.key output - year.after.author - { period.after.author - 'new.sentence - 'skip$ - if$ - format.year "year" output.check - } - 'skip$ - if$ - new.block - format.title "title" output.check - "M" set.entry.mark - format.mark "" output.after - new.block - format.translators output - new.slash - format.editors output - new.block - format.series.vol.num.booktitle "booktitle" output.check - new.block - format.edition output - new.block - format.address.publisher output - year.after.author not - { format.year "year" output.check } - 'skip$ - if$ - format.extracted.pages bbl.pages.colon output.after - format.urldate "" output.after - output.url - output.doi - new.block - format.note output - fin.entry -} - -% \end{macrocode} -% -% \subsubsection{连续出版物} -% -% \begin{macrocode} -FUNCTION {periodical} -{ output.bibitem - output.translation - format.authors output - author format.key output - year.after.author - { period.after.author - 'new.sentence - 'skip$ - if$ - format.year "year" output.check - } - 'skip$ - if$ - new.block - format.title "title" output.check - "J" set.entry.mark - format.mark "" output.after - new.block - format.periodical.year.volume.number output - new.block - format.address.publisher output - year.after.author not - { format.periodical.year "year" output.check } - 'skip$ - if$ - format.urldate "" output.after - output.url - output.doi - new.block - format.note output - fin.entry -} - -% \end{macrocode} -% -% \subsubsection{连续出版物中的析出文献} -% -% The article function is for an article in a journal. An article may -% CROSSREF another article. -% -% Required fields: author, title, journal, year -% -% Optional fields: volume, number, pages, month, note -% -% The other entry functions are all quite similar, so no "comment version" -% will be given for them. -% \begin{macrocode} -FUNCTION {article} -{ output.bibitem - output.translation - format.authors output - author format.key output - year.after.author - { period.after.author - 'new.sentence - 'skip$ - if$ - format.year "year" output.check - } - 'skip$ - if$ - new.block - title.in.journal - { format.title "title" output.check - "J" set.entry.mark - format.mark "" output.after - new.block - } - 'skip$ - if$ - format.journal "journal" output.check - year.after.author not - { format.date "year" output.check } - 'skip$ - if$ - format.journal.volume output - format.journal.number "" output.after - format.journal.pages bbl.pages.colon output.after - format.urldate "" output.after - output.url - output.doi - new.block - format.note output - fin.entry -} - -% \end{macrocode} -% -% \subsubsection{专利文献} -% -% number 域也可以用来表示专利号。 -% \begin{macrocode} -FUNCTION {patent} -{ output.bibitem - output.translation - format.authors output - author format.key output - year.after.author - { period.after.author - 'new.sentence - 'skip$ - if$ - format.year "year" output.check - } - 'skip$ - if$ - new.block - format.title "title" output.check - "P" set.entry.mark - format.mark "" output.after - new.block - format.date "year" output.check - format.urldate "" output.after - output.url - output.doi - new.block - format.note output - fin.entry -} - -% \end{macrocode} -% -% \subsubsection{电子资源} -% \begin{macrocode} -FUNCTION {electronic} -{ #1 #1 check.electronic - #1 'entry.is.electronic := - #1 'is.pure.electronic := - output.bibitem - output.translation - format.authors output - author format.key output - year.after.author - { period.after.author - 'new.sentence - 'skip$ - if$ - format.year "year" output.check - } - 'skip$ - if$ - new.block - format.series.vol.num.title "title" output.check - "EB" set.entry.mark - format.mark "" output.after - new.block - format.address.publisher output - year.after.author not - { date empty$ - { format.date output } - 'skip$ - if$ - } - 'skip$ - if$ - format.pages bbl.pages.colon output.after - format.editdate "" output.after - format.urldate "" output.after - output.url - output.doi - new.block - format.note output - fin.entry -} - -% \end{macrocode} -% -% \subsubsection{预印本} -% -% \begin{macrocode} -FUNCTION {preprint} -{ output.bibitem - output.translation - author empty$ not - { format.authors } - { editor empty$ not - { format.editors } - { "empty author and editor in " cite$ * warning$ -%<*author-year> - bbl.anonymous -% -%<*numerical> - "" -% - } - if$ - } - if$ - output - year.after.author - { period.after.author - 'new.sentence - 'skip$ - if$ - format.year "year" output.check - } - 'skip$ - if$ - new.block - title.in.journal - { format.series.vol.num.title "title" output.check -%<*!2005> - "Z" set.entry.mark -% -%<*2005> - "M" set.entry.mark -% - format.mark "" output.after - new.block - } - 'skip$ - if$ - format.translators output - new.sentence - format.edition output - new.block - output.eprint - year.after.author not - { format.year "year" output.check } - 'skip$ - if$ - format.pages bbl.pages.colon output.after - format.urldate "" output.after - output.url - new.block - format.note output - fin.entry -} - -% \end{macrocode} -% -% \subsubsection{其他文献类型} -% -% A misc is something that doesn't fit elsewhere. -% -% Required: at least one of the `optional' fields -% -% Optional: author, title, howpublished, month, year, note -% -% Misc 用来自动判断类型。 -% \begin{macrocode} -FUNCTION {misc} -{ journal empty$ not - 'article - { booktitle empty$ not - 'incollection - { publisher empty$ not - 'monograph - { eprint empty$ not show.preprint and - 'preprint - { entry.is.electronic - 'electronic - { -%<*!2005> - "Z" set.entry.mark -% -%<*2005> - "M" set.entry.mark -% - monograph - } - if$ - } - if$ - } - if$ - } - if$ - } - if$ - empty.misc.check -} - -FUNCTION {archive} -{ "A" set.entry.mark - misc -} - -% \end{macrocode} -% -% The book function is for a whole book. A book may CROSSREF another book. -% -% Required fields: author or editor, title, publisher, year -% -% Optional fields: volume or number, series, address, edition, month, -% note -% \begin{macrocode} -FUNCTION {book} { monograph } - -% \end{macrocode} -% -% A booklet is a bound thing without a publisher or sponsoring institution. -% -% Required: title -% -% Optional: author, howpublished, address, month, year, note -% \begin{macrocode} -FUNCTION {booklet} { book } - -FUNCTION {collection} -{ "G" set.entry.mark - monograph -} - -FUNCTION {database} -{ "DB" set.entry.mark - electronic -} - -FUNCTION {dataset} -{ "DS" set.entry.mark - electronic -} - -% \end{macrocode} -% -% An inbook is a piece of a book: either a chapter and/or a page range. -% It may CROSSREF a book. If there's no volume field, the type field -% will come before number and series. -% -% Required: author or editor, title, chapter and/or pages, publisher,year -% -% Optional: volume or number, series, type, address, edition, month, note -% -% inbook 类是不含 booktitle 域的,所以不应该适用于“专著中的析出文献”,而应该是专 -% 著,即 book 类。 -% \begin{macrocode} -FUNCTION {inbook} { book } - -% \end{macrocode} -% -% An inproceedings is an article in a conference proceedings, and it may -% CROSSREF a proceedings. If there's no address field, the month (\& year) -% will appear just before note. -% -% Required: author, title, booktitle, year -% -% Optional: editor, volume or number, series, pages, address, month, -% organization, publisher, note -% \begin{macrocode} -FUNCTION {inproceedings} -{ "C" set.entry.mark - incollection -} - -% \end{macrocode} -% -% The conference function is included for Scribe compatibility. -% \begin{macrocode} -FUNCTION {conference} { inproceedings } - -FUNCTION {map} -{ "CM" set.entry.mark - misc -} - -% \end{macrocode} -% -% A manual is technical documentation. -% -% Required: title -% -% Optional: author, organization, address, edition, month, year, note -% \begin{macrocode} -FUNCTION {manual} { monograph } - -% \end{macrocode} -% -% A mastersthesis is a Master's thesis. -% -% Required: author, title, school, year -% -% Optional: type, address, month, note -% \begin{macrocode} -FUNCTION {mastersthesis} -{ "D" set.entry.mark - monograph -} - -FUNCTION {newspaper} -{ "N" set.entry.mark - article -} - -FUNCTION {online} -{ "EB" set.entry.mark - electronic -} - -% \end{macrocode} -% -% A phdthesis is like a mastersthesis. -% -% Required: author, title, school, year -% -% Optional: type, address, month, note -% \begin{macrocode} -FUNCTION {phdthesis} { mastersthesis } - -% \end{macrocode} -% -% A proceedings is a conference proceedings. -% If there is an organization but no editor field, the organization will -% appear as the first optional field (we try to make the first block nonempty); -% if there's no address field, the month (\& year) will appear just before note. -% -% Required: title, year -% -% Optional: editor, volume or number, series, address, month, -% organization, publisher, note -% \begin{macrocode} -FUNCTION {proceedings} -{ "C" set.entry.mark - monograph -} - -FUNCTION {software} -{ "CP" set.entry.mark - electronic -} - -FUNCTION {standard} -{ "S" set.entry.mark - misc -} - -% \end{macrocode} -% -% A techreport is a technical report. -% -% Required: author, title, institution, year -% -% Optional: type, number, address, month, note -% \begin{macrocode} -FUNCTION {techreport} -{ "R" set.entry.mark - misc -} - -% \end{macrocode} -% -% An unpublished is something that hasn't been published. -% -% Required: author, title, note -% -% Optional: month, year -% \begin{macrocode} -FUNCTION {unpublished} { misc } - -% \end{macrocode} -% -% We use entry type `misc' for an unknown type; BibTeX gives a warning. -% \begin{macrocode} -FUNCTION {default.type} { misc } - -% \end{macrocode} -% -% -% \subsection{Common macros} -% -% Here are macros for common things that may vary from style to style. -% Users are encouraged to use these macros. -% -% Months are either written out in full or abbreviated -% \begin{macrocode} -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"} - -% \end{macrocode} -% -% Journals are either written out in full or abbreviated; -% the abbreviations are like those found in ACM publications. -% -% To get a completely different set of abbreviations, it may be best to make -% a separate .bib file with nothing but those abbreviations; users could then -% include that file name as the first argument to the \cs{bibliography} command -% \begin{macrocode} -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"} - -% \end{macrocode} -% -% -% \subsection{Format labels} -% -% The sortify function converts to lower case after |purify$|ing; it's -% used in sorting and in computing alphabetic labels after sorting -% -% The chop.word(w,len,s) function returns either s or, if the first len -% letters of s equals w (this comparison is done in the third line of the -% function's definition), it returns that part of s after w. -% \begin{macrocode} -FUNCTION {sortify} -{ purify$ - "l" change.case$ -} - -% \end{macrocode} -% -% We need the chop.word stuff for the dubious unsorted-list-with-labels case. -% \begin{macrocode} -FUNCTION {chop.word} -{ 's := - 'len := - s #1 len substring$ = - { s len #1 + global.max$ substring$ } - 's - if$ -} - -% \end{macrocode} -% -% The |format.lab.names| function makes a short label by using the initials of -% the von and Last parts of the names (but if there are more than four names, -% (i.e., people) it truncates after three and adds a superscripted "+"; -% it also adds such a "+" if the last of multiple authors is "others"). -% If there is only one name, and its von and Last parts combined have just -% a single name-token ("Knuth" has a single token, "Brinch Hansen" has two), -% we take the first three letters of the last name. The boolean -% et.al.char.used tells whether we've used a superscripted "+", so that we -% know whether to include a LaTeX macro for it. -% -% \begin{pseudocode} -% format.lab.names(s) == -% BEGIN -% numnames := num.names$(s) -% if numnames > 1 then -% if numnames > 4 then -% namesleft := 3 -% else -% namesleft := numnames -% nameptr := 1 -% nameresult := "" -% while namesleft > 0 -% do -% if (name_ptr = numnames) and -% format.name$(s, nameptr, "{ff }{vv }{ll}{ jj}") = "others" -% then nameresult := nameresult * "{\etalchar{+}}" -% et.al.char.used := true -% else nameresult := nameresult * -% format.name$(s, nameptr, "{v{}}{l{}}") -% nameptr := nameptr + 1 -% namesleft := namesleft - 1 -% od -% if numnames > 4 then -% nameresult := nameresult * "{\etalchar{+}}" -% et.al.char.used := true -% else -% t := format.name$(s, 1, "{v{}}{l{}}") -% if text.length$(t) < 2 then % there's just one name-token -% nameresult := text.prefix$(format.name$(s,1,"{ll}"),3) -% else -% nameresult := t -% fi -% fi -% return nameresult -% END -% \end{pseudocode} -% -% Exactly what fields we look at in constructing the primary part of the label -% depends on the entry type; this selectivity (as opposed to, say, always -% looking at author, then editor, then key) helps ensure that "ignored" fields, -% as described in the LaTeX book, really are ignored. Note that MISC is part -% of the deepest `else' clause in the nested part of calc.label; thus, any -% unrecognized entry type in the database is handled correctly. -% -% There is one auxiliary function for each of the four different sequences of -% fields we use. The first of these functions looks at the author field, and -% then, if necessary, the key field. The other three functions, which might -% look at two fields and the key field, are similar, except that the key field -% takes precedence over the organization field (for labels---not for sorting). -% -% The calc.label function calculates the preliminary label of an entry, which -% is formed by taking three letters of information from the author or editor or -% key or organization field (depending on the entry type and on what's empty, -% but ignoring a leading "The " in the organization), and appending the last -% two characters (digits) of the year. It is an error if the appropriate fields -% among author, editor, organization, and key are missing, and we use -% the first three letters of the |cite$| in desperation when this happens. -% The resulting label has the year part, but not the name part, |purify$|ed -% (|purify$|ing the year allows some sorting shenanigans by the user). -% -% This function also calculates the version of the label to be used in sorting. -% -% The final label may need a trailing 'a', 'b', etc., to distinguish it from -% otherwise identical labels, but we can't calculated those "extra.label"s -% until after sorting. -% -% \begin{pseudocode} -% calc.label == -% BEGIN -% if type$ = "book" or "inbook" then -% author.editor.key.label -% else if type$ = "proceedings" then -% editor.key.organization.label -% else if type$ = "manual" then -% author.key.organization.label -% else -% author.key.label -% fi fi fi -% label := label * substring$(purify$(field.or.null(year)), -1, 2) -% % assuming we will also sort, we calculate a sort.label -% sort.label := sortify(label), but use the last four, not two, digits -% END -% \end{pseudocode} -% \begin{macrocode} -FUNCTION {format.lab.name} -{ "{vv~}{ll}{, jj}{, ff}" format.name$ 't := - t "others" = - { citation.et.al } - { t get.str.lang 'name.lang := - name.lang lang.zh = name.lang lang.ja = or - { t #1 "{ll}{ff}" format.name$ } - { t #1 "{vv~}{ll}" format.name$ } - if$ - } - if$ -} - -% \end{macrocode} -% -% 第一作者姓名相同、年份相同但作者数量不同时,也需要年份标签区分。 -% 比如“王临惠\ 等, 2010a”和“王临惠, 2010b”, -% 所以使用 |short.label| 存储不带“et al”的版本。 -% \begin{macrocode} -FUNCTION {format.lab.names} -{ 's := - s #1 format.lab.name 'short.label := - #1 'nameptr := - s num.names$ 'numnames := - "" - numnames 'namesleft := - { namesleft #0 > } - { s nameptr format.lab.name citation.et.al = - numnames citation.et.al.min #1 - > nameptr citation.et.al.use.first > and or - { bbl.space * - citation.et.al * - #1 'namesleft := - } - { nameptr #1 > - { namesleft #1 = citation.and "" = not and - { citation.and * } - { ", " * } - if$ - } - 'skip$ - if$ - s nameptr format.lab.name * - } - if$ - nameptr #1 + 'nameptr := - namesleft #1 - 'namesleft := - } - while$ -} - -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} -{ "" 'short.label := - type$ "book" = - type$ "inbook" = - or - 'author.editor.key.label - { type$ "collection" = - type$ "proceedings" = - or - { editor empty$ not - 'editor.key.organization.label - 'author.key.organization.label - if$ - } - 'author.key.label - if$ - } - if$ - 'short.list := - short.label empty$ - { short.list 'short.label := } - 'skip$ - if$ -} - -% \end{macrocode} -% -% 如果 label 中有中括号“[”,分别用大括号保护起来,防止 \cs{bibitem} 处理出错。 -% 另外为了兼容 \pkg{bibunits},“name(year)fullname” 的每一项都要分别保护起来, -% 参考 \href{https://github.com/tuna/thuthesis/issues/630}{tuna/thuthesis/\#630}。 -% \begin{macrocode} -FUNCTION {calc.label} -{ calc.short.authors - short.list "]" contains - { "{" short.list * "}" * } - { short.list } - if$ - "(" - * - format.year duplicate$ empty$ - short.list key field.or.null = or - { pop$ "" } - 'skip$ - if$ - duplicate$ "]" contains - { "{" swap$ * "}" * } - 'skip$ - if$ - * - 'label := - short.label - "(" - * - format.year duplicate$ empty$ - short.list key field.or.null = or - { pop$ "" } - 'skip$ - if$ - * - 'short.label := -} - -% \end{macrocode} -% -% -% \subsection{Sorting} -% -% When sorting, we compute the sortkey by executing "presort" on each entry. -% The presort key contains a number of "sortify"ed strings, concatenated -% with multiple blanks between them. This makes things like "brinch per" -% come before "brinch hansen per". -% -% The fields used here are: the sort.label for alphabetic labels (as set by -% |calc.label|), followed by the author names (or editor names or organization -% (with a leading "The " removed) or key field, depending on entry type and on -% what's empty), followed by year, followed by the first bit of the title -% (chopping off a leading "The ", "A ", or "An "). -% Names are formatted: Von Last First Junior. -% The names within a part will be separated by a single blank -% (such as "brinch hansen"), two will separate the name parts themselves -% (except the von and last), three will separate the names, -% four will separate the names from year (and from label, if alphabetic), -% and four will separate year from title. -% -% The |sort.format.names| function takes an argument that should be in -% BibTeX name format, and returns a string containing " "-separated -% names in the format described above. The function is almost the same -% as format.names. -% \begin{macrocode} -%<*author-year> -FUNCTION {sort.language.label} -{ entry.lang lang.zh = - { lang.zh.order } - { entry.lang lang.ja = - { lang.ja.order } - { entry.lang lang.en = - { lang.en.order } - { entry.lang lang.ru = - { lang.ru.order } - { lang.other.order } - if$ - } - if$ - } - if$ - } - if$ - #64 + - int.to.chr$ -} - -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$ -} - -% \end{macrocode} -% -% The sort.format.title function returns the argument, -% but first any leading "A "'s, "An "'s, or "The "'s are removed. -% The chop.word function uses s, so we need another string variable, t -% \begin{macrocode} -FUNCTION {sort.format.title} -{ 't := - "A " #2 - "An " #3 - "The " #4 t chop.word - chop.word - chop.word - sortify - #1 global.max$ substring$ -} - -% \end{macrocode} -% -% The auxiliary functions here, for the presort function, are analogous to -% the ones for calc.label; the same comments apply, except that the -% organization field takes precedence here over the key field. For sorting -% purposes, we still remove a leading "The " from the organization field. -% \begin{macrocode} -FUNCTION {anonymous.sort} -{ entry.lang lang.zh = - { "yi4 ming2" } - { "anon" } - if$ -} - -FUNCTION {warn.empty.key} -{ entry.lang lang.zh = - { "empty key in " cite$ * warning$ } - 'skip$ - if$ -} - -FUNCTION {author.sort} -{ key empty$ - { warn.empty.key - author empty$ - { anonymous.sort } - { author sort.format.names } - if$ - } - { key } - if$ -} - -FUNCTION {author.editor.sort} -{ key empty$ - { warn.empty.key - author empty$ - { editor empty$ - { anonymous.sort } - { editor sort.format.names } - if$ - } - { author sort.format.names } - if$ - } - { key } - if$ -} - -FUNCTION {author.organization.sort} -{ key empty$ - { warn.empty.key - author empty$ - { organization empty$ - { anonymous.sort } - { "The " #4 organization chop.word sortify } - if$ - } - { author sort.format.names } - if$ - } - { key } - if$ -} - -FUNCTION {editor.organization.sort} -{ key empty$ - { warn.empty.key - editor empty$ - { organization empty$ - { anonymous.sort } - { "The " #4 organization chop.word sortify } - if$ - } - { editor sort.format.names } - if$ - } - { key } - if$ -} - -% -% \end{macrocode} -% -% 顺序编码制的排序要简单得多 -% \begin{macrocode} -%<*numerical> -INTEGERS { seq.num } - -FUNCTION {init.seq} -{ #0 'seq.num :=} - -FUNCTION {int.to.fix} -{ "000000000" swap$ int.to.str$ * - #-1 #10 substring$ -} - -% -% \end{macrocode} -% -% There is a limit, |entry.max$|, on the length of an entry string variable -% (which is what its |sort.key$| is), so we take at most that many characters -% of the constructed key, and hope there aren't many references that match -% to that many characters! -% \begin{macrocode} -FUNCTION {presort} -{ set.entry.lang - set.entry.numbered - show.url show.doi check.electronic - #0 'is.pure.electronic := - calc.label - label sortify - " " - * -%<*author-year> - sort.language.label - " " - * - type$ "book" = - type$ "inbook" = - or - 'author.editor.sort - { type$ "collection" = - type$ "proceedings" = - or - 'editor.organization.sort - 'author.sort - if$ - } - if$ - * - " " - * - year field.or.null sortify - * - " " - * - cite$ - * - #1 entry.max$ substring$ -% -%<*numerical> - seq.num #1 + 'seq.num := - seq.num int.to.fix -% - 'sort.label := - sort.label * - #1 entry.max$ substring$ - 'sort.key$ := -} - -% \end{macrocode} -% -% Now comes the final computation for alphabetic labels, putting in the 'a's -% and 'b's and so forth if required. This involves two passes: a forward -% pass to put in the 'b's, 'c's and so on, and a backwards pass -% to put in the 'a's (we don't want to put in 'a's unless we know there -% are 'b's). -% We have to keep track of the longest (in |width$| terms) label, for use -% by the "thebibliography" environment. -% -% \begin{pseudocode} -% VAR: longest.label, last.sort.label, next.extra: string -% longest.label.width, last.extra.num: integer -% -% initialize.longest.label == -% BEGIN -% longest.label := "" -% last.sort.label := int.to.chr$(0) -% next.extra := "" -% longest.label.width := 0 -% last.extra.num := 0 -% END -% -% forward.pass == -% BEGIN -% if last.sort.label = sort.label then -% last.extra.num := last.extra.num + 1 -% extra.label := int.to.chr$(last.extra.num) -% else -% last.extra.num := chr.to.int$("a") -% extra.label := "" -% last.sort.label := sort.label -% fi -% END -% -% reverse.pass == -% BEGIN -% if next.extra = "b" then -% extra.label := "a" -% fi -% label := label * extra.label -% if width$(label) > longest.label.width then -% longest.label := label -% longest.label.width := width$(label) -% fi -% next.extra := extra.label -% END -% \end{pseudocode} -% \begin{macrocode} -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 short.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 := - short.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 := -} - -FUNCTION {bib.sort.order} -{ sort.label 'sort.key$ := -} - -% \end{macrocode} -% -% -% \subsection{Write bbl file} -% -% Now we're ready to start writing the .BBL file. -% We begin, if necessary, with a \LaTeX{} macro for unnamed names in an -% alphabetic label; next comes stuff from the `preamble' command in the -% database files. Then we give an incantation containing the command -% |\begin{thebibliography}{...}| -% where the `...' is the longest label. -% -% We also call init.state.consts, for use by the output routines. -% \begin{macrocode} -FUNCTION {begin.bib} -{ preamble$ empty$ - 'skip$ - { preamble$ write$ newline$ } - if$ - "\begin{thebibliography}{" number.label int.to.str$ * "}" * - write$ newline$ - terms.in.macro - { "\providecommand{\biband}{和}" - write$ newline$ - "\providecommand{\bibetal}{等}" - write$ newline$ - } - 'skip$ - if$ - "\providecommand{\natexlab}[1]{#1}" - write$ newline$ - "\providecommand{\url}[1]{#1}" - write$ newline$ - "\expandafter\ifx\csname urlstyle\endcsname\relax\else" - write$ newline$ - " \urlstyle{same}\fi" - write$ newline$ - "\expandafter\ifx\csname href\endcsname\relax" - write$ newline$ - " \DeclareUrlCommand\doi{\urlstyle{rm}}" - write$ newline$ - " \def\eprint#1#2{#2}" - write$ newline$ - "\else" - write$ newline$ - " \def\doi#1{\href{https://doi.org/#1}{\nolinkurl{#1}}}" - write$ newline$ - " \let\eprint\href" - write$ newline$ - "\fi" - write$ newline$ - } - -% \end{macrocode} -% -% Finally, we finish up by writing the `|\end{thebibliography}|' command. -% \begin{macrocode} -FUNCTION {end.bib} -{ newline$ - "\end{thebibliography}" write$ newline$ -} - -% \end{macrocode} -% -% -% \subsection{Main execution} -% -% Now we read in the .BIB entries. -% \begin{macrocode} -READ - -EXECUTE {init.state.consts} - -EXECUTE {load.config} - -%<*numerical> -EXECUTE {init.seq} - -% -ITERATE {presort} - -% \end{macrocode} -% -% And now we can sort -% \begin{macrocode} -SORT - -EXECUTE {initialize.longest.label} - -ITERATE {forward.pass} - -REVERSE {reverse.pass} - -ITERATE {bib.sort.order} - -SORT - -EXECUTE {begin.bib} - -% \end{macrocode} -% -% Now we produce the output for all the entries -% \begin{macrocode} -ITERATE {call.type$} - -EXECUTE {end.bib} -% -% \end{macrocode} -% \end{environment} -% -% \Finale -\endinput diff --git a/Master/texmf-dist/source/bibtex/gbt7714/gbt7714.ins b/Master/texmf-dist/source/bibtex/gbt7714/gbt7714.ins deleted file mode 100644 index cb407faf80e..00000000000 --- a/Master/texmf-dist/source/bibtex/gbt7714/gbt7714.ins +++ /dev/null @@ -1,29 +0,0 @@ -% !TeX encoding = UTF-8 -% !TeX program = xetex -\input docstrip.tex -\keepsilent -\askforoverwritefalse -\preamble -------------------------------------------------------------------- -GB/T 7714—2015 BibTeX Style -https://github.com/CTeX-org/gbt7714-bibtex-style -Version: 2021/06/20 v2.1.2 -------------------------------------------------------------------- -Copyright (C) 2016—\the\year by Zeping Lee -------------------------------------------------------------------- -This file may be distributed and/or modified under the -conditions of the LaTeX Project Public License, either version 1.3c -of this license or (at your option) any later version. -The latest version of this license is in - https://www.latex-project.org/lppl.txt -and version 1.3c or later is part of all distributions of LaTeX -version 2008 or later. -------------------------------------------------------------------- -\endpreamble -\nopostamble -\generate{ - \file{gbt7714.sty}{\from{gbt7714.dtx}{package}} - \file{gbt7714-numerical.bst}{\from{gbt7714.dtx}{2015,numerical}} - \file{gbt7714-author-year.bst}{\from{gbt7714.dtx}{2015,author-year}} -} -\endbatchfile diff --git a/Master/texmf-dist/tex/latex/gbt7714/gbt7714.sty b/Master/texmf-dist/tex/latex/gbt7714/gbt7714.sty index c80beadadc5..494e36e4e6d 100644 --- a/Master/texmf-dist/tex/latex/gbt7714/gbt7714.sty +++ b/Master/texmf-dist/tex/latex/gbt7714/gbt7714.sty @@ -6,9 +6,9 @@ %% %% gbt7714.dtx (with options: `package') %% ------------------------------------------------------------------- -%% GB/T 7714—2015 BibTeX Style -%% https://github.com/CTeX-org/gbt7714-bibtex-style -%% Version: 2021/06/20 v2.1.2 +%% GB/T 7714 BibTeX Style +%% https://github.com/zepinglee/gbt7714-bibtex-style +%% Version: 2021/12/08 v2.1.3 %% ------------------------------------------------------------------- %% Copyright (C) 2016—2021 by Zeping Lee %% ------------------------------------------------------------------- @@ -22,7 +22,7 @@ %% ------------------------------------------------------------------- \NeedsTeXFormat{LaTeX2e}[1999/12/01] \ProvidesPackage{gbt7714} - [2021/06/20 v2.1.2 GB/T 7714—2015 BibTeX Style] + [2021/12/08 v2.1.3 GB/T 7714 BibTeX Style] \newif\ifgbt@legacy@interface \newif\ifgbt@mmxv \newif\ifgbt@numerical -- cgit v1.2.3