From 30b3429f0e138c93c5f1ba1d1a6d46728c0943e9 Mon Sep 17 00:00:00 2001 From: Norbert Preining Date: Tue, 4 Oct 2022 03:00:59 +0000 Subject: CTAN sync 202210040300 --- biblio/bibtex/contrib/gbt7714/CHANGELOG.md | 16 +- biblio/bibtex/contrib/gbt7714/DEPENDS.txt | 5 + biblio/bibtex/contrib/gbt7714/README.md | 6 +- .../contrib/gbt7714/gbt7714-2005-author-year.bst | 11 +- .../contrib/gbt7714/gbt7714-2005-numerical.bst | 11 +- .../bibtex/contrib/gbt7714/gbt7714-author-year.bst | 11 +- .../bibtex/contrib/gbt7714/gbt7714-numerical.bst | 11 +- biblio/bibtex/contrib/gbt7714/gbt7714.dtx | 4812 ++++++++++++++++++++ biblio/bibtex/contrib/gbt7714/gbt7714.pdf | Bin 486968 -> 487773 bytes biblio/bibtex/contrib/gbt7714/gbt7714.sty | 4 +- 10 files changed, 4862 insertions(+), 25 deletions(-) create mode 100644 biblio/bibtex/contrib/gbt7714/DEPENDS.txt create mode 100644 biblio/bibtex/contrib/gbt7714/gbt7714.dtx (limited to 'biblio') diff --git a/biblio/bibtex/contrib/gbt7714/CHANGELOG.md b/biblio/bibtex/contrib/gbt7714/CHANGELOG.md index 5b19827d80..afd2d5c033 100644 --- a/biblio/bibtex/contrib/gbt7714/CHANGELOG.md +++ b/biblio/bibtex/contrib/gbt7714/CHANGELOG.md @@ -7,13 +7,20 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 ## [Unreleased] +## [v2.1.5] - 2022-10-03 + +### Changed + +- “volume”和“number”改为缩写“Vol.”和“No.”([#104](https://github.com/zepinglee/gbt7714-bibtex-style/issues/104))。 +- 纯电子文献缺失“出版日期”时不再警告。 + ## [v2.1.4] - 2022-03-21 ### Added -- 新增选项 `component.part.label` 控制表示析出文献的符号,可选 `“slash”`, `"in"`, `"none"`。 -- 新增 `entrysubtype` 域的支持([hushidong/biblatex-gb7714-2015/#113](https://github.com/hushidong/biblatex-gb7714-2015/issues/113))。 -- 不著录第 1 版([hushidong/biblatex-gb7714-2015#117](https://github.com/hushidong/biblatex-gb7714-2015/issues/117)。 +- 新增选项 `component.part.label` 控制表示析出文献的符号,可选 `"slash"`, `"in"`, `"none"`。 +- 新增 `entrysubtype` 域的支持([hushidong/biblatex-gb7714-2015#113](https://github.com/hushidong/biblatex-gb7714-2015/issues/113))。 +- 不著录第 1 版([hushidong/biblatex-gb7714-2015#117](https://github.com/hushidong/biblatex-gb7714-2015/issues/117))。 ### Changed @@ -226,7 +233,8 @@ and this project adheres to [Semantic Versioning](https://semver.org/spec/v2.0.0 - Initial release.。 -[Unreleased]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v2.1.4...HEAD +[Unreleased]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v2.1.5...HEAD +[v2.1.5]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v2.1.4...v2.1.5 [v2.1.4]: https://github.com/zepinglee/gbt7714-bibtex-style/compare/v2.1.3...v2.1.4 [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 diff --git a/biblio/bibtex/contrib/gbt7714/DEPENDS.txt b/biblio/bibtex/contrib/gbt7714/DEPENDS.txt new file mode 100644 index 0000000000..f3836ef52d --- /dev/null +++ b/biblio/bibtex/contrib/gbt7714/DEPENDS.txt @@ -0,0 +1,5 @@ +# The format of this file is described in https://www.tug.org/texlive/pkgcontrib.html#deps. + +hard bibtex +hard natbib +hard url diff --git a/biblio/bibtex/contrib/gbt7714/README.md b/biblio/bibtex/contrib/gbt7714/README.md index 3f6e2130c4..193d17e26e 100644 --- a/biblio/bibtex/contrib/gbt7714/README.md +++ b/biblio/bibtex/contrib/gbt7714/README.md @@ -44,7 +44,7 @@ GB/T 7714—2015 《信息与文献 参考文献著录规则》是中国的参 ## 使用方法 -以下是 \pkg{gbt7714} 宏包的一个简单示例。 +以下是 `gbt7714` 宏包的一个简单示例。 ```latex \begin{latex} \documentclass{ctexart} @@ -60,9 +60,9 @@ GB/T 7714—2015 《信息与文献 参考文献著录规则》是中国的参 1. 在导言区调用宏包 `gbt7714`; -2. 在正文中 `\cite` 文献; +2. 使用 `\bibliographystyle` 选择参考文献的样式; -3. 使用 `\bibliographystyle` 选择参考文献表的样式; +3. 在正文中 `\cite` 文献; 4. 使用 `\bibliography` 命令生成参考文献表。 diff --git a/biblio/bibtex/contrib/gbt7714/gbt7714-2005-author-year.bst b/biblio/bibtex/contrib/gbt7714/gbt7714-2005-author-year.bst index fd4f0c4c05..fdd048d026 100644 --- a/biblio/bibtex/contrib/gbt7714/gbt7714-2005-author-year.bst +++ b/biblio/bibtex/contrib/gbt7714/gbt7714-2005-author-year.bst @@ -8,7 +8,7 @@ %% ------------------------------------------------------------------- %% GB/T 7714 BibTeX Style %% https://github.com/zepinglee/gbt7714-bibtex-style -%% Version: 2022/03/21 v2.1.4 +%% Version: 2022/10/03 v2.1.5 %% ------------------------------------------------------------------- %% Copyright (C) 2016--2022 by Zeping Lee %% ------------------------------------------------------------------- @@ -887,7 +887,7 @@ FUNCTION {format.volume} { volume is.number { entry.lang lang.zh = { "第 " volume * " 卷" * } - { "volume" volume tie.or.space.connect } + { "Vol." volume tie.or.space.connect } if$ } { volume } @@ -902,7 +902,7 @@ FUNCTION {format.number} { number is.number { entry.lang lang.zh = { "第 " number * " 册" * } - { "number" number tie.or.space.connect } + { "No." number tie.or.space.connect } if$ } { number } @@ -1311,7 +1311,10 @@ FUNCTION {format.year} { year extract.before.slash extra.label * } { date empty$ not { date extract.before.dash extra.label * } - { "empty year in " cite$ * warning$ + { entry.is.electronic not + { "empty year in " cite$ * warning$ } + 'skip$ + if$ urldate empty$ not { "[" urldate extract.before.dash * extra.label * "]" * } { "" } diff --git a/biblio/bibtex/contrib/gbt7714/gbt7714-2005-numerical.bst b/biblio/bibtex/contrib/gbt7714/gbt7714-2005-numerical.bst index 3b4b5c0eee..f0baa3b39d 100644 --- a/biblio/bibtex/contrib/gbt7714/gbt7714-2005-numerical.bst +++ b/biblio/bibtex/contrib/gbt7714/gbt7714-2005-numerical.bst @@ -8,7 +8,7 @@ %% ------------------------------------------------------------------- %% GB/T 7714 BibTeX Style %% https://github.com/zepinglee/gbt7714-bibtex-style -%% Version: 2022/03/21 v2.1.4 +%% Version: 2022/10/03 v2.1.5 %% ------------------------------------------------------------------- %% Copyright (C) 2016--2022 by Zeping Lee %% ------------------------------------------------------------------- @@ -877,7 +877,7 @@ FUNCTION {format.volume} { volume is.number { entry.lang lang.zh = { "第 " volume * " 卷" * } - { "volume" volume tie.or.space.connect } + { "Vol." volume tie.or.space.connect } if$ } { volume } @@ -892,7 +892,7 @@ FUNCTION {format.number} { number is.number { entry.lang lang.zh = { "第 " number * " 册" * } - { "number" number tie.or.space.connect } + { "No." number tie.or.space.connect } if$ } { number } @@ -1301,7 +1301,10 @@ FUNCTION {format.year} { year extract.before.slash extra.label * } { date empty$ not { date extract.before.dash extra.label * } - { "empty year in " cite$ * warning$ + { entry.is.electronic not + { "empty year in " cite$ * warning$ } + 'skip$ + if$ urldate empty$ not { "[" urldate extract.before.dash * extra.label * "]" * } { "" } diff --git a/biblio/bibtex/contrib/gbt7714/gbt7714-author-year.bst b/biblio/bibtex/contrib/gbt7714/gbt7714-author-year.bst index 4637e4d270..51843b4f5e 100644 --- a/biblio/bibtex/contrib/gbt7714/gbt7714-author-year.bst +++ b/biblio/bibtex/contrib/gbt7714/gbt7714-author-year.bst @@ -8,7 +8,7 @@ %% ------------------------------------------------------------------- %% GB/T 7714 BibTeX Style %% https://github.com/zepinglee/gbt7714-bibtex-style -%% Version: 2022/03/21 v2.1.4 +%% Version: 2022/10/03 v2.1.5 %% ------------------------------------------------------------------- %% Copyright (C) 2016--2022 by Zeping Lee %% ------------------------------------------------------------------- @@ -887,7 +887,7 @@ FUNCTION {format.volume} { volume is.number { entry.lang lang.zh = { "第 " volume * " 卷" * } - { "volume" volume tie.or.space.connect } + { "Vol." volume tie.or.space.connect } if$ } { volume } @@ -902,7 +902,7 @@ FUNCTION {format.number} { number is.number { entry.lang lang.zh = { "第 " number * " 册" * } - { "number" number tie.or.space.connect } + { "No." number tie.or.space.connect } if$ } { number } @@ -1311,7 +1311,10 @@ FUNCTION {format.year} { year extract.before.slash extra.label * } { date empty$ not { date extract.before.dash extra.label * } - { "empty year in " cite$ * warning$ + { entry.is.electronic not + { "empty year in " cite$ * warning$ } + 'skip$ + if$ urldate empty$ not { "[" urldate extract.before.dash * extra.label * "]" * } { "" } diff --git a/biblio/bibtex/contrib/gbt7714/gbt7714-numerical.bst b/biblio/bibtex/contrib/gbt7714/gbt7714-numerical.bst index daeb70f367..173c6c3648 100644 --- a/biblio/bibtex/contrib/gbt7714/gbt7714-numerical.bst +++ b/biblio/bibtex/contrib/gbt7714/gbt7714-numerical.bst @@ -8,7 +8,7 @@ %% ------------------------------------------------------------------- %% GB/T 7714 BibTeX Style %% https://github.com/zepinglee/gbt7714-bibtex-style -%% Version: 2022/03/21 v2.1.4 +%% Version: 2022/10/03 v2.1.5 %% ------------------------------------------------------------------- %% Copyright (C) 2016--2022 by Zeping Lee %% ------------------------------------------------------------------- @@ -877,7 +877,7 @@ FUNCTION {format.volume} { volume is.number { entry.lang lang.zh = { "第 " volume * " 卷" * } - { "volume" volume tie.or.space.connect } + { "Vol." volume tie.or.space.connect } if$ } { volume } @@ -892,7 +892,7 @@ FUNCTION {format.number} { number is.number { entry.lang lang.zh = { "第 " number * " 册" * } - { "number" number tie.or.space.connect } + { "No." number tie.or.space.connect } if$ } { number } @@ -1301,7 +1301,10 @@ FUNCTION {format.year} { year extract.before.slash extra.label * } { date empty$ not { date extract.before.dash extra.label * } - { "empty year in " cite$ * warning$ + { entry.is.electronic not + { "empty year in " cite$ * warning$ } + 'skip$ + if$ urldate empty$ not { "[" urldate extract.before.dash * extra.label * "]" * } { "" } diff --git a/biblio/bibtex/contrib/gbt7714/gbt7714.dtx b/biblio/bibtex/contrib/gbt7714/gbt7714.dtx new file mode 100644 index 0000000000..d3e4ff98a6 --- /dev/null +++ b/biblio/bibtex/contrib/gbt7714/gbt7714.dtx @@ -0,0 +1,4812 @@ +% \iffalse meta-comment +% GB/T 7714 BibTeX Style +% https://github.com/zepinglee/gbt7714-bibtex-style +% +% Copyright (C) 2016--2022 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} +% [2022/10/03 v2.1.5 GB/T 7714 BibTeX Style] +% +%<*driver> +\documentclass[a4paper]{l3doc} +\usepackage{hypdoc} +\usepackage[UTF8]{ctex} +\usepackage{caption} +\usepackage{booktabs} +\usepackage{gbt7714} +\usepackage{hologo} +\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 \hologo{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 +% national bibliography style standard GB/T 7714. +% It consists of \file{.bst} files for numeric and author-date 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{gbt7714-2015} +% (以下简称“国标”)是中国的参考文献格式推荐标准。 +% 国内的绝大部分学术期刊、学位论文都使用了基于该标准的格式。 +% 本宏包是国标的 \BibTeX{}\cite{bibtex} 实现,具有以下特性: +% \begin{itemize} +% \item 兼容 \pkg{natbib} 宏包\cite{natbib}。 +% \item 支持“顺序编码制”和“著者-出版年制”两种风格。 +% \item 自动识别语言并进行相应处理。 +% \item 提供了简单的接口供用户修改样式。 +% \item 同时提供了 2005 版的 \file{.bst} 文件。 +% \end{itemize} +% 本宏包的主页:\url{https://github.com/zepinglee/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} 宏包的一个简单示例。 +% \begin{latex} +% \documentclass{ctexart} +% \usepackage{gbt7714} +% \bibliographystyle{gbt7714-numerical} +% \begin{document} +% \cite{...} +% ... +% \bibliography{bibfile} +% \end{document} +% \end{latex} +% +% 按照国标的规定,参考文献的标注体系分为“顺序编码制”和 +% “著者-出版年制”。 +% 用户应在导言区调用宏包 \pkg{gbt7714},并且使用 \cs{bibliographystyle} +% 命令选择参考文献表的样式,比如: +% \begin{latex} +% \bibliographystyle{gbt7714-numerical} % 顺序编码制 +% \end{latex} +% 或者 +% \begin{latex} +% \bibliographystyle{gbt7714-author-year} % 著者-出版年制 +% \end{latex} +% 此外还可以使用 2005 版的格式 \file{gbt7714-2005-numerical} 和 +% \file{gbt7714-2005-author-year}。 +% +% 注意,版本 v2.0 更改了设置参考文献表样式的方法, +% 要求直接使用 \cs{bibliographystyle},不再使用宏包的参数, +% 而且更改了 \file{bst} 的文件名。 +% +% \begin{function}{\citestyle} +% \begin{syntax} +% |\citestyle|\Arg{citation style} +% \end{syntax} +% 可选:\opt{super}, \opt{numbers}, \opt{author-year}。 +% 使用 \cs{bibliography} 选择参考文献表的样式时会自动设置对应的引用样式。 +% 顺序编码制的引用标注默认使用角标式(\opt{super}), +% 如“张三\textsuperscript{[2]}提出”。 +% 如果要使用正文模式,如“文献 [3] 中说明”, +% 可以使用 \cs{citestyle} 命令切换为数字式(\opt{numbers})。 +% \begin{latex} +% \citestyle{numbers} +% \end{latex} +% 著者-出版年制通常不需要修改引用样式。 +% \end{function} +% +% \DescribeEnv{sort\&compress} +% 同一处引用多篇文献时,应当将各篇文献的 key 一同写在 \cs{cite} 命令中。 +% 如遇连续编号,默认会自动转为起讫序号并用短横线连接 +% (见\pkg{natbib} 的 \opt{compress} 选项)。 +% 如果要对引用的编号进行自动排序,需要在调用 \pkg{gbt7714} 时加 +% \opt{sort\&compress} 参数, +% 这些参数会传给 \pkg{natbib} 处理。 +% \begin{latex} +% \usepackage[sort&compress]{gbt7714} +% \end{latex} +% 注意国标中要求 2 个或以上的连续编号用连接号,不同于 \pkg{natbib} 默认的 3 个或以上。 +% 宏包中已经作了修改。 +% +% 若需要标出引文的页码,可以标在 \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{} 和 \pkg{biblatex} 的标准类型,但是新增了若干文献类型(带 * 号)。 +% +% \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] 学校(用于 \texttt{@phdthesis}) +% \item[institution] 机构(用于 \texttt{@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} +% +% 对于著者-出版年的样式,如果中文文献较多时更推荐使用 \pkg{biblatex} 宏包, +% 其后端 \file{biber} 可以自动处理中文按照拼音排序,无须手动填写拼音。 +% +% +% \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| & 期刊是否显示标题 \\ +% show.patent.country & |#0| & 专利题名是否含国别 \\ +% space.before.mark & |#0| & 文献类型标识前是否有空格 \\ +% show.mark & |#1| & 显示文献类型标识 \\ +% show.medium.type & |#1| & 显示载体类型标识 \\ +% component.part.label & |"slash"| & 表示析出文献的符号,可选:|"in"|, |"none"| \\ +% 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 & |#1| & 显示预印本信息 \\ +% 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)]{gbt7714-2015} +% {中国国家标准化委员会}. +% \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} 的引用格式。 +% 为了减少依赖的宏包,这里直接重定义命令不使用 \pkg{etoolbox} 的 \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.patent.country + show.mark + space.before.mark + show.medium.type + 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 +% +} + +STRINGS { + component.part.label +} + +% \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} +% +% 专利题名是否含专利国别 +% \begin{macrocode} +%<*!(show-patent-country|2005|ustc|thu)> + #0 'show.patent.country := +% +%<*(show-patent-country|2005|ustc|thu)> + #1 'show.patent.country := +% +% \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} +%<*!(in-collection|no-slash)> + "slash" 'component.part.label := +% +%<*in-collection> + "in" 'component.part.label := +% +%<*no-slash> + "none" 'component.part.label := +% +% \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> + #1 'show.preprint := +% +%<*preprint> + #0 '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 + entrysubtype + 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$ + { component.part.label "slash" = + { after.slash 'output.state := } + { new.block + component.part.label "in" = + { entry.lang lang.en = + { "In: " output + write$ + "" + before.all 'output.state := + } + 'skip$ + if$ + } + 'skip$ + if$ + } + 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{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$ +} + +% \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 * " 卷" * } + { "Vol." volume tie.or.space.connect } + if$ + } + { volume } + if$ + } + { "" } + if$ +} + +FUNCTION {format.number} +{ number empty$ not + { number is.number + { entry.lang lang.zh = + { "第 " number * " 册" * } + { "No." 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 +} + +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$ +} + +% \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 + { edition "1" = not + { entry.lang lang.zh = + { edition " 版" * } + { edition num.to.ordinal " ed." * } + if$ + } + 'skip$ + 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 * } + { entry.is.electronic not + { "empty year in " cite$ * warning$ } + 'skip$ + if$ + 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 } + { entrysubtype empty$ not + { type$ "article" = entrysubtype "newspaper" = and + { date } + { format.year } + if$ + } + { format.year } + if$ + } + if$ + } + { year empty$ not + { format.year } + { "" } + if$ + } + if$ +} + +% \end{macrocode} +% +% 更新、修改日期只用于电子资源 electronic +% \begin{macrocode} +FUNCTION {format.editdate} +{ date empty$ not + { "\allowbreak(" date * ")" * } + { "" } + if$ +} + +% \end{macrocode} +% +% 国标中的“引用日期”都是与 URL 同时出现的,所以其实为 urldate,这个虽然 +% 不是 \BibTeX{} 标准的域,但是实际中很常见。 +% \begin{macrocode} +FUNCTION {format.urldate} +{ show.urldate show.url and entry.url empty$ not and + is.pure.electronic or + urldate 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 {output.url} +{ show.url is.pure.electronic or + entry.url empty$ not and + { 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} +{ 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$ +} + +% \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 {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 + entrysubtype empty$ not + { + entrysubtype "newspaper" = + { "N" set.entry.mark } + { "J" set.entry.mark } + if$ + } + { "J" set.entry.mark } + if$ + 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 +%<*2015> + "A" set.entry.mark +% +%<*!2015> + "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 +} + +% \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} +{ 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 + { +%<*!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 +} + +FUNCTION {article} { 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 {legislation} { archive } + + +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 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} +{ +%<*author-year> + 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} +{ +%<*author-year> + 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/biblio/bibtex/contrib/gbt7714/gbt7714.pdf b/biblio/bibtex/contrib/gbt7714/gbt7714.pdf index 8ac00c1415..7a2ac8e543 100644 Binary files a/biblio/bibtex/contrib/gbt7714/gbt7714.pdf and b/biblio/bibtex/contrib/gbt7714/gbt7714.pdf differ diff --git a/biblio/bibtex/contrib/gbt7714/gbt7714.sty b/biblio/bibtex/contrib/gbt7714/gbt7714.sty index bb202cb319..38750afa9c 100644 --- a/biblio/bibtex/contrib/gbt7714/gbt7714.sty +++ b/biblio/bibtex/contrib/gbt7714/gbt7714.sty @@ -8,7 +8,7 @@ %% ------------------------------------------------------------------- %% GB/T 7714 BibTeX Style %% https://github.com/zepinglee/gbt7714-bibtex-style -%% Version: 2022/03/21 v2.1.4 +%% Version: 2022/10/03 v2.1.5 %% ------------------------------------------------------------------- %% Copyright (C) 2016--2022 by Zeping Lee %% ------------------------------------------------------------------- @@ -22,7 +22,7 @@ %% ------------------------------------------------------------------- \NeedsTeXFormat{LaTeX2e}[1999/12/01] \ProvidesPackage{gbt7714} - [2022/03/21 v2.1.4 GB/T 7714 BibTeX Style] + [2022/10/03 v2.1.5 GB/T 7714 BibTeX Style] \newif\ifgbt@legacy@interface \newif\ifgbt@mmxv \newif\ifgbt@numerical -- cgit v1.2.3