%% BUPTThesis.bst
%%
%% 北京邮电大学研究生学位论文参考文献 BibTeX 样式
%% 
%% 项目主页：http://code.google.com/p/buptthesis/
%% 
%% 本样式基于 IEEEtran 和 ThuThesis 修改而成，基本满足北京邮电大学研究生论文格式要求
%%
%% 作者：
%% 张煜 (email:dazzlezhang@gmail.com)
%%
%% 更新记录:
%% $LastChangedBy$
%% $LastChangedDate$
%% $LastChangedRevision$

%% 一些设置的缺省值
% 英文姓名排版格式字符串, 按<last name全称>~<first name首字母><, Jr.>格式
FUNCTION {default.name.format.string} {"{vv~}{ll}{~ff}{, Jj}"}

% 列出的最多作者数目, 即当作者数目超过下列数字时, 超出部分的作者姓名将略去
FUNCTION {default.max.num.names.before.forced.et.al} { #3 }

% 是否为盲审版本, #0 表示盲审将隐去作者信息, #1 表示非盲审
FUNCTION {default.is.for.peer.review} { #0 }
%%%%%%%%%%%%%%
% 一些辅助函数
%%%%%%%%%%%%%%
% #0 不在终端显示开始/完成的提示信息
% #1 显示提示信息
FUNCTION {is.print.banners.to.terminal} {#1}

%%%%%%%%%%%%%%%%
% 版本与提示信息
%%%%%%%%%%%%%%%%
% 版本信息
FUNCTION{bst.file.version} { "0.2" }
FUNCTION{bst.file.date} { "2009/01/25" }
FUNCTION{bst.file.website} { 
  "http://code.google.com/p/buptthesis/" }

% 开始提示信息
FUNCTION {banner.message}{ 
  is.print.banners.to.terminal
    { "-- BUPTThesis.bst version" " " * bst.file.version *
      " (" * bst.file.date * ") " * "by Yu Zhang." *
       top$
       "-- " bst.file.website *
       top$
       "-- See the " quote$ * "userguide.pdf" * quote$ * 
       " manual for usage information." *
       top$
    }
    { skip$ }
  if$
}

% 完成提示信息
FUNCTION {completed.message} { 
  is.print.banners.to.terminal
    { "" top$ "Done." top$ }
    { skip$ }
  if$
}

%%%%%%%%%%%%%%%%%%%
%% 预定义的字符串宏
%%%%%%%%%%%%%%%%%%%
% 英文月份
MACRO {jan} {"January"}
MACRO {feb} {"February"}
MACRO {mar} {"March"}
MACRO {apr} {"April"}
MACRO {may} {"May"}
MACRO {jun} {"June"}
MACRO {jul} {"July"}
MACRO {aug} {"August"}
MACRO {sep} {"September"}
MACRO {oct} {"October"}
MACRO {nov} {"November"}
MACRO {dec} {"December"}

%%%%%%%%%%%%
%% 条目定义
%%%%%%%%%%%%
ENTRY { address			% 地址
	assignee		% 标准授权人
	author			% 作者
	booktitle		% 专著/论文集名
	chapter			% 
	day			%
	dayfiled		%
	edition			% 版本
	editor			% 编者
	howpublished		% 出版形式
	esubtype		% 电子文献子类
	institution		% 
	journal			% 期刊
	key			%
	language		% 语言
	month			% 月
	monthfiled		%
	nationality		%
	newsletter		%
	note			%
	number			%
	number2			%
	organization		%
	pages			%
	publisher		%
	refdate			%
	update			% 电子文档更新或修改日期
	school			%
	series			%
	title			%
	translator		%
	type			%
	volume			%
	volume2			%
	year			%
	year2			%
	yearfiled		%
	url			% URL
	pubaddress		% 出版地
	CTLname_format_string	% 作者英文姓名排版格式
	CTLmax_names_forced_etal % 强制略去的最大作者数
	CTLauthor_name_english	 % 作者英文姓名
	CTLauthor_name_chinese	 % 作者中文姓名
	CTLfor_peer_review	 % 是否匿名
  }
  {}
  { label }

%%%%%%%%%%%%%
%% 字符串常量
%%%%%%%%%%%%%
% FUNCTION {bbl.anonymous}   { language empty$ { "Anon" }  { "佚名" } if$ }
FUNCTION {bbl.anonymous} { "" }
FUNCTION {bbl.etal}        { language empty$ { "~et~al" } { "~等" } if$ }
FUNCTION {bbl.sine.loco}   { language empty$ { "S.~l." } { "出版地不详" } if$ }
FUNCTION {bbl.sine.nomine} { language empty$ { "s.~n." } { "出版者不详" } if$ }

FUNCTION {bbl.comma}       { language empty$ { ", " } { "，" } if$ }
FUNCTION {bbl.colon}       { language empty$ { ": " } { "：" } if$ }
FUNCTION {bbl.period}      { language empty$ { "." } { "．" } if$ }
FUNCTION {bbl.parallel}    { "~//~" }

FUNCTION {bbl.st}          { "st" }	% 序数词后缀
FUNCTION {bbl.nd}          { "nd" }	% 序数词后缀
FUNCTION {bbl.rd}          { "rd" }	% 序数词后缀
FUNCTION {bbl.th}          { "th" }	% 序数词后缀

FUNCTION {bbl.number}      { "第" }
FUNCTION {bbl.author}      { "作者" }

%%%%%%%%%%%%
%% 整型变量
%%%%%%%%%%%
INTEGERS { output.state before.all mid.sentence after.title after.sentence url.sentence after.block before.pages }
INTEGERS { number.label longest.label.width multiresult 
	   nameptr namesleft numnames lastnamecapitalized namelength charptr }
INTEGERS { max.num.names.before.forced.et.al }
INTEGERS { is.for.peer.review }

%%%%%%%%%%%%%
%% 字符串变量
%%%%%%%%%%%%%
STRINGS { s 
	  t 
	  longest.label 
	  thename 
	  name.emph.author.en	% 强调现实的作者英文姓名
	  name.emph.author.zh	% 强调显示的作者中文姓名
	  name.format.string	% 姓名的格式字符串
	  author.name.in.english % 作者英文姓名
	  author.name.in.chinese % 作者中文姓名
}

%%%%%%%%%%%%%%%%%%%%%
%% LaTeX 参考文献代码
%%%%%%%%%%%%%%%%%%%%%

% 输出 .bbl 文件开始
FUNCTION {begin.bib} { 
  "% Generated by BUPTThesis.bst, version: " bst.file.version * 
  " (" * bst.file.date * ")" *
  write$ newline$		% 输出注释行，说明产生该bbl的bst及版本

  preamble$ empty$		% 输出前导
    'skip$
    { preamble$ write$ newline$ }
  if$

  "\begin{thebibliography}{"  longest.label  * "}" * 
  write$ newline$		% 输出 \begin{thebiliography}{x}
}

% 输出 .bbl 文件结束部分
FUNCTION {end.bib} {
  newline$
  "\end{thebibliography}" 
  write$ newline$
}

%%%%%%%%%%%%
%% 底层函数
%%%%%%%%%%%%

% 控制变量初始化
FUNCTION {initialize.controls} {
  default.name.format.string 'name.format.string :=
  default.max.num.names.before.forced.et.al 'max.num.names.before.forced.et.al :=
  default.is.for.peer.review 'is.for.peer.review :=
}

% 初始化最长 label
FUNCTION {initialize.longest.label} { 
  "" 'longest.label :=
  #1 'number.label :=
  #0 'longest.label.width :=
}

% 最长 label pass
FUNCTION {longest.label.pass}
{ number.label int.to.str$ 'label :=
  number.label #1 + 'number.label :=
  label width$ longest.label.width >
    { label 'longest.label :=
      label width$ 'longest.label.width :=
    }
    { skip$ }
  if$
}

% 逻辑非: 栈顶元素的逻辑非
FUNCTION {not} {
    { #0 }
    { #1 }
  if$
}

% 逻辑与
FUNCTION {and} {   
    { skip$ }
    { pop$ #0 }
  if$
}

% 逻辑或
FUNCTION {or} {
    { pop$ #1 }
    { skip$ }
  if$
}

% 返回 #1 : 栈顶字符是数字"0"~"9"
% 返回 #0 : 其他
FUNCTION {is.num} {
  chr.to.int$
  duplicate$ "0" chr.to.int$ < not
  swap$ "9" chr.to.int$ > not and
}

% 栈顶整数乘以10
FUNCTION {bump.int.mag} {
  #0 'multiresult :=		% 初始化乘运算结果 y <- 0
  { duplicate$ #0 > }		% 栈顶整数 x = 0 时才停止循环
  { #1 -			% x <- x - 1
    multiresult #10 +		
    'multiresult :=		% y <- y + 10
  }
  while$
  pop$				% 释放 x 
  multiresult			% y 压栈返回
}

% 将栈顶字符("0"~"9")转换为整数(0~9)
FUNCTION {char.to.integer} { 
  duplicate$ 
  is.num
    { chr.to.int$ "0" chr.to.int$ - }
    { "noninteger character " quote$ * swap$ * quote$ *
      " in integer field of " * cite$ * warning$
      #0			% 如果栈定字符不是("0"~"9"), 给出警告返回 0
    }
  if$
}

% 将栈顶字符串转换为整数
FUNCTION {string.to.integer} { 
  duplicate$ text.length$ 'namesleft := % namesleft <- 字符串长度
  #1 'nameptr :=			% nameptr   <- 1
  #0 'numnames :=			% numnames  <- 0
  { nameptr namesleft > not }		% while( ! ( nameptr > namesleft ) )
  { duplicate$ nameptr #1 substring$	% 取第 nameptr 个字符 x
    char.to.integer numnames bump.int.mag + 
    'numnames :=		        % numnames <- chr2int( x ) + 10 * numnames
    nameptr #1 +			
    'nameptr :=				% nameptr <- nameptr + 1
  }
  while$
  pop$				        % 释放栈顶元素
  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 :=		% 起始
  #1 'mid.sentence :=		% 句中
  #2 'after.sentence :=		% 句末
  #3 'after.block :=		% 块后
  #4 'after.title :=            %
  #5 'before.pages :=		%
}

FUNCTION {remove.char}
{ 't :=
  's :=
  ""
  { s empty$ not }
  { s #1 #1 substring$
    s #2 global.max$ substring$ 's :=
    duplicate$ t = 'pop$
      { * }
    if$
  }
  while$
}

STRINGS {z}
FUNCTION {remove.period}
{ 'z :=
  ""
  { z empty$ not }
  { z #1 #1 substring$
    z #2 global.max$ substring$ 'z :=
    duplicate$ "." = 'pop$
      { * }
    if$
  }
  while$
}

FUNCTION {remove.dots} {
  duplicate$ "input=" swap$ * warning$ 
  "language=" language * warning$
  language empty$
    { "." remove.char 
      duplicate$ "output('.')=" swap$ * warning$ }
    { "．" remove.char 
      duplicate$ "output('．')=" swap$ * warning$
      "." remove.char 
      duplicate$ "output('.')=" swap$ * warning$ }
  if$
}

FUNCTION {bibinfo.check}
{ swap$
  duplicate$ missing$
    {
      pop$ pop$
      ""
    }
    { duplicate$ empty$
        {
          swap$ pop$
        }
        { swap$
          pop$
        }
      if$
    }
  if$
}

%%%%%%%%%%%%
%% 调试例程
%%%%%%%%%%%%

% 默认调试输出函数
FUNCTION {debug.output} {
  "[DEBUG] " swap$ * top$ 
}

% 状态调试输出函数
FUNCTION {debug.output.status} {
  "---- output.state=" 
  output.state before.all = 
    { "before.all" }
    { output.state mid.sentence =
	{ "mid.sentence" }
	{ output.state after.sentence =
	    { "after.sentence" }
	    { output.state url.sentence =
		{ "url.sentence" }	
		{ output.state before.pages =
		    { "before.pages" }
		      { "after.block" }
		  if$
		}
	      if$
	    }
	  if$
	}
      if$
    }
  if$
  * debug.output
}

FUNCTION {output.year}
{ 't :=
  number empty$
  volume empty$
  and
    { add.period$ write$ }
    { ", " * write$ }
  if$
  t
}

% STRINGS {z}
% FUNCTION {remove.dots}
% { 'z :=
%   ""
%   { z empty$ not }
%   { z #1 #1 substring$
%     z #2 global.max$ substring$ 'z :=
%     duplicate$ bbl.period = 'pop$
%       { * }
%     if$
%   }
%   while$
%   %z
% }

% 对于中文文献, 用全角句点替换英文句点
FUNCTION {replace.half.width.period} {
%   % DEBUG
%   duplicate$ "-- replace.half.width.period(" swap$ * ")" * debug.output
%   % END OF DEBUG
  language empty$
    { " " * }				   % 对于英文文献, 在句点后加一空格
    { duplicate$ text.length$ 'numnames := % numnames 等于字符串长度
%       % DEBUG
%       numnames int.to.str$ "---- text.length$=" swap$ * debug.output
%       % END OF DEBUG
      duplicate$ numnames #1 substring$ "." =
	{ % % DEBUG
% 	  "---- Found '.' at the end" debug.output
% 	  % END OF DEBUG
	  numnames #1 -
	  #1 swap$ substring$
	  bbl.period *
	}
	{ skip$ }
      if$
    }
  if$
%   % DEBUG
%   duplicate$ "---- Return=" swap$ * debug.output
%   % END OF DEBUG
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 输出例程: 输出栈顶项并根据需要添加标点符号
%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%

% 非空项输出函数: 用于输出非空项
FUNCTION {output.nonnull} {
%   % DEBUG
%   duplicate$ "output.nonnull(" swap$ * ")" * debug.output
%   debug.output.status
%   % END OF DEBUG
  swap$
  % 根据当前输出状态添加前置标点符号
  % before.all      起始, 不添加任何标点符号直接输出
  % mid.sentence    句中, 前置逗号输出
  % after.sentence  句末, 前置句号输出
  % after.block     块后, 前置句号, 后置 \newblock 输出
  % after.title
  output.state mid.sentence =
    { bbl.comma * write$ }	% mid.sentence 前置逗号
    { output.state after.block =
	{ add.period$		    % 块后, 后置句号
	  replace.half.width.period % 为中文文献替换句点
	  write$ 
	  newline$  
%	  "\newblock "  write$ 
	} % 后置 \newblock 输出
	{ output.state before.all =
            { write$ }		% 起始, 不添加任何标点符号直接输出
            { output.state after.title =
		{ bbl.parallel *
		  write$ }
		{ output.state before.pages =
		    { bbl.colon * 
		      write$ }
		    { add.period$ 	% 句末, 前置句号输出
		      replace.half.width.period 
		      write$ }		% 
		  if$
		}
	      if$
	    }
	  if$
	}
      if$
      mid.sentence 'output.state :=
    }
  if$
  % s
}

% 无警告输出函数
FUNCTION {output} { 
  duplicate$ empty$
    { pop$ }			% 若输出项为空, 则舍去空输出项
    { output.nonnull }		% 否则调用非空输出函数
  if$
}

% 警告输出函数: 同 output, 但是对于空项给出警告提示
FUNCTION {output.warn}
{ 't :=
  duplicate$ empty$
    { pop$ "empty " t * " in " * cite$ * warning$ }
    { output.nonnull }
  if$
}

% 将数字字符串转换成序数词形式字符串(例如: "7" -> "7th")
FUNCTION {num.to.ordinal} { 
  duplicate$ #-1 #1 substring$ "1" =
     { bbl.st * }
     { duplicate$ #-1 #1 substring$ "2" =
         { bbl.nd * }
         { duplicate$ #-1 #1 substring$ "3" =
             { bbl.rd * }
             { bbl.th * }
           if$
         }
       if$
     }
   if$
}

% 从字符串中提取前导数字的函数
% 如果栈顶字符串以数字开头(例如: "11th"), 则将字符串用其数字部分(即,"11")
% 替换. 否则, 保持原字符串不变. 用于版本转换函数(convert.edition)
% s 保存提取出的数字, t 保存剩余待扫描的字符串.
FUNCTION {extract.num} {
  duplicate$ 't :=		% t <- 输入字符串
  "" 's :=			% s <- ""
  { t empty$ not }		% while( t != "" ) {
  { t #1 #1 substring$		%   tmp <- t[0]
    t #2 global.max$ substring$ 
    't :=			%   t <- t[2:global.max$]
    duplicate$ is.num		%   if( is.num( tmp ) )
      { s swap$ * 's := }	%     s <- s & tmp
      { pop$ "" 't := }		%   else t <- ""
    if$				% }
  }				% 
  while$			% if( s == "" )
  s empty$			%   ;
    'skip$			% else
    { pop$ s }			%   return s
  if$				%
}

% 将1st~10th单词形式的序数词转换成阿拉伯数字形式
FUNCTION {word.to.num} {
  duplicate$ "l" change.case$ 
  's :=				% s <- lower( arg )
  s "first" =			% if ( s == "first" )
    { pop$ "1" }		%   return "1"
    { skip$ }
  if$
  s "second" =			% if ( s == "second" )
    { pop$ "2" }		%   return "2"
    { skip$ }
  if$
  s "third" =
    { pop$ "3" }
    { skip$ }
  if$
  s "fourth" =
    { pop$ "4" }
    { skip$ }
  if$
  s "fifth" =
    { pop$ "5" }
    { skip$ }
  if$
  s "sixth" =
    { pop$ "6" }
    { skip$ }
  if$
  s "seventh" =
    { pop$ "7" }
    { skip$ }
  if$
  s "eighth" =
    { pop$ "8" }
    { skip$ }
  if$
  s "ninth" =
    { pop$ "9" }
    { skip$ }
  if$
  s "tenth" =
    { pop$ "10" }
    { skip$ }
  if$
}

% 转换字符串形式的序数词为数字形式的序数词
% 例如: 将 "Eleventh" 转换为 "11th"
FUNCTION {convert.edition} { 
  duplicate$ empty$ 'skip$
    { duplicate$ #1 #1 substring$ 
      is.num			% if( is.num( arg[1] ) ) {
        { extract.num		%   tmp <- extract.num( arg )
          num.to.ordinal	%   tmp <- num.to.ordinal( tmp )
        }			% } else {
        { word.to.num		%   tmp <- word.to.num( arg )
          duplicate$ #1 #1 substring$ 
	  is.num		%   if( is.num( tmp[1] ) )
            { num.to.ordinal }	%     tmp <- num.to.ordinal( tmp )
            { "edition ordinal word " 
	      quote$ * edition * quote$ *
              " may be too high (or improper) for conversion" * 
	      " in " * cite$ * warning$ % else output warning
            }
          if$
        }
      if$
    }
  if$
}

FUNCTION {start.entry}
{ newline$
  "\bibitem{" write$
  cite$ write$
  "}" write$
  newline$
  ""
  before.all 'output.state :=
}

FUNCTION {fin.entry}
{ add.period$
  replace.half.width.period
  write$
  newline$
}

% FUNCTION {fin.entry}
% { duplicate$ empty$
%     'pop$
%     'write$
%   if$
%   newline$
% }

FUNCTION {new.block}
{ output.state before.all =
    'skip$
    { after.block 'output.state := }
  if$
}

FUNCTION {new.sentence}
{ output.state after.block =
    'skip$
    { output.state before.all =
    'skip$
    { after.sentence 'output.state := }
      if$
    }
  if$
}

FUNCTION {new.block.checka}
{ empty$
    'skip$
    'new.block
  if$
}

FUNCTION {new.block.checkb}
{ empty$
  swap$ empty$
  and
    'skip$
    'new.block
  if$
}

FUNCTION {new.sentence.checka}
{ empty$
    'skip$
    'new.sentence
  if$
}

FUNCTION {new.sentence.checkb}
{ empty$
  swap$ empty$
  and
    'skip$
    'new.sentence
  if$
}

FUNCTION {field.or.null}
{ duplicate$ empty$
    { pop$ "" }
    'skip$
  if$
}

FUNCTION {emphasize}
{ duplicate$ empty$
    { pop$ "" }
    { "{\em " swap$ * "}" * }
  if$
}





FUNCTION {format.language}
{ language empty$
    'skip$
    'skip$
  if$
 }
FUNCTION {is.space}
{ chr.to.int$
  duplicate$ #32 =
    { pop$ #1 }
    { pop$ #0 }
  if$
}
FUNCTION {is.lower.char}
{
  chr.to.int$
  duplicate$ #96 >
    { #123 < 
	{ #1 }
	{ #0 }
      if$
    }
    { pop$ #0 }
  if$
}

% 将last name转换为全大写
FUNCTION {capitalize.last.name} {
  "u" change.case$
}
% FUNCTION {capitalize.last.name}
% { 
%   'thename :=			% 输入参数 thename
%   thename text.length$ 
%   'namelength :=		% namelength := thename 的长度
%   #1 'charptr :=
%   #0 'lastnamecapitalized :=
%   ""
  
%   { charptr #1 - namelength < 
%     %     % debug
%     %     duplicate$ int.to.str$ "( charptr + #1 > namelength ) == " swap$ * warning$ 
%     %     % eod
%   }
%   { 
%     %     % debug
%     %     "charptr = " charptr int.to.str$ * 
%     %     ", lastnamecapitalized = " * 
%     %     lastnamecapitalized int.to.str$ * warning$
%     %     % eod
%     lastnamecapitalized #1 = 
% 	{	thename charptr namelength charptr - #1 + substring$ *
% 		namelength #1 + 'charptr := 
% 		% 	% debug
% 		% 	duplicate$ "top of the stack = " swap$ * warning$
% 		% 	% eod
% 	}
% 	{ thename charptr #1 substring$ 
% 	  % 	% debug
% 	  % 	duplicate$ "the char = " swap$ * warning$
% 	  % 	% eod
% 	  duplicate$ is.lower.char 
% 	    % 	% debug
% 	    % 	duplicate$ int.to.str$ "is.lower.char = " swap$ * warning$
% 	    % 	  % eod
% 	    { "u" change.case$ * }
% 	    { duplicate$ is.space
% 		% 	    % debug
% 		% 	    duplicate$ int.to.str$ "is.space = " swap$ * warning$
% 		% 	      % eod
% 		{ #1 'lastnamecapitalized :=
% 		  *
% 		}
% 		{ *
% 		}
% 	      if$
% 	    }
% 	  if$
% 	  % 	% debug
% 	  % 	duplicate$ "top of the stack = " swap$ * warning$
% 	  % 	% eod
% 	  charptr #1 + 'charptr :=
% 	}
%     if$
%   }
%   while$
% }
% 格式化盲审姓名
FUNCTION {format.names.for.peer.review} {
  's :=				% s := author域
  #1 'nameptr :=		% nameptr 是姓名指针，初始化为 1
  s num.names$ 'numnames :=     % 利用 num.names$ 获得 s 中的作者数量存入 nameptr
  numnames 'namesleft :=	% 未处理的姓名数 namesleft := numnames
  % 循环处理所有姓名
  { namesleft #0 > }		% if namesleft > #0 (还有姓名没有格式化)
  { s nameptr 			% 选择第 nameptr 个姓名
    name.format.string		% 按 name.format.string 的格式排版
    format.name$		% 调用 format.name$
    remove.period		% 并删除缩写符号'.'
    't :=			% 格式化后的姓名暂存于 t
    language empty$		
      { author.name.in.english }% 如果是英文文献将 author.name.in.english 压栈
      { author.name.in.chinese } % 否则将 author.name.in.chinese 压栈
    if$
    t =				% 用当前的姓名与栈上的姓名做比较
      { nameptr int.to.str$	% 将作者序号转化为字符串
	"\CJKnumber{" swap$ * "}" * % 使用中文数字
	bbl.number swap$ * bbl.author * % 加上``第''和``作者''
%	duplicate$ debug.output
      }
      { skip$ }
    if$
    nameptr #1 + 'nameptr :=	% 姓名指针加 1
    namesleft #1 - 'namesleft := % 剩余姓名数减 1
  }
  while$
}
% 格式化非盲审姓名
FUNCTION {format.names.for.non.peer.review} { 
  % 初始化
  's :=				% s := author域
  #1 'nameptr :=		% nameptr 是姓名指针，初始化为 1
  s num.names$ 'numnames :=	% 利用 num.names$ 获得 s 中的作者数量存入 nameptr
  numnames 'namesleft :=	% 未处理的姓名数 namesleft := numnames
  % 循环处理所有姓名
  { namesleft #0 > }		% if namesleft > #0 (还有姓名没有格式化)
  { s nameptr 			% 选择第 nameptr 个姓名
    name.format.string		% 按 name.format.string 的格式排版
    format.name$		% 调用 format.name$
%     language empty$		
%       {	"u" change.case$ }	% 如果不是语言为空, 做大写转换
%       {	skip$ }
%     if$				% <language 判断结束>
    remove.period		% 并删除缩写符号'.'
    't :=			% 格式化后的姓名暂存于 t
    nameptr #1 >
      { nameptr max.num.names.before.forced.et.al #1 + =
          { "others" 't :=	% 如果当前作者的序数已经超出了最大列显作者数
            #1 'namesleft := }	% 则置未处理姓名数为#1, 以便跳出循环
          { bbl.comma * }		% 如果作者序数在允许范围内, 则添加逗号
        if$			% <et al 判断结束>
        namesleft #1 >		% 若当前姓名不是最后一个
          { t * }		% 显示当前姓名	
          { t "others" =	% 若当前姓名是最后一个且后面有略去的姓名
              { bbl.etal * }	% 添加", et~al"或"，等"
	            { t * }		% 如果没有略去姓名，以句点结束
	          if$			% <others 判断结束>
	        }
        if$ 			% <namesleft 判断结束>
      }
      { t }			% 如果是第一个作者, 直接将排版后的姓名压栈
    if$
    nameptr #1 + 'nameptr :=	% 姓名指针加 1
    namesleft #1 - 'namesleft := % 剩余姓名数减 1
  }
  while$
}
% 格式化姓名
FUNCTION {format.names} {
  is.for.peer.review 
    { format.names.for.peer.review }	 % 格式化盲审姓名
    { format.names.for.non.peer.review } % 格式化非盲审姓名
  if$
}
FUNCTION {format.authors}
{ author empty$
    { bbl.anonymous
      "The author in " cite$ * " is missing." * warning$ }
    { author format.names }
  if$
}

FUNCTION {format.editors}
{ editor empty$
    { bbl.anonymous
      "The editor in " cite$ * " is missing." * warning$ 
    }
    { editor format.names }
  if$
}

FUNCTION {format.assignees} {
  assignee empty$
    { "" }
    { assignee format.names }
  if$
}

% 译者格式
FUNCTION {format.translators}
{ translator empty$
    { "" }			% 无译者
    { new.block			% 有译者
      translator format.names "，译" *
    }
  if$
}

% 机构格式
FUNCTION {format.institution} { 
  institution empty$
    { "" }
    { institution }
  if$
}

% 组织格式
FUNCTION {format.organization} { 
  organization empty$
    { "" }
    { organization }
  if$
}

% 文献类型标志代码/电子文献载体标志代码
FUNCTION {bib.type.designator} {
%   % DEBUG
%   "bib.type.designator(type:" type$ * debug.output
%   "                    url: " url empty$ { "<N/A>" }{ url } if$  * debug.output
%   % END OF DEBUG

  % 文献类型标志代码
  type$ "book" = type$ "inbook" = or
    { "M" }
    { type$ "standard" = 
	{ "S" }
	{ type$ "proceedings" = type$ "conference" = or type$ "inproceedings" = or
	    { "C" }
	    { type$ "patent" =
		{ "P" }
		{ type$ "phdthesis" = type$ "masterthesis" = or
		    {language "Chinese" = { "学位论文" } { language empty$ = {"Dissertation"}  if$} if$}
		    { type$ "techreport" = 
			{ "R" }
			{ type$ "article" = type$ "periodical" = or
			    { "J" }
			    { type$ "online" = type$ "webpage" = or type$ "www" = or
				{ "EB" }
				{ type$ "electronic" =
				    { esubtype empty$
					{ url empty$
					    { "" }
					    { "EB" }
					  if$
					}
					{ esubtype "webpage" = 
					    { "EB" }
					    { esubtype "database" =
						{ "DB" }
						{ esubtype "program" =
						    { "CP" }
						    { "" }
						  if$ % electronics[program]
						}
					      if$ % electronics[database]
					    }
					  if$ % electronics[webpage]
					}
				      if$
				    }
				    { "" } % 其他
				  if$	   % electronics
				}
			      if$ % online/webpage/www
			    }
			  if$	% article/periodical
			}
		      if$ 	% techreport
		    }
		  if$		% phdthesis/mastersthesis
		}
	      if$ 		% patent
	    }
	  if$			% proceedings/inproceedings/conference
	}
      if$			% standard
    }
  if$ 				% book/inbook
%   % DEBUG
%   duplicate$ "                    doc.designator: " swap$ * debug.output
%   % END OF DEBUG
  % 电子文献载体标志代码
  duplicate$ "" =
    { skip$ }
    { "~[" swap$ *
      howpublished empty$ 
	{ url empty$
	    { "" }
	    { "/OL" }
	  if$
	}
	{ howpublished "online" =
	    { "/OL" }
	    { howpublished "magtype" =
		{ "MT" }
		{ howpublished "disk" =
		    { "DK" }
		    { howpublished "cdrom" =
			{ "CD" }
			{ "" }
		      if$	% cdrom
		    }
		  if$		% disk
		}
	      if$		% magitude type
	    }
	  if$			% online
	}
      if$ 
      * "]" *
    }
  if$
}

FUNCTION {format.title}
{ title empty$
    { "" }
    { new.block
      title }
  if$
}

% 格式化年月日``YYYY-MM-DD''
FUNCTION {format.year.month.day} { 
  year empty$
    { "YYYY" }
    { year }
  if$
  "-" *
  month empty$
    { "MM" * } 
    { month text.length$ #2 <
	{ "0" * }
	{ skip$ }
      if$
      month * 
    }
  if$
  "-" *
  day empty$
    { "DD" * }
    { day text.length$ #2 <
	{ "0" * }
	'skip$
      if$
      day *
    }
  if$
}

FUNCTION {format.reference.date} {
  refdate empty$
    { ""
      url empty$
	{ skip$ }
	{ "The refdate in " cite$ * " is missing." * warning$ }
      if$
    }
    { output.state mid.sentence =
	{ before.all 'output.state := }
	{ skip$ }
      if$
      "~[" refdate * "]" * }
  if$
}

% patent的题名项: 专利题名: 专利国别, 专利号~[文献类型标志]
FUNCTION {format.patent.title} { 
  title empty$			% 专利提名
    { "" }
    { new.block
      title bbl.colon * 
      nationality empty$		% 专利国别, 专利号
	{ % 专利国别为必备项
	  "The nationality in " cite$ * " is missing." * warning$
	}
	{ number empty$
	    { % 专利号为必选项
	      "The number in " cite$ * " is missing." * warning$
	    }
	    { % 产生``专利国别, 专利号''
	      nationality * bbl.comma * number *
	    }
	  if$
	}
      if$
      % 文献类型标志
      bib.type.designator *
    }
  if$
}

% patent的出版项:
FUNCTION {format.patent.publication} { 
  new.block
  format.year.month.day
%   % DEBUG
%   duplicate$ "End of format.patent.publication, top = " swap$ * debug.output
%   % END OF DEBUG
  url empty$
    { skip$ }
    { refdate empty$
	{ "The refdate in " cite$ * " is missing." * warning$ }
	{ "~[" * refdate * "]" * }
      if$
    }
  if$
}

% electronic的主要责任者:
%   author 或 organization
FUNCTION {format.electronic.authors}
{
  author empty$
    { organization empty$
	{ " " }
	{ organization }
      if$
    }
    { format.authors }
  if$
}

% electronic的出版项
FUNCTION {format.electronic.publication} { 
  new.block
  % 出版地: 出版者
  address empty$
    { "" }
    { address 
      publisher empty$
	{ skip$ }
	{ bbl.colon * publisher * }
      if$
    }
  if$
  
  % 出版年
  year empty$
    { skip$ }
    { publisher empty$ 
	{ "" }
	{ bbl.comma }
      if$ 
      * year * }
  if$
}

%% article的标题格式
FUNCTION {format.atitle}
{ title empty$
    { "" }
    { title 
      newsletter empty$
	{ "~[J" * }
	{ newsletter "yes" =
	    { "~[N" * }
	    { "~[J" * }
	  if$
	}
      if$
      url empty$
	{ "]" * }
	{ "/OL]" * }
      if$
    }
  if$
}
%% incollection的标题格式
FUNCTION {format.ictitle}
{ title empty$
    { "" }
    { title "~[M]~//~" * 
      editor format.names *
    }
  if$
}
%% inproceedings的标题格式
FUNCTION {format.iptitle}
{ title empty$
    { "" }
    { title "~[C]~//~" * 
      editor format.names *
    }
  if$
}

FUNCTION {n.dashify}
{ 't :=
  ""
    { t empty$ not }
    { t #1 #1 substring$ "-" =
    { t #1 #2 substring$ "--" = not
        { "--" *
          t #2 global.max$ substring$ 't :=
        }
        {   { t #1 #1 substring$ "-" = }
        { "-" *
          t #2 global.max$ substring$ 't :=
        }
          while$
        }
      if$
    }
    { t #1 #1 substring$ *
      t #2 global.max$ substring$ 't :=
    }
      if$
    }
  while$
}

% 年，卷（期）
FUNCTION {format.year.volume.number} {
  year empty$
    { "" }
    { type$ "periodical" =
	{ new.block }
	{ mid.sentence 'output.state := }
      if$
      year 
      volume empty$
	'skip$
	{ bbl.comma * volume * }
      if$
      number empty$
	'skip$
	{ "~(" * number * ")" * }
      if$ 
      year2 empty$
	{ skip$ }
	{ "~--" * 
	  year2 "now" =
	    { skip$ }
	    { year2 * 
	      volume2 empty$
		{ skip$ }
		{ bbl.comma * volume2 * }
	      if$
	      number2 empty$
		'skip$
		{ "~(" * number2 * ")" * }
	      if$
	    }
	  if$
	}
      if$
    }
  if$
%   %% DEBUG
%   duplicate$ "format.year.volume.number=" swap$ * debug.output
%   %% END OF DEBUG
}

% 卷（期）.年,月(for article only)
FUNCTION {format.volume.number.year.month} {
  add.period$
  year empty$
    { "" }
    {
      volume empty$
        'skip$
        { "~" * volume * }
      if$
      number empty$
        'skip$
        { "~(" * number * ")" * }
      if$
      new.block
      year
      month empty$
        'skip$
        { bbl.comma * month * }
      if$
    }
  if$
}

%
FUNCTION {format.date}
{ year empty$
    { month empty$
      { "" }
      { "there's a month but no year in " cite$ * warning$
        month
      }
      if$
    }
    { month empty$
      { year }
      { month bbl.comma * year * }
      if$
    }
  if$
}

function {format.year.year}
{ year empty$
    'skip$
    { year "--" *
    year2 empty$
      'skip$
      { year2 "now" =
	  'skip$
	  { year2 * }
	if$
      }
    if$
    }
  if$
}

% 专著标题格式
FUNCTION {format.book.title} { 
  new.block			% 生成一个新的block
  title 
  type$ "proceedings" =
    { address empty$
	{ skip$ }
	{ bbl.comma * address * bbl.comma * 
	  month empty$
	    { skip$ }
	    { month * }
	  if$
	  year empty$
	    { skip$ }
	    { year * }
	  if$
	}
      if$
    }
    { skip$ }
  if$
  bib.type.designator *	% 标题 + [文献标志代码/电子文献载体标志代码]
}

% 科技报告标题格式
FUNCTION {format.techreport.title} { 
  title empty$
    { "" }
    { new.block			% 生成一个新的block
      title			% 标题 + 
      number empty$		% 编号 +
	{ "" }
	{ bbl.comma * number }
      if$ *	  
      bib.type.designator *	% [文献标志代码/电子文献载体标志代码]
    }
  if$
}

% 连续出版物标题格式
FUNCTION {format.jtitle}
{ title "~[J" *
  url empty$
    { "]" * }
    { "/OL]" * }
  if$
}

% 论文集标题格式
FUNCTION {format.ptitle.volume}
{ title 
  volume empty$
    { "~[C]" }
    { bbl.colon volume * "~[C]" * }
  if$ *
  %emphasize
}
FUNCTION {tie.or.space.connect}
{ duplicate$ text.length$ #3 <
    { "~" }
    { " " }
  if$
  swap$ * *
}

FUNCTION {either.or.check}
{ empty$
    'pop$
    { "can't use both " swap$ * " fields in " * cite$ * warning$ }
  if$
}

FUNCTION {format.bvolume}
{ volume empty$
    { "" }
    { language empty$
	{ "volume" volume tie.or.space.connect }
	{ volume }
      if$
      series empty$
    'skip$
    { " of " * series emphasize * }
      if$
      "volume and number" number either.or.check
    }
  if$
}

FUNCTION {format.number.series}
{ volume empty$
    { number empty$
    { series field.or.null }
    { output.state mid.sentence =
        { "number" }
        { "Number" }
      if$
      number tie.or.space.connect
      series empty$
        { "there's a number but no series in " cite$ * warning$ }
        { " in " * series * }
      if$
    }
      if$
    }
    { "" }
  if$
}

% 版本项格式
FUNCTION {format.edition} { 
  edition empty$
    { "" }
    { new.block			% 版本项按一个block输出
      language empty$		% 英文文献版本号自动转换成数字形式的序数词
	{ edition convert.edition
	  "l" change.case$ " ed" * 
	}
	{ edition }		% 中文文献版本号直接输出
      if$
    }
  if$
}


FUNCTION {format.url}
{ url empty$
    { "" }
    { new.block
      "\url{" url * "}" * 
    }
  if$
}

FUNCTION {multi.page.check}
{ 't :=
  #0 'multiresult :=
    { multiresult not
      t empty$ not
      and
    }
    { t #1 #1 substring$
      duplicate$ "-" =
      swap$ duplicate$ "," =
      swap$ "+" =
      or or
    { #1 'multiresult := }
    { t #2 global.max$ substring$ 't := }
      if$
    }
  while$
  multiresult
}

FUNCTION {format.pages}
{ pages empty$
    { "" }
    { before.pages 'output.state :=
      pages multi.page.check
      { "" pages n.dashify tie.or.space.connect }
      { "" pages tie.or.space.connect }
      if$
    }
  if$
}

FUNCTION {format.vol.num.pages}
{ volume field.or.null
  number empty$
    'skip$
    { "(" number * ")" * *
      volume empty$
	{ newsletter empty$
	    { "there's a number but no volume in " cite$ * warning$ }
	    'skip$
	  if$
	}
	'skip$
      if$
    }
  if$
  pages empty$
    'skip$
    { duplicate$ empty$
	{ pop$ format.pages }
	{ bbl.colon * pages n.dashify * }
      if$
    }
  if$
  % duplicate$ "top of stack = " swap$ * warning$
  url empty$
    'skip$
    { refdate empty$ 
	{ "there's an url but no refdate  in " cite$ * warning$ }
	{ %duplicate$ "url and refdate is not empty, top of stack = " swap$ * warning$
	  "~[" * refdate * "]" * 
	}
      if$
      %duplicate$ "top of stack = " swap$ * warning$
    }
  if$
}

FUNCTION {format.chapter.pages}
{ chapter empty$
    { "" }
    { type empty$
      { "chapter" }
      { type "l" change.case$ }
    if$
    chapter tie.or.space.connect
    pages empty$
      'skip$
      { ", " * format.pages * }
    if$
    }
  if$
}

FUNCTION {format.in.booktitle}
{ booktitle empty$
    { "" }
    { editor empty$
	{ language empty$
	    { " " booktitle * }
	    %        { "Proceedings of " booktitle * }
            { " " booktitle * }
	  if$
	}
	{ language empty$
%            { "In: " format.editors * ", Proceedings of " * booktitle * }
	    { " " booktitle * }
            { " " booktitle * }
	  if$
	}
      if$
    }
  if$
}

FUNCTION {format.in.ed.booktitle.volume}
{ booktitle empty$
    { "" }
    { editor empty$
	{ language empty$
%            { "Proceedings of " booktitle * }
	    { " " booktitle * }
            { " " booktitle * }
	  if$
	}
	{ language empty$
          %{ "In: " format.editors * ", Proceedings of " * booktitle * }
	    { " " booktitle * }
            { " " booktitle * }
	  if$
	}
      if$
      %% volume
      volume empty$
	'skip$
	{ language empty$
	    { "Vol." * volume * }
	    { "：第" * volume * "卷" * }
	  if$
	}
      if$
    }  
  if$
}

FUNCTION {empty.misc.check}
{ author empty$ title empty$ howpublished empty$
  month empty$ year empty$ note empty$
  and and and and and
    { "all relevant fields are empty in " cite$ * warning$ }
    'skip$
  if$
}

FUNCTION {format.thesis.type}
{ type empty$
    'skip$
    { pop$
      type "t" change.case$
    }
  if$
}

FUNCTION {format.tr.number}
{ type empty$
    { "Technical Report" }
    'type
  if$
  number empty$
    { "t" change.case$ }
    { number tie.or.space.connect }
  if$
}

FUNCTION {format.article.crossref}
{ key empty$
    { journal empty$
    { "need key or journal for " cite$ * " to crossref " * crossref *
      warning$
      ""
    }
    { "In {\em " journal * "\/}" * }
      if$
    }
    { "In " key * }
  if$
  " \cite{" * crossref * "}" *
}

FUNCTION {format.crossref.editor}
{ editor #1 "{ll }{f{~}}" format.name$
  editor num.names$ duplicate$
  #2 >
    { pop$ " et~al." * }
    { #2 <
	'skip$
	{ editor #2 "{ll }{f{~}}" format.name$ "others" =
            { " et~al." * }
            { " and " * editor #2 "{ll }{f{~}}" format.name$ * }
	  if$
	}
      if$
    }
  if$
}

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$
              "" *
            }
            { "{\em " * series * "\/}" * }
	  if$
	}
	{ key * }
      if$
    }
    { format.crossref.editor * }
  if$
  " \cite{" * crossref * "}" *
}

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 {\em " booktitle * "\/}" * }
      if$
    }
    { "In " key * }
      if$
    }
    { "In " format.crossref.editor * }
  if$
  " \cite{" * crossref * "}" *
}

% 出版地: 出版者
FUNCTION {format.address.publisher} {
  new.block
  type$ "inproceedings" =
    { pubaddress empty$
	{ "[" bbl.sine.loco * "]" * bbl.colon * % 无出版地
	  publisher empty$
	    { "there's neither pubaddress nor publisher in " cite$ * warning$
	      "[" * bbl.sine.nomine * "]" * % 无出版者
	    }
	    { "there's a publisher but no pubaddress in " cite$ * warning$
	      publisher *		% 有出版者
	    }
	  if$
	}
	{ pubaddress bbl.colon *	% 有出版地
	  publisher empty$
	    { "there's a pubaddress but no publisher in " cite$ * warning$
	      "[" * bbl.sine.nomine * "]" * % 无出版者
	    }
	    { publisher * }		% 有出版者
	  if$
	}
      if$
    }
    { address empty$
	{ "[" bbl.sine.loco * "]" * bbl.colon * % 无出版地
	  publisher empty$
	    { "there's neither address nor publisher in " cite$ * warning$
	      "[" * bbl.sine.nomine * "]" * % 无出版者
	    }
	    { "there's a publisher but no address in " cite$ * warning$
	      publisher *		% 有出版者
	    }
	  if$
	}
	{ address bbl.colon *	% 有出版地
	  publisher empty$
	    { "there's a address but no publisher in " cite$ * warning$
	      "[" * bbl.sine.nomine * "]" * % 无出版者
	    }
	    { publisher * }		% 有出版者
	  if$
	}
      if$
    }
  if$
}

% 出版地: 出版者, 出版年
FUNCTION {format.address.publisher.year} { 
%   % DEBUG
%   "-- format.address.publisher.year(){" debug.output
%   "--   address  =" address * debug.output
%   "--   publisher=" publisher * debug.output
%   "--   year     =" year * debug.output
%   % END OF DEBUG
  new.block
  type$ "inproceedings" =
    { pubaddress empty$
	{ "" % "[" bbl.sine.loco * "]" * bbl.colon * % 无出版地
	  publisher empty$
	    { "there's neither pubaddress nor publisher in " cite$ * warning$
	      "" * % "[" * bbl.sine.nomine * "]" * % 无出版者
	    }
	    { "there's a publisher but no pubaddress in " cite$ * warning$
	      publisher *		% 有出版者
	    }
	  if$
	}
	{ publisher empty$
	    { "there's a pubaddress but no publisher in " cite$ * warning$
	      "" % "[" * bbl.sine.nomine * "]" * % 无出版者
	    }
	    { pubaddress bbl.colon *	% 有出版地
	      publisher * }		% 有出版者
	  if$
	}
      if$
    }
    { address empty$
	{ "" % "[" bbl.sine.loco * "]" * bbl.colon * % 无出版地
	  publisher empty$
	    { "there's neither address nor publisher in " cite$ * warning$
	      "" * % "[" * bbl.sine.nomine * "]" * % 无出版者
	    }
	    { "there's a publisher but no address in " cite$ * warning$
	      publisher *		% 有出版者
	    }
	  if$
	}
	{ publisher empty$
	    { "there's a address but no publisher in " cite$ * warning$
	      "" % "[" * bbl.sine.nomine * "]" * % 无出版者
	    }
	    { address bbl.colon *	% 有出版地
	      publisher * }		% 有出版者
	  if$
	}
      if$
    }
  if$
  
  % 出版年
  year empty$
    { "there's no year in " cite$ * warning$ }
    { type$ "inproceedings" =
	{ bbl.comma * year * }
	{ publisher empty$ 
	    { year * }
	    { bbl.comma * year * }
	  if$
	}
      if$
	
      type$ "periodical" =
	{ year2 empty$		% 对连续出版物可以排版 year2
	    { skip$ }
	    { "--" * 
	      year2 "l" change.case$ "now" =
		{ skip$ }
		{ year2 * }
	      if$
	    }
	  if$
	}
	{ skip$ }
      if$
    }
  if$
%   % DEBUG
%   duplicate$ "-- }=" swap$ * debug.output
%   % END OF DEBUG
}

% 出版地: 学校, 出版年
FUNCTION {format.address.school.year} {   
  new.block
  address empty$
    { "[" bbl.sine.loco * "]" * bbl.colon * % 无出版地
      school empty$
	{ "there's neither address nor school in " cite$ * warning$
	  "[" bbl.sine.nomine * "]" * % 无出版者
	}
	{ "there's a school but no address in " cite$ * warning$
	   school *		% 有出版者
	}
      if$
    }
    { address bbl.colon *	% 有出版地
      school empty$
	{ "there's a address but no school in " cite$ * warning$
	  "[" bbl.sine.nomine * "]" * % 无出版者
	}
	{ school * }		% 有出版者
      if$
    }
  if$
  % 出版年
  year empty$
    { "there's no year in " cite$ * warning$ }
    { bbl.comma * year * }
  if$
}


% FUNCTION {format.title.type}
% { title empty$
%     { type empty$
%         { "" }
%         { "there's a type but no title in " cite$ * warning$
%           type
%         }
%       if$
%     }
%     { type empty$
%         'title
%         { title bbl.colon * type * }
%       if$
%     }
%   if$
% }

FUNCTION {format.note} {
  note empty$
    { new.block "" }
    { url empty$
      { new.block }
      { before.all 'output.state := }
      if$
      note 
    }
  if$
}

%%%%%%%%%%%%%%%%%
%% 著录格式: 专著
%%%%%%%%%%%%%%%%%

% 普通图书
FUNCTION {book} { 
  start.entry			% 开始

  author empty$			% 主要责任者
    { format.editors "author and editor" output.warn }
    { format.authors output.nonnull }
  if$		
  format.book.title "title"      output.warn	   % 题名项		
  format.translators             output		   % 其他责任者(可选)
  format.edition                 output		   % 版本项
  format.address.publisher.year  output.nonnull	   %
  format.reference.date          output		   % 
  format.url                     output		   % 获取或访问路径
  format.note                    output		   % 备注  

  fin.entry
}

% 标准
FUNCTION {standard} { 
  start.entry
  
  organization empty$		% 主要责任人
    { format.institution "organization and institution" output.warn }
    { format.organization output.nonnull }
  if$
  format.book.title "title"     output.warn    % 题名项
  format.translators            output	       % 其他责任人
  format.edition                output	       % 版本项
  format.address.publisher.year output.nonnull % 出版项
  format.url                    output	       % URL
  format.note                   output	       % 备注项

  fin.entry
}

% 学位论文 
FUNCTION {phdthesis} {
  start.entry

  format.authors "author"    output.warn
  format.book.title "title"  output.warn
  format.address.school.year output
  format.note                output

  fin.entry
}

% 会议录/论文集
FUNCTION {proceedings} { 
  start.entry
  
  editor empty$
    { organization empty$
	{ format.institution "author, organization institution" output.warn }
	{ format.organization output.nonnull }
      if$
    }
    { format.editors output.nonnull }
  if$
  format.book.title "title"     output.warn
  format.address.publisher.year output
  format.note                   output

  fin.entry
}

% 科技报告
FUNCTION {techreport} { 
  start.entry
  
  author empty$
    { organization empty$
	{ format.institution 
	  "author, organization and institution" output.warn }
	{ format.organization output.nonnull }
      if$
    }
    { format.authors output.nonnull }
  if$
  format.techreport.title "title" output.warn
  format.address.publisher.year   output.nonnull
  format.url                      output
  format.note                     output

  fin.entry
}

%%%%%%%%%%%%%%%%%%%%%%%%%%%%
%% 著录格式: 专著中析出的文献
%%%%%%%%%%%%%%%%%%%%%%%%%%%%

FUNCTION {format.collection.editors} {
  booktitle empty$
    { "" }
    { after.title 'output.state :=
      format.editors }
  if$
}
FUNCTION {format.address} {
  booktitle empty$
    { new.block }
    { mid.sentence 'output.state := }
  if$
  address empty$
    { "" }
    { 
      new.block
      address 
    }
  if$
}

FUNCTION {format.month.year} {
  month empty$
    { "" }
    { month " " * }
  if$
  year empty$
    { "There is month but no year in " cite$ * warning$ }
    { year * }
  if$ 
}

FUNCTION {format.year} {
  year empty$
    { "There is month but no year in " cite$ * warning$ }
    { new.block
      year " " * 
    }
  if$ 
}

FUNCTION {format.collection.title} {
  booktitle empty$
    { "" }
    { new.block 
      language empty$
        {"In "}
        {"见"}
      if$
      booktitle *
%       address empty$
% 	      { skip$ }
% 	      { bbl.comma * address * bbl.comma * 
% 	    month empty$
% 	      { skip$ }
% 	      { month * }
% 	    if$
% 	    year empty$
% 	      { skip$ }
% 	      { " " * year * }
% 	    if$
% 	}
%       if$
    }
  if$
}
% 图书中析出的文献
FUNCTION {inbook} { 
  start.entry
  
  author empty$
    { format.editors "author and editor" output.warn }
    { format.authors output.nonnull }
  if$
  format.book.title "title"     output.warn
  format.collection.editors "editor" output.warn
  format.collection.title "booktitle" output.warn
  format.translators            output	       % 其他责任人
  format.edition                output	       % 版本项
  format.address.publisher.year	output.nonnull % 出版项
  format.pages "pages"          output.warn    %
  format.url                    output	       % URL
  format.note                   output	       % 备注项

  fin.entry
}

%%%%%%%%%%%%%%%%%
%% 著录格式: 专利
%%%%%%%%%%%%%%%%%
FUNCTION {patent} {
  start.entry
  
  author empty$
    { format.assignees "assignee" output.warn }
    { format.authors output.nonnull }
  if$
  format.patent.title "title" output.warn
  format.patent.publication output 
  format.url output
  format.note output
  
  fin.entry
}

% 电子文献更新或修改日期
FUNCTION {format.update.date} {
  update empty$
    { "" }
    { output.state mid.sentence =
	{ before.all 'output.state := }
	{ skip$ }
      if$
      "~(" update * ")" * }
  if$
}

%%%%%%%%%%%%%%%%%%%%%
%% 著录格式: 电子文献
%%%%%%%%%%%%%%%%%%%%%
FUNCTION {electronic} {
  start.entry
  
  author empty$
    { organization "author and organization" output.warn }
    { format.authors output.nonnull }
  if$
  format.book.title output
  format.electronic.publication output
  format.update.date output
  format.reference.date output
  format.url output
  format.note output

  fin.entry
}

%%%%%%%%%%%%%%%%%%%%%%%
%% 著录格式: 连续出版物
%%%%%%%%%%%%%%%%%%%%%%%
FUNCTION {periodical} { 
  start.entry
  
  editor empty$
    { format.organization "editors and organization" output.warn }
    { format.editors output.nonnull }
  if$
  format.book.title "title" output.warn
  format.year.volume.number output
  format.address.publisher.year output
  format.url output
  format.note output

  fin.entry
}

FUNCTION {format.journal.title} {
  journal empty$
    { "" }
    { new.block journal }
  if$
}

% 连续出版物中析出的文献
FUNCTION {article}
{ start.entry

  format.authors "author" output.warn
  format.book.title "title" output.warn
  format.journal.title "journal" output.warn
  format.volume.number.year.month output
  %format.year.volume.number output
  format.pages "pages" output.warn
  format.reference.date output
  format.url output
  format.note output
  
  fin.entry
}

FUNCTION {booklet}
{ start.entry
  format.authors output
  new.block
  format.title "title" output.warn
  howpublished address new.block.checkb
  howpublished output
  address output
  format.date output
  new.block
  note output
  fin.entry
}

FUNCTION {incollection}
{ start.entry
  format.authors "author" output.warn
  new.block
  format.ictitle "title" output.warn
  new.block
  crossref missing$
    { %format.in.ed.booktitle "booktitle" output.warn
      %format.bvolume output
      format.in.ed.booktitle.volume "booktitle" output.warn
      format.number.series output
      format.chapter.pages output
      new.sentence
%      publisher "publisher" output.warn
%      address output
      format.address.publisher.year output
      format.edition output
      format.date ":" * format.pages * output
      %format.date "year" output.warn
    }
    { format.incoll.inproc.crossref output.nonnull
      format.chapter.pages output
    }
  if$
  new.block
  note output
  fin.entry
}

% 论文集中析出的文献
FUNCTION {inproceedings} { 
  start.entry

  format.authors "author" output.warn
  format.book.title "title"  output.warn
%  format.collection.editors "editor" output.warn
  format.collection.title "booktitle" output.warn
  format.address output
%  format.month.year output
  format.year output
%  format.address.publisher.year	output.nonnull % 出版项
  format.pages "pages"          output.warn    %
%  format.url                    output	       % URL
%  format.note                   output	       % 备注项 
%   format.in.booktitle "booktitle" output.warn
%       %format.bvolume output
%       %format.number.series output
%       %format.pages output
%       address empty$
% 	{ organization publisher new.sentence.checkb
% 	  organization output
% 	  publisher output
% 	  %format.date "year" output.warn
% 	  %year output
% 	  format.date ":" * format.pages * output
% 	}
% 	{ %address output.nonnull
% 	  format.address.publisher.year output  
% 	  %format.date "year" output.warn
% 	  % year output
% 	  format.date ":" * format.pages * output
% 	  new.sentence
% 	  organization output
% 	  %publisher output
% 	}
%       if$
%       new.block
      % pages output
      %remove.dots
    
%     { format.incoll.inproc.crossref output.nonnull
%       format.pages output
%     }
%   if$
%   new.block
%   note output  
  fin.entry
}

FUNCTION {manual}
{ start.entry
  author empty$
    { organization empty$
    'skip$
    { organization output.nonnull
      address output
    }
      if$
    }
    { format.authors output.nonnull }
  if$
  new.block
  format.book.title "title" output.warn
  author empty$
    { organization empty$
    { address new.block.checka
      address output
    }
    'skip$
      if$
    }
    { organization address new.block.checkb
      organization output
      address output
    }
  if$
  format.edition output
  format.date output
  new.block
  note output
  fin.entry
}

FUNCTION {thesis.type}
{ 
%"~[D]" 
 language empty$
     { "[Dissertation]" }
     { "[学位论文]" }
   if$
}

FUNCTION {masterthesis}
 { start.entry
   format.authors "author" add.period$ output.warn
   new.block
   format.title remove.dots " " * thesis.type * output
   new.block
   %format.address.school output
   %address output
   school "school" output.warn  
   format.date "year" output.warn
   new.block
   %note output
   fin.entry
 }

%FUNCTION {phdthesis}
 %{ start.entry
  % format.authors "author" add.period$ output.warn
   %new.block
   %format.title remove.dots " " * thesis.type * output
   %new.block
   %format.address.school output
   %%address output
   %school "school" output.warn  
   %format.date "year" output.warn
   %new.block
   %%note output
   %fin.entry
 %}

FUNCTION {misc}
{ start.entry

  format.authors output
%  title howpublished new.block.checkb
  format.title output
%  howpublished new.block.checka
%  howpublished output
%  format.date output
  format.address output
  format.month.year output
  format.pages "pages" output.warn
  format.url output
%  new.block
  format.note output
  fin.entry
%  empty.misc.check
}


FUNCTION {unpublished}
{ start.entry
  format.authors "author" output.warn
  new.block
  format.title "title" output.warn
  new.block
  note "note" output.warn
  format.date output
  fin.entry
}

% 专用控制条目 BUPTThesisBSTCTL 用于提供方便的用户设置接口
FUNCTION {BUPTThesisBSTCTL}{
  is.print.banners.to.terminal
    { "** BUPTThesis BST control entry " quote$ * cite$ * 
      quote$ * " detected." *
      top$
    }
    { skip$ }
  if$
%   CTLuse_article_number
%   empty$
%     { skip$ }
%     { CTLuse_article_number
%       yes.no.to.int
%       'is.use.number.for.article :=
%     }
%   if$
%   CTLuse_paper
%   empty$
%     { skip$ }
%     { CTLuse_paper
%       yes.no.to.int
%       'is.use.paper :=
%     }
%   if$
%   CTLuse_forced_etal
%   empty$
%     { skip$ }
%     { CTLuse_forced_etal
%       yes.no.to.int
%       'is.forced.et.al :=
%     }
%   if$
  % 显示作者数目
  CTLmax_names_forced_etal
  empty$
    { skip$ }
    { CTLmax_names_forced_etal
      string.to.integer
      'max.num.names.before.forced.et.al :=
    }
  if$
  % 论文作者英文姓名
  CTLauthor_name_english
  empty$
    { skip$ }
    { CTLauthor_name_english 
      'author.name.in.english := 
      % #1 'is.for.peer.review := 
%      "CTLauthor_name_english=" author.name.in.english * debug.output
    }
  if$
  % 论文作者中文姓名
  CTLauthor_name_chinese
  empty$
    { skip$ }
    { CTLauthor_name_chinese
      'author.name.in.chinese := 
      % #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
%   empty$
%     { skip$ }
%     { CTLnames_show_etal
%       string.to.integer
%       'num.names.shown.with.forced.et.al :=
%     }
%   if$
%   CTLuse_alt_spacing
%   empty$
%     { skip$ }
%     { CTLuse_alt_spacing
%       yes.no.to.int
%       'is.use.alt.interword.spacing :=
%     }
%   if$
%   CTLalt_stretch_factor
%   empty$
%     { skip$ }
%     { CTLalt_stretch_factor
%       'ALTinterwordstretchfactor :=
%       "\renewcommand{\BIBentryALTinterwordstretchfactor}{"
%       ALTinterwordstretchfactor * "}" *
%       write$ newline$
%     }
%   if$
%   CTLdash_repeated_names
%   empty$
%     { skip$ }
%     { CTLdash_repeated_names
%       yes.no.to.int
%       'is.dash.repeated.names :=
%     }
%  if$
%   CTLname_emph_author_en	% 强调显示的作者英文姓名
%   empty$
%     { skip$ }			% 若没有给出则跳过
%     { CTLname_emph_author_en
%       'name.emph.author.en :=	% 否则更新 name.emph.author.en
%     }
%   if$
%   CTLname_emph_author_zh	% 强调显示的作者中文姓名
%   empty$
%     { skip$ }			% 若没有给出则跳过
%     { CTLname_emph_author_zh
%       'name.emph.author.zh :=	% 否则更新 name.emph.author.zh
%     }
%   if$
  CTLname_format_string		% 英文姓名排版格式字符串
  empty$
    { skip$ }			% 若没有自定义则跳过
    { CTLname_format_string	% 否则更新 name.format.string
      'name.format.string :=
    }
  if$
%   CTLname_latex_cmd
%   empty$
%     { skip$ }
%     { CTLname_latex_cmd
%       'name.latex.cmd :=
%     }
%   if$
%   CTLname_url_prefix
%   missing$
%     { skip$ }
%     { CTLname_url_prefix
%       'name.url.prefix :=
%     }
%   if$


%   num.names.shown.with.forced.et.al max.num.names.before.forced.et.al >
%     { "CTLnames_show_etal cannot be greater than CTLmax_names_forced_etal in " cite$ * warning$ 
%       max.num.names.before.forced.et.al 'num.names.shown.with.forced.et.al :=
%     }
%     { skip$ }
%   if$
}

%%%%%%%%%%%%
%% 条目别名
%%%%%%%%%%%%
%FUNCTION {phdthesis} {thesis}
%FUNCTION {masterthesis} {thesis}
FUNCTION {conference}    {inproceedings}
FUNCTION {online}        {electronic}
FUNCTION {internet}      {electronic}
FUNCTION {webpage}       {electronic}
FUNCTION {www}           {electronic}
FUNCTION {default.type}  {misc}


%%%%%%%%%%
%% 主程序
%%%%%%%%%%

READ

EXECUTE {initialize.controls}	      % 初始化控制变量
EXECUTE {initialize.status.constants} % 初始化状态常量
EXECUTE {banner.message}	      % 显示初始提示信息

EXECUTE {initialize.longest.label}    % 初始化最长的标号
ITERATE {longest.label.pass}	      % 处理最长的标号

EXECUTE {begin.bib}	              % 开始
ITERATE {call.type$}		      %
EXECUTE {end.bib}		      % 结束

EXECUTE {completed.message}	      % 显示完成提示信息

%% EOF