annotate bibtex/IEEEtranSN.bst @ 0:8319d82cab07

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