annotate writeup/mlapa.bst @ 630:f55f1b1499c4

better printing of all other name and the adresse.
author Frederic Bastien <nouiz@nouiz.org>
date Thu, 17 Mar 2011 15:51:43 -0400
parents a11274742088
children
rev   line source
406
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1 % BibTeX `mlapa' bibliography style (20-Jan-2000 version)
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
2 % Adapted from the `theapa' style; for BibTeX version 0.99a.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
3 % Copyright (C) 1988, all rights reserved.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
4 % Copying of this file is allowed, provided that if you make any changes
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
5 % at all you name it something other than `mlapa.bst'.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
6 % This restriction helps ensure that all copies are identical.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
7 % Differences between this style and `alpha' are generally heralded by a `%'.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
8 % The file btxbst.doc has the documentation for alpha.bst.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
9 %
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
10 % This style should be used with the `mlapa' LaTeX style (mlapa.sty).
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
11 % \cite's come out as "(Jones, 1986)" in the text but there are no labels
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
12 % in the bibliography, and something like "(1986)" comes out immediately
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
13 % after the author. Author (and editor) names appear as last name, comma,
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
14 % initials. A `year' field is required for every entry, and so is either
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
15 % an author (or in some cases, an editor) field or a key field.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
16 %
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
17 % History:
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
18 % 15-sep-86 (SK,OP) Original version, by Susan King and Oren Patashnik.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
19 % 10-nov-86 (OP) Truncated the sort.key$ string to the correct length
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
20 % in bib.sort.order to eliminate error message.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
21 % 24-jan-88 (OP) Updated for BibTeX version 0.99a, from alpha.bst 0.99a;
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
22 % apalike now sorts by author, then year, then title;
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
23 % THIS `apalike' VERSION DOES NOT WORK WITH BIBTEX 0.98i.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
24 % 1/25/91 risto fixed the bug in (in)proceedings address field.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
25 % New York: Wiley.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
26 % 1/20/2000 langley revised definitions to approximate APA format more
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
27 % closely, including proper treatment of pages numbers
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
28 % for proceedings, cases for books, and uses of "and"
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
29 % versus "&" in the text.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
30
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
31 ENTRY
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
32 { address
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
33 author
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
34 booktitle
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
35 chapter
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
36 edition
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
37 editor
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
38 howpublished
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
39 institution
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
40 journal
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
41 key
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
42 location
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
43 % month not used in apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
44 note
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
45 number
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
46 organization
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
47 pages
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
48 publisher
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
49 school
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
50 series
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
51 title
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
52 type
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
53 volume
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
54 year
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
55 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
56 {}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
57 { label extra.label sort.label auname }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
58
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
59 INTEGERS { output.state before.all mid.sentence after.sentence after.block }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
60
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
61 FUNCTION {init.state.consts}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
62 { #0 'before.all :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
63 #1 'mid.sentence :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
64 #2 'after.sentence :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
65 #3 'after.block :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
66 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
67
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
68 STRINGS { s t }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
69
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
70 FUNCTION {output.nonnull}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
71 { 's :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
72 output.state mid.sentence =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
73 { ", " * write$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
74 { output.state after.block =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
75 { add.period$ write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
76 newline$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
77 "\newblock " write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
78 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
79 { output.state before.all =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
80 'write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
81 { add.period$ " " * write$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
82 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
83 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
84 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
85 mid.sentence 'output.state :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
86 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
87 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
88 s
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
89 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
90
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
91 FUNCTION {output.nonnull.colon}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
92 { 's :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
93 output.state mid.sentence =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
94 { ": " * write$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
95 { output.state after.block =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
96 { add.period$ write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
97 newline$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
98 "\newblock " write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
99 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
100 { output.state before.all =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
101 'write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
102 { add.period$ " " * write$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
103 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
104 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
105 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
106 mid.sentence 'output.state :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
107 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
108 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
109 s
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
110 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
111
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
112 FUNCTION {output.nonnull.nothing}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
113 { 's :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
114 output.state mid.sentence =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
115 { "" * write$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
116 { output.state after.block =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
117 { add.period$ write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
118 newline$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
119 "\newblock " write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
120 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
121 { output.state before.all =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
122 'write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
123 { add.period$ " " * write$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
124 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
125 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
126 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
127 mid.sentence 'output.state :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
128 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
129 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
130 s
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
131 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
132
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
133 FUNCTION {output}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
134 { duplicate$ empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
135 'pop$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
136 'output.nonnull
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
137 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
138 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
139
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
140 FUNCTION {output.check}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
141 { 't :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
142 duplicate$ empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
143 { pop$ "empty " t * " in " * cite$ * warning$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
144 'output.nonnull
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
145 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
146 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
147
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
148 FUNCTION {output.colon}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
149 { duplicate$ empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
150 'pop$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
151 'output.nonnull.colon
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
152 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
153 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
154
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
155 FUNCTION {output.check.colon}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
156 { 't :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
157 duplicate$ empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
158 { pop$ "empty " t * " in " * cite$ * warning$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
159 'output.nonnull.colon
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
160 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
161 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
162
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
163 % apalike needs this function because
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
164 % the year has special punctuation;
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
165 % apalike ignores the month
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
166 FUNCTION {output.year.check}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
167 { year empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
168 { "empty year in " cite$ * warning$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
169 { write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
170 " (" year * extra.label * ")" *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
171 mid.sentence 'output.state :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
172 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
173 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
174 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
175
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
176 %FUNCTION {output.bibitem}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
177 %{ newline$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
178 % "\bibitem[" write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
179 % label write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
180 % "]{" write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
181 % cite$ write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
182 % "}" write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
183 % newline$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
184 % ""
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
185 % before.all 'output.state :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
186 %}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
187
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
188 FUNCTION {output.bibitem}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
189 { newline$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
190 "\bibitem[" write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
191 label write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
192 "][" write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
193 auname write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
194 "][" write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
195 year write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
196 extra.label write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
197 "]{" write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
198 cite$ write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
199 "}" write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
200 newline$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
201 ""
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
202 before.all 'output.state :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
203 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
204
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
205 FUNCTION {fin.entry}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
206 { add.period$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
207 write$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
208 newline$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
209 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
210
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
211 FUNCTION {new.block}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
212 { output.state before.all =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
213 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
214 { after.block 'output.state := }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
215 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
216 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
217
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
218 FUNCTION {new.sentence}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
219 { output.state after.block =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
220 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
221 { output.state before.all =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
222 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
223 { after.sentence 'output.state := }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
224 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
225 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
226 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
227 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
228
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
229 FUNCTION {not}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
230 { { #0 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
231 { #1 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
232 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
233 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
234
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
235 FUNCTION {and}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
236 { 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
237 { pop$ #0 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
238 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
239 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
240
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
241 FUNCTION {or}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
242 { { pop$ #1 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
243 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
244 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
245 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
246
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
247 FUNCTION {new.block.checkb}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
248 { empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
249 swap$ empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
250 and
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
251 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
252 'new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
253 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
254 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
255
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
256 FUNCTION {field.or.null}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
257 { duplicate$ empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
258 { pop$ "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
259 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
260 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
261 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
262
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
263 FUNCTION {emphasize}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
264 { duplicate$ empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
265 { pop$ "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
266 { "{\em " swap$ * "}" * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
267 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
268 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
269
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
270 INTEGERS { nameptr namesleft numnames }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
271
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
272 FUNCTION {format.names}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
273 { 's :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
274 #1 'nameptr :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
275 s num.names$ 'numnames :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
276 numnames 'namesleft :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
277 { namesleft #0 > }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
278 { s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ 't := % last name first
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
279 nameptr #1 >
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
280 { namesleft #1 >
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
281 { ", " * t * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
282 { numnames #1 >
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
283 { "," * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
284 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
285 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
286 t "others" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
287 { " et~al.\/" * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
288 { " \& " * t * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
289 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
290 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
291 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
292 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
293 't
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
294 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
295 nameptr #1 + 'nameptr :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
296 namesleft #1 - 'namesleft :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
297 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
298 while$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
299 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
300
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
301 % We need a special function to format editor names, since their initials
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
302 % should come before their last name, unlike those for authors.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
303
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
304 FUNCTION {format.in.names}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
305 { 's :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
306 #1 'nameptr :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
307 s num.names$ 'numnames :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
308 numnames 'namesleft :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
309 { namesleft #0 > }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
310 { s nameptr "{vv~}{f.~}{ll}" format.name$ 't := % first name last
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
311 nameptr #1 >
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
312 { namesleft #1 >
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
313 { ", " * t * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
314 { numnames #1 >
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
315 { "" * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
316 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
317 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
318 t "others" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
319 { " et~al.\/" * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
320 { " and " * t * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
321 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
322 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
323 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
324 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
325 't
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
326 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
327 nameptr #1 + 'nameptr :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
328 namesleft #1 - 'namesleft :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
329 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
330 while$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
331 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
332
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
333 FUNCTION {format.authors}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
334 { author empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
335 { "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
336 { author format.names }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
337 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
338 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
339
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
340 FUNCTION {format.key} % this function is just for apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
341 { empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
342 { key field.or.null }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
343 { "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
344 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
345 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
346
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
347 FUNCTION {format.book.editors}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
348 { editor empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
349 { "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
350 { editor format.names
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
351 editor num.names$ #1 >
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
352 { " (Eds.)." * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
353 { " (Ed.)." * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
354 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
355 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
356 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
357 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
358
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
359 FUNCTION {format.in.editors}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
360 { editor empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
361 { "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
362 { editor format.in.names
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
363 editor num.names$ #1 >
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
364 { " (Eds.)" * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
365 { " (Ed.)" * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
366 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
367 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
368 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
369 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
370
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
371 FUNCTION {format.title}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
372 { title empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
373 { "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
374 { title "t" change.case$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
375 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
376 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
377
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
378 FUNCTION {n.dashify}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
379 { 't :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
380 ""
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
381 { t empty$ not }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
382 { t #1 #1 substring$ "-" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
383 { t #1 #2 substring$ "--" = not
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
384 { "--" *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
385 t #2 global.max$ substring$ 't :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
386 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
387 { { t #1 #1 substring$ "-" = }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
388 { "-" *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
389 t #2 global.max$ substring$ 't :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
390 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
391 while$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
392 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
393 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
394 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
395 { t #1 #1 substring$ *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
396 t #2 global.max$ substring$ 't :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
397 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
398 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
399 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
400 while$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
401 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
402
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
403 FUNCTION {format.btitle}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
404 { title "t" change.case$ emphasize
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
405 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
406
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
407 FUNCTION {tie.or.space.connect}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
408 { duplicate$ text.length$ #3 <
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
409 { "~" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
410 { " " }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
411 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
412 swap$ * *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
413 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
414
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
415 FUNCTION {either.or.check}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
416 { empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
417 'pop$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
418 { "can't use both " swap$ * " fields in " * cite$ * warning$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
419 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
420 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
421
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
422 FUNCTION {format.bvolume}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
423 { volume empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
424 { "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
425 { "vol." volume tie.or.space.connect
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
426 series empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
427 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
428 { " of " * series emphasize * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
429 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
430 "volume and number" number either.or.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
431 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
432 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
433 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
434
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
435 FUNCTION {format.number.series}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
436 { volume empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
437 { number empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
438 { series field.or.null }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
439 { output.state mid.sentence =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
440 { "no." }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
441 { "No." }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
442 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
443 number tie.or.space.connect
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
444 series empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
445 { "there's a number but no series in " cite$ * warning$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
446 { " in " * series * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
447 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
448 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
449 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
450 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
451 { "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
452 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
453 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
454
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
455 FUNCTION {format.edition}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
456 { edition empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
457 { "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
458 { output.state mid.sentence =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
459 { edition "l" change.case$ " edition" * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
460 { edition "t" change.case$ " edition" * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
461 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
462 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
463 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
464 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
465
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
466 INTEGERS { multiresult }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
467
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
468 FUNCTION {multi.page.check}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
469 { 't :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
470 #0 'multiresult :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
471 { multiresult not
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
472 t empty$ not
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
473 and
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
474 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
475 { t #1 #1 substring$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
476 duplicate$ "-" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
477 swap$ duplicate$ "," =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
478 swap$ "+" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
479 or or
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
480 { #1 'multiresult := }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
481 { t #2 global.max$ substring$ 't := }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
482 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
483 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
484 while$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
485 multiresult
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
486 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
487
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
488 FUNCTION {format.pages}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
489 { pages empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
490 { "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
491 { pages multi.page.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
492 { "" pages n.dashify tie.or.space.connect }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
493 { "" pages tie.or.space.connect }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
494 % { "pages" pages n.dashify tie.or.space.connect }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
495 % { "page" pages tie.or.space.connect }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
496 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
497 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
498 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
499 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
500
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
501 FUNCTION {format.proc.pages}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
502 { pages empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
503 { "." }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
504 { pages multi.page.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
505 { " (pp.\/" pages n.dashify tie.or.space.connect * ")." }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
506 { " (p.\/" pages n.dashify tie.or.space.connect * ")." }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
507 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
508 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
509 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
510 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
511
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
512 FUNCTION {format.vol.num.pages}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
513 { volume emphasize field.or.null
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
514 number empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
515 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
516 { "(" number * ")" * *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
517 volume empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
518 { "there's a number but no volume in " cite$ * warning$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
519 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
520 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
521 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
522 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
523 pages empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
524 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
525 { duplicate$ empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
526 { pop$ format.pages }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
527 { ", " * pages n.dashify * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
528 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
529 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
530 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
531 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
532
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
533 FUNCTION {format.vol.pages}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
534 { volume emphasize field.or.null
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
535 pages empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
536 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
537 { duplicate$ empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
538 { pop$ format.pages }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
539 { ", " * pages n.dashify * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
540 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
541 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
542 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
543 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
544
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
545 FUNCTION {format.chapter.pages}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
546 { chapter empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
547 'format.pages
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
548 { type empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
549 { "chapter" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
550 { type "l" change.case$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
551 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
552 chapter tie.or.space.connect
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
553 pages empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
554 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
555 { ", " * format.pages * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
556 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
557 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
558 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
559 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
560
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
561 FUNCTION {address.or.location}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
562 { address empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
563 { location empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
564 { "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
565 { location }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
566 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
567 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
568 { address }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
569 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
570 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
571
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
572 FUNCTION {format.in.ed.booktitle}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
573 { booktitle empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
574 { "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
575 { editor empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
576 { "In " booktitle "t" change.case$ emphasize * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
577 { "In " format.in.editors * ", " * booktitle "t" change.case$ emphasize * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
578 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
579 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
580 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
581 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
582
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
583 FUNCTION {format.in.proc.booktitle}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
584 { booktitle empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
585 { "" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
586 { booktitle emphasize }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
587 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
588 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
589
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
590 FUNCTION {format.thesis.type}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
591 { type empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
592 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
593 { pop$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
594 type "t" change.case$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
595 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
596 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
597 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
598
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
599 FUNCTION {format.tr.number}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
600 { type empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
601 { " (Technical Report" }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
602 'type
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
603 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
604 number empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
605 % { "t" change.case$ * ")." }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
606 { * ")." }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
607 { number tie.or.space.connect * ")." }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
608 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
609 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
610
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
611 FUNCTION {format.article.crossref}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
612 { "In" % this is for apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
613 " \cite{" * crossref * "}" *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
614 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
615
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
616 FUNCTION {format.book.crossref}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
617 { volume empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
618 { "empty volume in " cite$ * "'s crossref of " * crossref * warning$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
619 "In "
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
620 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
621 { "Volume" volume tie.or.space.connect
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
622 " of " *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
623 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
624 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
625 "\cite{" * crossref * "}" * % this is for apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
626 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
627
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
628 FUNCTION {format.incoll.inproc.crossref}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
629 { "In" % this is for apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
630 " \cite{" * crossref * "}" *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
631 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
632
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
633 FUNCTION {article}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
634 { output.bibitem
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
635 format.authors "author" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
636 author format.key output % special for
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
637 output.year.check % apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
638 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
639 format.title "title" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
640 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
641 crossref missing$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
642 { journal emphasize "journal" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
643 % format.vol.num.pages output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
644 format.vol.pages output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
645 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
646 { format.article.crossref output.nonnull
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
647 format.pages output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
648 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
649 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
650 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
651 note output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
652 fin.entry
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
653 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
654
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
655 FUNCTION {book}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
656 { output.bibitem
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
657 author empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
658 { format.book.editors "author and editor" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
659 editor format.key output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
660 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
661 { format.authors output.nonnull
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
662 crossref missing$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
663 { "author and editor" editor either.or.check }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
664 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
665 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
666 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
667 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
668 output.year.check % special for apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
669 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
670 format.btitle "title" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
671 crossref missing$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
672 { format.bvolume output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
673 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
674 format.number.series output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
675 new.sentence
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
676 address output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
677 publisher "publisher" output.check.colon
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
678 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
679 { new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
680 format.book.crossref output.nonnull
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
681 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
682 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
683 new.sentence
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
684 format.edition output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
685 note output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
686 fin.entry
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
687 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
688
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
689 FUNCTION {booklet}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
690 { output.bibitem
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
691 format.authors output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
692 author format.key output % special for
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
693 output.year.check % apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
694 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
695 format.title "title" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
696 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
697 howpublished output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
698 address output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
699 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
700 note output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
701 fin.entry
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
702 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
703
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
704 FUNCTION {inbook}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
705 { output.bibitem
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
706 author empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
707 { format.in.editors "author and editor" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
708 editor format.key output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
709 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
710 { format.authors output.nonnull
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
711 crossref missing$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
712 { "author and editor" editor either.or.check }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
713 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
714 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
715 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
716 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
717 output.year.check % special for apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
718 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
719 format.btitle "title" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
720 crossref missing$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
721 { format.bvolume output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
722 format.chapter.pages "chapter and pages" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
723 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
724 format.number.series output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
725 new.sentence
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
726 address output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
727 publisher "publisher" output.check.colon
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
728 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
729 { format.chapter.pages "chapter and pages" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
730 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
731 format.book.crossref output.nonnull
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
732 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
733 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
734 new.sentence
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
735 format.edition output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
736 note output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
737 fin.entry
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
738 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
739
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
740 FUNCTION {incollection}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
741 { output.bibitem
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
742 format.authors "author" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
743 author format.key output % special for
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
744 output.year.check % apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
745 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
746 format.title "title" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
747 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
748 crossref missing$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
749 { format.in.ed.booktitle "booktitle" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
750 format.bvolume output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
751 format.number.series output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
752 format.chapter.pages output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
753 new.sentence
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
754 address output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
755 publisher "publisher" output.check.colon
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
756 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
757 { format.incoll.inproc.crossref output.nonnull
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
758 format.chapter.pages output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
759 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
760 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
761 new.sentence
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
762 format.edition output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
763 note output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
764 fin.entry
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
765 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
766
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
767 FUNCTION {inproceedings}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
768 { output.bibitem
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
769 format.authors "author" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
770 author format.key output % special for
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
771 output.year.check % apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
772 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
773 format.title "title" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
774 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
775 crossref missing$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
776 { format.in.proc.booktitle "booktitle" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
777 % format.bvolume output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
778 % format.number.series output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
779 format.proc.pages output.nonnull.nothing % for apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
780 new.block % there's no year
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
781 % organization output % here so things
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
782 % new.sentence % there's no year
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
783 % address output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
784 address.or.location output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
785 publisher output.colon % are simpler
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
786 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
787 { format.incoll.inproc.crossref output.nonnull
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
788 format.pages output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
789 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
790 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
791 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
792 note output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
793 fin.entry
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
794 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
795
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
796 FUNCTION {conference} { inproceedings }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
797
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
798 FUNCTION {manual}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
799 { output.bibitem
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
800 format.authors output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
801 author format.key output % special for
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
802 output.year.check % apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
803 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
804 format.btitle "title" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
805 organization address new.block.checkb
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
806 organization output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
807 address output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
808 new.sentence
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
809 format.edition output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
810 note output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
811 fin.entry
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
812 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
813
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
814 FUNCTION {mastersthesis}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
815 { output.bibitem
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
816 format.authors "author" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
817 author format.key output % special for
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
818 output.year.check % apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
819 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
820 format.title "title" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
821 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
822 "Master's thesis" format.thesis.type output.nonnull
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
823 school "school" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
824 address output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
825 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
826 note output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
827 fin.entry
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
828 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
829
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
830 FUNCTION {misc}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
831 { output.bibitem
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
832 format.authors output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
833 author format.key output % special for
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
834 output.year.check % apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
835 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
836 format.title output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
837 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
838 howpublished output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
839 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
840 note output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
841 fin.entry
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
842 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
843
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
844 FUNCTION {phdthesis}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
845 { output.bibitem
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
846 format.authors "author" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
847 author format.key output % special for
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
848 output.year.check % apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
849 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
850 format.btitle "title" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
851 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
852 "Doctoral dissertation" format.thesis.type output.nonnull
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
853 school "school" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
854 address output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
855 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
856 note output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
857 fin.entry
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
858 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
859
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
860 FUNCTION {proceedings}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
861 { output.bibitem
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
862 % format.editors output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
863 format.book.editors editor output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
864 editor format.key output % special for
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
865 output.year.check % apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
866 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
867 format.btitle "title" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
868 format.bvolume output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
869 format.number.series output % for apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
870 new.sentence % we always output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
871 organization output % a nonempty organization
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
872 new.sentence % we always output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
873 address output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
874 publisher output.colon % here
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
875 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
876 note output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
877 fin.entry
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
878 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
879
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
880 FUNCTION {techreport}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
881 { output.bibitem
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
882 author empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
883 { format.book.editors "author and editor" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
884 editor format.key output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
885 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
886 { format.authors "author" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
887 author format.key output % special for
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
888 } % apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
889 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
890 output.year.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
891 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
892 format.btitle "title" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
893 format.tr.number output.nonnull.nothing
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
894 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
895 institution "institution" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
896 address output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
897 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
898 note output
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
899 fin.entry
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
900 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
901
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
902 FUNCTION {unpublished}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
903 { output.bibitem
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
904 format.authors "author" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
905 author format.key output % special for
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
906 output.year.check % apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
907 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
908 format.title "title" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
909 new.block
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
910 note "note" output.check
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
911 fin.entry
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
912 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
913
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
914 FUNCTION {default.type} { misc }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
915
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
916 MACRO {jan} {"January"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
917
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
918 MACRO {feb} {"February"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
919
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
920 MACRO {mar} {"March"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
921
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
922 MACRO {apr} {"April"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
923
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
924 MACRO {may} {"May"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
925
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
926 MACRO {jun} {"June"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
927
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
928 MACRO {jul} {"July"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
929
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
930 MACRO {aug} {"August"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
931
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
932 MACRO {sep} {"September"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
933
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
934 MACRO {oct} {"October"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
935
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
936 MACRO {nov} {"November"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
937
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
938 MACRO {dec} {"December"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
939
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
940 MACRO {mlj} {"Machine Learning"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
941
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
942 MACRO {jair} {"Journal of Artificial Intelligence Research"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
943
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
944 MACRO {aij} {"Artificial Intelligence"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
945
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
946 MACRO {acmcs} {"ACM Computing Surveys"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
947
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
948 MACRO {acta} {"Acta Informatica"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
949
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
950 MACRO {cacm} {"Communications of the ACM"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
951
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
952 MACRO {ibmjrd} {"IBM Journal of Research and Development"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
953
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
954 MACRO {ibmsj} {"IBM Systems Journal"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
955
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
956 MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
957
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
958 MACRO {ieeetc} {"IEEE Transactions on Computers"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
959
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
960 MACRO {ieeetcad}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
961 {"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
962
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
963 MACRO {ipl} {"Information Processing Letters"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
964
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
965 MACRO {jacm} {"Journal of the ACM"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
966
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
967 MACRO {jcss} {"Journal of Computer and System Sciences"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
968
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
969 MACRO {scp} {"Science of Computer Programming"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
970
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
971 MACRO {sicomp} {"SIAM Journal on Computing"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
972
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
973 MACRO {tocs} {"ACM Transactions on Computer Systems"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
974
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
975 MACRO {tods} {"ACM Transactions on Database Systems"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
976
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
977 MACRO {tog} {"ACM Transactions on Graphics"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
978
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
979 MACRO {toms} {"ACM Transactions on Mathematical Software"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
980
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
981 MACRO {toois} {"ACM Transactions on Office Information Systems"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
982
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
983 MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
984
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
985 MACRO {tcs} {"Theoretical Computer Science"}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
986
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
987 READ
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
988
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
989 FUNCTION {sortify}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
990 { purify$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
991 "l" change.case$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
992 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
993
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
994 INTEGERS { len }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
995
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
996 FUNCTION {chop.word}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
997 { 's :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
998 'len :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
999 s #1 len substring$ =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1000 { s len #1 + global.max$ substring$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1001 's
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1002 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1003 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1004
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1005 % There are three apalike cases: one person (Jones),
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1006 % two (Jones and de~Bruijn), and more (Jones et~al.).
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1007 % This function is much like format.crossref.editors.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1008 %
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1009 FUNCTION {format.lab.in.names}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1010 { 's :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1011 s #1 "{vv~}{ll}" format.name$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1012 s num.names$ duplicate$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1013 #2 >
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1014 { pop$ " et~al.\/" * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1015 { #2 <
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1016 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1017 { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1018 { " et~al.\/" * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1019 { " \& " * s #2 "{vv~}{ll}" format.name$ * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1020 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1021 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1022 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1023 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1024 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1025 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1026
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1027 FUNCTION {author.key.in.label}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1028 { author empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1029 { key empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1030 { cite$ #1 #3 substring$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1031 'key % apalike uses the whole key
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1032 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1033 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1034 { author format.lab.in.names }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1035 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1036 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1037
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1038 FUNCTION {author.editor.key.in.label}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1039 { author empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1040 { editor empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1041 { key empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1042 { cite$ #1 #3 substring$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1043 'key % apalike uses the whole key
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1044 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1045 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1046 { editor format.lab.in.names }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1047 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1048 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1049 { author format.lab.in.names }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1050 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1051 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1052
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1053 FUNCTION {editor.key.in.label}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1054 { editor empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1055 { key empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1056 { cite$ #1 #3 substring$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1057 'key % apalike uses the whole key, no organization
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1058 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1059 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1060 { editor format.lab.in.names }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1061 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1062 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1063
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1064 FUNCTION {format.lab.names}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1065 { 's :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1066 s #1 "{vv~}{ll}" format.name$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1067 s num.names$ duplicate$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1068 #2 >
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1069 { pop$ " et~al.\/" * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1070 { #2 <
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1071 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1072 { s #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1073 { " et~al.\/" * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1074 { " and " * s #2 "{vv~}{ll}" format.name$ * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1075 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1076 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1077 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1078 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1079 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1080 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1081
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1082 FUNCTION {author.key.label}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1083 { author empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1084 { key empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1085 { cite$ #1 #3 substring$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1086 'key % apalike uses the whole key
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1087 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1088 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1089 { author format.lab.names }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1090 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1091 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1092
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1093 FUNCTION {author.editor.key.label}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1094 { author empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1095 { editor empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1096 { key empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1097 { cite$ #1 #3 substring$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1098 'key % apalike uses the whole key
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1099 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1100 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1101 { editor format.lab.names }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1102 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1103 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1104 { author format.lab.names }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1105 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1106 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1107
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1108 FUNCTION {editor.key.label}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1109 { editor empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1110 { key empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1111 { cite$ #1 #3 substring$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1112 'key % apalike uses the whole key, no organization
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1113 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1114 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1115 { editor format.lab.names }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1116 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1117 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1118
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1119 FUNCTION {calc.label}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1120 { type$ "book" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1121 type$ "inbook" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1122 or
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1123 'author.editor.key.in.label
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1124 { type$ "proceedings" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1125 'editor.key.in.label % apalike ignores organization
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1126 'author.key.in.label % for labeling and sorting
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1127 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1128 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1129 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1130 ", " % these three lines are
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1131 % " " % these three lines are
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1132 * % for apalike, which
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1133 year field.or.null purify$ %#-1 #4 substring$ % uses all four digits
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1134 *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1135 'label :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1136 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1137
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1138 FUNCTION {calc.auname}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1139 { type$ "book" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1140 type$ "inbook" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1141 or
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1142 'author.editor.key.label
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1143 { type$ "proceedings" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1144 'editor.key.label % apalike ignores organization
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1145 'author.key.label % for labeling and sorting
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1146 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1147 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1148 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1149 'auname :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1150 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1151
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1152 FUNCTION {sort.format.names}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1153 { 's :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1154 #1 'nameptr :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1155 ""
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1156 s num.names$ 'numnames :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1157 numnames 'namesleft :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1158 { namesleft #0 > }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1159 { nameptr #1 >
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1160 { " " * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1161 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1162 if$ % apalike uses initials
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1163 s nameptr "{vv{ } }{ll{ }}{ f{ }}{ jj{ }}" format.name$ 't := % <= here
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1164 nameptr numnames = t "others" = and
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1165 { "et al" * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1166 { t sortify * }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1167 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1168 nameptr #1 + 'nameptr :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1169 namesleft #1 - 'namesleft :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1170 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1171 while$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1172 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1173
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1174 FUNCTION {sort.format.title}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1175 { 't :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1176 "A " #2
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1177 "An " #3
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1178 "The " #4 t chop.word
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1179 chop.word
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1180 chop.word
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1181 sortify
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1182 #1 global.max$ substring$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1183 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1184
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1185 FUNCTION {author.sort}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1186 { author empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1187 { key empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1188 { "to sort, need author or key in " cite$ * warning$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1189 ""
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1190 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1191 { key sortify }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1192 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1193 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1194 { author sort.format.names }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1195 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1196 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1197
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1198 FUNCTION {author.editor.sort}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1199 { author empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1200 { editor empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1201 { key empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1202 { "to sort, need author, editor, or key in " cite$ * warning$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1203 ""
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1204 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1205 { key sortify }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1206 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1207 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1208 { editor sort.format.names }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1209 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1210 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1211 { author sort.format.names }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1212 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1213 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1214
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1215 FUNCTION {editor.sort}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1216 { editor empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1217 { key empty$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1218 { "to sort, need editor or key in " cite$ * warning$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1219 ""
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1220 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1221 { key sortify }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1222 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1223 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1224 { editor sort.format.names }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1225 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1226 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1227
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1228 % apalike uses two sorting passes; the first one sets the
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1229 % labels so that the `a's, `b's, etc. can be computed;
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1230 % the second pass puts the references in "correct" order.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1231 % The presort function is for the first pass. It computes
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1232 % label, sort.label, and title, and then concatenates.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1233 FUNCTION {presort}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1234 { calc.label
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1235 calc.auname
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1236 label sortify
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1237 " "
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1238 *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1239 type$ "book" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1240 type$ "inbook" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1241 or
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1242 'author.editor.sort
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1243 { type$ "proceedings" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1244 'editor.sort
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1245 'author.sort
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1246 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1247 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1248 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1249 #1 entry.max$ substring$ % for
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1250 'sort.label := % apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1251 sort.label % style
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1252 *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1253 " "
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1254 *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1255 title field.or.null
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1256 sort.format.title
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1257 *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1258 #1 entry.max$ substring$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1259 'sort.key$ :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1260 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1261
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1262 ITERATE {presort}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1263
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1264 SORT % by label, sort.label, title---for final label calculation
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1265
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1266 STRINGS { last.label next.extra } % apalike labels are only for the text;
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1267
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1268 INTEGERS { last.extra.num } % there are none in the bibliography
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1269
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1270 FUNCTION {initialize.extra.label.stuff} % and hence there is no `longest.label'
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1271 { #0 int.to.chr$ 'last.label :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1272 "" 'next.extra :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1273 #0 'last.extra.num :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1274 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1275
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1276 FUNCTION {forward.pass}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1277 { last.label label =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1278 { last.extra.num #1 + 'last.extra.num :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1279 last.extra.num int.to.chr$ 'extra.label :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1280 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1281 { "a" chr.to.int$ 'last.extra.num :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1282 "" 'extra.label :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1283 label 'last.label :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1284 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1285 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1286 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1287
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1288 FUNCTION {reverse.pass}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1289 { next.extra "b" =
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1290 { "a" 'extra.label := }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1291 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1292 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1293 label extra.label * 'label :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1294 extra.label 'next.extra :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1295 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1296
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1297 EXECUTE {initialize.extra.label.stuff}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1298
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1299 ITERATE {forward.pass}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1300
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1301 REVERSE {reverse.pass}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1302
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1303 % Now that the label is right we sort for real,
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1304 % on sort.label then year then title. This is
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1305 % for the second sorting pass.
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1306 FUNCTION {bib.sort.order}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1307 { sort.label
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1308 " "
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1309 *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1310 year field.or.null sortify
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1311 *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1312 " "
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1313 *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1314 title field.or.null
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1315 sort.format.title
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1316 *
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1317 #1 entry.max$ substring$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1318 'sort.key$ :=
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1319 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1320
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1321 ITERATE {bib.sort.order}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1322
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1323 SORT % by sort.label, year, title---giving final bibliography order
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1324
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1325 FUNCTION {begin.bib}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1326 { preamble$ empty$ % no \etalchar in apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1327 'skip$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1328 { preamble$ write$ newline$ }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1329 if$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1330 "\begin{thebibliography}{}" write$ newline$ % no labels in apalike
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1331 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1332
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1333 EXECUTE {begin.bib}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1334
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1335 EXECUTE {init.state.consts}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1336
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1337 ITERATE {call.type$}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1338
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1339 FUNCTION {end.bib}
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1340 { newline$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1341 "\end{thebibliography}" write$ newline$
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1342 }
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1343
a11274742088 Add bibliography style files.
Arnaud Bergeron <abergeron@gmail.com>
parents:
diff changeset
1344 EXECUTE {end.bib}