Add option title.in.journal

zepinglee · Mar 7, 2020 · e1b729e · e1b729e
1 parent ae46fd5
commit e1b729e
Show file tree

Hide file tree

Showing 14 changed files with 131 additions and 97 deletions.
diff --git a/CHANGELOG.md b/CHANGELOG.md
@@ -6,6 +6,7 @@ The format is based on [Keep a Changelog](https://keepachangelog.com/en/1.0.0/).
 ## [Unreleased]
 ### Added
 - 新增选项 `only.start.page`
+- 增加选项 `title.in.journal`
 
 ## [v2.0] - 2020-03-04
 ### Changed

diff --git a/gbt7714-author-year.bst b/gbt7714-author-year.bst
@@ -26,6 +26,7 @@ INTEGERS {
   period.between.author.year
   sentence.case.title
   link.title
+  title.in.journal
   show.mark
   show.medium.type
   slash.for.extraction
@@ -51,6 +52,7 @@ FUNCTION {load.config}
   #0 'period.between.author.year :=
   #1 'sentence.case.title :=
   #0 'link.title :=
+  #1 'title.in.journal :=
   #1 'show.mark :=
   #1 'show.medium.type :=
   #1 'slash.for.extraction :=
@@ -1425,10 +1427,14 @@ FUNCTION {article}
   if$
   format.year "year" output.check
   new.block
-  format.title "title" output.check
-  "J" set.entry.mark
-  format.mark "" output.after
-  new.block
+  title.in.journal
+    { format.title "title" output.check
+      "J" set.entry.mark
+      format.mark "" output.after
+      new.block
+    }
+    'skip$
+  if$
   format.journal "journal" output.check
   format.journal.volume output
   format.journal.number "" output.after

diff --git a/gbt7714-numerical.bst b/gbt7714-numerical.bst
@@ -26,6 +26,7 @@ INTEGERS {
   period.between.author.year
   sentence.case.title
   link.title
+  title.in.journal
   show.mark
   show.medium.type
   slash.for.extraction
@@ -45,6 +46,7 @@ FUNCTION {load.config}
   #3 'max.num.authors :=
   #1 'sentence.case.title :=
   #0 'link.title :=
+  #1 'title.in.journal :=
   #1 'show.mark :=
   #1 'show.medium.type :=
   #1 'slash.for.extraction :=
@@ -1397,10 +1399,14 @@ FUNCTION {article}
   format.authors output
   author format.key output
   new.block
-  format.title "title" output.check
-  "J" set.entry.mark
-  format.mark "" output.after
-  new.block
+  title.in.journal
+    { format.title "title" output.check
+      "J" set.entry.mark
+      format.mark "" output.after
+      new.block
+    }
+    'skip$
+  if$
   format.journal "journal" output.check
   format.date "year" output.check
   format.journal.volume output

diff --git a/gbt7714.dtx b/gbt7714.dtx
@@ -285,6 +285,7 @@
 %   period.between.author.year     & |#0|   & 著者和年份之间使用句点连接     \\
 %   sentence.case.title            & |#1|   & 将西文的题名转为 sentence case \\
 %   link.title                     & |#0|   & 在题名上添加 url 的超链接      \\
+%   title.in.journal               & |#1|   & 期刊是否显示标题               \\
 %   show.mark                      & |#1|   & 显示文献类型标识               \\
 %   show.medium.type               & |#1|   & 显示载体类型标识               \\
 %   italic.jounal                  & |#0|   & 西文期刊名使用斜体             \\
@@ -779,6 +780,7 @@ INTEGERS {
   period.between.author.year
   sentence.case.title
   link.title
+  title.in.journal
   show.mark
   show.medium.type
   slash.for.extraction
@@ -851,6 +853,16 @@ FUNCTION {load.config}
 %</linktitle>
 %    \end{macrocode}
 %
+% 期刊是否含标题：
+%    \begin{macrocode}
+%<*!title-in-journal&!npr>
+  #1 'title.in.journal :=
+%</!title-in-journal&!npr>
+%<*title-in-journal|npr>
+  #0 'title.in.journal :=
+%</title-in-journal|npr>
+%    \end{macrocode}
+%
 % 著录文献类型标识（比如“[M/OL]“）：
 %    \begin{macrocode}
   #1 'show.mark :=
@@ -2933,10 +2945,14 @@ FUNCTION {article}
   format.year "year" output.check
 %</authoryear>
   new.block
-  format.title "title" output.check
-  "J" set.entry.mark
-  format.mark "" output.after
-  new.block
+  title.in.journal
+    { format.title "title" output.check
+      "J" set.entry.mark
+      format.mark "" output.after
+      new.block
+    }
+    'skip$
+  if$
   format.journal "journal" output.check
 %<*numerical>
   format.date "year" output.check

diff --git a/test/testbst/npr.bbl b/test/testbst/npr.bbl
@@ -195,64 +195,52 @@ ROBERSON~J~A, BURNESON~E~G.
 \bibitem[袁训来\ 等(2012)袁训来, 陈哲, 肖书海,
   et~al.]{yuanxunlai2012lantian}
 袁训来, 陈哲, 肖书海, 等.
-\newblock 蓝田生物群:
-  一个认识多细胞生物起源和早期演化的新窗口\allowbreak[J].
 \newblock 科学通报, 2012, 55\penalty0 (34):\penalty0 3219.
 
 \bibitem[余建斌(2013)]{yujianbin2013women}
 余建斌.
-\newblock 我们的科技一直在追赶:
-  访中国工程院院长周济\allowbreak[N/OL].
 \newblock 人民日报, 2013-01-12\penalty0 (2)\allowbreak[2013-03-20].
 \newblock
   \url{http://paper.people.com.cn/rmrb/html/2013-01/12/nw.D110000renmrb_20130112_5-02.htm}.
 
 \bibitem[李炳穆(2008{\natexlab{a}})]{libingmu2008hanguo}
 李炳穆.
-\newblock 韩国图书馆法\allowbreak[J/OL].
 \newblock 图书情报工作, 2008, 52\penalty0 (6):\penalty0
   6\allowbreak[2013-10-25].
 \newblock \url{http://www.docin.com/p-400265742.html}.
 
 \bibitem[李幼平\ 等(2010)李幼平 and 王莉]{liyouping2010xunzheng}
 李幼平, 王莉.
-\newblock 循证医学研究方法: 附视频\allowbreak[J/OL].
 \newblock 中华移植杂志(电子版), 2010, 4\penalty0 (3):\penalty0
   225\allowbreak[2014-06-09].
 \newblock \url{http://www.cqvip.com/Read/Read.aspx?id=36658332}.
 
 \bibitem[武丽丽\ 等(2008)武丽丽, 华一新, 张亚军,
   et~al.]{wulili2008beidou}
 武丽丽, 华一新, 张亚军, 等.
-\newblock “北斗一号”监控管理网设计与实现\allowbreak[J/OL].
 \newblock 测绘科学, 2008, 33\penalty0 (5):\penalty0
   8\allowbreak[2009-10-25].
 \newblock \url{http://vip.calis.edu.cn/CSTJ/Sear.dll?OPAC_CreateDetail}.
 \newblock DOI: \doi{10.3771/j.issn.1009-2307.2008.05.002}.
 
 \bibitem[Kanamori(1998)]{kanamori1998shaking}
 KANAMORI~H.
-\newblock Shaking without quaking\allowbreak[J].
 \newblock Science, 1998, 279\penalty0 (5359):\penalty0 2063.
 
 \bibitem[Caplan(1993)]{caplan1993cataloging}
 CAPLAN~P.
-\newblock Cataloging internet resources\allowbreak[J].
 \newblock The public access computer systems review, 1993, 4\penalty0
   (2):\penalty0 61.
 
 \bibitem[Frese et~al.(2013)Frese, Katus, and Meder]{frese2013next}
 FRESE~K~S, KATUS~H~A, MEDER~B.
-\newblock Next-generation sequencing: from understanding biology to
-  personalized medicine\allowbreak[J/OL].
 \newblock Biology, 2013, 2\penalty0 (1):\penalty0 378\allowbreak[2013-03-19].
 \newblock \url{http://www.mdpi.com/2079-7737/2/1/378}.
 \newblock DOI: \doi{10.3390/biology2010378}.
 
 \bibitem[Myburg et~al.(2014)Myburg, Grattapaglia, Tuskan,
   et~al.]{myburg2014genome}
 MYBURG~A~A, GRATTAPAGLIA~D, TUSKAN~G~A, et~al.
-\newblock The genome of eucalyptus grandis\allowbreak[J/OL].
 \newblock Nature, 2014, 510:\penalty0 356\allowbreak[2014-06-25].
 \newblock
   \url{http://www.nature.com/nature/journal/v510/n7505/pdf/nature13308.pdf}.
@@ -353,19 +341,15 @@ CHERNIK~B~E.
 
 \bibitem[杨宗英(1996)]{yangzongying1996dianzi}
 杨宗英.
-\newblock 电子图书馆的现实模型\allowbreak[J].
 \newblock 中国图书馆学报, 1996\penalty0 (2):\penalty0 24.
 
 \bibitem[Dowler(1995)]{dowler1995research}
 DOWLER~L.
-\newblock The research university's dilemma: Resource sharing and research in a
-  transinstitutional environment\allowbreak[J].
 \newblock Journal of library administration, 1995, 21\penalty0 (1/2):\penalty0
   5.
 
 \bibitem[Sunstein(1996)]{sunstein1996social}
 SUNSTEIN~C~R.
-\newblock Social norms and social roles\allowbreak[J/OL].
 \newblock Columbia law review, 1996, 96:\penalty0 903\allowbreak[2012-01-26].
 \newblock
   \url{http://www.heinonline.org/HOL/Page?handle=hein.journals/clr96&id=913&collection=journals&index=journals/clr}.
@@ -400,7 +384,6 @@ MORRI~I.
 
 \bibitem[刘彻东(1998)]{liuchedong1998zhongguo}
 刘彻东.
-\newblock 中国的青年刊物:个性特色为本仁\allowbreak[J].
 \newblock 中国出版, 1998\penalty0 (5):\penalty0 38.
 
 \bibitem[裴丽生(1981)]{peilisheng1981jianghua}
@@ -705,25 +688,20 @@ Symposium on Applications of Holography in Mechanics, August 23-25, 1971,
 
 \bibitem[杨洪升(2013)]{yanghongsheng2013siku}
 杨洪升.
-\newblock 四库馆私家抄校书考略\allowbreak[J].
 \newblock 文献, 2013\penalty0 (1):\penalty0 56.
 
 \bibitem[李炳穆(2008{\natexlab{b}})]{libingmu2008hanguo2}
 李炳穆.
-\newblock 韩国图书馆法\allowbreak[J].
 \newblock 图书情报工作, 2008, 52\penalty0 (6):\penalty0 6.
 
 \bibitem[于潇\ 等(2012)于潇, 刘义, 柴跃廷,
   et~al.]{yuxiao2012hulianwang}
 于潇, 刘义, 柴跃廷, 等.
-\newblock
-  互联网药品可信交易环境中主体资质审核备案模式\allowbreak[J].
 \newblock 清华大学学报(自然科学版), 2012, 52\penalty0 (11):\penalty0
   1518.
 
 \bibitem[陈建军(20l0)]{chenjianjun20l0cong}
 陈建军.
-\newblock 从数字地球到智慧地球\allowbreak[J/OL].
 \newblock 国图资源导刊, 20l0, 7\penalty0 (10):\penalty0
   93\allowbreak[2013-03-20].
 \newblock \url{http://d.g.wanfangdata.com.cn/Periodical_hunandz201010038.aspx}.
@@ -732,64 +710,49 @@ Symposium on Applications of Holography in Mechanics, August 23-25, 1971,
 \bibitem[Des~Marais et~al.(1992)Des~Marais, Strauss, Summons,
   et~al.]{desmarais1992carbon}
 DES~MARAIS~D~J, STRAUSS~H, SUMMONS~R~E, et~al.
-\newblock Carbon isotope evidence for the stepwise oxidation of the proterozoic
-  environment\allowbreak[J].
 \newblock Nature, 1992, 359:\penalty0 605.
 
 \bibitem[Saito et~al.(2006)Saito and Miyazaki]{saito2006jadeite}
 SAITO~M, MIYAZAKI~K.
-\newblock Jadeite-bearing metagabbro in serpentinite mélange of the
-  {"Kurosegawa Belt" in Izumi Town, Yatsushiro City, Kumamoto Prefecture,
-  central Kyushu}\allowbreak[J].
 \newblock Bulletin of the geological survey of Japan, 2006, 57\penalty0
   (5/6):\penalty0 169.
 
 \bibitem[Walls et~al.(2013)Walls, Barichivich, and Brown]{walls2013drought}
 WALLS~S~C, BARICHIVICH~W~J, BROWN~M~E.
-\newblock Drought, deluge and declines: the impact of precipitation extremes on
-  amphibians in a changing climate\allowbreak[J/OL].
 \newblock Biology, 2013, 2\penalty0 (1):\penalty0 399\allowbreak[2013-11-04].
 \newblock \url{http://www.mdpi.com/2079-7737/2/1/399}.
 \newblock DOI: \doi{10.3390/biology2010399}.
 
 \bibitem[Franz et~al.(2013)Franz, Danielewicz, Wong, Anderson, and
   Boothe]{franz2013phenotypic}
 FRANZ~A~K, DANIELEWICZ~M~A, WONG~D~M, et~al.
-\newblock Phenotypic screening with oleaginous microalgae reveals modulators of
-  lipid productivity\allowbreak[J/OL].
 \newblock ACS Chemical biology, 2013, 8:\penalty0 1053\allowbreak[2014-06-26].
 \newblock \url{http://pubs.acs.org/doi/ipdf/10.1021/cb300573r}.
 
 \bibitem[Park et~al.(2010)Park and Tosaka]{park2010metadata}
 PARK~J~R, TOSAKA~Y.
-\newblock Metadata quality control in digital repositories and collections:
-  Criteria, semantics, and mechanisms\allowbreak[J/OL].
 \newblock Cataloging \& classification quarterly, 2010, 48\penalty0
   (8):\penalty0 696\allowbreak[2013-09-05].
 \newblock
   \url{http://www.tandfonline.com/doi/pdf/10.1080/01639374.2010.508711}.
 
 \bibitem[丁文详(2000)]{dingwenxiang2000shuzi}
 丁文详.
-\newblock 数字革命与竞争国际化\allowbreak[N].
 \newblock 中国青年报, 2000-11-20\penalty0 (15).
 
 \bibitem[张田勤(2000)]{zhangtianqin2000zuifan}
 张田勤.
-\newblock 罪犯 DNA 库与生命伦理学计划\allowbreak[N].
 \newblock 大众科技报, 2000-11-12\penalty0 (7).
 
 \bibitem[傅刚\ 等(2000)傅刚, 赵承, and 李佳路]{fugang2000dafeng}
 傅刚, 赵承, 李佳路.
-\newblock 大风沙过后的思考\allowbreak[N/OL].
 \newblock 北京青年报, 2000-01-12\allowbreak[2005-09-28].
 \newblock
   \url{http://www.bjyouth.com.cn/Bqb/20000412/GB/4216%5ED0412B1401.htm}.
 
 \bibitem[刘裕国\ 等(2013)刘裕国, 杨柳, 张洋,
   et~al.]{liuyuguo2013wumai}
 刘裕国, 杨柳, 张洋, 等.
-\newblock 雾霾来袭, 如何突围\allowbreak[N/OL].
 \newblock 人民日报, 2013-01-12\allowbreak[2013-11-06].
 \newblock
   \url{http://paper.people.com.cn/rmrb/html/2013-01/12/nw.D110000renmrb_20130112_2-04.htm}.
@@ -822,28 +785,23 @@ Dublin core metadata element set: version 1.1\allowbreak[EB/OL].
 \bibitem[魏志勇\ 等(2006)魏志勇, 臧黎慧, 范我,
   et~al.]{weizhiyong2006}
 魏志勇, 臧黎慧, 范我, 等.
-\newblock \allowbreak[J].
 \newblock 核技术, 2006, 29\penalty0 (9):\penalty0 713.
 
 \bibitem[陈东风\ 等(2005)陈东风, 勾成, 叶春堂,
   et~al.]{chendongfeng2005}
 陈东风, 勾成, 叶春堂, 等.
-\newblock \allowbreak[J].
 \newblock 核技术, 2005, 28\penalty0 (2):\penalty0 127.
 
 \bibitem[Oed(2004)]{oed2004}
 OED~A.
-\newblock \allowbreak[J].
 \newblock Nucl Instr Meth A, 2004, 525\penalty0 (1-2):\penalty0 62.
 
 \bibitem[Rhodes et~al.(1997)Rhodes, Wardle, Boram, et~al.]{rhodes1997}
 RHODES~N~J, WARDLE~A~G, BORAM~A~J, et~al.
-\newblock \allowbreak[J].
 \newblock Nucl Instr Meth A, 1997, 392\penalty0 (1-3):\penalty0 315.
 
 \bibitem[Crow et~al.(2004)Crow, Hodges, and Cooper]{crow2004}
 CROW~M~L, HODGES~J~P, COOPER~R~G.
-\newblock \allowbreak[J].
 \newblock Nucl Instr Meth A, 2004, 529\penalty0 (1-3):\penalty0 287.
 
 \bibitem[mis()]{misc}
@@ -857,38 +815,31 @@ Philips data handbook for electron tubes t9\allowbreak[M].
 \bibitem[迟少鹏\ 等(2003)迟少鹏, 夏小米, 周莉,
   et~al.]{chishaopeng2003}
 迟少鹏, 夏小米, 周莉, 等.
-\newblock \allowbreak[J].
 \newblock 高能物理与核物理, 2003, 27\penalty0 (3):\penalty0 257.
 
 \bibitem[汪晓莲\ 等(2003)汪晓莲, 许咨宗, 侯云珍,
   et~al.]{wangxiaolian2003}
 汪晓莲, 许咨宗, 侯云珍, 等.
-\newblock \allowbreak[J].
 \newblock 高能物理与核物理, 2003, 27\penalty0 (3):\penalty0 257.
 
 \bibitem[Sackett et~al.(1993)Sackett, Ieki, A, et~al.]{sackett1993}
 SACKETT~D, IEKI~K, A~G, et~al.
-\newblock \allowbreak[J].
 \newblock Physical Review C, 1993, 48\penalty0 (1):\penalty0 118.
 
 \bibitem[Sackett et~al.(1997)Sackett, Ieki, A, et~al.]{zecher1997}
 SACKETT~D, IEKI~K, A~G, et~al.
-\newblock \allowbreak[J].
 \newblock Nucl Instr Meth A, 1997, 401\penalty0 (2-3):\penalty0 329.
 
 \bibitem[薛梦驰(2009)]{xuemengchi2009}
 薛梦驰.
-\newblock \allowbreak[J].
 \newblock 电信科学, 2009, 7:\penalty0 57.
 
 \bibitem[唐军杰\ 等(2013)唐军杰, 王拓, 张强, et~al.]{tangjunjie2013}
 唐军杰, 王拓, 张强, 等.
-\newblock \allowbreak[J].
 \newblock 发光学报, 2013, 34\penalty0 (1):\penalty0 78.
 
 \bibitem[WU et~al.(2013)WU, TANG, SUN, et~al.]{wuchong2013}
 WU~C, TANG~B, SUN~Z, et~al.
-\newblock \allowbreak[J].
 \newblock Radiation Measurements, 2013, 58\penalty0 (11):\penalty0 128.
 
 \end{thebibliography}