ift6266: writeup/mlapa.bst annotate

annotate writeup/mlapa.bst @ 430:5777b5041ac9

fixed error computation for 36 classes

author	Dumitru Erhan <dumitru.erhan@gmail.com>
date	Sun, 02 May 2010 22:26:19 -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}

Mercurial > ift6266

annotate writeup/mlapa.bst @ 430:5777b5041ac9