Papers/2015/kaito-lola: bibtex/IEEEtranSN.bst annotate

annotate bibtex/IEEEtranSN.bst @ 11:4cff1ef8fbf6

fix

author	Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp>
date	Sat, 04 Jul 2015 17:25:27 +0900
parents	c0d36568602d
children

rev	line source
0 c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1 %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2 %% IEEEtranSN.bst
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	3 %% BibTeX Bibliography Style file
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	4 %% Sorting Natbib version of IEEEtran.bst
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	5 %% * Not for normal IEEE work *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	6 %% Version 1.13 (2008/09/30)
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	7 %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	8 %% Copyright (c) 2003-2008 Michael Shell
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	9 %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	10 %% Original starting code base and algorithms obtained from the output of
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	11 %% Patrick W. Daly's makebst package as well as from prior versions of
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	12 %% IEEE BibTeX styles:
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	13 %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	14 %% 1. Howard Trickey and Oren Patashnik's ieeetr.bst (1985/1988)
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	15 %% 2. Silvano Balemi and Richard H. Roy's IEEEbib.bst (1993)
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	16 %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	17 %% Added sorting and natbib code is from Patrick W Daly's plainnat.bst
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	18 %% and Oren Patashnik's plain.bst.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	19 %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	20 %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	21 %% Support sites:
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	22 %% http://www.michaelshell.org/tex/ieeetran/
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	23 %% http://www.ctan.org/tex-archive/macros/latex/contrib/IEEEtran/
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	24 %% and/or
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	25 %% http://www.ieee.org/
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	26 %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	27 %% For use with BibTeX version 0.99a or later
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	28 %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	29 %% This is a natbib compatible citation style.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	30 %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	31 %%*************************************************************************
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	32 %% Legal Notice:
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	33 %% This code is offered as-is without any warranty either expressed or
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	34 %% implied; without even the implied warranty of MERCHANTABILITY or
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	35 %% FITNESS FOR A PARTICULAR PURPOSE!
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	36 %% User assumes all risk.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	37 %% In no event shall IEEE or any contributor to this code be liable for
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	38 %% any damages or losses, including, but not limited to, incidental,
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	39 %% consequential, or any other damages, resulting from the use or misuse
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	40 %% of any information contained here.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	41 %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	42 %% All comments are the opinions of their respective authors and are not
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	43 %% necessarily endorsed by the IEEE.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	44 %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	45 %% This work is distributed under the LaTeX Project Public License (LPPL)
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	46 %% ( http://www.latex-project.org/ ) version 1.3, and may be freely used,
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	47 %% distributed and modified. A copy of the LPPL, version 1.3, is included
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	48 %% in the base LaTeX documentation of all distributions of LaTeX released
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	49 %% 2003/12/01 or later.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	50 %% Retain all contribution notices and credits.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	51 %% Modified files should be clearly indicated as such, including
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	52 %% renaming them and changing author support contact information.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	53 %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	54 %% File list of work: IEEEabrv.bib, IEEEfull.bib, IEEEexample.bib,
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	55 %% IEEEtran.bst, IEEEtranS.bst, IEEEtranSA.bst,
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	56 %% IEEEtranN.bst, IEEEtranSN.bst, IEEEtran_bst_HOWTO.pdf
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	57 %%*************************************************************************
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	58 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	59 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	60 % Changelog:
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	61 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	62 % 1.12 (2007/01/11) Initial release
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	63 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	64 % 1.13 (2008/09/30)
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	65 % 1. Fixed bug with edition number to ordinal conversion. Thanks to
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	66 % Michael Roland for reporting this and correcting the algorithm.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	67
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	68
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	69 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	70 %% DEFAULTS FOR THE CONTROLS OF THE BST STYLE %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	71 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	72
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	73 % These are the defaults for the user adjustable controls. The values used
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	74 % here can be overridden by the user via IEEEtranBSTCTL entry type.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	75
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	76 % NOTE: The recommended LaTeX command to invoke a control entry type is:
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	77 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	78 %\makeatletter
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	79 %\def\bstctlcite{\@ifnextchar[{\@bstctlcite}{\@bstctlcite[@auxout]}}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	80 %\def\@bstctlcite[#1]#2{\@bsphack
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	81 % \@for\@citeb:=#2\do{%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	82 % \edef\@citeb{\expandafter\@firstofone\@citeb}%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	83 % \if@filesw\immediate\write\csname #1\endcsname{\string\citation{\@citeb}}\fi}%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	84 % \@esphack}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	85 %\makeatother
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	86 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	87 % It is called at the start of the document, before the first \cite, like:
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	88 % \bstctlcite{IEEEexample:BSTcontrol}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	89 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	90 % IEEEtran.cls V1.6 and later does provide this command.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	91
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	92
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	93
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	94 % #0 turns off the display of the number for articles.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	95 % #1 enables
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	96 FUNCTION {default.is.use.number.for.article} { #1 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	97
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	98
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	99 % #0 turns off the display of the paper and type fields in @inproceedings.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	100 % #1 enables
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	101 FUNCTION {default.is.use.paper} { #1 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	102
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	103
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	104 % #0 turns off the forced use of "et al."
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	105 % #1 enables
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	106 FUNCTION {default.is.forced.et.al} { #0 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	107
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	108 % The maximum number of names that can be present beyond which an "et al."
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	109 % usage is forced. Be sure that num.names.shown.with.forced.et.al (below)
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	110 % is not greater than this value!
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	111 % Note: There are many instances of references in IEEE journals which have
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	112 % a very large number of authors as well as instances in which "et al." is
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	113 % used profusely.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	114 FUNCTION {default.max.num.names.before.forced.et.al} { #10 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	115
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	116 % The number of names that will be shown with a forced "et al.".
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	117 % Must be less than or equal to max.num.names.before.forced.et.al
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	118 FUNCTION {default.num.names.shown.with.forced.et.al} { #1 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	119
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	120
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	121 % #0 turns off the alternate interword spacing for entries with URLs.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	122 % #1 enables
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	123 FUNCTION {default.is.use.alt.interword.spacing} { #1 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	124
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	125 % If alternate interword spacing for entries with URLs is enabled, this is
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	126 % the interword spacing stretch factor that will be used. For example, the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	127 % default "4" here means that the interword spacing in entries with URLs can
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	128 % stretch to four times normal. Does not have to be an integer. Note that
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	129 % the value specified here can be overridden by the user in their LaTeX
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	130 % code via a command such as:
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	131 % "\providecommand\BIBentryALTinterwordstretchfactor{1.5}" in addition to
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	132 % that via the IEEEtranBSTCTL entry type.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	133 FUNCTION {default.ALTinterwordstretchfactor} { "4" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	134
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	135
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	136 % #0 turns off the "dashification" of repeated (i.e., identical to those
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	137 % of the previous entry) names. IEEE normally does this.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	138 % #1 enables
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	139 FUNCTION {default.is.dash.repeated.names} { #1 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	140
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	141
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	142 % The default name format control string.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	143 FUNCTION {default.name.format.string}{ "{f.~}{vv~}{ll}{, jj}" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	144
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	145
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	146 % The default LaTeX font command for the names.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	147 FUNCTION {default.name.latex.cmd}{ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	148
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	149
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	150 % The default URL prefix.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	151 FUNCTION {default.name.url.prefix}{ "[Online]. Available:" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	152
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	153
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	154 % Other controls that cannot be accessed via IEEEtranBSTCTL entry type.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	155
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	156 % #0 turns off the terminal startup banner/completed message so as to
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	157 % operate more quietly.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	158 % #1 enables
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	159 FUNCTION {is.print.banners.to.terminal} { #1 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	160
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	161
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	162
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	163
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	164 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	165 %% FILE VERSION AND BANNER %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	166 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	167
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	168 FUNCTION{bst.file.version} { "1.13" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	169 FUNCTION{bst.file.date} { "2008/09/30" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	170 FUNCTION{bst.file.website} { "http://www.michaelshell.org/tex/ieeetran/bibtex/" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	171
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	172 FUNCTION {banner.message}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	173 { is.print.banners.to.terminal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	174 { "-- IEEEtranSN.bst version" " " * bst.file.version *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	175 " (" * bst.file.date * ") " * "by Michael Shell." *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	176 top$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	177 "-- " bst.file.website *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	178 top$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	179 "-- See the " quote$ * "IEEEtran_bst_HOWTO.pdf" * quote$ * " manual for usage information." *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	180 top$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	181 "** Sorting Natbib version - not for normal IEEE work."
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	182 top$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	183 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	184 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	185 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	186 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	187
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	188 FUNCTION {completed.message}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	189 { is.print.banners.to.terminal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	190 { ""
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	191 top$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	192 "Done."
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	193 top$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	194 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	195 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	196 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	197 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	198
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	199
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	200
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	201
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	202 %%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	203 %% STRING CONSTANTS %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	204 %%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	205
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	206 FUNCTION {bbl.and}{ "and" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	207 FUNCTION {bbl.etal}{ "et~al." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	208 FUNCTION {bbl.editors}{ "eds." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	209 FUNCTION {bbl.editor}{ "ed." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	210 FUNCTION {bbl.edition}{ "ed." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	211 FUNCTION {bbl.volume}{ "vol." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	212 FUNCTION {bbl.of}{ "of" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	213 FUNCTION {bbl.number}{ "no." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	214 FUNCTION {bbl.in}{ "in" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	215 FUNCTION {bbl.pages}{ "pp." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	216 FUNCTION {bbl.page}{ "p." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	217 FUNCTION {bbl.chapter}{ "ch." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	218 FUNCTION {bbl.paper}{ "paper" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	219 FUNCTION {bbl.part}{ "pt." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	220 FUNCTION {bbl.patent}{ "Patent" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	221 FUNCTION {bbl.patentUS}{ "U.S." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	222 FUNCTION {bbl.revision}{ "Rev." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	223 FUNCTION {bbl.series}{ "ser." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	224 FUNCTION {bbl.standard}{ "Std." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	225 FUNCTION {bbl.techrep}{ "Tech. Rep." }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	226 FUNCTION {bbl.mthesis}{ "Master's thesis" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	227 FUNCTION {bbl.phdthesis}{ "Ph.D. dissertation" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	228 FUNCTION {bbl.st}{ "st" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	229 FUNCTION {bbl.nd}{ "nd" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	230 FUNCTION {bbl.rd}{ "rd" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	231 FUNCTION {bbl.th}{ "th" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	232
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	233
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	234 % This is the LaTeX spacer that is used when a larger than normal space
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	235 % is called for (such as just before the address:publisher).
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	236 FUNCTION {large.space} { "\hskip 1em plus 0.5em minus 0.4em\relax " }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	237
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	238 % The LaTeX code for dashes that are used to represent repeated names.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	239 % Note: Some older IEEE journals used something like
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	240 % "\rule{0.275in}{0.5pt}\," which is fairly thick and runs right along
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	241 % the baseline. However, IEEE now uses a thinner, above baseline,
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	242 % six dash long sequence.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	243 FUNCTION {repeated.name.dashes} { "------" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	244
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	245
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	246
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	247 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	248 %% PREDEFINED STRING MACROS %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	249 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	250
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	251 MACRO {jan} {"Jan."}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	252 MACRO {feb} {"Feb."}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	253 MACRO {mar} {"Mar."}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	254 MACRO {apr} {"Apr."}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	255 MACRO {may} {"May"}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	256 MACRO {jun} {"Jun."}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	257 MACRO {jul} {"Jul."}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	258 MACRO {aug} {"Aug."}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	259 MACRO {sep} {"Sep."}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	260 MACRO {oct} {"Oct."}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	261 MACRO {nov} {"Nov."}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	262 MACRO {dec} {"Dec."}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	263
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	264
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	265
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	266 %%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	267 %% ENTRY FIELDS %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	268 %%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	269
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	270 ENTRY
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	271 { address
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	272 assignee
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	273 author
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	274 booktitle
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	275 chapter
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	276 day
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	277 dayfiled
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	278 edition
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	279 editor
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	280 howpublished
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	281 institution
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	282 intype
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	283 journal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	284 key
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	285 language
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	286 month
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	287 monthfiled
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	288 nationality
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	289 note
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	290 number
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	291 organization
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	292 pages
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	293 paper
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	294 publisher
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	295 school
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	296 series
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	297 revision
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	298 title
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	299 type
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	300 url
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	301 volume
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	302 year
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	303 yearfiled
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	304 CTLuse_article_number
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	305 CTLuse_paper
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	306 CTLuse_forced_etal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	307 CTLmax_names_forced_etal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	308 CTLnames_show_etal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	309 CTLuse_alt_spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	310 CTLalt_stretch_factor
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	311 CTLdash_repeated_names
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	312 CTLname_format_string
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	313 CTLname_latex_cmd
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	314 CTLname_url_prefix
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	315 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	316 {}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	317 { label extra.label sort.label short.list}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	318
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	319
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	320
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	321
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	322 %%%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	323 %% INTEGER VARIABLES %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	324 %%%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	325
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	326 INTEGERS { prev.status.punct this.status.punct punct.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	327 punct.no punct.comma punct.period
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	328 prev.status.space this.status.space space.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	329 space.no space.normal space.large
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	330 prev.status.quote this.status.quote quote.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	331 quote.no quote.close
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	332 prev.status.nline this.status.nline nline.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	333 nline.no nline.newblock
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	334 status.cap cap.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	335 cap.no cap.yes}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	336
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	337 INTEGERS { longest.label.width multiresult nameptr namesleft number.label numnames }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	338
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	339 INTEGERS { is.use.number.for.article
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	340 is.use.paper
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	341 is.forced.et.al
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	342 max.num.names.before.forced.et.al
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	343 num.names.shown.with.forced.et.al
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	344 is.use.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	345 is.dash.repeated.names}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	346
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	347
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	348 %%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	349 %% STRING VARIABLES %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	350 %%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	351
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	352 STRINGS { bibinfo
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	353 longest.label
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	354 oldname
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	355 s
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	356 t
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	357 ALTinterwordstretchfactor
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	358 name.format.string
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	359 name.latex.cmd
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	360 name.url.prefix}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	361
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	362
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	363
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	364
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	365 %%%%%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	366 %% LOW LEVEL FUNCTIONS %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	367 %%%%%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	368
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	369 FUNCTION {initialize.controls}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	370 { default.is.use.number.for.article 'is.use.number.for.article :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	371 default.is.use.paper 'is.use.paper :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	372 default.is.forced.et.al 'is.forced.et.al :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	373 default.max.num.names.before.forced.et.al 'max.num.names.before.forced.et.al :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	374 default.num.names.shown.with.forced.et.al 'num.names.shown.with.forced.et.al :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	375 default.is.use.alt.interword.spacing 'is.use.alt.interword.spacing :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	376 default.is.dash.repeated.names 'is.dash.repeated.names :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	377 default.ALTinterwordstretchfactor 'ALTinterwordstretchfactor :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	378 default.name.format.string 'name.format.string :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	379 default.name.latex.cmd 'name.latex.cmd :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	380 default.name.url.prefix 'name.url.prefix :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	381 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	382
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	383
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	384 % This IEEEtran.bst features a very powerful and flexible mechanism for
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	385 % controlling the capitalization, punctuation, spacing, quotation, and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	386 % newlines of the formatted entry fields. (Note: IEEEtran.bst does not need
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	387 % or use the newline/newblock feature, but it has been implemented for
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	388 % possible future use.) The output states of IEEEtran.bst consist of
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	389 % multiple independent attributes and, as such, can be thought of as being
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	390 % vectors, rather than the simple scalar values ("before.all",
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	391 % "mid.sentence", etc.) used in most other .bst files.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	392 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	393 % The more flexible and complex design used here was motivated in part by
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	394 % IEEE's rather unusual bibliography style. For example, IEEE ends the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	395 % previous field item with a period and large space prior to the publisher
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	396 % address; the @electronic entry types use periods as inter-item punctuation
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	397 % rather than the commas used by the other entry types; and URLs are never
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	398 % followed by periods even though they are the last item in the entry.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	399 % Although it is possible to accommodate these features with the conventional
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	400 % output state system, the seemingly endless exceptions make for convoluted,
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	401 % unreliable and difficult to maintain code.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	402 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	403 % IEEEtran.bst's output state system can be easily understood via a simple
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	404 % illustration of two most recently formatted entry fields (on the stack):
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	405 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	406 % CURRENT_ITEM
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	407 % "PREVIOUS_ITEM
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	408 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	409 % which, in this example, is to eventually appear in the bibliography as:
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	410 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	411 % "PREVIOUS_ITEM," CURRENT_ITEM
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	412 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	413 % It is the job of the output routine to take the previous item off of the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	414 % stack (while leaving the current item at the top of the stack), apply its
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	415 % trailing punctuation (including closing quote marks) and spacing, and then
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	416 % to write the result to BibTeX's output buffer:
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	417 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	418 % "PREVIOUS_ITEM,"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	419 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	420 % Punctuation (and spacing) between items is often determined by both of the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	421 % items rather than just the first one. The presence of quotation marks
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	422 % further complicates the situation because, in standard English, trailing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	423 % punctuation marks are supposed to be contained within the quotes.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	424 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	425 % IEEEtran.bst maintains two output state (aka "status") vectors which
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	426 % correspond to the previous and current (aka "this") items. Each vector
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	427 % consists of several independent attributes which track punctuation,
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	428 % spacing, quotation, and newlines. Capitalization status is handled by a
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	429 % separate scalar because the format routines, not the output routine,
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	430 % handle capitalization and, therefore, there is no need to maintain the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	431 % capitalization attribute for both the "previous" and "this" items.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	432 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	433 % When a format routine adds a new item, it copies the current output status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	434 % vector to the previous output status vector and (usually) resets the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	435 % current (this) output status vector to a "standard status" vector. Using a
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	436 % "standard status" vector in this way allows us to redefine what we mean by
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	437 % "standard status" at the start of each entry handler and reuse the same
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	438 % format routines under the various inter-item separation schemes. For
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	439 % example, the standard status vector for the @book entry type may use
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	440 % commas for item separators, while the @electronic type may use periods,
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	441 % yet both entry handlers exploit many of the exact same format routines.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	442 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	443 % Because format routines have write access to the output status vector of
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	444 % the previous item, they can override the punctuation choices of the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	445 % previous format routine! Therefore, it becomes trivial to implement rules
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	446 % such as "Always use a period and a large space before the publisher." By
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	447 % pushing the generation of the closing quote mark to the output routine, we
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	448 % avoid all the problems caused by having to close a quote before having all
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	449 % the information required to determine what the punctuation should be.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	450 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	451 % The IEEEtran.bst output state system can easily be expanded if needed.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	452 % For instance, it is easy to add a "space.tie" attribute value if the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	453 % bibliography rules mandate that two items have to be joined with an
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	454 % unbreakable space.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	455
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	456 FUNCTION {initialize.status.constants}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	457 { #0 'punct.no :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	458 #1 'punct.comma :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	459 #2 'punct.period :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	460 #0 'space.no :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	461 #1 'space.normal :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	462 #2 'space.large :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	463 #0 'quote.no :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	464 #1 'quote.close :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	465 #0 'cap.no :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	466 #1 'cap.yes :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	467 #0 'nline.no :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	468 #1 'nline.newblock :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	469 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	470
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	471 FUNCTION {std.status.using.comma}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	472 { punct.comma 'punct.std :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	473 space.normal 'space.std :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	474 quote.no 'quote.std :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	475 nline.no 'nline.std :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	476 cap.no 'cap.std :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	477 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	478
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	479 FUNCTION {std.status.using.period}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	480 { punct.period 'punct.std :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	481 space.normal 'space.std :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	482 quote.no 'quote.std :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	483 nline.no 'nline.std :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	484 cap.yes 'cap.std :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	485 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	486
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	487 FUNCTION {initialize.prev.this.status}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	488 { punct.no 'prev.status.punct :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	489 space.no 'prev.status.space :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	490 quote.no 'prev.status.quote :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	491 nline.no 'prev.status.nline :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	492 punct.no 'this.status.punct :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	493 space.no 'this.status.space :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	494 quote.no 'this.status.quote :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	495 nline.no 'this.status.nline :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	496 cap.yes 'status.cap :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	497 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	498
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	499 FUNCTION {this.status.std}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	500 { punct.std 'this.status.punct :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	501 space.std 'this.status.space :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	502 quote.std 'this.status.quote :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	503 nline.std 'this.status.nline :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	504 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	505
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	506 FUNCTION {cap.status.std}{ cap.std 'status.cap := }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	507
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	508 FUNCTION {this.to.prev.status}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	509 { this.status.punct 'prev.status.punct :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	510 this.status.space 'prev.status.space :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	511 this.status.quote 'prev.status.quote :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	512 this.status.nline 'prev.status.nline :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	513 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	514
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	515
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	516 FUNCTION {not}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	517 { { #0 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	518 { #1 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	519 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	520 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	521
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	522 FUNCTION {and}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	523 { { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	524 { pop$ #0 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	525 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	526 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	527
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	528 FUNCTION {or}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	529 { { pop$ #1 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	530 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	531 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	532 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	533
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	534
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	535 % convert the strings "yes" or "no" to #1 or #0 respectively
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	536 FUNCTION {yes.no.to.int}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	537 { "l" change.case$ duplicate$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	538 "yes" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	539 { pop$ #1 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	540 { duplicate$ "no" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	541 { pop$ #0 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	542 { "unknown boolean " quote$ * swap$ * quote$ *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	543 " in " * cite$ * warning$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	544 #0
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	545 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	546 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	547 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	548 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	549 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	550
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	551
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	552 % pushes true if the single char string on the stack is in the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	553 % range of "0" to "9"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	554 FUNCTION {is.num}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	555 { chr.to.int$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	556 duplicate$ "0" chr.to.int$ < not
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	557 swap$ "9" chr.to.int$ > not and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	558 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	559
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	560 % multiplies the integer on the stack by a factor of 10
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	561 FUNCTION {bump.int.mag}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	562 { #0 'multiresult :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	563 { duplicate$ #0 > }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	564 { #1 -
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	565 multiresult #10 +
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	566 'multiresult :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	567 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	568 while$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	569 pop$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	570 multiresult
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	571 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	572
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	573 % converts a single character string on the stack to an integer
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	574 FUNCTION {char.to.integer}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	575 { duplicate$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	576 is.num
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	577 { chr.to.int$ "0" chr.to.int$ - }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	578 {"noninteger character " quote$ * swap$ * quote$ *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	579 " in integer field of " * cite$ * warning$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	580 #0
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	581 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	582 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	583 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	584
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	585 % converts a string on the stack to an integer
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	586 FUNCTION {string.to.integer}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	587 { duplicate$ text.length$ 'namesleft :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	588 #1 'nameptr :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	589 #0 'numnames :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	590 { nameptr namesleft > not }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	591 { duplicate$ nameptr #1 substring$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	592 char.to.integer numnames bump.int.mag +
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	593 'numnames :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	594 nameptr #1 +
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	595 'nameptr :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	596 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	597 while$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	598 pop$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	599 numnames
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	600 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	601
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	602
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	603
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	604
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	605 % The output routines write out the next to the top (previous) item on the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	606 % stack, adding punctuation and such as needed. Since IEEEtran.bst maintains
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	607 % the output status for the top two items on the stack, these output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	608 % routines have to consider the previous output status (which corresponds to
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	609 % the item that is being output). Full independent control of punctuation,
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	610 % closing quote marks, spacing, and newblock is provided.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	611 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	612 % "output.nonnull" does not check for the presence of a previous empty
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	613 % item.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	614 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	615 % "output" does check for the presence of a previous empty item and will
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	616 % remove an empty item rather than outputing it.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	617 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	618 % "output.warn" is like "output", but will issue a warning if it detects
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	619 % an empty item.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	620
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	621 FUNCTION {output.nonnull}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	622 { swap$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	623 prev.status.punct punct.comma =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	624 { "," * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	625 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	626 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	627 prev.status.punct punct.period =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	628 { add.period$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	629 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	630 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	631 prev.status.quote quote.close =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	632 { "''" * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	633 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	634 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	635 prev.status.space space.normal =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	636 { " " * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	637 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	638 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	639 prev.status.space space.large =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	640 { large.space * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	641 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	642 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	643 write$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	644 prev.status.nline nline.newblock =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	645 { newline$ "\newblock " write$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	646 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	647 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	648 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	649
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	650 FUNCTION {output}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	651 { duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	652 'pop$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	653 'output.nonnull
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	654 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	655 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	656
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	657 FUNCTION {output.warn}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	658 { 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	659 duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	660 { pop$ "empty " t * " in " * cite$ * warning$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	661 'output.nonnull
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	662 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	663 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	664
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	665 % "fin.entry" is the output routine that handles the last item of the entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	666 % (which will be on the top of the stack when "fin.entry" is called).
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	667
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	668 FUNCTION {fin.entry}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	669 { this.status.punct punct.no =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	670 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	671 { add.period$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	672 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	673 this.status.quote quote.close =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	674 { "''" * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	675 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	676 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	677 write$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	678 newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	679 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	680
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	681
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	682 FUNCTION {is.last.char.not.punct}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	683 { duplicate$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	684 "}" * add.period$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	685 #-1 #1 substring$ "." =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	686 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	687
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	688 FUNCTION {is.multiple.pages}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	689 { 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	690 #0 'multiresult :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	691 { multiresult not
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	692 t empty$ not
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	693 and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	694 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	695 { t #1 #1 substring$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	696 duplicate$ "-" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	697 swap$ duplicate$ "," =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	698 swap$ "+" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	699 or or
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	700 { #1 'multiresult := }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	701 { t #2 global.max$ substring$ 't := }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	702 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	703 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	704 while$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	705 multiresult
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	706 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	707
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	708 FUNCTION {capitalize}{ "u" change.case$ "t" change.case$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	709
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	710 FUNCTION {emphasize}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	711 { duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	712 { pop$ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	713 { "\emph{" swap$ * "}" * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	714 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	715 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	716
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	717 FUNCTION {do.name.latex.cmd}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	718 { name.latex.cmd
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	719 empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	720 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	721 { name.latex.cmd "{" * swap$ * "}" * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	722 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	723 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	724
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	725 % IEEEtran.bst uses its own \BIBforeignlanguage command which directly
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	726 % invokes the TeX hyphenation patterns without the need of the Babel
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	727 % package. Babel does a lot more than switch hyphenation patterns and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	728 % its loading can cause unintended effects in many class files (such as
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	729 % IEEEtran.cls).
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	730 FUNCTION {select.language}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	731 { duplicate$ empty$ 'pop$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	732 { language empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	733 { "\BIBforeignlanguage{" language * "}{" * swap$ * "}" * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	734 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	735 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	736 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	737 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	738
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	739 FUNCTION {tie.or.space.prefix}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	740 { duplicate$ text.length$ #3 <
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	741 { "~" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	742 { " " }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	743 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	744 swap$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	745 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	746
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	747 FUNCTION {get.bbl.editor}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	748 { editor num.names$ #1 > 'bbl.editors 'bbl.editor if$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	749
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	750 FUNCTION {space.word}{ " " swap$ * " " * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	751
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	752
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	753 % Field Conditioners, Converters, Checkers and External Interfaces
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	754
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	755 FUNCTION {empty.field.to.null.string}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	756 { duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	757 { pop$ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	758 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	759 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	760 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	761
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	762 FUNCTION {either.or.check}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	763 { empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	764 { pop$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	765 { "can't use both " swap$ * " fields in " * cite$ * warning$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	766 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	767 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	768
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	769 FUNCTION {empty.entry.warn}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	770 { author empty$ title empty$ howpublished empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	771 month empty$ year empty$ note empty$ url empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	772 and and and and and and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	773 { "all relevant fields are empty in " cite$ * warning$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	774 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	775 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	776 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	777
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	778
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	779 % The bibinfo system provides a way for the electronic parsing/acquisition
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	780 % of a bibliography's contents as is done by ReVTeX. For example, a field
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	781 % could be entered into the bibliography as:
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	782 % \bibinfo{volume}{2}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	783 % Only the "2" would show up in the document, but the LaTeX \bibinfo command
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	784 % could do additional things with the information. IEEEtran.bst does provide
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	785 % a \bibinfo command via "\providecommand{\bibinfo}[2]{#2}". However, it is
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	786 % currently not used as the bogus bibinfo functions defined here output the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	787 % entry values directly without the \bibinfo wrapper. The bibinfo functions
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	788 % themselves (and the calls to them) are retained for possible future use.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	789 %
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	790 % bibinfo.check avoids acting on missing fields while bibinfo.warn will
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	791 % issue a warning message if a missing field is detected. Prior to calling
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	792 % the bibinfo functions, the user should push the field value and then its
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	793 % name string, in that order.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	794
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	795 FUNCTION {bibinfo.check}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	796 { swap$ duplicate$ missing$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	797 { pop$ pop$ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	798 { duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	799 { swap$ pop$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	800 { swap$ pop$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	801 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	802 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	803 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	804 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	805
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	806 FUNCTION {bibinfo.warn}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	807 { swap$ duplicate$ missing$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	808 { swap$ "missing " swap$ * " in " * cite$ * warning$ pop$ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	809 { duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	810 { swap$ "empty " swap$ * " in " * cite$ * warning$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	811 { swap$ pop$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	812 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	813 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	814 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	815 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	816
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	817
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	818 % IEEE separates large numbers with more than 4 digits into groups of
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	819 % three. IEEE uses a small space to separate these number groups.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	820 % Typical applications include patent and page numbers.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	821
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	822 % number of consecutive digits required to trigger the group separation.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	823 FUNCTION {large.number.trigger}{ #5 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	824
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	825 % For numbers longer than the trigger, this is the blocksize of the groups.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	826 % The blocksize must be less than the trigger threshold, and 2 * blocksize
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	827 % must be greater than the trigger threshold (can't do more than one
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	828 % separation on the initial trigger).
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	829 FUNCTION {large.number.blocksize}{ #3 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	830
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	831 % What is actually inserted between the number groups.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	832 FUNCTION {large.number.separator}{ "\," }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	833
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	834 % So as to save on integer variables by reusing existing ones, numnames
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	835 % holds the current number of consecutive digits read and nameptr holds
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	836 % the number that will trigger an inserted space.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	837 FUNCTION {large.number.separate}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	838 { 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	839 ""
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	840 #0 'numnames :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	841 large.number.trigger 'nameptr :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	842 { t empty$ not }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	843 { t #-1 #1 substring$ is.num
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	844 { numnames #1 + 'numnames := }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	845 { #0 'numnames :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	846 large.number.trigger 'nameptr :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	847 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	848 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	849 t #-1 #1 substring$ swap$ *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	850 t #-2 global.max$ substring$ 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	851 numnames nameptr =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	852 { duplicate$ #1 nameptr large.number.blocksize - substring$ swap$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	853 nameptr large.number.blocksize - #1 + global.max$ substring$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	854 large.number.separator swap$ * *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	855 nameptr large.number.blocksize - 'numnames :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	856 large.number.blocksize #1 + 'nameptr :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	857 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	858 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	859 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	860 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	861 while$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	862 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	863
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	864 % Converts all single dashes "-" to double dashes "--".
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	865 FUNCTION {n.dashify}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	866 { large.number.separate
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	867 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	868 ""
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	869 { t empty$ not }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	870 { t #1 #1 substring$ "-" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	871 { t #1 #2 substring$ "--" = not
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	872 { "--" *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	873 t #2 global.max$ substring$ 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	874 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	875 { { t #1 #1 substring$ "-" = }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	876 { "-" *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	877 t #2 global.max$ substring$ 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	878 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	879 while$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	880 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	881 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	882 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	883 { t #1 #1 substring$ *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	884 t #2 global.max$ substring$ 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	885 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	886 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	887 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	888 while$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	889 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	890
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	891
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	892 % This function detects entries with names that are identical to that of
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	893 % the previous entry and replaces the repeated names with dashes (if the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	894 % "is.dash.repeated.names" user control is nonzero).
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	895 FUNCTION {name.or.dash}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	896 { 's :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	897 oldname empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	898 { s 'oldname := s }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	899 { s oldname =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	900 { is.dash.repeated.names
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	901 { repeated.name.dashes }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	902 { s 'oldname := s }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	903 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	904 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	905 { s 'oldname := s }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	906 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	907 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	908 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	909 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	910
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	911 % Converts the number string on the top of the stack to
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	912 % "numerical ordinal form" (e.g., "7" to "7th"). There is
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	913 % no artificial limit to the upper bound of the numbers as the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	914 % two least significant digits determine the ordinal form.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	915 FUNCTION {num.to.ordinal}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	916 { duplicate$ #-2 #1 substring$ "1" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	917 { bbl.th * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	918 { duplicate$ #-1 #1 substring$ "1" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	919 { bbl.st * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	920 { duplicate$ #-1 #1 substring$ "2" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	921 { bbl.nd * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	922 { duplicate$ #-1 #1 substring$ "3" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	923 { bbl.rd * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	924 { bbl.th * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	925 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	926 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	927 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	928 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	929 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	930 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	931 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	932 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	933
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	934 % If the string on the top of the stack begins with a number,
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	935 % (e.g., 11th) then replace the string with the leading number
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	936 % it contains. Otherwise retain the string as-is. s holds the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	937 % extracted number, t holds the part of the string that remains
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	938 % to be scanned.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	939 FUNCTION {extract.num}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	940 { duplicate$ 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	941 "" 's :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	942 { t empty$ not }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	943 { t #1 #1 substring$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	944 t #2 global.max$ substring$ 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	945 duplicate$ is.num
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	946 { s swap$ * 's := }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	947 { pop$ "" 't := }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	948 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	949 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	950 while$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	951 s empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	952 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	953 { pop$ s }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	954 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	955 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	956
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	957 % Converts the word number string on the top of the stack to
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	958 % Arabic string form. Will be successful up to "tenth".
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	959 FUNCTION {word.to.num}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	960 { duplicate$ "l" change.case$ 's :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	961 s "first" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	962 { pop$ "1" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	963 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	964 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	965 s "second" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	966 { pop$ "2" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	967 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	968 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	969 s "third" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	970 { pop$ "3" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	971 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	972 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	973 s "fourth" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	974 { pop$ "4" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	975 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	976 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	977 s "fifth" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	978 { pop$ "5" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	979 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	980 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	981 s "sixth" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	982 { pop$ "6" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	983 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	984 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	985 s "seventh" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	986 { pop$ "7" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	987 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	988 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	989 s "eighth" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	990 { pop$ "8" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	991 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	992 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	993 s "ninth" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	994 { pop$ "9" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	995 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	996 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	997 s "tenth" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	998 { pop$ "10" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	999 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1000 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1001 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1002
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1003
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1004 % Converts the string on the top of the stack to numerical
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1005 % ordinal (e.g., "11th") form.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1006 FUNCTION {convert.edition}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1007 { duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1008 { duplicate$ #1 #1 substring$ is.num
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1009 { extract.num
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1010 num.to.ordinal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1011 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1012 { word.to.num
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1013 duplicate$ #1 #1 substring$ is.num
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1014 { num.to.ordinal }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1015 { "edition ordinal word " quote$ * edition * quote$ *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1016 " may be too high (or improper) for conversion" * " in " * cite$ * warning$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1017 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1018 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1019 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1020 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1021 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1022 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1023 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1024
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1025
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1026
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1027
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1028 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1029 %% LATEX BIBLIOGRAPHY CODE %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1030 %%%%%%%%%%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1031
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1032 % from plainnat.bst
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1033 FUNCTION {format.full.names}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1034 {'s :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1035 #1 'nameptr :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1036 s num.names$ 'numnames :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1037 numnames 'namesleft :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1038 { namesleft #0 > }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1039 { s nameptr
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1040 "{vv~}{ll}" format.name$ 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1041 nameptr #1 >
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1042 {
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1043 namesleft #1 >
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1044 { ", " * t * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1045 {
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1046 numnames #2 >
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1047 { "," * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1048 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1049 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1050 t "others" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1051 { " et~al." * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1052 { " and " * t * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1053 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1054 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1055 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1056 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1057 't
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1058 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1059 nameptr #1 + 'nameptr :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1060 namesleft #1 - 'namesleft :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1061 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1062 while$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1063 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1064
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1065 FUNCTION {author.editor.full}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1066 { author empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1067 { editor empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1068 { "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1069 { editor format.full.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1070 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1071 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1072 { author format.full.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1073 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1074 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1075
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1076 FUNCTION {author.full}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1077 { author empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1078 { "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1079 { author format.full.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1080 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1081 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1082
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1083 FUNCTION {editor.full}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1084 { editor empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1085 { "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1086 { editor format.full.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1087 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1088 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1089
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1090 FUNCTION {make.full.names}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1091 { type$ "book" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1092 type$ "inbook" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1093 or
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1094 { author.editor.full }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1095 { type$ "proceedings" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1096 type$ "periodical" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1097 or
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1098 { editor.full }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1099 { author.full }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1100 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1101 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1102 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1103 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1104 % END from plainnat.bst
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1105
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1106 FUNCTION {start.entry}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1107 { newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1108 "\bibitem[" write$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1109 label write$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1110 ")" make.full.names duplicate$ short.list =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1111 { pop$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1112 { * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1113 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1114 "]{" * write$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1115 cite$ write$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1116 "}" write$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1117 newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1118 ""
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1119 initialize.prev.this.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1120 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1121
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1122 % Here we write out all the LaTeX code that we will need. The most involved
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1123 % code sequences are those that control the alternate interword spacing and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1124 % foreign language hyphenation patterns. The heavy use of \providecommand
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1125 % gives users a way to override the defaults. Special thanks to Javier Bezos,
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1126 % Johannes Braams, Robin Fairbairns, Heiko Oberdiek, Donald Arseneau and all
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1127 % the other gurus on comp.text.tex for their help and advice on the topic of
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1128 % \selectlanguage, Babel and BibTeX.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1129 FUNCTION {begin.bib}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1130 { "% Generated by IEEEtranSN.bst, version: " bst.file.version * " (" * bst.file.date * ")" *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1131 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1132 preamble$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1133 { preamble$ write$ newline$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1134 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1135 "\begin{thebibliography}{" number.label int.to.str$ * "}" *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1136 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1137 "\providecommand{\natexlab}[1]{#1}"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1138 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1139 "\providecommand{\url}[1]{#1}"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1140 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1141 "\csname url@samestyle\endcsname"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1142 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1143 "\providecommand{\newblock}{\relax}"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1144 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1145 "\providecommand{\bibinfo}[2]{#2}"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1146 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1147 "\providecommand{\BIBentrySTDinterwordspacing}{\spaceskip=0pt\relax}"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1148 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1149 "\providecommand{\BIBentryALTinterwordstretchfactor}{"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1150 ALTinterwordstretchfactor * "}" *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1151 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1152 "\providecommand{\BIBentryALTinterwordspacing}{\spaceskip=\fontdimen2\font plus "
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1153 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1154 "\BIBentryALTinterwordstretchfactor\fontdimen3\font minus \fontdimen4\font\relax}"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1155 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1156 "\providecommand{\BIBforeignlanguage}[2]{{%"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1157 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1158 "\expandafter\ifx\csname l@#1\endcsname\relax"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1159 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1160 "\typeout{** WARNING: IEEEtranSN.bst: No hyphenation pattern has been}%"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1161 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1162 "\typeout{** loaded for the language `#1'. Using the pattern for}%"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1163 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1164 "\typeout{** the default language instead.}%"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1165 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1166 "\else"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1167 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1168 "\language=\csname l@#1\endcsname"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1169 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1170 "\fi"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1171 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1172 "#2}}"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1173 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1174 "\providecommand{\BIBdecl}{\relax}"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1175 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1176 "\BIBdecl"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1177 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1178 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1179
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1180 FUNCTION {end.bib}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1181 { newline$ "\end{thebibliography}" write$ newline$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1182
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1183 FUNCTION {if.url.alt.interword.spacing}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1184 { is.use.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1185 {url empty$ 'skip$ {"\BIBentryALTinterwordspacing" write$ newline$} if$}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1186 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1187 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1188 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1189
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1190 FUNCTION {if.url.std.interword.spacing}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1191 { is.use.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1192 {url empty$ 'skip$ {"\BIBentrySTDinterwordspacing" write$ newline$} if$}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1193 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1194 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1195 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1196
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1197
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1198
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1199
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1200 %%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1201 %% FORMAT HANDLERS %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1202 %%%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1203
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1204 %% Lower Level Formats (used by higher level formats)
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1205
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1206 FUNCTION {format.address.org.or.pub.date}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1207 { 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1208 ""
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1209 year empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1210 { "empty year in " cite$ * warning$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1211 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1212 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1213 address empty$ t empty$ and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1214 year empty$ and month empty$ and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1215 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1216 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1217 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1218 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1219 address "address" bibinfo.check *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1220 t empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1221 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1222 { punct.period 'prev.status.punct :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1223 space.large 'prev.status.space :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1224 address empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1225 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1226 { ": " * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1227 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1228 t *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1229 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1230 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1231 year empty$ month empty$ and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1232 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1233 { t empty$ address empty$ and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1234 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1235 { ", " * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1236 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1237 month empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1238 { year empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1239 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1240 { year "year" bibinfo.check * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1241 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1242 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1243 { month "month" bibinfo.check *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1244 year empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1245 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1246 { " " * year "year" bibinfo.check * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1247 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1248 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1249 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1250 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1251 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1252 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1253 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1254 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1255
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1256
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1257 FUNCTION {format.names}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1258 { 'bibinfo :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1259 duplicate$ empty$ 'skip$ {
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1260 this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1261 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1262 's :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1263 "" 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1264 #1 'nameptr :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1265 s num.names$ 'numnames :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1266 numnames 'namesleft :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1267 { namesleft #0 > }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1268 { s nameptr
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1269 name.format.string
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1270 format.name$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1271 bibinfo bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1272 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1273 nameptr #1 >
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1274 { nameptr num.names.shown.with.forced.et.al #1 + =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1275 numnames max.num.names.before.forced.et.al >
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1276 is.forced.et.al and and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1277 { "others" 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1278 #1 'namesleft :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1279 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1280 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1281 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1282 namesleft #1 >
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1283 { ", " * t do.name.latex.cmd * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1284 { s nameptr "{ll}" format.name$ duplicate$ "others" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1285 { 't := }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1286 { pop$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1287 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1288 t "others" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1289 { " " * bbl.etal emphasize * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1290 { numnames #2 >
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1291 { "," * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1292 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1293 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1294 bbl.and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1295 space.word * t do.name.latex.cmd *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1296 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1297 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1298 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1299 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1300 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1301 { t do.name.latex.cmd }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1302 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1303 nameptr #1 + 'nameptr :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1304 namesleft #1 - 'namesleft :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1305 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1306 while$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1307 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1308 } if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1309 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1310
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1311
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1312
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1313
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1314 %% Higher Level Formats
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1315
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1316 %% addresses/locations
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1317
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1318 FUNCTION {format.address}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1319 { address duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1320 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1321 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1322 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1323 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1324 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1325 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1326
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1327
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1328
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1329 %% author/editor names
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1330
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1331 FUNCTION {format.authors}{ author "author" format.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1332
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1333 FUNCTION {format.editors}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1334 { editor "editor" format.names duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1335 { ", " *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1336 get.bbl.editor
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1337 capitalize
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1338 *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1339 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1340 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1341 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1342
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1343
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1344
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1345 %% date
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1346
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1347 FUNCTION {format.date}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1348 {
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1349 month "month" bibinfo.check duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1350 year "year" bibinfo.check duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1351 { swap$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1352 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1353 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1354 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1355 "there's a month but no year in " cite$ * warning$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1356 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1357 *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1358 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1359 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1360 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1361 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1362 swap$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1363 {
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1364 swap$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1365 " " * swap$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1366 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1367 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1368 *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1369 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1370 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1371 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1372
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1373 FUNCTION {format.date.electronic}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1374 { month "month" bibinfo.check duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1375 year "year" bibinfo.check duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1376 { swap$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1377 { pop$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1378 { "there's a month but no year in " cite$ * warning$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1379 pop$ ")" * "(" swap$ *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1380 this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1381 punct.no 'this.status.punct :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1382 space.normal 'this.status.space :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1383 quote.no 'this.status.quote :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1384 cap.yes 'status.cap :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1385 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1386 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1387 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1388 { swap$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1389 { swap$ pop$ ")" * "(" swap$ * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1390 { "(" swap$ * ", " * swap$ * ")" * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1391 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1392 this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1393 punct.no 'this.status.punct :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1394 space.normal 'this.status.space :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1395 quote.no 'this.status.quote :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1396 cap.yes 'status.cap :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1397 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1398 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1399 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1400
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1401
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1402
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1403 %% edition/title
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1404
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1405 % Note: IEEE considers the edition to be closely associated with
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1406 % the title of a book. So, in IEEEtran.bst the edition is normally handled
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1407 % within the formatting of the title. The format.edition function is
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1408 % retained here for possible future use.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1409 FUNCTION {format.edition}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1410 { edition duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1411 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1412 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1413 convert.edition
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1414 status.cap
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1415 { "t" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1416 { "l" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1417 if$ change.case$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1418 "edition" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1419 "~" * bbl.edition *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1420 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1421 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1422 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1423 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1424
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1425 % This is used to format the booktitle of a conference proceedings.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1426 % Here we use the "intype" field to provide the user a way to
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1427 % override the word "in" (e.g., with things like "presented at")
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1428 % Use of intype stops the emphasis of the booktitle to indicate that
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1429 % we no longer mean the written conference proceedings, but the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1430 % conference itself.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1431 FUNCTION {format.in.booktitle}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1432 { booktitle "booktitle" bibinfo.check duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1433 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1434 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1435 select.language
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1436 intype missing$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1437 { emphasize
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1438 bbl.in " " *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1439 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1440 { intype " " * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1441 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1442 swap$ *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1443 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1444 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1445 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1446 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1447
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1448 % This is used to format the booktitle of collection.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1449 % Here the "intype" field is not supported, but "edition" is.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1450 FUNCTION {format.in.booktitle.edition}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1451 { booktitle "booktitle" bibinfo.check duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1452 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1453 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1454 select.language
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1455 emphasize
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1456 edition empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1457 { ", " *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1458 edition
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1459 convert.edition
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1460 "l" change.case$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1461 * "~" * bbl.edition *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1462 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1463 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1464 bbl.in " " * swap$ *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1465 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1466 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1467 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1468 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1469
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1470 FUNCTION {format.article.title}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1471 { title duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1472 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1473 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1474 "t" change.case$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1475 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1476 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1477 "title" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1478 duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1479 { quote.close 'this.status.quote :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1480 is.last.char.not.punct
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1481 { punct.std 'this.status.punct := }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1482 { punct.no 'this.status.punct := }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1483 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1484 select.language
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1485 "``" swap$ *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1486 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1487 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1488 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1489 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1490
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1491 FUNCTION {format.article.title.electronic}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1492 { title duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1493 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1494 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1495 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1496 "t" change.case$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1497 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1498 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1499 "title" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1500 duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1501 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1502 { select.language }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1503 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1504 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1505
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1506 FUNCTION {format.book.title.edition}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1507 { title "title" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1508 duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1509 { "empty title in " cite$ * warning$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1510 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1511 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1512 select.language
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1513 emphasize
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1514 edition empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1515 { ", " *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1516 edition
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1517 convert.edition
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1518 status.cap
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1519 { "t" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1520 { "l" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1521 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1522 change.case$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1523 * "~" * bbl.edition *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1524 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1525 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1526 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1527 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1528 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1529 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1530
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1531 FUNCTION {format.book.title}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1532 { title "title" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1533 duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1534 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1535 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1536 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1537 select.language
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1538 emphasize
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1539 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1540 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1541 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1542
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1543
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1544
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1545 %% journal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1546
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1547 FUNCTION {format.journal}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1548 { journal duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1549 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1550 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1551 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1552 select.language
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1553 emphasize
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1554 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1555 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1556 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1557
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1558
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1559
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1560 %% how published
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1561
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1562 FUNCTION {format.howpublished}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1563 { howpublished duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1564 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1565 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1566 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1567 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1568 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1569 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1570
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1571
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1572
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1573 %% institutions/organization/publishers/school
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1574
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1575 FUNCTION {format.institution}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1576 { institution duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1577 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1578 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1579 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1580 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1581 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1582 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1583
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1584 FUNCTION {format.organization}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1585 { organization duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1586 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1587 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1588 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1589 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1590 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1591 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1592
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1593 FUNCTION {format.address.publisher.date}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1594 { publisher "publisher" bibinfo.warn format.address.org.or.pub.date }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1595
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1596 FUNCTION {format.address.publisher.date.nowarn}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1597 { publisher "publisher" bibinfo.check format.address.org.or.pub.date }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1598
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1599 FUNCTION {format.address.organization.date}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1600 { organization "organization" bibinfo.check format.address.org.or.pub.date }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1601
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1602 FUNCTION {format.school}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1603 { school duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1604 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1605 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1606 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1607 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1608 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1609 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1610
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1611
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1612
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1613 %% volume/number/series/chapter/pages
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1614
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1615 FUNCTION {format.volume}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1616 { volume empty.field.to.null.string
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1617 duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1618 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1619 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1620 bbl.volume
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1621 status.cap
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1622 { capitalize }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1623 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1624 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1625 swap$ tie.or.space.prefix
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1626 "volume" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1627 * *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1628 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1629 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1630 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1631 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1632
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1633 FUNCTION {format.number}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1634 { number empty.field.to.null.string
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1635 duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1636 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1637 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1638 status.cap
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1639 { bbl.number capitalize }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1640 { bbl.number }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1641 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1642 swap$ tie.or.space.prefix
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1643 "number" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1644 * *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1645 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1646 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1647 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1648 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1649
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1650 FUNCTION {format.number.if.use.for.article}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1651 { is.use.number.for.article
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1652 { format.number }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1653 { "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1654 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1655 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1656
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1657 % IEEE does not seem to tie the series so closely with the volume
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1658 % and number as is done in other bibliography styles. Instead the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1659 % series is treated somewhat like an extension of the title.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1660 FUNCTION {format.series}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1661 { series empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1662 { "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1663 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1664 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1665 bbl.series " " *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1666 series "series" bibinfo.check *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1667 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1668 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1669 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1670 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1671
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1672
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1673 FUNCTION {format.chapter}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1674 { chapter empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1675 { "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1676 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1677 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1678 type empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1679 { bbl.chapter }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1680 { type "l" change.case$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1681 "type" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1682 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1683 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1684 chapter tie.or.space.prefix
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1685 "chapter" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1686 * *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1687 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1688 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1689 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1690 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1691
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1692
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1693 % The intended use of format.paper is for paper numbers of inproceedings.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1694 % The paper type can be overridden via the type field.
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1695 % We allow the type to be displayed even if the paper number is absent
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1696 % for things like "postdeadline paper"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1697 FUNCTION {format.paper}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1698 { is.use.paper
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1699 { paper empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1700 { type empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1701 { "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1702 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1703 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1704 type "type" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1705 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1706 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1707 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1708 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1709 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1710 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1711 type empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1712 { bbl.paper }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1713 { type "type" bibinfo.check }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1714 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1715 " " * paper
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1716 "paper" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1717 *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1718 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1719 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1720 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1721 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1722 { "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1723 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1724 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1725
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1726
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1727 FUNCTION {format.pages}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1728 { pages duplicate$ empty$ 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1729 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1730 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1731 duplicate$ is.multiple.pages
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1732 {
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1733 bbl.pages swap$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1734 n.dashify
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1735 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1736 {
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1737 bbl.page swap$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1738 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1739 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1740 tie.or.space.prefix
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1741 "pages" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1742 * *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1743 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1744 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1745 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1746 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1747
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1748
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1749
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1750 %% technical report number
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1751
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1752 FUNCTION {format.tech.report.number}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1753 { number "number" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1754 this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1755 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1756 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1757 type duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1758 { pop$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1759 bbl.techrep
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1760 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1761 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1762 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1763 "type" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1764 swap$ duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1765 { pop$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1766 { tie.or.space.prefix * * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1767 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1768 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1769
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1770
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1771
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1772 %% note
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1773
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1774 FUNCTION {format.note}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1775 { note empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1776 { "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1777 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1778 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1779 punct.period 'this.status.punct :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1780 note #1 #1 substring$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1781 duplicate$ "{" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1782 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1783 { status.cap
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1784 { "u" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1785 { "l" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1786 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1787 change.case$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1788 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1789 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1790 note #2 global.max$ substring$ * "note" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1791 cap.yes 'status.cap :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1792 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1793 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1794 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1795
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1796
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1797
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1798 %% patent
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1799
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1800 FUNCTION {format.patent.date}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1801 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1802 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1803 year empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1804 { monthfiled duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1805 { "monthfiled" bibinfo.check pop$ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1806 { "monthfiled" bibinfo.check }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1807 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1808 dayfiled duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1809 { "dayfiled" bibinfo.check pop$ "" * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1810 { "dayfiled" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1811 monthfiled empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1812 { "dayfiled without a monthfiled in " cite$ * warning$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1813 *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1814 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1815 { " " swap$ * * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1816 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1817 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1818 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1819 yearfiled empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1820 { "no year or yearfiled in " cite$ * warning$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1821 { yearfiled "yearfiled" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1822 swap$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1823 duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1824 { pop$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1825 { ", " * swap$ * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1826 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1827 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1828 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1829 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1830 { month duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1831 { "month" bibinfo.check pop$ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1832 { "month" bibinfo.check }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1833 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1834 day duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1835 { "day" bibinfo.check pop$ "" * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1836 { "day" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1837 month empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1838 { "day without a month in " cite$ * warning$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1839 *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1840 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1841 { " " swap$ * * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1842 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1843 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1844 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1845 year "year" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1846 swap$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1847 duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1848 { pop$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1849 { ", " * swap$ * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1850 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1851 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1852 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1853 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1854 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1855
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1856 FUNCTION {format.patent.nationality.type.number}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1857 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1858 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1859 nationality duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1860 { "nationality" bibinfo.warn pop$ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1861 { "nationality" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1862 duplicate$ "l" change.case$ "united states" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1863 { pop$ bbl.patentUS }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1864 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1865 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1866 " " *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1867 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1868 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1869 type empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1870 { bbl.patent "type" bibinfo.check }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1871 { type "type" bibinfo.check }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1872 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1873 *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1874 number duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1875 { "number" bibinfo.warn pop$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1876 { "number" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1877 large.number.separate
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1878 swap$ " " * swap$ *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1879 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1880 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1881 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1882 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1883
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1884
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1885
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1886 %% standard
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1887
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1888 FUNCTION {format.organization.institution.standard.type.number}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1889 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1890 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1891 organization duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1892 { pop$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1893 institution duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1894 { "institution" bibinfo.warn }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1895 { "institution" bibinfo.warn " " * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1896 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1897 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1898 { "organization" bibinfo.warn " " * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1899 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1900 type empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1901 { bbl.standard "type" bibinfo.check }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1902 { type "type" bibinfo.check }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1903 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1904 *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1905 number duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1906 { "number" bibinfo.check pop$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1907 { "number" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1908 large.number.separate
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1909 swap$ " " * swap$ *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1910 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1911 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1912 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1913 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1914
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1915 FUNCTION {format.revision}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1916 { revision empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1917 { "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1918 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1919 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1920 bbl.revision
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1921 revision tie.or.space.prefix
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1922 "revision" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1923 * *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1924 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1925 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1926 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1927 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1928
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1929
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1930 %% thesis
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1931
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1932 FUNCTION {format.master.thesis.type}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1933 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1934 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1935 type empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1936 {
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1937 bbl.mthesis
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1938 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1939 {
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1940 type "type" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1941 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1942 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1943 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1944 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1945
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1946 FUNCTION {format.phd.thesis.type}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1947 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1948 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1949 type empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1950 {
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1951 bbl.phdthesis
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1952 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1953 {
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1954 type "type" bibinfo.check
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1955 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1956 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1957 cap.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1958 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1959
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1960
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1961
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1962 %% URL
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1963
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1964 FUNCTION {format.url}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1965 { url empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1966 { "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1967 { this.to.prev.status
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1968 this.status.std
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1969 cap.yes 'status.cap :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1970 name.url.prefix " " *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1971 "\url{" * url * "}" *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1972 punct.no 'this.status.punct :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1973 punct.period 'prev.status.punct :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1974 space.normal 'this.status.space :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1975 space.normal 'prev.status.space :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1976 quote.no 'this.status.quote :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1977 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1978 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1979 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1980
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1981
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1982
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1983
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1984 %%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1985 %% ENTRY HANDLERS %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1986 %%%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1987
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1988
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1989 % Note: In many journals, IEEE (or the authors) tend not to show the number
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1990 % for articles, so the display of the number is controlled here by the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1991 % switch "is.use.number.for.article"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1992 FUNCTION {article}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1993 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1994 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1995 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1996 format.authors "author" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1997 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1998 format.article.title "title" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	1999 format.journal "journal" bibinfo.check "journal" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2000 format.volume output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2001 format.number.if.use.for.article output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2002 format.pages output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2003 format.date "year" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2004 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2005 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2006 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2007 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2008 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2009
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2010 FUNCTION {book}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2011 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2012 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2013 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2014 author empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2015 { format.editors "author and editor" output.warn }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2016 { format.authors output.nonnull }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2017 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2018 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2019 format.book.title.edition output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2020 format.series output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2021 author empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2022 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2023 { format.editors output }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2024 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2025 format.address.publisher.date output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2026 format.volume output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2027 format.number output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2028 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2029 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2030 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2031 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2032 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2033
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2034 FUNCTION {booklet}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2035 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2036 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2037 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2038 format.authors output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2039 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2040 format.article.title "title" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2041 format.howpublished "howpublished" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2042 format.organization "organization" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2043 format.address "address" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2044 format.date output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2045 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2046 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2047 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2048 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2049 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2050
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2051 FUNCTION {electronic}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2052 { std.status.using.period
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2053 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2054 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2055 format.authors output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2056 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2057 format.date.electronic output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2058 format.article.title.electronic output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2059 format.howpublished "howpublished" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2060 format.organization "organization" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2061 format.address "address" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2062 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2063 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2064 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2065 empty.entry.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2066 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2067 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2068
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2069 FUNCTION {inbook}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2070 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2071 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2072 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2073 author empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2074 { format.editors "author and editor" output.warn }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2075 { format.authors output.nonnull }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2076 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2077 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2078 format.book.title.edition output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2079 format.series output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2080 format.address.publisher.date output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2081 format.volume output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2082 format.number output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2083 format.chapter output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2084 format.pages output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2085 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2086 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2087 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2088 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2089 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2090
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2091 FUNCTION {incollection}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2092 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2093 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2094 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2095 format.authors "author" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2096 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2097 format.article.title "title" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2098 format.in.booktitle.edition "booktitle" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2099 format.series output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2100 format.editors output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2101 format.address.publisher.date.nowarn output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2102 format.volume output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2103 format.number output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2104 format.chapter output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2105 format.pages output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2106 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2107 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2108 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2109 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2110 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2111
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2112 FUNCTION {inproceedings}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2113 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2114 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2115 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2116 format.authors "author" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2117 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2118 format.article.title "title" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2119 format.in.booktitle "booktitle" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2120 format.series output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2121 format.editors output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2122 format.volume output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2123 format.number output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2124 publisher empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2125 { format.address.organization.date output }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2126 { format.organization "organization" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2127 format.address.publisher.date output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2128 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2129 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2130 format.paper output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2131 format.pages output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2132 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2133 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2134 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2135 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2136 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2137
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2138 FUNCTION {manual}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2139 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2140 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2141 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2142 format.authors output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2143 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2144 format.book.title.edition "title" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2145 format.howpublished "howpublished" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2146 format.organization "organization" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2147 format.address "address" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2148 format.date output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2149 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2150 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2151 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2152 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2153 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2154
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2155 FUNCTION {mastersthesis}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2156 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2157 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2158 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2159 format.authors "author" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2160 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2161 format.article.title "title" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2162 format.master.thesis.type output.nonnull
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2163 format.school "school" bibinfo.warn output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2164 format.address "address" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2165 format.date "year" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2166 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2167 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2168 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2169 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2170 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2171
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2172 FUNCTION {misc}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2173 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2174 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2175 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2176 format.authors output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2177 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2178 format.article.title output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2179 format.howpublished "howpublished" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2180 format.organization "organization" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2181 format.address "address" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2182 format.pages output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2183 format.date output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2184 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2185 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2186 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2187 empty.entry.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2188 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2189 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2190
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2191 FUNCTION {patent}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2192 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2193 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2194 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2195 format.authors output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2196 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2197 format.article.title output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2198 format.patent.nationality.type.number output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2199 format.patent.date output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2200 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2201 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2202 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2203 empty.entry.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2204 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2205 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2206
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2207 FUNCTION {periodical}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2208 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2209 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2210 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2211 format.editors output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2212 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2213 format.book.title "title" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2214 format.series output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2215 format.volume output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2216 format.number output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2217 format.organization "organization" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2218 format.date "year" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2219 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2220 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2221 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2222 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2223 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2224
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2225 FUNCTION {phdthesis}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2226 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2227 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2228 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2229 format.authors "author" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2230 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2231 format.article.title "title" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2232 format.phd.thesis.type output.nonnull
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2233 format.school "school" bibinfo.warn output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2234 format.address "address" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2235 format.date "year" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2236 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2237 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2238 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2239 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2240 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2241
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2242 FUNCTION {proceedings}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2243 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2244 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2245 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2246 format.editors output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2247 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2248 format.book.title "title" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2249 format.series output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2250 format.volume output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2251 format.number output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2252 publisher empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2253 { format.address.organization.date output }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2254 { format.organization "organization" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2255 format.address.publisher.date output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2256 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2257 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2258 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2259 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2260 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2261 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2262 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2263
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2264 FUNCTION {standard}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2265 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2266 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2267 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2268 format.authors output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2269 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2270 format.book.title "title" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2271 format.howpublished "howpublished" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2272 format.organization.institution.standard.type.number output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2273 format.revision output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2274 format.date output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2275 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2276 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2277 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2278 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2279 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2280
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2281 FUNCTION {techreport}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2282 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2283 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2284 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2285 format.authors "author" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2286 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2287 format.article.title "title" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2288 format.howpublished "howpublished" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2289 format.institution "institution" bibinfo.warn output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2290 format.address "address" bibinfo.check output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2291 format.tech.report.number output.nonnull
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2292 format.date "year" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2293 format.note output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2294 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2295 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2296 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2297 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2298
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2299 FUNCTION {unpublished}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2300 { std.status.using.comma
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2301 start.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2302 if.url.alt.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2303 format.authors "author" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2304 name.or.dash
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2305 format.article.title "title" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2306 format.date output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2307 format.note "note" output.warn
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2308 format.url output
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2309 fin.entry
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2310 if.url.std.interword.spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2311 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2312
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2313
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2314 % The special entry type which provides the user interface to the
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2315 % BST controls
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2316 FUNCTION {IEEEtranBSTCTL}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2317 { is.print.banners.to.terminal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2318 { "** IEEEtran BST control entry " quote$ * cite$ * quote$ * " detected." *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2319 top$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2320 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2321 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2322 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2323 CTLuse_article_number
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2324 empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2325 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2326 { CTLuse_article_number
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2327 yes.no.to.int
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2328 'is.use.number.for.article :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2329 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2330 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2331 CTLuse_paper
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2332 empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2333 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2334 { CTLuse_paper
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2335 yes.no.to.int
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2336 'is.use.paper :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2337 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2338 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2339 CTLuse_forced_etal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2340 empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2341 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2342 { CTLuse_forced_etal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2343 yes.no.to.int
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2344 'is.forced.et.al :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2345 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2346 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2347 CTLmax_names_forced_etal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2348 empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2349 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2350 { CTLmax_names_forced_etal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2351 string.to.integer
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2352 'max.num.names.before.forced.et.al :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2353 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2354 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2355 CTLnames_show_etal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2356 empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2357 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2358 { CTLnames_show_etal
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2359 string.to.integer
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2360 'num.names.shown.with.forced.et.al :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2361 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2362 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2363 CTLuse_alt_spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2364 empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2365 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2366 { CTLuse_alt_spacing
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2367 yes.no.to.int
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2368 'is.use.alt.interword.spacing :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2369 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2370 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2371 CTLalt_stretch_factor
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2372 empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2373 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2374 { CTLalt_stretch_factor
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2375 'ALTinterwordstretchfactor :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2376 "\renewcommand{\BIBentryALTinterwordstretchfactor}{"
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2377 ALTinterwordstretchfactor * "}" *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2378 write$ newline$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2379 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2380 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2381 CTLdash_repeated_names
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2382 empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2383 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2384 { CTLdash_repeated_names
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2385 yes.no.to.int
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2386 'is.dash.repeated.names :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2387 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2388 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2389 CTLname_format_string
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2390 empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2391 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2392 { CTLname_format_string
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2393 'name.format.string :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2394 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2395 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2396 CTLname_latex_cmd
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2397 empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2398 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2399 { CTLname_latex_cmd
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2400 'name.latex.cmd :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2401 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2402 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2403 CTLname_url_prefix
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2404 missing$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2405 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2406 { CTLname_url_prefix
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2407 'name.url.prefix :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2408 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2409 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2410
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2411
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2412 num.names.shown.with.forced.et.al max.num.names.before.forced.et.al >
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2413 { "CTLnames_show_etal cannot be greater than CTLmax_names_forced_etal in " cite$ * warning$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2414 max.num.names.before.forced.et.al 'num.names.shown.with.forced.et.al :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2415 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2416 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2417 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2418 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2419
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2420
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2421 %%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2422 %% ENTRY ALIASES %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2423 %%%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2424 FUNCTION {conference}{inproceedings}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2425 FUNCTION {online}{electronic}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2426 FUNCTION {internet}{electronic}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2427 FUNCTION {webpage}{electronic}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2428 FUNCTION {www}{electronic}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2429 FUNCTION {default.type}{misc}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2430
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2431
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2432
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2433 %%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2434 %% MAIN PROGRAM %%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2435 %%%%%%%%%%%%%%%%%%
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2436
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2437 READ
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2438
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2439 EXECUTE {initialize.controls}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2440 EXECUTE {initialize.status.constants}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2441 EXECUTE {banner.message}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2442
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2443
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2444
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2445 % BEGIN sort code based on plainnat.bst
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2446 FUNCTION {sortify}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2447 { purify$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2448 "l" change.case$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2449 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2450
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2451 INTEGERS { len }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2452
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2453 FUNCTION {chop.word}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2454 { 's :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2455 'len :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2456 s #1 len substring$ =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2457 { s len #1 + global.max$ substring$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2458 { s }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2459 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2460 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2461
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2462 FUNCTION {sort.format.names}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2463 { 's :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2464 #1 'nameptr :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2465 ""
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2466 s num.names$ 'numnames :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2467 numnames 'namesleft :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2468 { namesleft #0 > }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2469 {
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2470 s nameptr "{vv{ } }{ll{ }}{ ff{ }}{ jj{ }}" format.name$ 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2471 nameptr #1 >
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2472 {
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2473 " " *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2474 namesleft #1 = t "others" = and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2475 { "zzzzz" * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2476 { numnames #2 > nameptr #2 = and
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2477 { "zz" *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2478 type$ "patent" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2479 { year empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2480 { yearfiled }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2481 { year }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2482 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2483 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2484 { year }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2485 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2486 empty.field.to.null.string * " " *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2487 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2488 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2489 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2490 t sortify *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2491 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2492 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2493 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2494 { t sortify * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2495 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2496 nameptr #1 + 'nameptr :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2497 namesleft #1 - 'namesleft :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2498 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2499 while$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2500 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2501
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2502 FUNCTION {sort.format.title}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2503 { 't :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2504 "A " #2
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2505 "An " #3
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2506 "The " #4 t chop.word
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2507 chop.word
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2508 chop.word
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2509 sortify
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2510 #1 global.max$ substring$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2511 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2512
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2513 FUNCTION {author.sort}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2514 { author empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2515 { key empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2516 { "to sort, need author or key in " cite$ * warning$ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2517 { key sortify }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2518 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2519 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2520 { author sort.format.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2521 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2522 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2523
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2524 FUNCTION {author.editor.sort}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2525 { author empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2526 { editor empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2527 { key empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2528 { "to sort, need author, editor, or key in " cite$ * warning$ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2529 { key sortify }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2530 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2531 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2532 { editor sort.format.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2533 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2534 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2535 { author sort.format.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2536 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2537 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2538
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2539 FUNCTION {author.organization.sort}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2540 { author empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2541 { organization empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2542 { key empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2543 { "to sort, need author, organization, or key in " cite$ * warning$ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2544 { key sortify }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2545 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2546 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2547 { "The " #4 organization chop.word sortify }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2548 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2549 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2550 { author sort.format.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2551 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2552 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2553
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2554 FUNCTION {editor.organization.sort}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2555 { editor empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2556 { organization empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2557 { key empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2558 { "to sort, need editor, organization, or key in " cite$ * warning$ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2559 { key sortify }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2560 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2561 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2562 { "The " #4 organization chop.word sortify }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2563 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2564 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2565 { editor sort.format.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2566 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2567 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2568
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2569 FUNCTION {author.organization.institution.sort}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2570 { author empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2571 { organization empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2572 { institution empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2573 { key empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2574 { "to sort, need author, organization, institution or key in " cite$ * warning$ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2575 { key sortify }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2576 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2577 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2578 { "The " #4 institution chop.word sortify }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2579 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2580 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2581 { "The " #4 organization chop.word sortify }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2582 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2583 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2584 { author sort.format.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2585 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2586 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2587
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2588
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2589
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2590
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2591 STRINGS { last.label next.extra }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2592
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2593 INTEGERS { last.extra.num }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2594
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2595 FUNCTION {format.lab.names}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2596 { 's :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2597 s #1 "{vv~}{ll}" format.name$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2598 s num.names$ duplicate$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2599 #2 >
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2600 { pop$ " et~al." * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2601 { #2 <
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2602 'skip$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2603 { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2604 { " et~al." * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2605 { " and " * s #2 "{vv~}{ll}" format.name$ * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2606 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2607 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2608 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2609 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2610 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2611 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2612
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2613 FUNCTION {author.key.label}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2614 { author empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2615 { key empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2616 { cite$ #1 #3 substring$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2617 { key }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2618 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2619 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2620 { author format.lab.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2621 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2622 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2623
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2624 FUNCTION {author.editor.key.label}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2625 { author empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2626 { editor empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2627 { key empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2628 { cite$ #1 #3 substring$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2629 { key }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2630 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2631 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2632 { editor format.lab.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2633 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2634 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2635 { author format.lab.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2636 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2637 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2638
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2639 FUNCTION {author.key.organization.label}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2640 { author empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2641 { key empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2642 { organization empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2643 { cite$ #1 #3 substring$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2644 { "The " #4 organization chop.word #3 text.prefix$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2645 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2646 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2647 { key }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2648 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2649 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2650 { author format.lab.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2651 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2652 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2653
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2654 FUNCTION {author.key.organization.institution.label}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2655 { author empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2656 { key empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2657 { organization empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2658 { institution empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2659 { cite$ #1 #3 substring$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2660 { "The " #4 institution chop.word #3 text.prefix$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2661 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2662 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2663 { "The " #4 organization chop.word #3 text.prefix$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2664 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2665 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2666 { key }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2667 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2668 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2669 { author format.lab.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2670 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2671 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2672
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2673 FUNCTION {editor.key.organization.label}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2674 { editor empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2675 { key empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2676 { organization empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2677 { cite$ #1 #3 substring$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2678 { "The " #4 organization chop.word #3 text.prefix$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2679 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2680 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2681 { key }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2682 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2683 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2684 { editor format.lab.names }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2685 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2686 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2687
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2688 FUNCTION {calc.label}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2689 { type$ "book" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2690 type$ "inbook" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2691 or
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2692 { author.editor.key.label }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2693 { type$ "proceedings" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2694 type$ "periodical" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2695 or
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2696 { editor.key.organization.label }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2697 { type$ "manual" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2698 type$ "electronic" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2699 type$ "misc" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2700 or or
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2701 { author.key.organization.label }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2702 { type$ "standard" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2703 { author.key.organization.institution.label }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2704 { author.key.label }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2705 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2706 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2707 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2708 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2709 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2710 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2711 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2712 duplicate$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2713 'short.list :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2714 "("
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2715 *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2716 type$ "patent" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2717 { year empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2718 { yearfiled }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2719 { year }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2720 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2721 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2722 { year }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2723 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2724 duplicate$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2725 empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2726 short.list key empty.field.to.null.string = or
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2727 { pop$ "" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2728 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2729 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2730 *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2731 'label :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2732 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2733
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2734
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2735
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2736 FUNCTION {presort}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2737 { type$ "ieeetranbstctl" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2738 { key empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2739 { "_" }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2740 { key sortify }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2741 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2742 duplicate$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2743 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2744 { calc.label
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2745 label sortify
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2746 " "
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2747 *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2748 type$ "book" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2749 type$ "inbook" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2750 or
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2751 { author.editor.sort }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2752 { type$ "proceedings" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2753 type$ "periodical" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2754 or
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2755 { editor.organization.sort }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2756 { type$ "manual" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2757 type$ "electronic" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2758 type$ "misc" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2759 or or
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2760 { author.organization.sort }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2761 { type$ "standard" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2762 { author.organization.institution.sort }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2763 { author.sort }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2764 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2765 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2766 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2767 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2768 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2769 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2770 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2771 " "
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2772 *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2773 cite$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2774 *
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2775 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2776 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2777 #1 entry.max$ substring$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2778 'sort.label :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2779 #1 entry.max$ substring$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2780 'sort.key$ :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2781 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2782
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2783
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2784 FUNCTION {initialize.longest.label}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2785 { "" 'longest.label :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2786 #0 int.to.chr$ 'last.label :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2787 "" 'next.extra :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2788 #0 'longest.label.width :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2789 #0 'last.extra.num :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2790 #0 'number.label :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2791 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2792
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2793 FUNCTION {forward.pass}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2794 { type$ "ieeetranbstctl" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2795 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2796 { last.label label =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2797 { last.extra.num #1 + 'last.extra.num :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2798 last.extra.num int.to.chr$ 'extra.label :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2799 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2800 { "a" chr.to.int$ 'last.extra.num :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2801 "" 'extra.label :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2802 label 'last.label :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2803 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2804 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2805 number.label #1 + 'number.label :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2806 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2807 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2808 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2809
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2810 FUNCTION {reverse.pass}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2811 { type$ "ieeetranbstctl" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2812 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2813 { next.extra "b" =
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2814 { "a" 'extra.label := }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2815 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2816 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2817 extra.label 'next.extra :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2818 extra.label
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2819 duplicate$ empty$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2820 { skip$ }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2821 { "{\natexlab{" swap$ * "}}" * }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2822 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2823 'extra.label :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2824 label extra.label * 'label :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2825 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2826 if$
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2827 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2828
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2829 FUNCTION {bib.sort.order}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2830 { sort.label 'sort.key$ :=
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2831 }
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2832 % END sort code based on plainnat.bst
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2833
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2834
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2835
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2836
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2837 ITERATE {presort}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2838
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2839 SORT
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2840
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2841 EXECUTE {initialize.longest.label}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2842
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2843 ITERATE {forward.pass}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2844 REVERSE {reverse.pass}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2845
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2846 ITERATE {bib.sort.order}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2847
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2848 SORT
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2849
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2850 EXECUTE {begin.bib}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2851 ITERATE {call.type$}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2852 EXECUTE {end.bib}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2853
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2854 EXECUTE{completed.message}
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2855
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2856
c0d36568602d 1st commit Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp> parents: diff changeset	2857 %% That's all folks, mds.

Mercurial > hg > Papers > 2015 > kaito-lola

annotate bibtex/IEEEtranSN.bst @ 11:4cff1ef8fbf6