[buptthesis commit] r63 - 调整了对盲审发表论文列表的支持，可以通过选项控制列写的作者数量

[codesite...@google.com]

Author: dazzlezhang
Date: Wed May 6 09:18:01 2009
New Revision: 63

Modified:
trunk/bibtex/BUPTThesis.bst

Log:
调整了对盲审发表论文列表的支持，可以通过选项控制列写的作者数量

Modified: trunk/bibtex/BUPTThesis.bst
==============================================================================
--- trunk/bibtex/BUPTThesis.bst (original)
+++ trunk/bibtex/BUPTThesis.bst Wed May 6 09:18:01 2009
@@ -126,6 +126,7 @@
CTLmax_names_forced_etal % 强制略去的最大作者数
CTLauthor_name_english % 作者英文姓名
CTLauthor_name_chinese % 作者中文姓名
+ CTLfor_peer_review % 是否匿名
}
{}
{ label }
@@ -302,6 +303,22 @@
numnames % numnames 压栈返回
}

+% convert the strings "yes" or "no" to #1 or #0 respectively
+FUNCTION {yes.no.to.int}
+{ "l" change.case$ duplicate$
+ "yes" =
+ { pop$ #1 }
+ { duplicate$ "no" =
+ { pop$ #0 }
+ { "unknown boolean " quote$ * swap$ * quote$ *
+ " in " * cite$ * warning$
+ #0
+ }
+ if$
+ }
+ if$
+}
+
% 初始化状态常量
FUNCTION {initialize.status.constants}
{ #0 'before.all := % 起始
@@ -2383,7 +2400,7 @@
{ skip$ }
{ CTLauthor_name_english
'author.name.in.english :=
- #1 'is.for.peer.review :=
+ % #1 'is.for.peer.review :=
% "CTLauthor_name_english=" author.name.in.english * debug.output
}
if$
@@ -2393,8 +2410,16 @@
{ skip$ }
{ CTLauthor_name_chinese
'author.name.in.chinese :=
- #1 'is.for.peer.review :=
+ % #1 'is.for.peer.review :=
% "CTLauthor_name_chinese=" author.name.in.chinese * debug.output
+ }
+ if$
+ CTLfor_peer_review
+ empty$
+ { skip$ }
+ { CTLfor_peer_review
+ yes.no.to.int
+ 'is.for.peer.review :=
}
if$
% CTLnames_show_etal