annotate Paper/ipsjsort-e.bst @ 47:c830cadfaeec default tip

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