Mercurial > hg > Papers > 2021 > ikki-sigos

annotate Paper/ipsjsort-e.bst @ 29:11aa33c0b2e9 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
merge
author ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
date Fri, 21 May 2021 15:21:37 +0900
parents 844341bbe032
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1 % ipsjsort-e.bst 28-Oct-10 by Hiroshi Nakashima (ver 3.00)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
2 % ipsjsort-e.bst 15-Jun-07 by Hiroshi Nakashima (ver 2.12)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
3 % ipsjsort.bst 30-Jan-02 by Hiroshi Nakashima (ver 2.00)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
4 % ipsjsort.bst 28-Dec-93 by Hiroshi Nakashima (ver 1.00)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
5 % jssst.bst tomura@etl.go.jp (Satoru Tomura)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
6 % BibTeX standard bibliography style `jplain'
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
7 % version 0.10 for JBibTeX versions 0.10 or later, JLaTeX version 2.09.
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
8 % by Shouichi Matsui, matsui@denken.junet
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
9
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
10 ENTRY
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
11 { address
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
12 author
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
13 booktitle
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
14 chapter
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
15 doi % 3.00(1)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
16 edition
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
17 editor
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
18 howpublished
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
19 institution
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
20 journal
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
21 key
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
22 month
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
23 note
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
24 number
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
25 organization
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
26 pages
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
27 publisher
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
28 refdate % 3.00(1)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
29 school
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
30 series
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
31 title
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
32 type
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
33 url % 3.00(1)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
34 volume
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
35 year
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
36 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
37 {}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
38 { label }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
39
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
40 INTEGERS { output.state before.all mid.sentence after.sentence after.block }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
41
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
42 INTEGERS { before.year }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
43
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
44 FUNCTION {init.state.consts}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
45 { #0 'before.all :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
46 #1 'mid.sentence :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
47 #2 'after.sentence :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
48 #3 'after.block :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
49 #4 'before.year := % 1.00(1)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
50 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
51
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
52 STRINGS { s t }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
53
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
54 FUNCTION {output.nonnull}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
55 { 's :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
56 output.state mid.sentence =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
57 { ", " * write$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
58 { output.state after.block =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
59 { add.period$ write$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
60 newline$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
61 "\newblock " write$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
62 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
63 { output.state before.all =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
64 'write$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
65 { output.state before.year = % 1.00(1)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
66 { " " * write$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
67 { add.period$ " " * write$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
68 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
69 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
70 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
71 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
72 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
73 mid.sentence 'output.state :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
74 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
75 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
76 s
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
77 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
78
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
79 FUNCTION {output}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
80 { duplicate$ empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
81 'pop$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
82 'output.nonnull
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
83 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
84 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
85
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
86 FUNCTION {required.argument}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
87 { 't :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
88 empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
89 {"Missing required argument " t * " in " * cite$ * warning$}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
90 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
91 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
92 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
93
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
94 FUNCTION {required.exclusive.or.argument}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
95 { 't :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
96 empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
97 { 's :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
98 empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
99 { t " or " * s * " is missing in " * cite$ * warning$}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
100 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
101 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
102 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
103 { 's :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
104 empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
105 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
106 { "You can use only one of " t * " and " * s * " in " * cite$ * warning$}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
107 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
108 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
109 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
110 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
111
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
112 FUNCTION {required.and.or.argument}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
113 { 't := empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
114 { 's := empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
115 { "there's no " t * " and/or " * s * cite$ * warning$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
116 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
117 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
118 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
119 { pop$ pop$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
120 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
121 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
122
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
123 FUNCTION {optional.series.volume.number.argument}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
124 { series empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
125 { volume empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
126 { number empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
127 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
128 { "there's a number but no series in " cite$ * warning$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
129 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
130 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
131 { number empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
132 { "there's a volume but no series in " cite$ * warning$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
133 { "you can use only one of volume and number in " cite$ * warning$}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
134 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
135 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
136 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
137 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
138 { volume empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
139 { number empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
140 { "there's a series but neither volume nor number in " cite$ * warning$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
141 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
142 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
143 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
144 { number empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
145 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
146 { "you can use only one of volume and number in " cite$ * warning$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
147 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
148 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
149 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
150 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
151 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
152 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
153
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
154 FUNCTION {output.bibitem}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
155 { newline$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
156 "\bibitem{" write$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
157 cite$ write$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
158 "}" write$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
159 newline$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
160 before.all 'output.state :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
161 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
162
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
163 FUNCTION {fin.entry}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
164 { add.period$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
165 write$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
166 newline$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
167 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
168
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
169 FUNCTION {new.block}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
170 { output.state before.all =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
171 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
172 { after.block 'output.state := }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
173 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
174 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
175
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
176 FUNCTION {new.sentence}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
177 { output.state after.block =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
178 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
179 { output.state before.all =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
180 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
181 { after.sentence 'output.state := }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
182 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
183 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
184 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
185 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
186
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
187 FUNCTION {not}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
188 { { #0 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
189 { #1 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
190 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
191 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
192
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
193 FUNCTION {and}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
194 { 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
195 { pop$ #0 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
196 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
197 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
198
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
199 FUNCTION {or}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
200 { { pop$ #1 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
201 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
202 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
203 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
204
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
205 FUNCTION {new.block.checka}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
206 { empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
207 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
208 'new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
209 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
210 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
211
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
212 FUNCTION {new.block.checkb}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
213 { empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
214 swap$ empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
215 and
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
216 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
217 'new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
218 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
219 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
220
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
221 FUNCTION {new.sentence.checka}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
222 { empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
223 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
224 'new.sentence
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
225 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
226 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
227
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
228 FUNCTION {new.sentence.checkb}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
229 { empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
230 swap$ empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
231 and
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
232 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
233 'new.sentence
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
234 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
235 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
236
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
237 FUNCTION {field.or.null}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
238 { duplicate$ empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
239 { pop$ "" }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
240 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
241 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
242 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
243
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
244 FUNCTION {emphasize}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
245 { duplicate$ empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
246 { pop$ "" }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
247 { "{\em " swap$ * "}" * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
248 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
249 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
250
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
251 INTEGERS { nameptr namesleft numnames }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
252
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
253 FUNCTION {format.names} % 1.00(4), 2.00(4)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
254 { 's :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
255 #1 'nameptr :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
256 s num.names$ 'numnames :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
257 numnames 'namesleft :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
258 { namesleft #0 > }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
259 { s nameptr "{vv }{ll}{, jj}{, f.}" format.name$ 't :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
260 nameptr #1 >
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
261 { namesleft #1 >
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
262 { ", " * t * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
263 { t "others" =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
264 {" et al." * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
265 {" and " * t * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
266 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
267 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
268 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
269 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
270 't
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
271 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
272 nameptr #1 + 'nameptr :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
273 namesleft #1 - 'namesleft :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
274 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
275 while$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
276 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
277
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
278 FUNCTION {format.authors}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
279 { author empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
280 { "" }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
281 { author format.names }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
282 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
283 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
284
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
285 FUNCTION {add.colon} % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
286 { ": " *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
287 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
288
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
289 FUNCTION {format.editors.inparen} % 2.00(6)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
290 { editor empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
291 { "" }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
292 { editor format.names
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
293 editor num.names$ #1 >
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
294 {", eds." *}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
295 {", ed." *}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
296 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
297 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
298 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
299 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
300
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
301 FUNCTION {format.editors}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
302 { editor empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
303 { "" }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
304 { editor format.names
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
305 editor num.names$ #1 >
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
306 {"(eds.)" *}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
307 {"(ed.)" *}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
308 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
309 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
310 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
311 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
312
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
313 FUNCTION {n.dashify}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
314 { 't :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
315 ""
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
316 { t empty$ not }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
317 { t #1 #1 substring$ "-" =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
318 { t #1 #2 substring$ "--" = not
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
319 { "--" *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
320 t #2 global.max$ substring$ 't :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
321 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
322 { { t #1 #1 substring$ "-" = }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
323 { "-" *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
324 t #2 global.max$ substring$ 't :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
325 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
326 while$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
327 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
328 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
329 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
330 { t #1 #1 substring$ *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
331 t #2 global.max$ substring$ 't :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
332 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
333 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
334 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
335 while$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
336 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
337
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
338 FUNCTION {format.date}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
339 { before.year 'output.state := % 1.00(1)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
340 year empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
341 { month empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
342 { "" }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
343 { "there's a month but no year in " cite$ * warning$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
344 "" % 1.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
345 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
346 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
347 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
348 { "(" year ")" * * } % 1.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
349 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
350 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
351
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
352 FUNCTION {format.ref.date} % 3.00(1)>>
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
353 { before.year 'output.state :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
354 "\refdatee{" refdate "}" * *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
355 } % 3.00(1)<<
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
356
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
357 FUNCTION {tie.or.space.connect}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
358 { duplicate$ text.length$ #3 <
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
359 { "~" }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
360 { "\ " } % 1.00(6)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
361 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
362 swap$ * *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
363 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
364
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
365 FUNCTION {output.volume}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
366 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
367 volume empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
368 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
369 { "Vol.~" volume * output}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
370 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
371
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
372 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
373
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
374 FUNCTION {output.number}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
375 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
376 number empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
377 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
378 { "No.~" number * output}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
379 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
380 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
381
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
382 FUNCTION {output.series.volume.number}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
383 { series empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
384 { output.volume
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
385 output.number }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
386 { series output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
387 output.volume
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
388 output.number }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
389 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
390 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
391
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
392 FUNCTION {format.edition}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
393 { edition empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
394 { "" }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
395 { output.state mid.sentence =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
396 { edition "l" change.case$ " edition" * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
397 { edition "t" change.case$ " edition" * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
398 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
399 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
400 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
401 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
402
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
403 INTEGERS { multiresult }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
404
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
405 FUNCTION {multi.page.check}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
406 { 't :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
407 #0 'multiresult :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
408 { multiresult not
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
409 t empty$ not
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
410 and
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
411 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
412 { t #1 #1 substring$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
413 duplicate$ "-" =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
414 swap$ duplicate$ "," =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
415 swap$ "+" =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
416 or or
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
417 { #1 'multiresult := }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
418 { t #2 global.max$ substring$ 't := }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
419 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
420 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
421 while$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
422 multiresult
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
423 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
424
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
425 FUNCTION {format.online} % 3.00(1)>>
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
426 { duplicate$ empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
427 { "(online)" * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
428 { " (online)" * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
429 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
430 } % 3.00(1)<<
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
431
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
432 FUNCTION {format.url} % 3.00(1)>>
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
433 { "\urle{" url "}" * *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
434 } % 3.00(1)<<
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
435
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
436 FUNCTION {format.pages} % 1.00(7)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
437 { pages empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
438 { "" }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
439 { pages multi.page.check
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
440 { "pp." pages n.dashify tie.or.space.connect }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
441 { "p." pages tie.or.space.connect }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
442 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
443 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
444 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
445 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
446
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
447 FUNCTION {format.doi.url} % 3.00(1)>>
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
448 { doi empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
449 { url empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
450 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
451 { format.online output.nonnull
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
452 format.url
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
453 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
454 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
455 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
456 { format.online output.nonnull
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
457 "\doi{" doi "}" * *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
458 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
459 if$ % 3.00(1)<<
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
460 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
461
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
462 FUNCTION {format.pages.output} % 3.00(1)>>
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
463 { format.pages
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
464 format.doi.url output % 3.00(1)<<
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
465 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
466
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
467 FUNCTION {format.vol.num.pages} % 1.00(8)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
468 { volume empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
469 { ""}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
470 { " Vol.~" volume * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
471 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
472 number empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
473 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
474 { volume empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
475 { "there's a number but no volume in " cite$ * warning$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
476 { "," *}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
477 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
478 " No.~" number * *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
479 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
480 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
481 pages empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
482 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
483 { duplicate$ empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
484 { pop$ format.pages }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
485 { ", " * format.pages * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
486 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
487 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
488 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
489 format.doi.url % 3.00(1)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
490 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
491
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
492 FUNCTION {format.chapter.pages}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
493 { chapter empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
494 'format.pages
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
495 { type empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
496 { "chapter" chapter tie.or.space.connect }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
497 { type "l" change.case$ chapter tie.or.space.connect }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
498 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
499 pages empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
500 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
501 { ", " * format.pages * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
502 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
503 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
504 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
505 format.doi.url % 3.00(1)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
506 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
507
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
508 FUNCTION {format.in.ed.booktitle}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
509 { booktitle empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
510 { "" }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
511 { booktitle emphasize
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
512 editor empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
513 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
514 { " (" * format.editors.inparen * ")" *} % 1.00(9), 2.00(6)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
515 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
516 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
517 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
518 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
519
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
520 FUNCTION {empty.misc.check}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
521 { author empty$ title empty$ howpublished empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
522 month empty$ year empty$ note empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
523 and and and and and
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
524 key empty$ not and
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
525 { "all relevant fields are empty in " cite$ * warning$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
526 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
527 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
528 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
529
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
530 FUNCTION {format.thesis.type}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
531 { type empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
532 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
533 { pop$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
534 type "t" change.case$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
535 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
536 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
537 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
538
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
539 FUNCTION {format.tr.number}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
540 { type empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
541 { "Technical Report" }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
542 {type}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
543 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
544 number empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
545 { "t" change.case$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
546 { " " number * * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
547 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
548 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
549
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
550 FUNCTION {format.article.crossref} % 2.00(8)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
551 { key empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
552 { journal empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
553 { "need key or journal for " cite$ * " to crossref " * crossref *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
554 warning$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
555 ""
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
556 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
557 { journal emphasize } % 1.00(10)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
558 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
559 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
560 { "In " key * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
561 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
562 " \cite{" * crossref * "}" *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
563 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
564
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
565 FUNCTION {format.crossref.editor} % 1.00(11)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
566 { editor #1 "{vv }{ll}" format.name$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
567 editor num.names$ duplicate$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
568 #2 >
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
569 {pop$ " et al." * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
570 { #2 <
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
571 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
572 { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
573 {" et al." * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
574 {" and " * editor #2 "{vv }{ll}" format.name$ * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
575 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
576 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
577 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
578 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
579 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
580 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
581
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
582 FUNCTION {format.book.crossref} % 2.00(8)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
583 { editor empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
584 editor field.or.null author field.or.null =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
585 or
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
586 { key empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
587 { series empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
588 { "need editor, key, or series for " cite$ * " to crossref " *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
589 crossref * warning$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
590 ""
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
591 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
592 { series emphasize } % 1.00(10)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
593 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
594 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
595 { "In " key * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
596 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
597 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
598 { format.crossref.editor }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
599 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
600 " \cite{" * crossref * "}" *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
601 volume empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
602 { "empty volume in " cite$ * "'s crossref of " * crossref * warning$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
603 { * "Vol." * volume tie.or.space.connect }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
604 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
605 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
606
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
607 FUNCTION {format.incoll.inproc.crossref} % 2.00(8)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
608 { editor empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
609 editor field.or.null author field.or.null =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
610 or
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
611 { key empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
612 { booktitle empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
613 { "need editor, key, or booktitle for " cite$ * " to crossref " *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
614 crossref * warning$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
615 ""
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
616 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
617 { booktitle emphasize } % 1.00(10)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
618 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
619 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
620 { "In " key * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
621 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
622 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
623 { format.crossref.editor }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
624 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
625 " \cite{" * crossref * "}" *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
626 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
627
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
628 FUNCTION {article}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
629 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
630 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
631 author "author" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
632 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
633 journal "journal" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
634 year "year" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
635 %%%% jssst
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
636 volume "volume"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
637 number "number"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
638 required.and.or.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
639 pages "pages" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
640 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
641 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
642 format.authors add.colon % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
643 title output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
644 crossref missing$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
645 { journal emphasize output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
646 format.vol.num.pages output % 1.00(12)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
647 format.date output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
648 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
649 { format.article.crossref output.nonnull
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
650 format.pages.output % 3.00(1)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
651 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
652 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
653 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
654 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
655 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
656 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
657
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
658 FUNCTION {book}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
659 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
660 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
661 author "author"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
662 editor "editor"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
663 required.exclusive.or.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
664 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
665 publisher "publisher" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
666 year "year" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
667 optional.series.volume.number.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
668 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
669 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
670 author empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
671 { format.editors}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
672 { format.authors}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
673 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
674 add.colon % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
675 title emphasize output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
676 crossref missing$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
677 { output.series.volume.number
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
678 publisher output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
679 address output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
680 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
681 { new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
682 format.book.crossref output.nonnull
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
683 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
684 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
685 format.edition output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
686 format.date output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
687 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
688 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
689 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
690 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
691
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
692 FUNCTION {booklet}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
693 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
694 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
695 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
696 %%%% jssst
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
697 author "author" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
698 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
699 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
700 format.authors add.colon % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
701 title output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
702 howpublished output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
703 address output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
704 format.date output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
705 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
706 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
707 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
708 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
709
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
710 FUNCTION {inbook}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
711 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
712 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
713 author "author"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
714 editor "editor"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
715 required.exclusive.or.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
716 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
717 chapter "chapter"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
718 pages "pages"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
719 required.and.or.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
720 publisher "publisher" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
721 year "year" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
722
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
723 optional.series.volume.number.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
724 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
725 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
726 author empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
727 { format.editors}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
728 { format.authors}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
729 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
730 add.colon % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
731 title emphasize output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
732 crossref missing$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
733 { output.series.volume.number
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
734 format.chapter.pages output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
735 publisher output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
736 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
737 { format.chapter.pages output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
738 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
739 format.book.crossref output.nonnull
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
740 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
741 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
742 format.edition output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
743 format.date output % 1.00(13)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
744 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
745 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
746 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
747 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
748
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
749 FUNCTION {incollection}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
750 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
751 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
752 author "author" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
753 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
754 booktitle "booktitle" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
755 publisher "publisher" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
756 year "year" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
757
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
758 optional.series.volume.number.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
759 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
760 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
761 format.authors add.colon % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
762 title output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
763 crossref missing$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
764 { format.in.ed.booktitle output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
765 output.series.volume.number
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
766 publisher output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
767 address output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
768 format.edition output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
769 format.chapter.pages output % 1.00(13)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
770 format.date output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
771 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
772 { format.incoll.inproc.crossref output.nonnull
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
773 format.chapter.pages output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
774 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
775 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
776 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
777 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
778 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
779 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
780
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
781 FUNCTION {inproceedings}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
782 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
783 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
784 author "author" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
785 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
786 year "year" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
787
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
788 optional.series.volume.number.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
789 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
790 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
791 format.authors add.colon % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
792 title output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
793 crossref missing$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
794 { format.in.ed.booktitle output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
795 booktitle "booktitle" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
796 output.series.volume.number
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
797 address output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
798 organization output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
799 publisher output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
800 format.pages.output % 3.00(1)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
801 format.date output % 1.00(13)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
802 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
803 { format.incoll.inproc.crossref output.nonnull
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
804 format.pages.output % 3.00(1)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
805 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
806 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
807 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
808 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
809 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
810 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
811
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
812 FUNCTION {conference} { inproceedings }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
813
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
814 FUNCTION {manual}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
815 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
816 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
817 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
818 %%%% jssst
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
819 author "author"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
820 organization "organazaion"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
821 required.exclusive.or.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
822 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
823 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
824 author empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
825 { organization}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
826 { format.authors}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
827 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
828 add.colon % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
829 title emphasize output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
830 author empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
831 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
832 { organization output }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
833 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
834 address output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
835 format.edition output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
836 format.date output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
837 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
838 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
839 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
840 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
841
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
842 FUNCTION {mastersthesis}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
843 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
844 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
845 author "author" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
846 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
847 school "school" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
848 year "year" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
849 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
850 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
851 format.authors add.colon % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
852 title output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
853 "Master's thesis"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
854 format.thesis.type output.nonnull
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
855 school output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
856 address output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
857 format.date output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
858 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
859 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
860 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
861 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
862
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
863 FUNCTION {misc}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
864 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
865 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
866 %%%% jssst
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
867 author "author" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
868 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
869 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
870 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
871 format.authors add.colon % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
872 title output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
873 howpublished output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
874 format.date output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
875 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
876 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
877 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
878 empty.misc.check
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
879 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
880
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
881 FUNCTION {phdthesis}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
882 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
883 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
884 author "author" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
885 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
886 school "school" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
887 year "year" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
888 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
889 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
890 format.authors add.colon % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
891 title output % 2.00(9)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
892 "PhD Thesis"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
893 format.thesis.type output.nonnull
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
894 school output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
895 address output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
896 format.date output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
897 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
898 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
899 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
900 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
901
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
902 FUNCTION {proceedings}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
903 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
904 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
905 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
906 year "year" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
907
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
908 optional.series.volume.number.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
909 %%%% jssst
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
910 editor "editor"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
911 organization "organization"
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
912 required.exclusive.or.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
913 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
914 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
915 editor empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
916 { organization }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
917 { format.editors }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
918 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
919 add.colon % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
920 title emphasize output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
921 output.series.volume.number
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
922 address output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
923 editor empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
924 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
925 { organization output }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
926 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
927 publisher output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
928 format.date output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
929 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
930 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
931 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
932 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
933
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
934 FUNCTION {techreport}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
935 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
936 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
937 author "author" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
938 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
939 institution "institution" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
940 year "year" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
941 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
942 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
943 format.authors add.colon % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
944 title output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
945 format.tr.number output.nonnull
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
946 institution output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
947 address output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
948 format.date output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
949 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
950 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
951 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
952 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
953
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
954 FUNCTION {unpublished}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
955 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
956 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
957 author "author" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
958 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
959 note "note" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
960 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
961 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
962 format.authors add.colon % 2.00(5)
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
963 title output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
964 format.date output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
965 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
966 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
967 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
968 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
969
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
970 FUNCTION {webpage} % 3.00(1)>>
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
971 {
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
972 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
973 author "author" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
974 title "title" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
975 url "url" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
976 refdate "refdate" required.argument
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
977 %%%%
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
978 output.bibitem
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
979 format.authors add.colon
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
980 title output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
981 organization format.doi.url output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
982 format.ref.date output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
983 new.block
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
984 note output
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
985 fin.entry
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
986 } % 3.00(1)<<
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
987
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
988 FUNCTION {default.type} { misc }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
989
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
990 MACRO {jan} {"January"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
991
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
992 MACRO {feb} {"February"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
993
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
994 MACRO {mar} {"March"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
995
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
996 MACRO {apr} {"April"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
997
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
998 MACRO {may} {"May"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
999
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1000 MACRO {jun} {"June"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1001
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1002 MACRO {jul} {"July"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1003
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1004 MACRO {aug} {"August"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1005
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1006 MACRO {sep} {"September"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1007
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1008 MACRO {oct} {"October"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1009
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1010 MACRO {nov} {"November"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1011
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1012 MACRO {dec} {"December"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1013
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1014 MACRO {acmcs} {"ACM Computing Surveys"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1015
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1016 MACRO {acta} {"Acta Informatica"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1017
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1018 MACRO {cacm} {"Communications of the ACM"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1019
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1020 MACRO {ibmjrd} {"IBM Journal of Research and Development"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1021
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1022 MACRO {ibmsj} {"IBM Systems Journal"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1023
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1024 MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1025
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1026 MACRO {ieeetc} {"IEEE Transactions on Computers"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1027
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1028 MACRO {ieeetcad}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1029 {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1030
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1031 MACRO {ipl} {"Information Processing Letters"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1032
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1033 MACRO {jacm} {"Journal of the ACM"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1034
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1035 MACRO {jcss} {"Journal of Computer and System Sciences"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1036
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1037 MACRO {scp} {"Science of Computer Programming"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1038
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1039 MACRO {sicomp} {"SIAM Journal on Computing"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1040
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1041 MACRO {tocs} {"ACM Transactions on Computer Systems"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1042
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1043 MACRO {tods} {"ACM Transactions on Database Systems"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1044
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1045 MACRO {tog} {"ACM Transactions on Graphics"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1046
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1047 MACRO {toms} {"ACM Transactions on Mathematical Software"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1048
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1049 MACRO {toois} {"ACM Transactions on Office Information Systems"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1050
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1051 MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1052
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1053 MACRO {tcs} {"Theoretical Computer Science"}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1054
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1055 READ
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1056
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1057 FUNCTION {sortify}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1058 { purify$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1059 "l" change.case$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1060 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1061
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1062 INTEGERS { len }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1063
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1064 FUNCTION {chop.word}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1065 { 's :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1066 'len :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1067 s #1 len substring$ =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1068 { s len #1 + global.max$ substring$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1069 's
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1070 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1071 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1072
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1073 FUNCTION {sort.format.names}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1074 { 's :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1075 #1 'nameptr :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1076 ""
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1077 s num.names$ 'numnames :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1078 numnames 'namesleft :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1079 { namesleft #0 > }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1080 { nameptr #1 >
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1081 { " " * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1082 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1083 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1084 s nameptr "{vv{ } }{ll{ }}{ ff{ }}{ jj{ }}" format.name$ 't :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1085 nameptr numnames = t "others" = and
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1086 { "et al" * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1087 { t sortify * }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1088 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1089 nameptr #1 + 'nameptr :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1090 namesleft #1 - 'namesleft :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1091 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1092 while$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1093 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1094
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1095 FUNCTION {sort.format.title}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1096 { 't :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1097 "A " #2
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1098 "An " #3
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1099 "The " #4 t chop.word
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1100 chop.word
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1101 chop.word
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1102 sortify
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1103 #1 global.max$ substring$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1104 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1105
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1106 FUNCTION {author.sort}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1107 { author empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1108 { key empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1109 { "to sort, need author or key in " cite$ * warning$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1110 ""
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1111 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1112 { key sortify }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1113 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1114 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1115 { author sort.format.names }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1116 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1117 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1118
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1119 FUNCTION {author.editor.sort}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1120 { author empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1121 { editor empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1122 { key empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1123 { "to sort, need author, editor, or key in " cite$ * warning$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1124 ""
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1125 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1126 { key sortify }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1127 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1128 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1129 { editor sort.format.names }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1130 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1131 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1132 { author sort.format.names }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1133 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1134 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1135
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1136 FUNCTION {author.organization.sort}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1137 { author empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1138 { organization empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1139 { key empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1140 { "to sort, need author, organization, or key in " cite$ * warning$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1141 ""
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1142 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1143 { key sortify }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1144 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1145 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1146 { "The " #4 organization chop.word sortify }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1147 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1148 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1149 { author sort.format.names }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1150 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1151 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1152
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1153 FUNCTION {editor.organization.sort}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1154 { editor empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1155 { organization empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1156 { key empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1157 { "to sort, need editor, organization, or key in " cite$ * warning$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1158 ""
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1159 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1160 { key sortify }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1161 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1162 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1163 { "The " #4 organization chop.word sortify }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1164 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1165 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1166 { editor sort.format.names }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1167 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1168 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1169
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1170 FUNCTION {presort}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1171 { type$ "book" =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1172 type$ "inbook" =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1173 or
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1174 'author.editor.sort
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1175 { type$ "proceedings" =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1176 'editor.organization.sort
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1177 { type$ "manual" =
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1178 'author.organization.sort
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1179 'author.sort
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1180 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1181 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1182 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1183 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1184 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1185 " "
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1186 *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1187 year field.or.null sortify
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1188 *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1189 " "
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1190 *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1191 title field.or.null
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1192 sort.format.title
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1193 *
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1194 #1 entry.max$ substring$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1195 'sort.key$ :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1196 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1197
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1198 ITERATE {presort}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1199
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1200 SORT
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1201
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1202 STRINGS { longest.label }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1203
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1204 INTEGERS { number.label longest.label.width }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1205
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1206 FUNCTION {initialize.longest.label}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1207 { "" 'longest.label :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1208 #1 'number.label :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1209 #0 'longest.label.width :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1210 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1211
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1212 FUNCTION {longest.label.pass}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1213 { number.label int.to.str$ 'label :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1214 number.label #1 + 'number.label :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1215 label width$ longest.label.width >
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1216 { label 'longest.label :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1217 label width$ 'longest.label.width :=
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1218 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1219 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1220 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1221 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1222
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1223 EXECUTE {initialize.longest.label}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1224
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1225 ITERATE {longest.label.pass}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1226
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1227 FUNCTION {begin.bib}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1228 { preamble$ empty$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1229 'skip$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1230 { preamble$ write$ newline$ }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1231 if$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1232 "\begin{thebibliography}{" longest.label * "}" * write$ newline$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1233 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1234
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1235 EXECUTE {begin.bib}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1236
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1237 EXECUTE {init.state.consts}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1238
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1239 ITERATE {call.type$}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1240
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1241 FUNCTION {end.bib}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1242 { newline$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1243 "\end{thebibliography}" write$ newline$
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1244 }
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1245
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1246 EXECUTE {end.bib}
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1247
844341bbe032 add Paper
ichikitakahiro <e165713@ie.u-ryukyu.ac.jp>
parents:
diff changeset
1248