summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/source/bibtex/gbt7714
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2018-08-05 21:00:56 +0000
committerKarl Berry <karl@freefriends.org>2018-08-05 21:00:56 +0000
commit6f10523a75ddc7592e2c5e5db809908f864e9bd8 (patch)
treec8dff46188bd5e41d5129f092c74057fd1cca883 /Master/texmf-dist/source/bibtex/gbt7714
parent330d068ca03414ccb3676e73f9b69f4365b9db9b (diff)
gbt7714 (5aug18)
git-svn-id: svn://tug.org/texlive/trunk@48352 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/source/bibtex/gbt7714')
-rw-r--r--Master/texmf-dist/source/bibtex/gbt7714/gbt7714.dtx2441
1 files changed, 1431 insertions, 1010 deletions
diff --git a/Master/texmf-dist/source/bibtex/gbt7714/gbt7714.dtx b/Master/texmf-dist/source/bibtex/gbt7714/gbt7714.dtx
index d2003e067ad..2012af01124 100644
--- a/Master/texmf-dist/source/bibtex/gbt7714/gbt7714.dtx
+++ b/Master/texmf-dist/source/bibtex/gbt7714/gbt7714.dtx
@@ -21,6 +21,7 @@
%<*install>
\input docstrip.tex
\preamble
+Version: 2018/08/05 v1.0.9
Copyright (C) 2016-\the\year by Zeping Lee <zepinglee AT gmail.com>
@@ -38,8 +39,10 @@ version 2005/12/01 or later.
\nopostamble
\generate{
\file{\jobname.sty}{\from{\jobname.dtx}{package}}
- \file{\jobname-plain.bst}{\from{\jobname.dtx}{authoryear}}
- \file{\jobname-unsrt.bst}{\from{\jobname.dtx}{numerical}}
+ \file{\jobname-plain.bst}{\from{\jobname.dtx}{2015,authoryear}}
+ \file{\jobname-unsrt.bst}{\from{\jobname.dtx}{2015,numerical}}
+ \file{\jobname-2005-plain.bst}{\from{\jobname.dtx}{2005,authoryear}}
+ \file{\jobname-2005-unsrt.bst}{\from{\jobname.dtx}{2005,numerical}}
}
\endbatchfile
%</install>
@@ -52,43 +55,58 @@ version 2005/12/01 or later.
%<package>\NeedsTeXFormat{LaTeX2e}[1999/12/01]
%<package>\ProvidesPackage{gbt7714}
%<*package>
- [2018/05/12 v1.0.7 GB/T 7714-2015 BibTeX Style]
+ [2018/08/05 v1.0.9 GB/T 7714-2015 BibTeX Style]
%</package>
%
%<*driver>
\documentclass[a4paper]{ltxdoc}
-\usepackage[paper=a4paper,margin=1in]{geometry}
+\usepackage[paper=a4paper,margin=1in,left=1.25in]{geometry}
\usepackage{hypdoc}
\hypersetup{allcolors=blue}
\usepackage[UTF8]{ctex}
-\IfFileExists{/System/Library/Fonts/Times.ttc}{%
+\IfFileExists{/System/Library/Fonts/Times.ttc}{
\setmainfont{Times}
\setsansfont[Scale=MatchLowercase]{Helvetica}
\setmonofont[Scale=MatchLowercase]{Menlo}
-}{\relax}
+}{}
+\usepackage{caption}
\usepackage{booktabs}
+\usepackage{gbt7714}
\usepackage{listings}
\lstnewenvironment{latex}{%
\lstset{%
- basicstyle = \small\ttfamily,
+ basicstyle = \ttfamily\small,
language = [LaTeX]TeX,
gobble = 2,
frame = single,}}{}
\lstnewenvironment{pseudocode}{%
\lstset{%
- basicstyle=\ttfamily,
+ basicstyle=\ttfamily\small,
language=bash,
gobble=2,
frame=single,}}{}
+\makeatletter
+\def\DescribeOption{\leavevmode\@bsphack\begingroup\MakePrivateLetters
+ \Describe@Option}
+\def\Describe@Option#1{\endgroup
+ \marginpar{\raggedleft\PrintDescribeOption{#1}}%
+ \SpecialEnvIndex{#1}\@esphack\ignorespaces}
+\@ifundefined{PrintDescribeOption}
+ {\def\PrintDescribeOption#1{\strut \MacroFont #1\ }}{}
\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
\renewcommand\glossaryname{版本历史}
\GlossaryPrologue{\section*{\glossaryname}}
-\renewcommand\indexname{命令索引}
-\makeatletter
\renewcommand*{\changes@}[3]{%
\protected@edef\@tempa{%
\noexpand\glossary{#1 (#2)\levelchar
@@ -108,34 +126,14 @@ version 2005/12/01 or later.
\EnableCrossrefs
\CodelineIndex
\RecordChanges
-\OnlyDescription
+% \OnlyDescription
\begin{document}
\DocInput{\jobname.dtx}
- \PrintChanges
- \PrintIndex
\end{document}
%</driver>
% \fi
%
-% \CheckSum{0}
-%
-% \CharacterTable
-% {Upper-case \A\B\C\D\E\F\G\H\I\J\K\L\M\N\O\P\Q\R\S\T\U\V\W\X\Y\Z
-% Lower-case \a\b\c\d\e\f\g\h\i\j\k\l\m\n\o\p\q\r\s\t\u\v\w\x\y\z
-% Digits \0\1\2\3\4\5\6\7\8\9
-% Exclamation \! Double quote \" Hash (number) \#
-% Dollar \$ Percent \% Ampersand \&
-% Acute accent \' Left paren \( Right paren \)
-% Asterisk \* Plus \+ Comma \,
-% Minus \- Point \. Solidus \/
-% Colon \: Semicolon \; Less than \<
-% Equals \= Greater than \> Question mark \?
-% Commercial at \@ Left bracket \[ Backslash \\
-% Right bracket \] Circumflex \^ Underscore \_
-% Grave accent \` Left brace \{ Vertical bar \|
-% Right brace \} Tilde \~}
-%
%
%
% \GetFileInfo{\jobname.dtx}
@@ -146,166 +144,165 @@ version 2005/12/01 or later.
% \maketitle
%
% \changes{v1.0}{2018/01/01}{Initial release.}
-% \changes{v1.0.1}{2018/03/09}{著者出版年制的文献引用不再排序}
-% \changes{v1.0.2}{2017/03/16}{正确识别姓名中的“others”}
-% \changes{v1.0.3}{2018/03/29}{顺序编码制连续两个文献引用之间使用连接号}
-% \changes{v1.0.4}{2018/04/12}{页码的连接号由 en dash 改为 hyphen}
-% \changes{v1.0.5}{2018/04/18}{允许著录多个 DOI}
-% \changes{v1.0.6}{2018/05/10}{不再处理中文标题的英文单词的大小写}
-% \changes{v1.0.6}{2018/05/10}{文献列表的数字标签左对齐}
-% \changes{v1.0.7}{2018/05/12}{修正了检测 Unicode 语言}
%
%
+% \begin{abstract}
+% The \pkg{gbt7714} package provides a \BibTeX{} implementation for the China's
+% bibliography style standard GB/T 7714-2015.
+% It consists of two bst files for numerical and authoryear styles as well as a
+% \LaTeX{} package which provides the citation style defined in the standard.
+% It is compatible with \pkg{natbib} and supports language detection (Chinese
+% and English) for each biblilography entry.
+% \end{abstract}
+
% \section{简介}
%
-% 《GB/T 7714-2015 信息与文献\ 参考文献著录规则》(以下简称《规则》)是我国关于
-% 参考文献的推荐标准。
-% 本宏包是《规则》的 \BibTeX{} 实现,具有以下特性:
+% GB/T 7714-2015 《信息与文献\quad 参考文献著录规则》\cite{gbt77142015}
+% (以下简称“国标”)是中国的参考文献推荐标准。
+% 本宏包是国标的 \BibTeX{}\cite{bibtex} 实现,具有以下特性:
% \begin{itemize}
-% \item 兼容 \pkg{natbib}
-% \item 支持了顺序编码制和著者-出版年制两种风格
+% \item 兼容 \pkg{natbib} 宏包\cite{natbib}
+% \item 支持顺序编码制和著者-出版年制两种风格
% \item 自动识别语言并进行相应处理
+% \item 提供了简单的接口供用户修改样式
% \end{itemize}
+% 本宏包的主页:\url{https://github.com/zepinglee/gbt7714-bibtex-style}。
%
%
% \section{使用方法}
%
-% 首先应在导言区调用宏包 \pkg{gbt7714} ,可以选择的参数如
-% 表~\ref{tab:options}。
-%
-% \begin{table}[htbp]
-% \centering
-% \begin{tabular}{lll}
-% \toprule
-% 参数 & 参考文献列表 & 引用标注 \\
-% \midrule
-% \opt{super} (默认) & 顺序编码 & 角标数字 \\
-% \opt{numbers} & 顺序编码 & 数字 \\
-% \opt{authoryear} & 著者-出版年 & 著者-出版年 \\
-% \bottomrule
-% \end{tabular}
-% \caption{参考文献风格的参数}
-% \label{tab:options}
-% \end{table}
+% \DescribeOption{super}
+% \DescribeOption{numbers}
+% \DescribeOption{authoryear}
+% 按照国标的规定,参考文献的标注体系分为“顺序编码制”和
+% “著者-出版年制”(\opt{authoryear}),
+% 其中顺序编码制根据引用标注样式的不同分为角标数字式(\opt{super})和
+% 与正文平排的数字式(\opt{numbers})。
%
-% 举个例子:
+% 用户应在导言区调用宏包 \pkg{gbt7714},并在参数中选择参考文献的标注样式。
+% 默认的参数是 \opt{super},额外的参数会传递给 \pkg{natbib} 宏包,比如:
% \begin{latex}
% \usepackage[authoryear]{gbt7714}
% \end{latex}
% 然后\emph{不再}需要调用 \cs{bibliographystyle} 命令设置参考文献列表风格。
%
-% 使用时需要注意以下两点:
+% 使用时需要注意以下几点:
% \begin{itemize}
-% \item 使用的 bib 数据库应使用 UTF-8 编码。
-% \item 使用著者-出版年制参考文献表时,中文文献需要在 key 域填写作者姓名
-% 的拼音,才能使得文献列表按照拼音排序。
+% \item \emph{不}再需要调用 \cs{bibliographystyle} 命令选择参考文献表的格式。
+% \item bib 数据库应使用 UTF-8 编码。
+% \item 使用著者-出版年制参考文献表时,中文的文献\emph{必须}
+% 在 key 域填写作者姓名的拼音,才能按照拼音排序,
+% 详见第~\ref{sec:sort}~节。
% \end{itemize}
%
+% \DescribeMacro{\cite}
+% 在正文中引用文献时应使用 \cs{cite} 命令。
+% 同一处引用多篇文献时,应将各篇文献的 key 一同写在 \cs{cite} 命令中,
+% 如 |\cite{knuth84,lamport94,mittelbach04}|。
+% 如遇连续编号,可以自动转为起讫序号并用短横线连接。
+% 它可以自动排序并用处理连续编号。
+% 若需要标出引文的页码,可以标在 \cs{cite} 的可选参数中,如
+% |\cite[42]{knuth84}|。
+% 更多的引用标注方法可以参考 \pkg{natbib} 宏包的使用说明\cite{natbib}。
+%
+% \DescribeMacro{\bibliography}
+% 参考文献表可以在文中使用 \cs{bibliography} 命令调用。
+% 注意文献列表的样式已经在模板中根据选项设置,
+% 用户\emph{不再}需要使用 \cs{bibliographystyle} 命令。
+%
%
% \section{文献类型}
%
-% 《规则》中列举了 16 种参考文献类型,
+% 国标中规定了 16 种参考文献类型,
% 表~\ref{tab:entry-types} 列举了 \file{bib} 数据库中对应的文献类型。
-% 这些都尽可能地兼容 \BibTeX{} 的标准类型,但是新增了若干文献类型(带星号的)。
+% 这些尽可能兼容 \BibTeX{} 的标准类型,但是新增了若干文献类型(带 * 号)。
%
% \begin{table}[htbp]
-% \centering
+% \centering\small
+% \caption{全部文献类型}
+% \label{tab:entry-types}
% \begin{tabular}{lcl}
% \toprule
-% 文献类型 & 标识代码 & Entry Type \\
+% 文献类型 & 标识代码 & Entry Type \\
% \midrule
-% 普通图书 & M & book 或 inbook \\
-% 图书的析出文献 & M & incollection \\
-% 会议录 & C & proceedings \\
+% 普通图书 & 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 \\
+% 汇编 & 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}
-% \caption{全部文献类型,其中带星号的不是 \BibTeX{} 标准类型}
-% \label{tab:entry-types}
% \end{table}
%
-% 注意,不支持的 \BibTeX{} 标准类型有 booklet, manual, unpublished。
-%
%
% \section{著录项目}
%
-% 表~\ref{tab:fields} 列出了本宏包支持的全部著录项目。
-%
-% \begin{table}[htbp]
-% \centering
-% \begin{tabular}{ll}
-% \toprule
-% 著录项目(域) & Field \\
-% \midrule
-% 主要责任者 & author \\
-% 题名 & title \\
-% 文献类型标识 & mark* \\
-% 载体类型标识 & medium* \\
-% 译者 & translator* \\
-% 编辑 & editor \\
-% 组织(用于会议) & organization \\
-% 图书题名 & booktitle \\
-% 系列 & series \\
-% 期刊题名 & journal \\
-% 版本 & edition \\
-% 出版地 & address \\
-% 出版者 & publisher \\
-% 学校(用于phdthesis) & school \\
-% 机构(用于techreport) & institution \\
-% 出版年 & year \\
-% 卷 & volume \\
-% 期(或者专利号) & number \\
-% 引文页码 & pages \\
-% 更新或修改日期 & date* \\
-% 引用日期 & urldate* \\
-% 获取和访问路径 & url \\
-% 数字对象唯一标识符 & doi \\
-% 语言 & language* \\
-% 拼音(用于排序) & key \\
-% \bottomrule
-% \end{tabular}
-% \caption{全部著录项目,其中带星号的不是 \BibTeX{}/natbib 的标准著录项目。
-% 不支持的 \BibTeX{} 标准著录项目有 annote, chapter, crossref,
-% howpublished, month, note, type。}
-% \label{tab:fields}
-% \end{table}
-%
-% 由于《规则》中要求的著录项目比 \BibTeX{} 支持的要多,必须新增一些著录项目,
+% 由于国标中规定的著录项目多于 \BibTeX{} 的标准域,
+% 必须新增一些著录项目(带 * 号),
% 这些新增的类型在设计时参考了 BibLaTeX,如 date 和 urldate。
+% 本宏包支持的全部域如下:
+% \begin{description}
+% \item[author] 主要责任者
+% \item[title] 题名
+% \item[mark*] 文献类型标识
+% \item[medium*] 载体类型标识
+% \item[translator*] 译者
+% \item[editor] 编辑
+% \item[organization] 组织(用于会议)
+% \item[booktitle] 图书题名
+% \item[series] 系列
+% \item[journal] 期刊题名
+% \item[edition] 版本
+% \item[address] 出版地
+% \item[publisher] 出版者
+% \item[school] 学校(用于phdthesis)
+% \item[institution] 机构(用于techreport)
+% \item[year] 出版年
+% \item[volume] 卷
+% \item[number] 期(或者专利号)
+% \item[pages] 引文页码
+% \item[date*] 更新或修改日期
+% \item[urldate*] 引用日期
+% \item[url] 获取和访问路径
+% \item[doi] 数字对象唯一标识符
+% \item[language*] 语言
+% \item[key] 拼音(用于排序)
+% \end{description}
+% 不支持的 \BibTeX{} 标准著录项目有 annote, chapter, crossref, month, type。
%
% 本宏包默认情况下可以自动识别文献语言,并自动处理文献类型和载体类型标识,
% 但是在少数情况下需要用户手动指定,如:
% \begin{latex}
-% @article{citekey,
+% @misc{citekey,
% language = {japanese},
-% mark = {M},
-% medium = {CD},
+% mark = {Z},
+% medium = {DK},
% ...
% \end{latex}
-% 可选的语言有 english, chinese, japanese, russian,
-% 目前对日语和俄语的支持较为有限。
+% 可选的语言有 english, chinese, japanese, russian。
%
%
-% \section{参考文献列表的排序}
+% \section{文献列表的排序}
+% \label{sec:sort}
%
-% 在使用著者-出版年制时,需要将中文参考文献按照拼音或者笔画排序,然而 Unicode
-% 中汉字是根据康熙字典排序的,而且由于 \BibTeX{} 功能的局限性,我们无法根据著
-% 者姓名读取拼音,所以只能手动处理:在 key 域手动添加著者姓名拼音,
-% 如:
+% 国标规定参考文献表采用著者-出版年制组织时,各篇文献首先按文种集中,
+% 然后按著者字顺和出版年排列;
+% 中文文献可以按著者汉语拼音字顺排列,也可以按著者的笔画笔顺排列。
+% 然而由于 \BibTeX{} 功能的局限性,无法自动获取著者姓名的拼音或笔画笔顺,
+% 所以\emph{必须}在 bib 数据库中的 key 域手动录入著者姓名的拼音,如:
% \begin{latex}
% @book{capital,
% author = {马克思 and 恩格斯},
@@ -314,32 +311,186 @@ version 2005/12/01 or later.
% \end{latex}
%
%
+% \section{自定义样式}
+%
+% \BibTeX{} 对自定义样式的支持比较有限,
+% 所以用户只能通过修改 \file{bst} 文件来修改文献列表的格式。
+% 本宏包提供了一些接口供用户更方便地修改。
+%
+% 在 \file{bst} 文件开始处的 |load.config| 函数中,
+% 有一组配置参数用来控制样式,表~\ref{tab:config} 列出了每一项的默认值和功能。
+% 若变量被设为 |#1| 则表示该项被启用,设为 |#0| 则不启用。
+% 默认的值是严格遵循国标的配置。
+%
+% \begin{table}
+% \centering\small
+% \caption{参考文献表样式的配置参数}
+% \label{tab:config}
+% \begin{tabular}{lcl}
+% \toprule
+% 参数值 & 默认值 & 功能 \\
+% \midrule
+% uppercase.name & |#1| & 将著者姓名转为大写 \\
+% max.num.authors & |#3| & 输出著者的最多数量 \\
+% period.between.author.year & |#0| & 著者和年份之间使用句点连接 \\
+% sentence.case.title & |#1| & 将西文的题名转为 sentence case \\
+% link.title & |#0| & 在题名上添加 url 的超链接 \\
+% show.mark & |#1| & 显示文献类型标识 \\
+% italic.jounal & |#0| & 西文期刊名使用斜体 \\
+% show.missing.address.publisher & |#1| & 出版项缺失时显示“出版者不详” \\
+% show.url & |#1| & 显示 url \\
+% show.doi & |#1| & 显示 doi \\
+% show.note & |#0| & 显示 note 域的信息 \\
+% \bottomrule
+% \end{tabular}
+% \end{table}
%
+% 若用户需要定制更多内容,可以学习 \file{bst} 文件的语法并修改
+% \cite{btxhak,ttb,tlc2},或者联系作者。
+%
+%
+% \section{相关工作}
+%
+% TeX 社区也有其他关于 GB/T 7714 系列参考文献标准的工作。
+% 2005 年吴凯\cite{wk2006}发布了基于 GB/T 7714-2005 的 \BibTeX{} 样式,
+% 支持顺序编码制和著者出版年制两种风格。
+% 李志奇\cite{lqz2013}发布了严格遵循 GB/T 7714-2005 的 BibLaTeX 的样式。
+% 胡海星\cite{hhx2013}提供了另一个 \BibTeX{} 实现,
+% 还给每行 bst 代码写了 java 语言注释。
+% 沈周\cite{sz2016}基于 \pkg{biblatex-caspervector}\cite{vector2012} 进行修改,
+% 以符合国标的格式。
+% 胡振震发布了符合 GB/T 7714-2015 标准的 BibLaTeX 参考文献样式\cite{hzz2016},
+% 并进行了比较完善的持续维护。
+%
+%
+% \begin{thebibliography}{12}
+% \providecommand{\natexlab}[1]{#1}
+% \providecommand{\url}[1]{#1}
+% \expandafter\ifx\csname urlstyle\endcsname\relax\relax\else
+% \urlstyle{same}\fi
+% \providecommand{\href}[2]{\url{#2}}
+% \providecommand{\doi}[1]{\href{https://doi.org/#1}{#1}}
+%
+% \bibitem[{中国国家标准化委员会}(2015)]{gbt77142015}
+% {中国国家标准化委员会}.
+% \newblock 信息与文献\quad 参考文献著录规则: GB/T
+% 7714--2015\allowbreak[S].
+% \newblock 北京: 中国标准出版社, 2015.
+%
+% \bibitem[Patashnik(1988{\natexlab{a}})]{bibtex}
+% PATASHNIK~O.
+% \newblock {\BibTeX}ing\allowbreak[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\allowbreak[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\allowbreak[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\allowbreak[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\allowbreak[M].
+% \newblock 2nd ed.
+% \newblock Reading, MA, USA: Addison-Wesley, 2004.
+%
+% \bibitem[吴凯(2006)]{wk2006}
+% 吴凯.
+% \newblock 发布GBT7714-2005.bst version1 Beta版\allowbreak[EB/OL].
+% \newblock 2006.
+% \newblock \url{http://bbs.ctex.org/forum.php?mod=viewthread&tid=33591}.
+%
+% \bibitem[李志奇(2013)]{lqz2013}
+% 李志奇.
+% \newblock
+% 基于biblatex的符合GBT7714-2005的中文文献生成工具\allowbreak[EB/OL].
+% \newblock 2013.
+% \newblock \url{http://bbs.ctex.org/forum.php?mod=viewthread&tid=74474}.
+%
+% \bibitem[胡海星(2013)]{hhx2013}
+% 胡海星.
+% \newblock A GB/T 7714-2005 national standard compliant BibTeX
+% style\allowbreak[EB/OL].
+% \newblock 2013.
+% \newblock \url{https://github.com/Haixing-Hu/GBT7714-2005-BibTeX-Style}.
+%
+% \bibitem[沈周(2016)]{sz2016}
+% 沈周.
+% \newblock 基于caspervector改写的符合GB/T
+% 7714-2005标准的参考文献格式\allowbreak[EB/OL].
+% \newblock 2016.
+% \newblock \url{https://github.com/szsdk/biblatex-gbt77142005}.
+%
+% \bibitem[Vector(2012)]{vector2012}
+% VECTOR~C~T.
+% \newblock biblatex 参考文献和引用样式: caspervector\allowbreak[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
+% 参考文献样式\allowbreak[M/OL].
+% \newblock 2016.
+% \newblock
+% \url{http://mirrors.ctan.org/macros/latex/contrib/biblatex-contrib/biblatex-gb7714-2015/biblatex-gb7714-2015.pdf}.
+%
+% \end{thebibliography}
+%
+%
+% \linespread{1.3}
+% \PrintChanges
+%
+%
+% \clearpage
+% \appendix
% \StopEventually{}
%
-% \section{Package}
+% \section{宏包的代码实现}
%
% 下面声明和处理宏包的选项,有 \opt{authoryear} 和 \opt{numbers}。
% \begin{macrocode}
%<*package>
+\newif\if@gbt@mmxv
\newif\if@gbt@numerical
\newif\if@gbt@super
+\DeclareOption{2015}{\@gbt@mmxvtrue}
+\DeclareOption{2005}{\@gbt@mmxvfalse}
\DeclareOption{super}{\@gbt@numericaltrue\@gbt@supertrue}
\DeclareOption{numbers}{\@gbt@numericaltrue\@gbt@superfalse}
\DeclareOption{authoryear}{\@gbt@numericalfalse}
\DeclareOption*{\PassOptionsToPackage{\CurrentOption}{natbib}}
-\ExecuteOptions{super}
+\ExecuteOptions{2015,super}
\ProcessOptions\relax
% \end{macrocode}
%
% 只在顺序编码时使用 \opt{sort\&compress}。
+% \changes{v1.0.1}{2018/03/09}{著者出版年制的文献引用不再排序}
% \begin{macrocode}
\if@gbt@numerical
\PassOptionsToPackage{sort&compress}{natbib}
\fi
\RequirePackage{natbib}
+\RequirePackage{etoolbox}
+\RequirePackage{url}
% \end{macrocode}
%
+% \begin{macro}{\citestyle}
% 定义接口切换引用文献的标注法,可用 \cs{citestyle} 调用 \opt{numerical}
% 或 \opt{authoryear},参见 \pkg{natbib}。
% \begin{macrocode}
@@ -347,25 +498,31 @@ version 2005/12/01 or later.
\newcommand\bibstyle@numbers{\bibpunct{[}{]}{,}{n}{,}{,}}
\newcommand\bibstyle@authoryear{\bibpunct{(}{)}{;}{a}{,}{,}}
% \end{macrocode}
+% \end{macro}
%
% \begin{macro}{\gbtbibstyle}
% 定义接口切换参考文献表的风格,可选 \opt{authoryear} 和 \opt{numerical},
% 这个仅用于\pkg{chapterbib}。
% \begin{macrocode}
-\def\tmp@numerical{numerical}
-\def\tmp@authoryear{authoryear}
\newcommand\gbtbibstyle[1]{%
- \def\tmp@gbt{#1}%
- \ifx\tmp@gbt\tmp@numerical%
- \bibliographystyle{gbt7714-unsrt}%
- \else%
- \ifx\tmp@gbt\tmp@authoryear%
- \bibliographystyle{gbt7714-plain}%
- \else%
- \PackageError{gbt7714}{Unknown argument #1.}
- {It should be `numerical' or `authoryear'.}
- \fi%
- \fi%
+ \ifstrequal{#1}{numerical}{%
+ \if@gbt@mmxv
+ \bibliographystyle{gbt7714-unsrt}%
+ \else
+ \bibliographystyle{gbt7714-2005-unsrt}%
+ \fi
+ }{%
+ \ifstrequal{#1}{authoryear}{%
+ \if@gbt@mmxv
+ \bibliographystyle{gbt7714-plain}%
+ \else
+ \bibliographystyle{gbt7714-2005-plain}%
+ \fi
+ }{%
+ \PackageError{gbt7714}{Unknown argument #1.}%
+ {It should be `numerical' or `authoryear'.}%
+ }%
+ }%
}
% \end{macrocode}
% \end{macro}
@@ -386,10 +543,15 @@ version 2005/12/01 or later.
\fi
% \end{macrocode}
%
+% \begin{macro}{\cite}
% 下面修改 \pkg{natbib} 的引用格式,主要是将页码写在上标位置。
% Numerical 模式的 \cs{citet} 的页码:
% \begin{macrocode}
-\RequirePackage{etoolbox}
+\newcommand\gbt@patchfailure[1]{%
+ \ClassError{ustcthesis}{Failed to patch command \protect#1.\MessageBreak
+ Please contact the template author.%
+ }{}%
+}
\patchcmd{\NAT@citexnum}{%
\@ifnum{\NAT@ctype=\z@}{%
\if*#2*\else\NAT@cmt#2\fi
@@ -400,7 +562,7 @@ version 2005/12/01 or later.
\@ifnum{\NAT@ctype=\z@}{%
\if*#2*\else\textsuperscript{#2}\fi
}{}%
-}{}{}
+}{}{\gbt@patchfailure{\NAT@citexnum}}
% \end{macrocode}
%
% Numerical 模式的 \cs{citep} 的页码:
@@ -419,7 +581,7 @@ version 2005/12/01 or later.
}{%
\if\relax\NAT@date\relax\else\NAT@@close\fi
\if*#2*\else\textsuperscript{#2}\fi
-}{}{}
+}{}{\gbt@patchfailure{\NAT@citex}}
% \end{macrocode}
%
% Author-year 模式的 \cs{citep} 的页码:
@@ -431,6 +593,8 @@ version 2005/12/01 or later.
%
% 在顺序编码制下,\pkg{natbib} 只有在三个以上连续文献引用才会使用连接号,
% 这里修改为允许两个引用使用连接号。
+% \changes{v1.0.3}{2018/03/29}{顺序编码制连续两个文献引用之间使用连接号}
+% \changes{v1.0.4}{2018/04/12}{页码的连接号由 en dash 改为 hyphen}
% \begin{macrocode}
\patchcmd{\NAT@citexnum}{%
\ifx\NAT@last@yr\relax
@@ -440,40 +604,144 @@ version 2005/12/01 or later.
\fi
}{%
\def@NAT@last@yr{-\NAT@penalty}%
-}{}{}
+}{}{\gbt@patchfailure{\NAT@citexnum}}
% \end{macrocode}
+% \end{macro}
%
+% \begin{environment}{thebibliography}
% 参考文献列表的标签左对齐
+% \changes{v1.0.6}{2018/05/10}{文献列表的数字标签左对齐}
% \begin{macrocode}
\renewcommand\@biblabel[1]{[#1]\hfill}
% \end{macrocode}
+% \end{environment}
+%
+% \begin{macro}{\url}
+% 使用 \pkg{xurl} 宏包的方法,增加 URL 可断行的位置。
+% \changes{v1.0.8}{2018/06/23}{使用 \pkg{xurl} 的方法改进 URL 断行}
+% \begin{macrocode}
+\def\UrlBreaks{%
+ \do\/%
+ \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%
+ \do0\do1\do2\do3\do4\do5\do6\do7\do8\do9\do=\do/\do.\do:%
+ \do\*\do\-\do\~\do\'\do\"\do\-}
+\Urlmuskip=0mu plus 0.1mu
+%</package>
+% \end{macrocode}
+% \end{macro}
+%
+%
+%
+% \section{BibTeX 样式的代码实现}
+% \label{bst-implementation}
+% \linespread{1}
%
-% 需要 \pkg{url} 宏包显示 URL。
+% \subsection{自定义选项}
+% \label{sec:options}
+%
+% \begin{environment}{bst}
+% 这里定义了一些变量用于定制样式,
+% 可以在下面的 |load.config| 函数中选择是否启用。
+% \changes{v1.0.8}{2018/06/23}{新增接口供用户自定义样式}
% \begin{macrocode}
-\RequirePackage{url}
+%<*authoryear|numerical>
+INTEGERS {
+ uppercase.name
+ max.num.authors
+ period.between.author.year
+ sentence.case.title
+ link.title
+ show.mark
+ italic.jounal
+ show.missing.address.publisher
+ show.url
+ show.doi
+ show.note
+}
+
% \end{macrocode}
%
-% 增加 URL 可断行的位置。
+% 下面每个变量若被设为 |#1| 则启用该项,若被设为 |#0| 则不启用。
+% 默认的值是严格遵循国标的配置。
% \begin{macrocode}
-\g@addto@macro\UrlBreaks{%
- \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%
- \do\1\do\2\do\3\do\4\do\5\do\6\do\7\do\8\do\9\do\0%
-}
-%</package>
+FUNCTION {load.config}
+{
% \end{macrocode}
%
+% 英文姓名转为全大写:
+% \begin{macrocode}
+ #1 'uppercase.name :=
+% \end{macrocode}
%
-% \section{BibTeX style implementation}
+% 最多显示的作者数量:
+% \begin{macrocode}
+ #3 'max.num.authors :=
+% \end{macrocode}
%
-% \subsection{Fields and entry strings}
+% 采用著者-出版年制时,作者姓名与年份之间使用句点连接:
+% \begin{macrocode}
+ #0 'period.between.author.year :=
+% \end{macrocode}
%
+% 英文标题转为 sentence case (句首字母大写,其余小写):
+% \begin{macrocode}
+ #1 'sentence.case.title :=
+% \end{macrocode}
+%
+% 在标题添加超链接:
+% \begin{macrocode}
+ #0 'link.title :=
+% \end{macrocode}
+%
+% 著录文献类型标识(比如“[M/OL]“):
+% \begin{macrocode}
+ #1 'show.mark :=
+% \end{macrocode}
+%
+% 期刊名使用斜体:
+% \begin{macrocode}
+ #0 'italic.jounal :=
+% \end{macrocode}
+%
+% 无出版地或出版者时,著录“出版地不详”,“出版者不详”,“S.l.” 或 “s.n.”:
+% \begin{macrocode}
+ #1 'show.missing.address.publisher :=
+% \end{macrocode}
+%
+% 是否著录 URL:
+% \begin{macrocode}
+ #1 'show.url :=
+% \end{macrocode}
+%
+% 是否著录 DOI:
+% \begin{macrocode}
+%<*2015>
+ #1 'show.doi :=
+%</2015>
+%<*2005>
+ #0 'show.doi :=
+%</2005>
+% \end{macrocode}
+%
+% 在每一条文献最后输出注释(note)的内容:
+% \begin{macrocode}
+ #0 'show.note :=
+}
+
+% \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}
-%<*authoryear|numerical>
ENTRY
{ address
author
@@ -482,12 +750,14 @@ ENTRY
doi
edition
editor
+ howpublished
institution
journal
key
language
mark
medium
+ note
number
organization
pages
@@ -501,18 +771,19 @@ ENTRY
volume
year
}
- { entry.lang }
+ { entry.lang entry.is.electronic }
% \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.list entry.mark }
+ { label extra.label sort.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
@@ -667,7 +938,6 @@ ENTRY
% fi
% END
% \end{pseudocode}
-%
% \begin{macrocode}
INTEGERS { output.state before.all mid.sentence after.sentence after.block after.slash }
@@ -690,39 +960,95 @@ FUNCTION {init.state.consts}
% \end{macrocode}
%
-% the variables s and t are temporary string holders
-%
+% 下面是一些常量的定义
% \begin{macrocode}
-STRINGS { s t }
+FUNCTION {bbl.anonymous}
+{ lang.zh entry.lang =
+ { "佚名" }
+ { "Anon" }
+ if$
+}
-FUNCTION {debug}
-{ 's :=
- duplicate$
- "DEBUG: " s * " -> `" *
- swap$ * "'" *
- top$
+FUNCTION {bbl.space} { "\ " }
+
+FUNCTION {bbl.et.al}
+{ lang.zh entry.lang =
+ { "等" }
+ { lang.ja entry.lang =
+ { "他" }
+ { lang.ru entry.lang =
+ { "идр" }
+ { "et~al." }
+ if$
+ }
+ if$
+ }
+ if$
}
-FUNCTION {debug.int}
-{ 's :=
- duplicate$ int.to.str$
- "DEBUG: " s * " == " *
- swap$ *
- top$
+FUNCTION {bbl.colon} { ": " }
+
+%<*2015>
+FUNCTION {bbl.wide.space} { "\quad " }
+%</2015>
+%<*2005>
+FUNCTION {bbl.wide.space} { "\ " }
+%</2005>
+
+FUNCTION {bbl.slash} { "//\allowbreak{}" }
+
+FUNCTION {bbl.sine.loco}
+{ lang.zh entry.lang =
+ { "[出版地不详]" }
+ { "[S.l.]" }
+ if$
}
-FUNCTION {punct.colon}
-{ ": "
+FUNCTION {bbl.sine.nomine}
+{ lang.zh entry.lang =
+ { "[出版者不详]" }
+ { "[s.n.]" }
+ if$
}
-FUNCTION {punct.slash}
-{ "//\allowbreak{}"
+FUNCTION {bbl.sine.loco.sine.nomine}
+{ lang.zh entry.lang =
+ { "[出版地不详: 出版者不详]" }
+ { "[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 {punct.space}
-{ " "
+FUNCTION {or}
+{ { pop$ #1 }
+ 'skip$
+ if$
}
+% \end{macrocode}
+%
+% the variables s and t are temporary string holders
+% \begin{macrocode}
+STRINGS { s t }
+
FUNCTION {output.nonnull}
{ 's :=
output.state mid.sentence =
@@ -735,7 +1061,7 @@ FUNCTION {output.nonnull}
{ output.state before.all =
'write$
{ output.state after.slash =
- { punct.slash * write$ }
+ { bbl.slash * write$ }
{ add.period$ " " * write$ }
if$
}
@@ -770,7 +1096,7 @@ FUNCTION {output.after}
{ output.state before.all =
'write$
{ output.state after.slash =
- { punct.slash * write$ }
+ { bbl.slash * write$ }
{ add.period$ " " * write$ }
if$
}
@@ -796,7 +1122,6 @@ FUNCTION {output.check}
% \end{macrocode}
%
% This function finishes all entries.
-%
% \begin{macrocode}
FUNCTION {fin.entry}
{ add.period$
@@ -839,36 +1164,9 @@ FUNCTION {new.slash}
% \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$
-}
-
-% \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$
@@ -889,7 +1187,6 @@ FUNCTION {new.block.checkb}
% \end{macrocode}
%
% The new.sentence.check functions are analogous.
-%
% \begin{macrocode}
FUNCTION {new.sentence.checka}
{ empty$
@@ -909,7 +1206,9 @@ FUNCTION {new.sentence.checkb}
% \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),
@@ -941,83 +1240,10 @@ FUNCTION {new.sentence.checkb}
% BEGIN
% if empty$(s) then return ""
% else return "{\em " * s * "}"
-% \begin{pseudocode}
-%
-% 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.
-%
-% VAR: nameptr, namesleft, numnames: INTEGER
-% pseudoVAR: nameresult: STRING (it's what's accumulated on the stack)
-%
-% \begin{pseudocode}
-% 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.
-%
% 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$
@@ -1026,13 +1252,18 @@ FUNCTION {field.or.null}
if$
}
-FUNCTION {emphasize}
+FUNCTION {italicize}
{ duplicate$ empty$
{ pop$ "" }
- { "\emph{" swap$ * "}" * }
+ { "\textit{" swap$ * "}" * }
if$
}
+% \end{macrocode}
+%
+% \subsubsection{Detect Language}
+% \changes{v1.0.7}{2018/05/12}{修正了检测 Unicode 语言}
+% \begin{macrocode}
INTEGERS { byte second.byte }
INTEGERS { char.lang tmp.lang }
@@ -1127,24 +1358,114 @@ FUNCTION {get.str.lang}
tmp.lang
}
-FUNCTION {is.in.chinese}
-{ entry.lang lang.zh =
+FUNCTION {check.entry.lang}
+{ author field.or.null
+ title field.or.null *
+ get.str.lang
}
-FUNCTION {format.et.al}
-{ is.in.chinese
- { "等"}
- { "et~al." }
- if$
-}
-
-FUNCTION {format.anonymous}
-{ is.in.chinese
- { "佚名" }
- { "Anon" }
+FUNCTION {set.entry.lang}
+{ language empty$
+ { check.entry.lang }
+ { language "english" = language "american" = or language "british" = or
+ { lang.en }
+ { language "chinese" =
+ { lang.zh }
+ { language "japanese" =
+ { lang.ja }
+ { language "russian" =
+ { lang.ru }
+ { check.entry.lang }
+ if$
+ }
+ if$
+ }
+ if$
+ }
+ if$
+ }
if$
+ 'entry.lang :=
}
+% \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.
+% \changes{v1.0.2}{2018/03/16}{正确识别姓名中的“others”}
+% \changes{v1.0.8}{2018/06/23}{使用“\textasciitilde”连接英文姓名}
+% \begin{macrocode}
INTEGERS { nameptr namesleft numnames name.lang }
FUNCTION {format.names}
@@ -1154,15 +1475,19 @@ FUNCTION {format.names}
numnames 'namesleft :=
{ namesleft #0 > }
{ s nameptr "{vv~}{ll}{, jj}{, ff}" format.name$ 't :=
- nameptr #4 =
- { format.et.al
+ nameptr max.num.authors >
+ { bbl.et.al
#1 'namesleft :=
}
{ t "others" =
- { format.et.al }
+ { bbl.et.al }
{ t get.str.lang 'name.lang :=
name.lang lang.en =
- { t #1 "{vv~}{ll}{ f{~}}" format.name$ "u" change.case$
+ { 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$ }
@@ -1191,7 +1516,7 @@ FUNCTION {format.key}
FUNCTION {format.authors}
{ author empty$
%<*authoryear>
- { format.anonymous }
+ { bbl.anonymous }
%</authoryear>
%<*numerical>
{ "" }
@@ -1211,7 +1536,7 @@ FUNCTION {format.translators}
{ translator empty$
{ "" }
{ translator format.names
- is.in.chinese
+ lang.zh entry.lang =
{ translator num.names$ #3 >
{ "译" * }
{ ", 译" * }
@@ -1223,122 +1548,6 @@ FUNCTION {format.translators}
if$
}
-FUNCTION {format.url}
-{ url empty$
- { "" }
- { new.block "\url{" url * "}" * }
- if$
-}
-
-% \end{macrocode}
-%
-% 需要检测 DOI 是否已经包含在 URL 中。
-%
-% \begin{macrocode}
-FUNCTION {is.doi.in.url}
-{ 's :=
- s empty$
- { #1 }
- { url empty$
- { #0 }
- { s text.length$ 'len :=
- url text.length$ 'charptr :=
- { url charptr len substring$ s = not
- charptr #0 >
- and
- }
- { charptr #1 - 'charptr := }
- while$
- charptr
- }
- if$
- }
- if$
-}
-
-FUNCTION {format.doi}
-{ ""
- doi empty$
- 'skip$
- { "" '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.doi.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$
- 's :=
- s empty$ not
- { new.block s }
- { "" }
- if$
- }
- if$
-}
-
-% \end{macrocode}
-%
-% 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 {format.title}
-{ title empty$
- { "" }
- { title
- entry.lang lang.en =
- { "t" change.case$ }
- 'skip$
- if$
- }
- if$
-}
-
-FUNCTION {set.mark}
-{ entry.mark empty$ not
- 'pop$
- { mark empty$ not
- { pop$ mark 'entry.mark := }
- { 'entry.mark := }
- if$
- medium empty$ not
- { entry.mark "/" * medium * 'entry.mark := }
- { url empty$ not
- { entry.mark "/OL" * 'entry.mark := }
- 'skip$
- if$
- }
- if$
- }
- if$
-}
-
-FUNCTION {format.mark}
-{ "\allowbreak[" entry.mark * "]" * }
-
FUNCTION {format.full.names}
{'s :=
#1 'nameptr :=
@@ -1433,191 +1642,55 @@ FUNCTION {output.bibitem}
% \end{macrocode}
%
-% 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$ "-" =
- { "-" *
- { 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}
-%
-% 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.
-%
-% Newspaer 和 paptent 要显示完整的日期,同时不再显示修改日期。
-% 但是在 author-year 模式下,需要单独设置 format.year。
+% \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.
+% \changes{v1.0.6}{2018/05/10}{不再处理中文标题的英文单词的大小写}
+% \changes{v1.0.9}{2018/08/05}{不再转换题名 volume 的大小写}
+% \changes{v1.0.9}{2018/08/05}{增加选项在题名添加超链接}
% \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$
- }
+FUNCTION {change.sentence.case}
+{ entry.lang lang.en =
+ { "t" change.case$ }
+ 'skip$
if$
}
-FUNCTION {contains.dash}
-{ duplicate$ empty$
- { pop$ #0 }
- { 's :=
- { s empty$ not
- s #1 #1 substring$ "-" = not
- and
- }
- { s #2 global.max$ substring$ 's := }
- while$
- s empty$ not
- }
- if$
-}
+FUNCTION {add.link}
+ { url empty$ not
+ { "\href{" url * "}{" * swap$ * "}" * }
+ { doi empty$ not
+ { "\href{http://dx.doi.org/" doi * "}{" * swap$ * "}" * }
+ 'skip$
+ if$
+ }
+ if$
+ }
-FUNCTION {format.year}
-{ year empty$ not
- { year extract.before.dash }
- { date empty$ not
- { date extract.before.dash }
- { "empty year in " cite$ * warning$
- ""
- }
+FUNCTION {format.title}
+{ title empty$
+ { "" }
+ { title
+ sentence.case.title
+ 'change.sentence.case
+ 'skip$
+ if$
+ link.title
+ 'add.link
+ 'skip$
if$
}
if$
- extra.label *
-}
-
-FUNCTION {format.date}
-{ type$ "patent" = type$ "newspaper" = or
- date empty$ not and
- { date }
- { year }
- if$
-}
-
-FUNCTION {format.editdate}
-{ date empty$ not
- type$ "newspaper" = not and
- url empty$ not doi empty$ not or
- and
- { "\allowbreak(" date * ")" * }
- { "" }
- if$
-}
-
-% \end{macrocode}
-%
-% 《著录规则》中的“引用日期”都是与 URL 同时出现的,所以其实为 urldate,这个虽然
-% 不是 \BibTeX{} 标准的域,但是实际中很常见。
-%
-% \begin{macrocode}
-FUNCTION {format.urldate}
-{ urldate empty$ not
- { "\allowbreak[" urldate * "]" * }
- { "" }
- if$
-}
-
-% \end{macrocode}
-%
-% The format.btitle is for formatting the title field when it is a book-like
-% entry---the style used here keeps it in uppers-and-lowers and emphasizes it.
-%
-% \begin{macrocode}
-FUNCTION {format.btitle}
-{ title emphasize
}
% \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).
+% 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:
@@ -1630,7 +1703,6 @@ FUNCTION {format.btitle}
% else return the concatenation of str1, " ", and str2
% END
% \end{pseudocode}
-%
% \begin{macrocode}
FUNCTION {tie.or.space.connect}
{ duplicate$ text.length$ #3 <
@@ -1653,7 +1725,6 @@ FUNCTION {tie.or.space.connect}
% fi
% END
% \end{pseudocode}
-%
% \begin{macrocode}
FUNCTION {either.or.check}
{ empty$
@@ -1679,7 +1750,6 @@ FUNCTION {either.or.check}
% 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 <series>".
% We capitilize Number when this function is used at the beginning of a block.
-%
% \begin{macrocode}
FUNCTION {is.digit}
{ duplicate$ empty$
@@ -1716,13 +1786,9 @@ FUNCTION {is.number}
FUNCTION {format.volume}
{ volume empty$
{ "" }
- { volume is.number
- { is.in.chinese
- { "第 " volume * " 卷" * }
- { "volume" volume tie.or.space.connect }
- if$
- }
- { volume }
+ { lang.zh entry.lang =
+ { "第 " volume * " 卷" * }
+ { "volume" volume tie.or.space.connect }
if$
}
if$
@@ -1731,13 +1797,9 @@ FUNCTION {format.volume}
FUNCTION {format.number}
{ number empty$
{ "" }
- { number is.number
- { is.in.chinese
- { "第 " number * " 册" * }
- { "number" number tie.or.space.connect }
- if$
- }
- { number }
+ { lang.zh entry.lang =
+ { "第 " number * " 册" * }
+ { "number" number tie.or.space.connect }
if$
}
if$
@@ -1753,22 +1815,36 @@ FUNCTION {format.volume.number}
FUNCTION {format.series.vol.num.title}
{ format.volume.number 's :=
series empty$ not
- { series ": " *
+ { series
+ sentence.case.title
+ 'change.sentence.case
+ 'skip$
+ if$
+ bbl.colon *
s empty$ not
- { s * "\quad " * }
+ { s * bbl.wide.space * }
'skip$
if$
- title *
+ title
+ sentence.case.title
+ 'change.sentence.case
+ 'skip$
+ if$
+ *
}
{ title
+ sentence.case.title
+ 'change.sentence.case
+ 'skip$
+ if$
s empty$ not
- { ": " * s * }
+ { bbl.colon * s * }
'skip$
if$
}
if$
- entry.lang lang.en =
- { "t" change.case$ }
+ link.title
+ 'add.link
'skip$
if$
}
@@ -1776,28 +1852,69 @@ FUNCTION {format.series.vol.num.title}
FUNCTION {format.series.vol.num.booktitle}
{ format.volume.number 's :=
series empty$ not
- { series ": " *
+ { series bbl.colon *
s empty$ not
- { s * "\quad " * }
+ { s * bbl.wide.space * }
'skip$
if$
booktitle *
}
{ booktitle
s empty$ not
- { ": " * s * }
+ { bbl.colon * s * }
'skip$
if$
}
if$
}
+FUNCTION {format.journal}
+{ journal
+ italic.jounal
+ 'italicize
+ '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
+ { medium empty$ not
+ { entry.mark "/" * medium * 'entry.mark := }
+ { entry.is.electronic
+ { entry.mark "/OL" * 'entry.mark := }
+ 'skip$
+ if$
+ }
+ if$
+ "\allowbreak[" 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 :=
@@ -1820,13 +1937,13 @@ FUNCTION {format.edition}
{ edition empty$
{ "" }
{ edition is.number
- { is.in.chinese
+ { lang.zh entry.lang =
{ edition " 版" * }
{ edition num.to.ordinal " ed." * }
if$
}
{ entry.lang lang.en =
- { edition "t" change.case$ 's :=
+ { edition change.sentence.case 's :=
s "Revised" = s "Revised edition" = or
{ "Rev. ed." }
{ s " ed." *}
@@ -1842,23 +1959,10 @@ FUNCTION {format.edition}
% \end{macrocode}
%
-% 出版地址和出版社会有 “[S.l.: s.n.]” 的情况,所以必须一起处理。
+% \subsubsection{Format publishing items}
%
+% 出版地址和出版社会有 “[S.l.: s.n.]” 的情况,所以必须一起处理。
% \begin{macrocode}
-FUNCTION {format.sine.loco}
-{ is.in.chinese
- { "[出版地不详]" }
- { "[S.l.]" }
- if$
-}
-
-FUNCTION {format.sine.nomine}
-{ is.in.chinese
- { "[出版者不详]" }
- { "[s.n.]" }
- if$
-}
-
FUNCTION {format.publisher}
{ publisher empty$ not
{ publisher }
@@ -1878,29 +1982,22 @@ FUNCTION {format.publisher}
if$
}
-FUNCTION {format.sine.loco.sine.nomine}
-{ is.in.chinese
- { "[出版地不详: 出版者不详]" }
- { "[S.l.: s.n.]" }
- if$
-}
-
FUNCTION {format.address.publisher}
{ address empty$ not
{ address
format.publisher empty$ not
- { ": " * format.publisher * }
- { url empty$ doi empty$ and
- { ": " * format.sine.nomine * }
+ { bbl.colon * format.publisher * }
+ { entry.is.electronic not show.missing.address.publisher and
+ { bbl.colon * bbl.sine.nomine * }
'skip$
if$
}
if$
}
- { url empty$ doi empty$ and
+ { entry.is.electronic not show.missing.address.publisher and
{ format.publisher empty$ not
- { format.sine.loco ": " * format.publisher * }
- { format.sine.loco.sine.nomine }
+ { bbl.sine.loco bbl.colon * format.publisher * }
+ { bbl.sine.loco.sine.nomine }
if$
}
{ format.publisher empty$ not
@@ -1915,9 +2012,191 @@ FUNCTION {format.address.publisher}
% \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.
+%
+% Newspaer 和 paptent 要显示完整的日期,同时不再显示修改日期。
+% 但是在 author-year 模式下,需要单独设置 format.year。
+% \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 {contains.dash}
+{ duplicate$ empty$
+ { pop$ #0 }
+ { 's :=
+ { s empty$ not
+ s #1 #1 substring$ "-" = not
+ and
+ }
+ { s #2 global.max$ substring$ 's := }
+ while$
+ s empty$ not
+ }
+ if$
+}
+
+% \end{macrocode}
+%
+% 著者-出版年制必须提取出年份
+% \begin{macrocode}
+FUNCTION {format.year}
+{ year empty$ not
+ { year extract.before.dash }
+ { date empty$ not
+ { date extract.before.dash }
+ { "empty year in " cite$ * warning$
+ ""
+ }
+ if$
+ }
+ if$
+ extra.label *
+}
+
+% \end{macrocode}
+%
+% 专利和报纸都是使用日期而不是年
+% \begin{macrocode}
+FUNCTION {format.date}
+{ type$ "patent" = type$ "newspaper" = or
+ date empty$ not and
+ { date }
+ { year }
+ if$
+}
+
+% \end{macrocode}
+%
+% 更新、修改日期只用于电子资源 elctronic
+% \begin{macrocode}
+FUNCTION {format.editdate}
+{ date empty$ not
+ { "\allowbreak(" date * ")" * }
+ { "" }
+ if$
+}
+
+% \end{macrocode}
+%
+% 国标中的“引用日期”都是与 URL 同时出现的,所以其实为 urldate,这个虽然
+% 不是 \BibTeX{} 标准的域,但是实际中很常见。
+% \begin{macrocode}
+FUNCTION {format.urldate}
+{ urldate empty$ not entry.is.electronic 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$ "-" =
+ { "-" *
+ { 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$
@@ -1926,9 +2205,14 @@ FUNCTION {format.pages}
if$
}
-FUNCTION {format.journal.volume}
-{ volume }
-
+% \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.number}
{ number empty$ not
{ "\penalty0 (" number * ")" * }
@@ -1936,6 +2220,13 @@ FUNCTION {format.journal.number}
if$
}
+FUNCTION {format.journal.pages}
+{ pages empty$
+ { "" }
+ { ":\penalty0 " pages hyphenate * }
+ if$
+}
+
% \end{macrocode}
%
% 连续出版物的年卷期有起止范围,需要特殊处理
@@ -1943,7 +2234,7 @@ FUNCTION {format.journal.number}
FUNCTION {format.periodical.year.volume.number}
{ year empty$ not
{ year extract.before.dash }
- { "No year in periodical " cite$ * warning$ }
+ { "empty year in periodical " cite$ * warning$ }
if$
volume empty$ not
{ ", " * volume extract.before.dash * }
@@ -1980,162 +2271,164 @@ FUNCTION {format.periodical.year.volume.number}
% \end{macrocode}
%
-% The format.in.ed.booktitle function is used for starting out a sentence
-% that begins "In <booktitle>", putting an editor before the title if one
-% exists.
+% \subsubsection{Format url and doi}
%
+% 传统的 \BibTeX{} 习惯使用 howpublished 著录 url,这里提供支持。
+% \changes{v1.0.8}{2018/06/23}{支持 howpublished 中的 url}
% \begin{macrocode}
-FUNCTION {format.in.ed.booktitle}
-{ booktitle empty$
- { "" }
- { editor empty$
- { "In " booktitle emphasize * }
- { "In " format.editors * ", " * booktitle emphasize * }
+FUNCTION {check.url}
+{ url empty$ not
+ { "\url{" url * "}" * 'entry.url :=
+ #1 'entry.is.electronic :=
+ }
+ { howpublished empty$ not
+ { howpublished #1 #5 substring$ "\url{" =
+ { howpublished 'entry.url :=
+ #1 'entry.is.electronic :=
+ }
+ 'skip$
+ if$
+ }
+ { note empty$ not
+ { note #1 #5 substring$ "\url{" =
+ { note 'entry.url :=
+ #1 'entry.is.electronic :=
+ }
+ 'skip$
+ if$
+ }
+ 'skip$
+ if$
+ }
if$
}
if$
}
+FUNCTION {format.url}
+{ entry.url empty$ not
+ { new.block entry.url }
+ { "" }
+ 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.
-%
+% 需要检测 DOI 是否已经包含在 URL 中。
+% \changes{v1.0.5}{2018/04/18}{允许著录多个 DOI}
% \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$ }
+FUNCTION {check.doi}
+{ doi empty$ not
+ { #1 'entry.is.electronic := }
'skip$
if$
}
-% \end{macrocode}
-%
-% Now come the cross-referencing functions (these are invoked because
-% one entry in the database file(s) cross-references another, by giving
-% the other entry's database key in a `crossref' field). This feature
-% allows one or more titled things that are part of a larger titled
-% thing to cross-reference the larger thing. These styles allow for
-% five posibilities: (1) an ARTICLE may cross-reference an ARTICLE;
-% (2) a BOOK, (3) INBOOK, or (4) INCOLLECTION may cross-reference a BOOK;
-% or (5) an INPROCEEDINGS may cross-reference a PROCEEDINGS.
-% Each of these is explained in more detail later.
-%
-% An ARTICLE entry type may cross reference another ARTICLE (this is
-% intended for when an entire journal is devoted to a single topic---
-% but since there is no JOURNAL entry type, the journal, too, should be
-% classified as an ARTICLE but without the author and title fields).
-% This will result in two warning messages for the journal's entry
-% if it's included in the reference list, but such is life.
-%
-% format.article.crossref ==
-% BEGIN
-% if empty$(key) then
-% if empty$(journal) then
-% warning$("need key or journal for " * cite$ *
-% " to crossref " * crossref)
-% return(" \cite{" * crossref * "}")
-% else
-% return("In " * emphazise.correct (journal) *
-% " \cite{" * crossref * "}")
-% fi
-% else
-% return("In " * key * " \cite{" * crossref * "}")
-% fi
-% END
-%
-% The other cross-referencing functions are similar, so no "comment version"
-% will be given for them.
-%
-% \begin{macrocode}
-FUNCTION {format.article.crossref}
-{ key empty$
- { journal empty$
- { "need key or journal for " cite$ * " to crossref " * crossref *
- warning$
- ""
+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
}
- { "In \emph{" journal * "}" * }
if$
}
- { "In " }
if$
- " \citet{" * crossref * "}" *
}
-% \end{macrocode}
-%
-% A BOOK (or INBOOK) entry type (assumed to be for a single volume in a
-% multivolume work) may cross reference another BOOK (the entire multivolume).
-% Usually there will be an editor, in which case we use that to construct the
-% cross reference; otherwise we use a nonempty key field or else the series
-% field (since the series gives the title of the multivolume work).
-%
-% \begin{macrocode}
-FUNCTION {format.book.crossref}
-{ volume empty$
- { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
- "In "
- }
- { "Volume" volume tie.or.space.connect
- " of " *
- }
- if$
- editor empty$
- editor field.or.null author field.or.null =
- or
- { key empty$
- { series empty$
- { "need editor, key, or series for " cite$ * " to crossref " *
- crossref * warning$
- "" *
+FUNCTION {format.doi}
+{ ""
+ doi empty$ not show.doi and
+ { "" '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 :=
}
- { "\emph{" * series * "}" * }
+ { s tmp.str * 's := }
if$
+ t #2 global.max$ substring$ 't :=
}
+ while$
+ 's :=
+ s empty$ not
+ { new.block s }
+ { "" }
+ if$
+ }
+ '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$
- " \citet{" * crossref * "}" *
+}
+
+FUNCTION {format.note}
+{ note empty$ not show.note and
+ { note }
+ { "" }
+ if$
}
% \end{macrocode}
%
-% An INCOLLECTION entry type may cross reference a BOOK (assumed to be the
-% collection), or an INPROCEEDINGS may cross reference a PROCEEDINGS.
-% Often there will be an editor, in which case we use that to construct
-% the cross reference; otherwise we use a nonempty key field or else
-% the booktitle field (which gives the cross-referenced work's title).
-%
+% 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 {format.incoll.inproc.crossref}
-{ editor empty$
- editor field.or.null author field.or.null =
- or
- { key empty$
- { booktitle empty$
- { "need editor, key, or booktitle for " cite$ * " to crossref " *
- crossref * warning$
- ""
- }
- { "In \emph{" booktitle * "}" * }
- if$
- }
- { "In " }
- if$
- }
- { "In " }
+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$
- " \citet{" * crossref * "}" *
}
% \end{macrocode}
%
+%
% \subsection{Functions for all entry types}
%
% Now we define the type functions for all entry types that may appear
@@ -2146,72 +2439,7 @@ FUNCTION {format.incoll.inproc.crossref}
% Note: The fields (within each list) are listed in order of appearance,
% except as described for an `inbook' or a `proceedings'.
%
-% 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
-%
-% \begin{pseudocode}
-% article ==
-% BEGIN
-% output.bibitem
-% output.check(format.authors,"author")
-% new.block
-% output.check(format.title,"title")
-% new.block
-% if missing$(crossref) then
-% output.check(emphasize(journal),"journal")
-% output(format.vol.num.pages)
-% output.check(format.date,"year")
-% else
-% output.nonnull(format.article.crossref)
-% output(format.pages)
-% fi
-% new.block
-% output(note)
-% fin.entry
-% END
-% \end{pseudocode}
-%
-% 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{pseudocode}
-% book ==
-% BEGIN
-% if empty$(author) then output.check(format.editors,"author and editor")
-% else output.check(format.authors,"author")
-% if missing$(crossref) then
-% either.or.check("author and editor",editor)
-% fi
-% fi
-% new.block
-% output.check(format.btitle,"title")
-% if missing$(crossref) then
-% output(format.bvolume)
-% new.block
-% output(format.number.series)
-% new.sentence
-% output.check(publisher,"publisher")
-% output(address)
-% else
-% new.block
-% output.nonnull(format.book.crossref)
-% fi
-% output(format.edition)
-% output.check(format.date,"year")
-% new.block
-% output(note)
-% fin.entry
-% END
-% \end{pseudocode}
-%
-% The other entry functions are all quite similar, so no "comment version"
-% will be given for them.
-%
-% \subsection{专著}
+% \subsubsection{专著}
%
% \begin{macrocode}
FUNCTION {monograph}
@@ -2221,7 +2449,7 @@ FUNCTION {monograph}
{ editor empty$ not
{ format.editors }
%<*authoryear>
- { format.anonymous }
+ { bbl.anonymous }
%</authoryear>
%<*numerical>
{ "" }
@@ -2231,11 +2459,15 @@ FUNCTION {monograph}
if$
output
%<*authoryear>
+ period.between.author.year
+ 'new.sentence
+ 'skip$
+ if$
format.year "year" output.check
%</authoryear>
new.block
format.series.vol.num.title "title" output.check
- "M" set.mark
+ "M" set.entry.mark
format.mark "" output.after
new.block
format.translators output
@@ -2246,35 +2478,42 @@ FUNCTION {monograph}
%<*numerical>
format.year "year" output.check
%</numerical>
- format.pages punct.colon output.after
+ format.pages bbl.colon output.after
format.urldate "" output.after
format.url output
format.doi output
+ new.block
+ format.note output
fin.entry
}
% \end{macrocode}
%
-% \subsection{专著中的析出文献}
+% \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
format.authors "author" output.check
author format.key output
%<*authoryear>
+ period.between.author.year
+ 'new.sentence
+ 'skip$
+ if$
format.year "year" output.check
%</authoryear>
new.block
format.title "title" output.check
- "M" set.mark
+ "M" set.entry.mark
format.mark "" output.after
new.block
format.translators output
@@ -2289,16 +2528,18 @@ FUNCTION {incollection}
%<*numerical>
format.year "year" output.check
%</numerical>
- format.pages punct.colon output.after
+ format.pages bbl.colon output.after
format.urldate "" output.after
format.url output
format.doi output
+ new.block
+ format.note output
fin.entry
}
% \end{macrocode}
%
-% \subsection{连续出版物}
+% \subsubsection{连续出版物}
%
% \begin{macrocode}
FUNCTION {periodical}
@@ -2306,11 +2547,15 @@ FUNCTION {periodical}
format.authors "author" output.check
author format.key output
%<*authoryear>
+ period.between.author.year
+ 'new.sentence
+ 'skip$
+ if$
format.year "year" output.check
%</authoryear>
new.block
format.title "title" output.check
- "J" set.mark
+ "J" set.entry.mark
format.mark "" output.after
new.block
format.periodical.year.volume.number output
@@ -2322,86 +2567,112 @@ FUNCTION {periodical}
format.urldate "" output.after
format.url output
format.doi output
+ new.block
+ format.note output
fin.entry
}
% \end{macrocode}
%
-% \subsection{连续出版物中的析出文献}
+% \subsubsection{连续出版物中的析出文献}
+%
+% The article function is for an article in a journal. An article may
+% CROSSREF another article.
+%
+% Required fields: author, title, journal, year
%
+% Optional fields: volume, number, pages, month, note
+%
+% The other entry functions are all quite similar, so no "comment version"
+% will be given for them.
% \begin{macrocode}
-FUNCTION {article.in.journal}
+FUNCTION {article}
{ output.bibitem
format.authors "author" output.check
author format.key output
%<*authoryear>
+ period.between.author.year
+ 'new.sentence
+ 'skip$
+ if$
format.year "year" output.check
%</authoryear>
new.block
format.title "title" output.check
- "J" set.mark
+ "J" set.entry.mark
format.mark "" output.after
new.block
- journal "journal" output.check
+ format.journal "journal" output.check
%<*numerical>
format.date "year" output.check
%</numerical>
volume output
format.journal.number "" output.after
- format.pages punct.colon output.after
- format.editdate "" output.after
+ format.journal.pages "" output.after
format.urldate "" output.after
format.url output
format.doi output
+ new.block
+ format.note output
fin.entry
}
% \end{macrocode}
%
-% \subsection{专利文献}
+% \subsubsection{专利文献}
%
% number 域也可以用来表示专利号。
-%
% \begin{macrocode}
FUNCTION {patent}
{ output.bibitem
format.authors output
author format.key output
%<*authoryear>
+ period.between.author.year
+ 'new.sentence
+ 'skip$
+ if$
format.year "year" output.check
%</authoryear>
new.block
format.title
number empty$ not
- { punct.colon * number * }
+ { bbl.colon * number * }
'skip$
if$
"title" output.check
- "P" set.mark
+ "P" set.entry.mark
format.mark "" output.after
new.block
format.date "year" output.check
format.urldate "" output.after
format.url output
format.doi output
+ new.block
+ format.note output
fin.entry
}
% \end{macrocode}
%
-% \subsection{电子资源}
-%
+% \subsubsection{电子资源}
% \begin{macrocode}
-FUNCTION {online}
-{ output.bibitem
+FUNCTION {electronic}
+{ #1 #1 check.electronic
+ #1 'entry.is.electronic :=
+ output.bibitem
format.authors output
author format.key output
%<*authoryear>
+ period.between.author.year
+ 'new.sentence
+ 'skip$
+ if$
format.year "year" output.check
%</authoryear>
new.block
format.series.vol.num.title "title" output.check
- "EB" set.mark
+ "EB" set.entry.mark
format.mark "" output.after
new.block
format.address.publisher output
@@ -2411,31 +2682,42 @@ FUNCTION {online}
'skip$
if$
%</numerical>
- format.pages punct.colon output.after
+ format.pages bbl.colon output.after
format.editdate "" output.after
format.urldate "" output.after
format.url output
format.doi output
+ 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 用来自动判断类型。
+% \changes{v1.0.9}{2018/08/05}{修正不显示 url 的选项}
% \begin{macrocode}
FUNCTION {misc}
{ journal empty$ not
- 'article.in.journal
+ 'article
{ booktitle empty$ not
'incollection
- { url empty$ not
- 'online
- { "Z" set.mark
- monograph
+ { publisher empty$ not
+ 'monograph
+ { entry.is.electronic
+ 'electronic
+ { "Z" set.entry.mark
+ monograph
+ }
+ if$
}
if$
}
@@ -2446,27 +2728,44 @@ FUNCTION {misc}
}
FUNCTION {archive}
-{ "A" set.mark
+{ "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.mark
+{ "G" set.entry.mark
monograph
}
FUNCTION {database}
-{ "DB" set.mark
- misc
+{ "DB" set.entry.mark
+ electronic
}
FUNCTION {dataset}
-{ "DS" set.mark
- misc
+{ "DS" set.entry.mark
+ electronic
}
% \end{macrocode}
@@ -2481,7 +2780,6 @@ FUNCTION {dataset}
%
% inbook 类是不含 booktitle 域的,所以不应该适用于“专著中的析出文献”,而应该是专
% 著,即 book 类。
-%
% \begin{macrocode}
FUNCTION {inbook} { book }
@@ -2490,51 +2788,68 @@ FUNCTION {inbook} { book }
% 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.mark
+{ "C" set.entry.mark
incollection
}
% \end{macrocode}
%
% The conference function is included for Scribe compatibility.
-%
% \begin{macrocode}
FUNCTION {conference} { inproceedings }
FUNCTION {map}
-{ "CM" set.mark
+{ "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
%
+% Optional: type, address, month, note
% \begin{macrocode}
FUNCTION {mastersthesis}
-{ "D" set.mark
+{ "D" set.entry.mark
monograph
}
FUNCTION {newspaper}
-{ "N" set.mark
- article.in.journal
+{ "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
%
+% Optional: type, address, month, note
% \begin{macrocode}
FUNCTION {phdthesis} { mastersthesis }
@@ -2544,54 +2859,68 @@ FUNCTION {phdthesis} { mastersthesis }
% 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.mark
+{ "C" set.entry.mark
monograph
}
FUNCTION {software}
-{ "CP" set.mark
- misc
+{ "CP" set.entry.mark
+ electronic
}
FUNCTION {standard}
-{ "S" set.mark
+{ "S" set.entry.mark
misc
}
% \end{macrocode}
%
% A techreport is a technical report.
+%
% Required: author, title, institution, year
-% Optional: type, number, address, month, note
%
+% Optional: type, number, address, month, note
% \begin{macrocode}
FUNCTION {techreport}
-{ "R" set.mark
+{ "R" set.entry.mark
misc
}
% \end{macrocode}
%
-% We use entry type `misc' for an unknown type; BibTeX gives a warning.
+% An unpublished is something that hasn't been published.
+%
+% Required: author, title, note
%
+% Optional: month, year
+% \begin{macrocode}
+FUNCTION {unpublished}
+{ "Z" set.entry.mark
+ 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"}
@@ -2624,8 +2953,7 @@ MACRO {dec} {"December"}
%
% 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 \bibliography command
-%
+% include that file name as the first argument to the \cs{bibliography} command
% \begin{macrocode}
MACRO {acmcs} {"ACM Computing Surveys"}
@@ -2670,40 +2998,8 @@ MACRO {tcs} {"Theoretical Computer Science"}
% \end{macrocode}
%
-% \subsection{Read bib entries and execute}
%
-% Now we read in the .BIB entries.
-%
-% \begin{macrocode}
-READ
-
-EXECUTE {init.state.consts}
-
-FUNCTION {set.entry.lang}
-{ language empty$
- { author field.or.null title field.or.null * get.str.lang }
- { language "english" = language "american" = or language "british" = or
- { lang.en }
- { language "chinese" =
- { lang.zh }
- { language "japanese" =
- { lang.ja }
- { language "russian" =
- { lang.ru }
- { lang.other }
- if$
- }
- if$
- }
- if$
- }
- if$
- }
- if$
- 'entry.lang :=
-}
-
-% \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
@@ -2711,7 +3007,6 @@ FUNCTION {set.entry.lang}
% 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$
@@ -2721,7 +3016,6 @@ FUNCTION {sortify}
% \end{macrocode}
%
% We need the chop.word stuff for the dubious unsorted-list-with-labels case.
-%
% \begin{macrocode}
FUNCTION {chop.word}
{ 's :=
@@ -2732,6 +3026,102 @@ FUNCTION {chop.word}
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.names}
{ 's :=
s #1 "{vv~}{ll}{, jj}{, ff}" format.name$ 't :=
@@ -2741,7 +3131,7 @@ FUNCTION {format.lab.names}
{ t #1 "{ll}{ff}" format.name$}
if$
s num.names$ #1 >
- { "\ " * format.et.al * }
+ { bbl.space * bbl.et.al * }
'skip$
if$
}
@@ -2838,13 +3228,16 @@ FUNCTION {calc.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
+% |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 ").
@@ -2855,11 +3248,10 @@ FUNCTION {calc.label}
% 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
+% 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}
%<*authoryear>
FUNCTION {sort.language.label}
@@ -2916,7 +3308,6 @@ FUNCTION {sort.format.names}
% 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 :=
@@ -2935,10 +3326,9 @@ FUNCTION {sort.format.title}
% 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}
-{ is.in.chinese
+{ lang.zh entry.lang =
{ "yi4 ming2" }
{ "anon" }
if$
@@ -2946,7 +3336,11 @@ FUNCTION {anonymous.sort}
FUNCTION {author.sort}
{ key empty$
- { author empty$
+ { entry.lang lang.zh =
+ { "empty key in " cite$ * warning$ }
+ 'skip$
+ if$
+ author empty$
{ anonymous.sort }
{ author sort.format.names }
if$
@@ -3001,14 +3395,16 @@ FUNCTION {editor.organization.sort}
}
%</authoryear>
+% \end{macrocode}
+%
+% 顺序编码制的排序要简单得多
+% \begin{macrocode}
%<*numerical>
INTEGERS { seq.num }
FUNCTION {init.seq}
{ #0 'seq.num :=}
-EXECUTE {init.seq}
-
FUNCTION {int.to.fix}
{ "000000000" swap$ int.to.str$ *
#-1 #10 substring$
@@ -3017,14 +3413,14 @@ FUNCTION {int.to.fix}
%</numerical>
% \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
+% 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
+ show.url show.doi check.electronic
calc.label
label sortify
" "
@@ -3064,15 +3460,6 @@ FUNCTION {presort}
'sort.key$ :=
}
-ITERATE {presort}
-
-% \end{macrocode}
-%
-% And now we can sort
-%
-% \begin{macrocode}
-SORT
-
% \end{macrocode}
%
% Now comes the final computation for alphabetic labels, putting in the 'a's
@@ -3121,7 +3508,6 @@ SORT
% next.extra := extra.label
% END
% \end{pseudocode}
-%
% \begin{macrocode}
STRINGS { longest.label last.label next.extra }
@@ -3164,31 +3550,23 @@ FUNCTION {reverse.pass}
label extra.label * 'label :=
}
-EXECUTE {initialize.longest.label}
-
-ITERATE {forward.pass}
-
-REVERSE {reverse.pass}
-
FUNCTION {bib.sort.order}
{ sort.label 'sort.key$ :=
}
-ITERATE {bib.sort.order}
-
-SORT
-
% \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
+% 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$
@@ -3199,40 +3577,83 @@ FUNCTION {begin.bib}
write$ newline$
"\providecommand{\natexlab}[1]{#1}"
write$ newline$
- "\providecommand{\url}[1]{#1}"
- write$ newline$
- "\providecommand{\href}[2]{\url{#2}}"
- write$ newline$
- "\providecommand{\doi}[1]{\href{https://doi.org/#1}{#1}}"
- write$ newline$
- "\expandafter\ifx\csname urlstyle\endcsname\relax\relax\else"
- write$ newline$
- " \urlstyle{same}\fi"
- write$ newline$
+ show.url show.doi or
+ { "\providecommand{\url}[1]{#1}"
+ write$ newline$
+ "\expandafter\ifx\csname urlstyle\endcsname\relax\relax\else"
+ write$ newline$
+ " \urlstyle{same}\fi"
+ write$ newline$
+ }
+ 'skip$
+ if$
+ show.doi
+ { "\providecommand{\href}[2]{\url{#2}}"
+ write$ newline$
+ "\providecommand{\doi}[1]{\href{https://doi.org/#1}{#1}}"
+ write$ newline$
+ }
+ 'skip$
+ if$
}
-EXECUTE {begin.bib}
+% \end{macrocode}
+%
+% Finally, we finish up by writing the `|\end{thebibliography}|' command.
+% \begin{macrocode}
+FUNCTION {end.bib}
+{ newline$
+ "\end{thebibliography}" write$ newline$
+}
% \end{macrocode}
%
-% Now we produce the output for all the entries
%
+% \subsection{Main execution}
+%
+% Now we read in the .BIB entries.
% \begin{macrocode}
-ITERATE {call.type$}
+READ
+
+EXECUTE {init.state.consts}
+
+EXECUTE {load.config}
+
+%<*numerical>
+EXECUTE {init.seq}
+
+%</numerical>
+ITERATE {presort}
% \end{macrocode}
%
-% Finally, we finish up by writing the `|\end{thebibliography}|' command.
+% 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}
-FUNCTION {end.bib}
-{ newline$
- "\end{thebibliography}" write$ newline$
-}
+ITERATE {call.type$}
EXECUTE {end.bib}
%</authoryear|numerical>
% \end{macrocode}
+% \end{environment}
%
% \Finale
\endinput
+所以只能在 bib 数据库中的 key 域手动录入作者姓名的拼音,如: