summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/doc/bibtex/base/btxbst.doc
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/doc/bibtex/base/btxbst.doc')
-rw-r--r--Master/texmf-dist/doc/bibtex/base/btxbst.doc1314
1 files changed, 658 insertions, 656 deletions
diff --git a/Master/texmf-dist/doc/bibtex/base/btxbst.doc b/Master/texmf-dist/doc/bibtex/base/btxbst.doc
index 37d38bd9f1e..8cb9709de08 100644
--- a/Master/texmf-dist/doc/bibtex/base/btxbst.doc
+++ b/Master/texmf-dist/doc/bibtex/base/btxbst.doc
@@ -1,23 +1,23 @@
% BibTeX `plain' family
- % version 0.99b for BibTeX versions 0.99a or later, LaTeX version 2.09.
- % Copyright (C) 1985, all rights reserved.
- % Copying of this file is authorized only if either
- % (1) you make absolutely no changes to your copy, including name, or
- % (2) if you do make changes, you name it something other than
- % btxbst.doc, plain.bst, unsrt.bst, alpha.bst, and abbrv.bst.
- % This restriction helps ensure that all standard styles are identical.
- % The file btxbst.doc has the documentation for this style.
-% Please notify Oren Patashnik (PATASHNIK@SCORE.STANFORD.EDU) of any bugs in
+ % Version 0.99b (8-Dec-10 release) for BibTeX versions 0.99a or later.
+ % Copyright (C) 1984, 1985, 1988, 2010 Howard Trickey and Oren Patashnik.
+ % Unlimited copying and redistribution of this file are permitted as long as
+ % it is unmodified. Modifications (and redistribution of modified versions)
+ % are also permitted, but only if the resulting file is renamed to something
+ % besides btxbst.doc, plain.bst, unsrt.bst, alpha.bst, and abbrv.bst.
+ % This restriction helps ensure that all standard styles are identical.
+ % The file btxbst.doc has the documentation for this style.
+% Please notify biblio@tug.org of any bugs in
% these standard styles or in this documentation file.
%
-% This is file btxbxt.doc; it helps document bibliography styles,
+% This is file btxbst.doc; it helps document bibliography styles,
% and is also a template file that you can use to make
% several different style files, if you have access to a C preprocessor.
% For example, the standard styles were made by doing something like
-% cpp -P -DPLAIN btxbst.doc plain.txt
-% cpp -P -DUNSRT btxbst.doc unsrt.txt
-% cpp -P -DALPHA btxbst.doc alpha.txt
-% cpp -P -DABBRV btxbst.doc abbrv.txt
+% cpp -P -DPLAIN btxbst.doc plain.txt
+% cpp -P -DUNSRT btxbst.doc unsrt.txt
+% cpp -P -DALPHA btxbst.doc alpha.txt
+% cpp -P -DABBRV btxbst.doc abbrv.txt
% and then renaming after removing unwanted comments and blank lines.
% If you don't have access,
% you can edit this file by hand to imitate the preprocessor,
@@ -25,16 +25,16 @@
%
% The output of the preprocessor is the same as the input, except that certain
% lines will be excluded (and some blank lines will be added). The sequence
-% #if VAR
-% lines to be included when VAR is not zero
-% #else
-% lines to be included when VAR is zero
-% #endif
+% #if VAR
+% lines to be included when VAR is not zero
+% #else
+% lines to be included when VAR is zero
+% #endif
% (with the #-signs appearing in column 1) means that one set or the other of
% the lines are to be included depending on the value of VAR.
% The #else part is optional. Comments can be added after #else and #endif.
% Variables can be set by
-% #define VAR value
+% #define VAR value
% and one can also use #ifdef VAR to see if VAR has any value, and #ifndef
% to see if it has none.
% Another #if form used in this file is #if !VAR, which includes the lines
@@ -49,28 +49,28 @@
% various lines that are chosen from the rest of the file.
% Each boolean variable should be set true (1) or false (0) in each style.
% Here are the current variables, and their meanings:
-% LAB_ALPH: an alphabetic label is used (if false then a numeric
-% label is used)
-% SORTED: the entries should be sorted by label (if nonnumeric)
-% and other info, like authors (if false, then
-% entries remain in order of occurrence)
-% NAME_FULL: the authors, editors, etc., get the full names as
-% given in the bibliography file (if false, the first
-% names become initials)
-% ATIT_LOWER: titles of non-"books" (e.g., articles) should be
-% converted to lower-case, except the first letter or
-% first letter after a colon
-% (if false then they appear as in the database)
-% MONTH_FULL: months are spelled out in full (if false, then
-% they're abbreviated)
-% JOUR_FULL: macro journal names are spelled out in full
-% (if false then they are abbreviated, currently
-% as they appear in ACM publications)
+% LAB_ALPH: an alphabetic label is used (if false then a numeric
+% label is used)
+% SORTED: the entries should be sorted by label (if nonnumeric)
+% and other info, like authors (if false, then
+% entries remain in order of occurrence)
+% NAME_FULL: the authors, editors, etc., get the full names as
+% given in the bibliography file (if false, the first
+% names become initials)
+% ATIT_LOWER: titles of non-"books" (e.g., articles) should be
+% converted to lower-case, except the first letter or
+% first letter after a colon
+% (if false then they appear as in the database)
+% MONTH_FULL: months are spelled out in full (if false, then
+% they're abbreviated)
+% JOUR_FULL: macro journal names are spelled out in full
+% (if false then they are abbreviated, currently
+% as they appear in ACM publications)
#ifndef UNSRT
# ifndef ALPHA
-# ifndef ABBRV
-# define PLAIN 1
-# endif
+# ifndef ABBRV
+# define PLAIN 1
+# endif
# endif
#endif
#ifdef PLAIN
@@ -111,76 +111,78 @@
#endif
%
% Entry formatting: Similar to that recommended by Mary-Claire van Leunen
-% in "A Handbook for Scholars". Book-like titles are italicized
-% (emphasized) and non-book titles are converted to sentence
-% capitilization (and not enclosed in quotes).
-% This file outputs a \newblock between major blocks of an entry
-% (the name \newblock is analogous to the names \newline and \newpage)
-% so that the user can obtain an "open" format, which has a line break
-% before each block and lines after the first are indented within blocks,
-% by giving the optional \documentstyle argument `openbib';
-% The default is the "closed" format---blocks runs together.
+% in "A Handbook for Scholars". Book-like titles are italicized
+% (emphasized) and non-book titles are converted to sentence
+% capitilization (and not enclosed in quotes).
+% This file outputs a \newblock between major blocks of an entry
+% (the name \newblock is analogous to the names \newline and \newpage)
+% so that the user can obtain an "open" format, which has a line break
+% before each block and lines after the first are indented within blocks,
+% by giving the optional \documentstyle argument `openbib';
+% The default is the "closed" format---blocks runs together.
%
% Citation alphabetic label format:
-% [Knu73] for single author (or editor or key)
-% [AHU83] (first letters of last names) for multiple authors
+% [Knu73] for single author (or editor or key)
+% [AHU83] (first letters of last names) for multiple authors
%
% Citation label numberic format:
-% [number]
+% [number]
%
% Reference list ordering for sorted, alphabetic lables:
-% alphabetical by citation label, then by author(s) or whatever
-% passes for author in the absence of one, then by year,
-% then title
+% alphabetical by citation label, then by author(s) or whatever
+% passes for author in the absence of one, then by year,
+% then title
%
% Reference list ordering for sorted, numeric lables:
-% alphabetical by author(s) or whatever passes
-% for author in the absence of one, then by year, then title
+% alphabetical by author(s) or whatever passes
+% for author in the absence of one, then by year, then title
%
% Reference list ordering for unsorted:
-% by the order cited in the text
+% by the order cited in the text
%
% History
-% 12/16/84 (HWT) Original `plain' version, by Howard Trickey.
-% 12/23/84 (LL) Some comments made by Leslie Lamport.
-% 2/16/85 (OP) Changes based on LL's comments, Oren Patashnik.
-% 2/17/85 (HWT) Template file and other standard styles made.
-% 3/28/85 (OP) First release, version 0.98b for BibTeX 0.98f.
-% 5/ 9/85 (OP) Version 0.98c for BibTeX 0.98i:
-% fixed Theoretical Computer Science macro name;
-% fixed the format.vol.num.pages function.
-% 1/24/88 (OP) Version 0.99a for BibTeX 0.99a, main changes:
-% assignment operator (:=) arguments reversed;
-% the preamble$ function outputs the database PREAMBLE;
-% entry.max$ and global.max$ (built-in) variables replace
-% entry.string.max and global.string.max functions;
-% alphabetizing by year then title, not just title;
-% many unnecessary ties removed; \it ==> \em;
-% the `alpha' style uses a superscripted `+' instead of a
-% `*' for unnamed names in constructing the label;
-% the `abbrv' style now uses "Mar." and "Sept.";
-% the functions calc.label and presort now look at just
-% the fields they're supposed to;
-% BOOKLET, MASTERSTHESIS, TECHREPORT use nonbook titles;
-% INBOOK and INCOLLECTION take an optional type (e.g.
-% type = "Section"), overriding the default "chapter";
-% BOOK, INBOOK, INCOLLECTION, and PROCEEDINGS now allow
-% either volume or number, not just volume;
-% INCOLLECTION now allows an edition and series field;
-% PROCEEDINGS and INPROCEEDINGS now use the address field
-% to tell where a conference was held;
-% INPROCEEDINGS and PROCEEDINGS now allow either volume
-% or number, and also a series field;
-% MASTERSTHESIS and PHDTHESIS accept types other than
-% "Master's thesis" and "PhD thesis";
-% UNPUBLISHED now outputs, in one block, note then date;
-% MANUAL now prints out the organization in
-% the first block if the author field is empty;
-% MISC can't be empty---it requires some optional field.
-% 3/23/88 (OP) Version 0.99b for BibTeX 0.99c---changed the three
-% erroneous occurrences of `cite ' to `cite$ '; this
-% change didn't affect the four standard styles, so the
-% 0.99a versions of those styles are still current.
+% 12/16/84 (HWT) Original `plain' version, by Howard Trickey.
+% 12/23/84 (LL) Some comments made by Leslie Lamport.
+% 2/16/85 (OP) Changes based on LL's comments, Oren Patashnik.
+% 2/17/85 (HWT) Template file and other standard styles made.
+% 3/28/85 (OP) First release, version 0.98b for BibTeX 0.98f.
+% 5/ 9/85 (OP) Version 0.98c for BibTeX 0.98i:
+% fixed Theoretical Computer Science macro name;
+% fixed the format.vol.num.pages function.
+% 1/24/88 (OP) Version 0.99a for BibTeX 0.99a, main changes:
+% assignment operator (:=) arguments reversed;
+% the preamble$ function outputs the database PREAMBLE;
+% entry.max$ and global.max$ (built-in) variables replace
+% entry.string.max and global.string.max functions;
+% alphabetizing by year then title, not just title;
+% many unnecessary ties removed; \it ==> \em;
+% the `alpha' style uses a superscripted `+' instead of a
+% `*' for unnamed names in constructing the label;
+% the `abbrv' style now uses "Mar." and "Sept.";
+% the functions calc.label and presort now look at just
+% the fields they're supposed to;
+% BOOKLET, MASTERSTHESIS, TECHREPORT use nonbook titles;
+% INBOOK and INCOLLECTION take an optional type (e.g.
+% type = "Section"), overriding the default "chapter";
+% BOOK, INBOOK, INCOLLECTION, and PROCEEDINGS now allow
+% either volume or number, not just volume;
+% INCOLLECTION now allows an edition and series field;
+% PROCEEDINGS and INPROCEEDINGS now use the address field
+% to tell where a conference was held;
+% INPROCEEDINGS and PROCEEDINGS now allow either volume
+% or number, and also a series field;
+% MASTERSTHESIS and PHDTHESIS accept types other than
+% "Master's thesis" and "PhD thesis";
+% UNPUBLISHED now outputs, in one block, note then date;
+% MANUAL now prints out the organization in
+% the first block if the author field is empty;
+% MISC can't be empty---it requires some optional field.
+% 3/23/88 (OP) Version 0.99b for BibTeX 0.99c---changed the three
+% erroneous occurrences of `cite ' to `cite$ '; this
+% change didn't affect the four standard styles, so the
+% 0.99a versions of those styles are still current.
+% 12/ 8/10 (OP) Still version 0.99b, as the code itself was unchanged;
+% this release clarified the license.
%
% The ENTRY declaration
% Like Scribe's (according to pages 231-2 of the April '84 edition),
@@ -192,69 +194,69 @@
ENTRY
% Fields:
{ address
-% Usually the address of a publisher or other type of organization.
-% Put information in this field only if it helps the reader find the
-% thing---for example you should omit the address of a major
-% publisher entirely. For a PROCEEDINGS or an INPROCEEDINGS,
-% however, it's the address of the conference; for those two entry
-% types, include the publisher's or organization's address, if
-% necessary, in the publisher or organization field.
+% Usually the address of a publisher or other type of organization.
+% Put information in this field only if it helps the reader find the
+% thing---for example you should omit the address of a major
+% publisher entirely. For a PROCEEDINGS or an INPROCEEDINGS,
+% however, it's the address of the conference; for those two entry
+% types, include the publisher's or organization's address, if
+% necessary, in the publisher or organization field.
% annote
-% Long annotation---for annotated bibliographies (begins sentence).
+% Long annotation---for annotated bibliographies (begins sentence).
author
-% Name(s) of author(s), in BibTeX name format.
+% Name(s) of author(s), in BibTeX name format.
booktitle
-% Book title when the thing being referenced isn't the whole book.
-% For book entries, the title field should be used instead.
+% Book title when the thing being referenced isn't the whole book.
+% For book entries, the title field should be used instead.
chapter
-% Chapter (or section or whatever) number.
+% Chapter (or section or whatever) number.
edition
-% Edition of a book---should be an ordinal (e.g., "Second").
+% Edition of a book---should be an ordinal (e.g., "Second").
editor
-% Name(s) of editor(s), in BibTeX name format.
-% If there is also an author field, then the editor field should be
-% for the book or collection that the work appears in.
+% Name(s) of editor(s), in BibTeX name format.
+% If there is also an author field, then the editor field should be
+% for the book or collection that the work appears in.
howpublished
-% How something strange has been published (begins sentence).
+% How something strange has been published (begins sentence).
institution
-% Sponsoring institution of a technical report.
+% Sponsoring institution of a technical report.
journal
-% Journal name (macros are provided for many).
+% Journal name (macros are provided for many).
key
-% Alphabetizing, labeling, and cross-referencing key
-% (needed when an entry has no author or editor).
+% Alphabetizing, labeling, and cross-referencing key
+% (needed when an entry has no author or editor).
month
-% Month (macros are provided).
+% Month (macros are provided).
note
-% To help the reader find a reference (begins sentence).
+% To help the reader find a reference (begins sentence).
number
-% Number of a journal or technical report, or of a work in a series.
+% Number of a journal or technical report, or of a work in a series.
organization
-% Organization sponsoring a conference (or publishing a manual); if
-% the editor (or author) is empty, and if the organization produces
-% an awkward label or cross reference, you should put appropriately
-% condensed organization information in the key field as well.
+% Organization sponsoring a conference (or publishing a manual); if
+% the editor (or author) is empty, and if the organization produces
+% an awkward label or cross reference, you should put appropriately
+% condensed organization information in the key field as well.
pages
-% Page number or numbers (use `--' to separate a range, use `+'
-% to indicate pages following that don't form a simple range).
+% Page number or numbers (use `--' to separate a range, use `+'
+% to indicate pages following that don't form a simple range).
publisher
-% Publisher name.
+% Publisher name.
school
-% School name (for theses).
+% School name (for theses).
series
-% The name of a series or set of books.
-% An individual book will will also have it's own title.
+% The name of a series or set of books.
+% An individual book will will also have it's own title.
title
-% The title of the thing you're referred to.
+% The title of the thing you're referred to.
type
-% Type of a Techreport (e.g., "Research Note") to be used instead of
-% the default "Technical Report"; or, similarly, the type of a
-% thesis; or of a part of a book.
+% Type of a Techreport (e.g., "Research Note") to be used instead of
+% the default "Technical Report"; or, similarly, the type of a
+% thesis; or of a part of a book.
volume
-% The volume number of a journal or multivolume work.
+% The volume number of a journal or multivolume work.
year
-% The year should contain only numerals (technically, it should end
-% with four numerals, after purification; doesn't a begin sentence).
+% The year should contain only numerals (technically, it should end
+% with four numerals, after purification; doesn't a begin sentence).
}
% There are no integer entry variables
{}
@@ -301,15 +303,15 @@ ENTRY
%
% To tell which separator is needed, we maintain an output.state.
% It will be one of these values:
-% before.all just after the \bibitem
-% mid.sentence in the middle of a sentence: comma needed
-% if more sentence is output
-% after.sentence just after a sentence: period needed
-% after.block just after a block (and sentence):
-% period and \newblock needed.
+% before.all just after the \bibitem
+% mid.sentence in the middle of a sentence: comma needed
+% if more sentence is output
+% after.sentence just after a sentence: period needed
+% after.block just after a block (and sentence):
+% period and \newblock needed.
% Note: These styles don't use after.sentence
%
-% VAR: output.state : INTEGER -- state variable for output
+% VAR: output.state : INTEGER -- state variable for output
%
% The output.nonnull function saves its argument (assumed to be nonnull)
% on the stack, and writes the old saved value followed by any needed
@@ -318,25 +320,25 @@ ENTRY
%
% output.nonnull(s) ==
% BEGIN
-% s := argument on stack
-% if output.state = mid.sentence then
-% write$(pop() * ", ")
-% -- "pop" isn't a function: just use stack top
-% else
-% if output.state = after.block then
-% write$(add.period$(pop()))
-% newline$
-% write$("\newblock ")
-% else
-% if output.state = before.all then
-% write$(pop())
-% else -- output.state should be after.sentence
-% write$(add.period$(pop()) * " ")
-% fi
-% fi
-% output.state := mid.sentence
-% fi
-% push s on stack
+% s := argument on stack
+% if output.state = mid.sentence then
+% write$(pop() * ", ")
+% -- "pop" isn't a function: just use stack top
+% else
+% if output.state = after.block then
+% write$(add.period$(pop()))
+% newline$
+% write$("\newblock ")
+% else
+% if output.state = before.all then
+% write$(pop())
+% else -- output.state should be after.sentence
+% write$(add.period$(pop()) * " ")
+% fi
+% fi
+% output.state := mid.sentence
+% fi
+% push s on stack
% END
%
% The output function calls output.nonnull if its argument is non-empty;
@@ -344,8 +346,8 @@ ENTRY
%
% output(s) ==
% BEGIN
-% if not empty$(s) then output.nonnull(s)
-% fi
+% if not empty$(s) then output.nonnull(s)
+% fi
% END
%
% The output.check function is the same as the output function except that, if
@@ -356,10 +358,10 @@ ENTRY
%
% output.check(s,t) ==
% BEGIN
-% if empty$(s) then
-% warning$("empty " * t * " in " * cite$)
-% else output.nonnull(s)
-% fi
+% if empty$(s) then
+% warning$("empty " * t * " in " * cite$)
+% else output.nonnull(s)
+% fi
% END
%
% The output.bibitem function writes the \bibitem for the current entry
@@ -369,15 +371,15 @@ ENTRY
%
% output.bibitem ==
% BEGIN
-% newline$
-% write$("\bibitem[") % for alphabetic labels,
-% write$(label) % these three lines
-% write$("]{") % are used
-% write$("\bibitem{") % this line for numeric labels
-% write$(cite$)
-% write$("}")
-% push "" on stack
-% output.state := before.all
+% newline$
+% write$("\bibitem[") % for alphabetic labels,
+% write$(label) % these three lines
+% write$("]{") % are used
+% write$("\bibitem{") % this line for numeric labels
+% write$(cite$)
+% write$("}")
+% push "" on stack
+% output.state := before.all
% END
%
% The fin.entry function finishes off an entry by adding a period to the
@@ -388,8 +390,8 @@ ENTRY
%
% fin.entry ==
% BEGIN
-% write$(add.period$(pop()))
-% newline$
+% write$(add.period$(pop()))
+% newline$
% END
%
% The new.block function prepares for a new block to be output, and
@@ -397,18 +399,18 @@ ENTRY
%
% new.block ==
% BEGIN
-% if output.state <> before.all then
-% output.state := after.block
-% fi
+% if output.state <> before.all then
+% output.state := after.block
+% fi
% END
%
% new.sentence ==
% BEGIN
-% if output.state <> after.block then
-% if output.state <> before.all then
-% output.state := after.sentence
-% fi
-% fi
+% if output.state <> after.block then
+% if output.state <> before.all then
+% output.state := after.sentence
+% fi
+% fi
% END
%
@@ -430,15 +432,15 @@ FUNCTION {output.nonnull}
output.state mid.sentence =
{ ", " * write$ }
{ output.state after.block =
- { add.period$ write$
- newline$
- "\newblock " write$
- }
- { output.state before.all =
- 'write$
- { add.period$ " " * write$ }
- if$
- }
+ { add.period$ write$
+ newline$
+ "\newblock " write$
+ }
+ { output.state before.all =
+ 'write$
+ { add.period$ " " * write$ }
+ if$
+ }
if$
mid.sentence 'output.state :=
}
@@ -496,8 +498,8 @@ FUNCTION {new.sentence}
{ output.state after.block =
'skip$
{ output.state before.all =
- 'skip$
- { after.sentence 'output.state := }
+ 'skip$
+ { after.sentence 'output.state := }
if$
}
if$
@@ -579,8 +581,8 @@ FUNCTION {new.sentence.checkb}
%
% field.or.null(s) ==
% BEGIN
-% if empty$(s) then return ""
-% else return s
+% if empty$(s) then return ""
+% else return s
% END
%
% Another helper function is emphasize, which returns the argument emphazised,
@@ -590,8 +592,8 @@ FUNCTION {new.sentence.checkb}
%
% emphasize(s) ==
% BEGIN
-% if empty$(s) then return ""
-% else return "{\em " * s * "}"
+% if empty$(s) then return ""
+% else return "{\em " * s * "}"
%
% The format.names function formats the argument (which should be in
% BibTeX name format) into "First Von Last, Junior", separated by commas
@@ -600,35 +602,35 @@ FUNCTION {new.sentence.checkb}
% contain at least one name.
%
% VAR: nameptr, namesleft, numnames: INTEGER
-% pseudoVAR: nameresult: STRING (it's what's accumulated on the stack)
+% pseudoVAR: nameresult: STRING (it's what's accumulated on the stack)
%
% format.names(s) ==
% BEGIN
-% nameptr := 1
-% numnames := num.names$(s)
-% namesleft := numnames
-% while namesleft > 0
-% do
-% % for full names:
-% t := format.name$(s, nameptr, "{ff~}{vv~}{ll}{, jj}")
-% % for abbreviated first names:
-% t := format.name$(s, nameptr, "{f.~}{vv~}{ll}{, jj}")
-% if nameptr > 1 then
-% if namesleft > 1 then nameresult := nameresult * ", " * t
-% else if numnames > 2
-% then nameresult := nameresult * ","
-% fi
-% if t = "others"
-% then nameresult := nameresult * " et~al."
-% else nameresult := nameresult * " and " * t
-% fi
-% fi
-% else nameresult := t
-% fi
-% nameptr := nameptr + 1
-% namesleft := namesleft - 1
-% od
-% return nameresult
+% nameptr := 1
+% numnames := num.names$(s)
+% namesleft := numnames
+% while namesleft > 0
+% do
+% % for full names:
+% t := format.name$(s, nameptr, "{ff~}{vv~}{ll}{, jj}")
+% % for abbreviated first names:
+% t := format.name$(s, nameptr, "{f.~}{vv~}{ll}{, jj}")
+% if nameptr > 1 then
+% if namesleft > 1 then nameresult := nameresult * ", " * t
+% else if numnames > 2
+% then nameresult := nameresult * ","
+% fi
+% if t = "others"
+% then nameresult := nameresult * " et~al."
+% else nameresult := nameresult * " and " * t
+% fi
+% fi
+% else nameresult := t
+% fi
+% nameptr := nameptr + 1
+% namesleft := namesleft - 1
+% od
+% return nameresult
% END
%
% The format.authors function returns the result of format.names(author)
@@ -636,9 +638,9 @@ FUNCTION {new.sentence.checkb}
%
% format.authors ==
% BEGIN
-% if empty$(author) then return ""
-% else return format.names(author)
-% fi
+% if empty$(author) then return ""
+% else return format.names(author)
+% fi
% END
%
% Format.editors is like format.authors, but it uses the editor field,
@@ -646,14 +648,14 @@ FUNCTION {new.sentence.checkb}
%
% format.editors ==
% BEGIN
-% if empty$(editor) then return ""
-% else
-% if num.names$(editor) > 1 then
-% return format.names(editor) * ", editors"
-% else
-% return format.names(editor) * ", editor"
-% fi
-% fi
+% if empty$(editor) then return ""
+% else
+% if num.names$(editor) > 1 then
+% return format.names(editor) * ", editors"
+% else
+% return format.names(editor) * ", editor"
+% fi
+% fi
% END
%
% Other formatting functions are similar, so no "comment version" will be
@@ -690,20 +692,20 @@ FUNCTION {format.names}
{ s nameptr "{f.~}{vv~}{ll}{, jj}" format.name$ 't :=
#endif NAME_FULL
nameptr #1 >
- { namesleft #1 >
- { ", " * t * }
- { numnames #2 >
- { "," * }
- 'skip$
- if$
- t "others" =
- { " et~al." * }
- { " and " * t * }
- if$
- }
- if$
- }
- 't
+ { namesleft #1 >
+ { ", " * t * }
+ { numnames #2 >
+ { "," * }
+ 'skip$
+ if$
+ t "others" =
+ { " et~al." * }
+ { " and " * t * }
+ if$
+ }
+ if$
+ }
+ 't
if$
nameptr #1 + 'nameptr :=
namesleft #1 - 'namesleft :=
@@ -723,8 +725,8 @@ FUNCTION {format.editors}
{ "" }
{ editor format.names
editor num.names$ #1 >
- { ", editors" * }
- { ", editor" * }
+ { ", editors" * }
+ { ", editor" * }
if$
}
if$
@@ -756,33 +758,33 @@ FUNCTION {format.title}
% The n.dashify function makes each single `-' in a string a double `--'
% if it's not already
%
-% pseudoVAR: pageresult: STRING (it's what's accumulated on the stack)
+% pseudoVAR: pageresult: STRING (it's what's accumulated on the stack)
%
% n.dashify(s) ==
% BEGIN
-% t := s
-% pageresult := ""
-% while (not empty$(t))
-% do
-% if (first character of t = "-")
-% then
-% if (next character isn't)
-% then
-% pageresult := pageresult * "--"
-% t := t with the "-" removed
-% else
-% while (first character of t = "-")
-% do
-% pageresult := pageresult * "-"
-% t := t with the "-" removed
-% od
-% fi
-% else
-% pageresult := pageresult * the first character
-% t := t with the first character removed
-% fi
-% od
-% return pageresult
+% t := s
+% pageresult := ""
+% while (not empty$(t))
+% do
+% if (first character of t = "-")
+% then
+% if (next character isn't)
+% then
+% pageresult := pageresult * "--"
+% t := t with the "-" removed
+% else
+% while (first character of t = "-")
+% do
+% pageresult := pageresult * "-"
+% t := t with the "-" removed
+% od
+% fi
+% else
+% pageresult := pageresult * the first character
+% t := t with the first character removed
+% fi
+% od
+% return pageresult
% END
FUNCTION {n.dashify}
@@ -790,21 +792,21 @@ FUNCTION {n.dashify}
""
{ t empty$ not }
{ t #1 #1 substring$ "-" =
- { t #1 #2 substring$ "--" = not
- { "--" *
- t #2 global.max$ substring$ 't :=
- }
- { { t #1 #1 substring$ "-" = }
- { "-" *
- t #2 global.max$ substring$ 't :=
- }
- while$
- }
- if$
- }
- { t #1 #1 substring$ *
- t #2 global.max$ substring$ 't :=
- }
+ { t #1 #2 substring$ "--" = not
+ { "--" *
+ t #2 global.max$ substring$ 't :=
+ }
+ { { t #1 #1 substring$ "-" = }
+ { "-" *
+ t #2 global.max$ substring$ 't :=
+ }
+ while$
+ }
+ if$
+ }
+ { t #1 #1 substring$ *
+ t #2 global.max$ substring$ 't :=
+ }
if$
}
while$
@@ -817,15 +819,15 @@ FUNCTION {n.dashify}
FUNCTION {format.date}
{ year empty$
{ month empty$
- { "" }
- { "there's a month but no year in " cite$ * warning$
- month
- }
+ { "" }
+ { "there's a month but no year in " cite$ * warning$
+ month
+ }
if$
}
{ month empty$
- 'year
- { month " " * year * }
+ 'year
+ { month " " * year * }
if$
}
if$
@@ -846,9 +848,9 @@ FUNCTION {format.btitle}
%
% tie.or.space.connect(str1,str2) ==
% BEGIN
-% if text.length$(str2) < 3
-% then return the concatenation of str1, "~", and str2
-% else return the concatenation of str1, " ", and str2
+% if text.length$(str2) < 3
+% then return the concatenation of str1, "~", and str2
+% else return the concatenation of str1, " ", and str2
% END
FUNCTION {tie.or.space.connect}
@@ -864,9 +866,9 @@ FUNCTION {tie.or.space.connect}
%
% either.or.check(t,s) ==
% BEGIN
-% if empty$(s) then
-% warning$(can't use both " * t * " fields in " * cite$)
-% fi
+% if empty$(s) then
+% warning$(can't use both " * t * " fields in " * cite$)
+% fi
% END
FUNCTION {either.or.check}
@@ -887,8 +889,8 @@ FUNCTION {format.bvolume}
{ "" }
{ "volume" volume tie.or.space.connect
series empty$
- 'skip$
- { " of " * series emphasize * }
+ 'skip$
+ { " of " * series emphasize * }
if$
"volume and number" number either.or.check
}
@@ -908,17 +910,17 @@ FUNCTION {format.bvolume}
FUNCTION {format.number.series}
{ volume empty$
{ number empty$
- { series field.or.null }
- { output.state mid.sentence =
- { "number" }
- { "Number" }
- if$
- number tie.or.space.connect
- series empty$
- { "there's a number but no series in " cite$ * warning$ }
- { " in " * series * }
- if$
- }
+ { series field.or.null }
+ { output.state mid.sentence =
+ { "number" }
+ { "Number" }
+ if$
+ number tie.or.space.connect
+ series empty$
+ { "there's a number but no series in " cite$ * warning$ }
+ { " in " * series * }
+ if$
+ }
if$
}
{ "" }
@@ -933,8 +935,8 @@ FUNCTION {format.edition}
{ edition empty$
{ "" }
{ output.state mid.sentence =
- { edition "l" change.case$ " edition" * }
- { edition "t" change.case$ " edition" * }
+ { edition "l" change.case$ " edition" * }
+ { edition "t" change.case$ " edition" * }
if$
}
if$
@@ -947,20 +949,20 @@ FUNCTION {format.edition}
% so that format.pages can use "page" instead of "pages" if none exists.
% Note: global.max$ here means "take the rest of the string"
%
-% VAR: multiresult: INTEGER (actually, a boolean)
+% VAR: multiresult: INTEGER (actually, a boolean)
%
% multi.page.check(s) ==
% BEGIN
-% t := s
-% multiresult := false
-% while ((not multiresult) and (not empty$(t)))
-% do
-% if (first character of t = "-" or "," or "+")
-% then multiresult := true
-% else t := t with the first character removed
-% fi
-% od
-% return multiresult
+% t := s
+% multiresult := false
+% while ((not multiresult) and (not empty$(t)))
+% do
+% if (first character of t = "-" or "," or "+")
+% then multiresult := true
+% else t := t with the first character removed
+% fi
+% od
+% return multiresult
% END
INTEGERS { multiresult }
@@ -977,8 +979,8 @@ FUNCTION {multi.page.check}
swap$ duplicate$ "," =
swap$ "+" =
or or
- { #1 'multiresult := }
- { t #2 global.max$ substring$ 't := }
+ { #1 'multiresult := }
+ { t #2 global.max$ substring$ 't := }
if$
}
while$
@@ -992,8 +994,8 @@ FUNCTION {format.pages}
{ pages empty$
{ "" }
{ pages multi.page.check
- { "pages" pages n.dashify tie.or.space.connect }
- { "page" pages tie.or.space.connect }
+ { "pages" pages n.dashify tie.or.space.connect }
+ { "page" pages tie.or.space.connect }
if$
}
if$
@@ -1009,16 +1011,16 @@ FUNCTION {format.vol.num.pages}
'skip$
{ "(" number * ")" * *
volume empty$
- { "there's a number but no volume in " cite$ * warning$ }
- 'skip$
+ { "there's a number but no volume in " cite$ * warning$ }
+ 'skip$
if$
}
if$
pages empty$
'skip$
{ duplicate$ empty$
- { pop$ format.pages }
- { ":" * pages n.dashify * }
+ { pop$ format.pages }
+ { ":" * pages n.dashify * }
if$
}
if$
@@ -1033,13 +1035,13 @@ FUNCTION {format.chapter.pages}
{ chapter empty$
'format.pages
{ type empty$
- { "chapter" }
- { type "l" change.case$ }
+ { "chapter" }
+ { type "l" change.case$ }
if$
chapter tie.or.space.connect
pages empty$
- 'skip$
- { ", " * format.pages * }
+ 'skip$
+ { ", " * format.pages * }
if$
}
if$
@@ -1053,8 +1055,8 @@ FUNCTION {format.in.ed.booktitle}
{ booktitle empty$
{ "" }
{ editor empty$
- { "In " booktitle emphasize * }
- { "In " format.editors * ", " * booktitle emphasize * }
+ { "In " booktitle emphasize * }
+ { "In " format.editors * ", " * booktitle emphasize * }
if$
}
if$
@@ -1127,18 +1129,18 @@ FUNCTION {format.tr.number}
%
% format.article.crossref ==
% BEGIN
-% if empty$(key) then
-% if empty$(journal) then
-% warning$("need key or journal for " * cite$ *
-% " to crossref " * crossref)
-% return(" \cite{" * crossref * "}")
-% else
-% return("In " * emphazise.correct (journal) *
-% " \cite{" * crossref * "}")
-% fi
-% else
-% return("In " * key * " \cite{" * crossref * "}")
-% fi
+% if empty$(key) then
+% if empty$(journal) then
+% warning$("need key or journal for " * cite$ *
+% " to crossref " * crossref)
+% return(" \cite{" * crossref * "}")
+% else
+% return("In " * emphazise.correct (journal) *
+% " \cite{" * crossref * "}")
+% fi
+% else
+% return("In " * key * " \cite{" * crossref * "}")
+% fi
% END
%
% The other cross-referencing functions are similar, so no "comment version"
@@ -1147,11 +1149,11 @@ FUNCTION {format.tr.number}
FUNCTION {format.article.crossref}
{ key empty$
{ journal empty$
- { "need key or journal for " cite$ * " to crossref " * crossref *
- warning$
- ""
- }
- { "In {\em " journal * "\/}" * }
+ { "need key or journal for " cite$ * " to crossref " * crossref *
+ warning$
+ ""
+ }
+ { "In {\em " journal * "\/}" * }
if$
}
{ "In " key * }
@@ -1169,12 +1171,12 @@ FUNCTION {format.crossref.editor}
#2 >
{ pop$ " et~al." * }
{ #2 <
- 'skip$
- { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
- { " et~al." * }
- { " and " * editor #2 "{vv~}{ll}" format.name$ * }
- if$
- }
+ 'skip$
+ { editor #2 "{ff }{vv }{ll}{ jj}" format.name$ "others" =
+ { " et~al." * }
+ { " and " * editor #2 "{vv~}{ll}" format.name$ * }
+ if$
+ }
if$
}
if$
@@ -1199,15 +1201,15 @@ FUNCTION {format.book.crossref}
editor field.or.null author field.or.null =
or
{ key empty$
- { series empty$
- { "need editor, key, or series for " cite$ * " to crossref " *
- crossref * warning$
- "" *
- }
- { "{\em " * series * "\/}" * }
- if$
- }
- { key * }
+ { series empty$
+ { "need editor, key, or series for " cite$ * " to crossref " *
+ crossref * warning$
+ "" *
+ }
+ { "{\em " * series * "\/}" * }
+ if$
+ }
+ { key * }
if$
}
{ format.crossref.editor * }
@@ -1226,15 +1228,15 @@ FUNCTION {format.incoll.inproc.crossref}
editor field.or.null author field.or.null =
or
{ key empty$
- { booktitle empty$
- { "need editor, key, or booktitle for " cite$ * " to crossref " *
- crossref * warning$
- ""
- }
- { "In {\em " booktitle * "\/}" * }
- if$
- }
- { "In " key * }
+ { booktitle empty$
+ { "need editor, key, or booktitle for " cite$ * " to crossref " *
+ crossref * warning$
+ ""
+ }
+ { "In {\em " booktitle * "\/}" * }
+ if$
+ }
+ { "In " key * }
if$
}
{ "In " format.crossref.editor * }
@@ -1252,60 +1254,60 @@ FUNCTION {format.incoll.inproc.crossref}
%
% The article function is for an article in a journal. An article may
% CROSSREF another article.
-% Required fields: author, title, journal, year
-% Optional fields: volume, number, pages, month, note
+% Required fields: author, title, journal, year
+% Optional fields: volume, number, pages, month, note
%
% article ==
% BEGIN
-% output.bibitem
-% output.check(format.authors,"author")
-% new.block
-% output.check(format.title,"title")
-% new.block
-% if missing$(crossref) then
-% output.check(emphasize(journal),"journal")
-% output(format.vol.num.pages)
-% output.check(format.date,"year")
+% output.bibitem
+% output.check(format.authors,"author")
+% new.block
+% output.check(format.title,"title")
+% new.block
+% if missing$(crossref) then
+% output.check(emphasize(journal),"journal")
+% output(format.vol.num.pages)
+% output.check(format.date,"year")
% else
-% output.nonnull(format.article.crossref)
-% output(format.pages)
-% fi
-% new.block
-% output(note)
-% fin.entry
+% output.nonnull(format.article.crossref)
+% output(format.pages)
+% fi
+% new.block
+% output(note)
+% fin.entry
% END
%
% The book function is for a whole book. A book may CROSSREF another book.
-% Required fields: author or editor, title, publisher, year
-% Optional fields: volume or number, series, address, edition, month,
-% note
+% Required fields: author or editor, title, publisher, year
+% Optional fields: volume or number, series, address, edition, month,
+% note
%
% book ==
% BEGIN
-% if empty$(author) then output.check(format.editors,"author and editor")
-% else output.check(format.authors,"author")
-% if missing$(crossref) then
-% either.or.check("author and editor",editor)
-% fi
-% fi
-% new.block
-% output.check(format.btitle,"title")
-% if missing$(crossref) then
-% output(format.bvolume)
-% new.block
-% output(format.number.series)
-% new.sentence
-% output.check(publisher,"publisher")
-% output(address)
+% if empty$(author) then output.check(format.editors,"author and editor")
+% else output.check(format.authors,"author")
+% if missing$(crossref) then
+% either.or.check("author and editor",editor)
+% fi
+% fi
+% new.block
+% output.check(format.btitle,"title")
+% if missing$(crossref) then
+% output(format.bvolume)
+% new.block
+% output(format.number.series)
+% new.sentence
+% output.check(publisher,"publisher")
+% output(address)
% else
-% new.block
-% output.nonnull(format.book.crossref)
-% fi
-% output(format.edition)
-% output.check(format.date,"year")
-% new.block
-% output(note)
-% fin.entry
+% new.block
+% output.nonnull(format.book.crossref)
+% fi
+% output(format.edition)
+% output.check(format.date,"year")
+% new.block
+% output(note)
+% fin.entry
% END
%
% The other entry functions are all quite similar, so no "comment version"
@@ -1337,8 +1339,8 @@ FUNCTION {book}
{ format.editors "author and editor" output.check }
{ format.authors output.nonnull
crossref missing$
- { "author and editor" editor either.or.check }
- 'skip$
+ { "author and editor" editor either.or.check }
+ 'skip$
if$
}
if$
@@ -1364,8 +1366,8 @@ FUNCTION {book}
}
% A booklet is a bound thing without a publisher or sponsoring institution.
-% Required: title
-% Optional: author, howpublished, address, month, year, note
+% Required: title
+% Optional: author, howpublished, address, month, year, note
FUNCTION {booklet}
{ output.bibitem
@@ -1386,8 +1388,8 @@ FUNCTION {booklet}
% An inbook is a piece of a book: either a chapter and/or a page range.
% It may CROSSREF a book. If there's no volume field, the type field
% will come before number and series.
-% Required: author or editor, title, chapter and/or pages, publisher,year
-% Optional: volume or number, series, type, address, edition, month, note
+% Required: author or editor, title, chapter and/or pages, publisher,year
+% Optional: volume or number, series, type, address, edition, month, note
FUNCTION {inbook}
{ output.bibitem
@@ -1395,8 +1397,8 @@ FUNCTION {inbook}
{ format.editors "author and editor" output.check }
{ format.authors output.nonnull
crossref missing$
- { "author and editor" editor either.or.check }
- 'skip$
+ { "author and editor" editor either.or.check }
+ 'skip$
if$
}
if$
@@ -1426,9 +1428,9 @@ FUNCTION {inbook}
% An incollection is like inbook, but where there is a separate title
% for the referenced thing (and perhaps an editor for the whole).
% An incollection may CROSSREF a book.
-% Required: author, title, booktitle, publisher, year
-% Optional: editor, volume or number, series, type, chapter, pages,
-% address, edition, month, note
+% Required: author, title, booktitle, publisher, year
+% Optional: editor, volume or number, series, type, chapter, pages,
+% address, edition, month, note
FUNCTION {incollection}
{ output.bibitem
@@ -1459,9 +1461,9 @@ FUNCTION {incollection}
% An inproceedings is an article in a conference proceedings, and it may
% CROSSREF a proceedings. If there's no address field, the month (& year)
% will appear just before note.
-% Required: author, title, booktitle, year
-% Optional: editor, volume or number, series, pages, address, month,
-% organization, publisher, note
+% Required: author, title, booktitle, year
+% Optional: editor, volume or number, series, pages, address, month,
+% organization, publisher, note
FUNCTION {inproceedings}
{ output.bibitem
@@ -1475,17 +1477,17 @@ FUNCTION {inproceedings}
format.number.series output
format.pages output
address empty$
- { organization publisher new.sentence.checkb
- organization output
- publisher output
- format.date "year" output.check
- }
- { address output.nonnull
- format.date "year" output.check
- new.sentence
- organization output
- publisher output
- }
+ { organization publisher new.sentence.checkb
+ organization output
+ publisher output
+ format.date "year" output.check
+ }
+ { address output.nonnull
+ format.date "year" output.check
+ new.sentence
+ organization output
+ publisher output
+ }
if$
}
{ format.incoll.inproc.crossref output.nonnull
@@ -1502,17 +1504,17 @@ FUNCTION {inproceedings}
FUNCTION {conference} { inproceedings }
% A manual is technical documentation.
-% Required: title
-% Optional: author, organization, address, edition, month, year, note
+% Required: title
+% Optional: author, organization, address, edition, month, year, note
FUNCTION {manual}
{ output.bibitem
author empty$
{ organization empty$
- 'skip$
- { organization output.nonnull
- address output
- }
+ 'skip$
+ { organization output.nonnull
+ address output
+ }
if$
}
{ format.authors output.nonnull }
@@ -1521,10 +1523,10 @@ FUNCTION {manual}
format.btitle "title" output.check
author empty$
{ organization empty$
- { address new.block.checka
- address output
- }
- 'skip$
+ { address new.block.checka
+ address output
+ }
+ 'skip$
if$
}
{ organization address new.block.checkb
@@ -1540,8 +1542,8 @@ FUNCTION {manual}
}
% A mastersthesis is a Master's thesis.
-% Required: author, title, school, year
-% Optional: type, address, month, note
+% Required: author, title, school, year
+% Optional: type, address, month, note
FUNCTION {mastersthesis}
{ output.bibitem
@@ -1559,8 +1561,8 @@ FUNCTION {mastersthesis}
}
% A misc is something that doesn't fit elsewhere.
-% Required: at least one of the `optional' fields
-% Optional: author, title, howpublished, month, year, note
+% Required: at least one of the `optional' fields
+% Optional: author, title, howpublished, month, year, note
FUNCTION {misc}
{ output.bibitem
@@ -1577,8 +1579,8 @@ FUNCTION {misc}
}
% A phdthesis is like a mastersthesis.
-% Required: author, title, school, year
-% Optional: type, address, month, note
+% Required: author, title, school, year
+% Optional: type, address, month, note
FUNCTION {phdthesis}
{ output.bibitem
@@ -1599,9 +1601,9 @@ FUNCTION {phdthesis}
% If there is an organization but no editor field, the organization will
% appear as the first optional field (we try to make the first block nonempty);
% if there's no address field, the month (& year) will appear just before note.
-% Required: title, year
-% Optional: editor, volume or number, series, address, month,
-% organization, publisher, note
+% Required: title, year
+% Optional: editor, volume or number, series, address, month,
+% organization, publisher, note
FUNCTION {proceedings}
{ output.bibitem
@@ -1615,10 +1617,10 @@ FUNCTION {proceedings}
format.number.series output
address empty$
{ editor empty$
- { publisher new.sentence.checka }
- { organization publisher new.sentence.checkb
- organization output
- }
+ { publisher new.sentence.checka }
+ { organization publisher new.sentence.checkb
+ organization output
+ }
if$
publisher output
format.date "year" output.check
@@ -1627,8 +1629,8 @@ FUNCTION {proceedings}
format.date "year" output.check
new.sentence
editor empty$
- 'skip$
- { organization output }
+ 'skip$
+ { organization output }
if$
publisher output
}
@@ -1639,8 +1641,8 @@ FUNCTION {proceedings}
}
% A techreport is a technical report.
-% Required: author, title, institution, year
-% Optional: type, number, address, month, note
+% Required: author, title, institution, year
+% Optional: type, number, address, month, note
FUNCTION {techreport}
{ output.bibitem
@@ -1658,8 +1660,8 @@ FUNCTION {techreport}
}
% An unpublished is something that hasn't been published.
-% Required: author, title, note
-% Optional: month, year
+% Required: author, title, note
+% Optional: month, year
FUNCTION {unpublished}
{ output.bibitem
@@ -1892,37 +1894,37 @@ FUNCTION {chop.word}
%
% format.lab.names(s) ==
% BEGIN
-% numnames := num.names$(s)
-% if numnames > 1 then
-% if numnames > 4 then
-% namesleft := 3
-% else
-% namesleft := numnames
-% nameptr := 1
-% nameresult := ""
-% while namesleft > 0
-% do
-% if (name_ptr = numnames) and
-% format.name$(s, nameptr, "{ff }{vv }{ll}{ jj}") = "others"
-% then nameresult := nameresult * "{\etalchar{+}}"
-% et.al.char.used := true
-% else nameresult := nameresult *
-% format.name$(s, nameptr, "{v{}}{l{}}")
-% nameptr := nameptr + 1
-% namesleft := namesleft - 1
-% od
-% if numnames > 4 then
-% nameresult := nameresult * "{\etalchar{+}}"
-% et.al.char.used := true
-% else
-% t := format.name$(s, 1, "{v{}}{l{}}")
-% if text.length$(t) < 2 then % there's just one name-token
-% nameresult := text.prefix$(format.name$(s,1,"{ll}"),3)
-% else
-% nameresult := t
-% fi
-% fi
-% return nameresult
+% numnames := num.names$(s)
+% if numnames > 1 then
+% if numnames > 4 then
+% namesleft := 3
+% else
+% namesleft := numnames
+% nameptr := 1
+% nameresult := ""
+% while namesleft > 0
+% do
+% if (name_ptr = numnames) and
+% format.name$(s, nameptr, "{ff }{vv }{ll}{ jj}") = "others"
+% then nameresult := nameresult * "{\etalchar{+}}"
+% et.al.char.used := true
+% else nameresult := nameresult *
+% format.name$(s, nameptr, "{v{}}{l{}}")
+% nameptr := nameptr + 1
+% namesleft := namesleft - 1
+% od
+% if numnames > 4 then
+% nameresult := nameresult * "{\etalchar{+}}"
+% et.al.char.used := true
+% else
+% t := format.name$(s, 1, "{v{}}{l{}}")
+% if text.length$(t) < 2 then % there's just one name-token
+% nameresult := text.prefix$(format.name$(s,1,"{ll}"),3)
+% else
+% nameresult := t
+% fi
+% fi
+% return nameresult
% END
%
% Exactly what fields we look at in constructing the primary part of the label
@@ -1956,18 +1958,18 @@ FUNCTION {chop.word}
%
% calc.label ==
% BEGIN
-% if type$ = "book" or "inbook" then
-% author.editor.key.label
-% else if type$ = "proceedings" then
-% editor.key.organization.label
-% else if type$ = "manual" then
-% author.key.organization.label
-% else
-% author.key.label
-% fi fi fi
-% label := label * substring$(purify$(field.or.null(year)), -1, 2)
-% % assuming we will also sort, we calculate a sort.label
-% sort.label := sortify(label), but use the last four, not two, digits
+% if type$ = "book" or "inbook" then
+% author.editor.key.label
+% else if type$ = "proceedings" then
+% editor.key.organization.label
+% else if type$ = "manual" then
+% author.key.organization.label
+% else
+% author.key.label
+% fi fi fi
+% label := label * substring$(purify$(field.or.null(year)), -1, 2)
+% % assuming we will also sort, we calculate a sort.label
+% sort.label := sortify(label), but use the last four, not two, digits
% END
#if LAB_ALPH
@@ -1985,37 +1987,37 @@ FUNCTION {format.lab.names}
s num.names$ 'numnames :=
numnames #1 >
{ numnames #4 >
- { #3 'namesleft := }
- { numnames 'namesleft := }
+ { #3 'namesleft := }
+ { numnames 'namesleft := }
if$
#1 'nameptr :=
""
- { namesleft #0 > }
- { nameptr numnames =
- { s nameptr "{ff }{vv }{ll}{ jj}" format.name$ "others" =
- { "{\etalchar{+}}" *
- #1 'et.al.char.used :=
- }
- { s nameptr "{v{}}{l{}}" format.name$ * }
- if$
- }
- { s nameptr "{v{}}{l{}}" format.name$ * }
- if$
- nameptr #1 + 'nameptr :=
- namesleft #1 - 'namesleft :=
- }
+ { namesleft #0 > }
+ { nameptr numnames =
+ { s nameptr "{ff }{vv }{ll}{ jj}" format.name$ "others" =
+ { "{\etalchar{+}}" *
+ #1 'et.al.char.used :=
+ }
+ { s nameptr "{v{}}{l{}}" format.name$ * }
+ if$
+ }
+ { s nameptr "{v{}}{l{}}" format.name$ * }
+ if$
+ nameptr #1 + 'nameptr :=
+ namesleft #1 - 'namesleft :=
+ }
while$
numnames #4 >
- { "{\etalchar{+}}" *
- #1 'et.al.char.used :=
- }
- 'skip$
+ { "{\etalchar{+}}" *
+ #1 'et.al.char.used :=
+ }
+ 'skip$
if$
}
{ s #1 "{v{}}{l{}}" format.name$
duplicate$ text.length$ #2 <
- { pop$ s #1 "{ll}" format.name$ #3 text.prefix$ }
- 'skip$
+ { pop$ s #1 "{ll}" format.name$ #3 text.prefix$ }
+ 'skip$
if$
}
if$
@@ -2025,13 +2027,13 @@ FUNCTION {author.key.label}
{ author empty$
{ key empty$
#if SORTED
- { cite$ #1 #3 substring$ }
-#else !SORTED % need warning here because we won't give it later
- { "for label, need author or key in " cite$ * warning$
- cite$ #1 #3 substring$
- }
+ { cite$ #1 #3 substring$ }
+#else !SORTED % need warning here because we won't give it later
+ { "for label, need author or key in " cite$ * warning$
+ cite$ #1 #3 substring$
+ }
#endif SORTED
- { key #3 text.prefix$ }
+ { key #3 text.prefix$ }
if$
}
{ author format.lab.names }
@@ -2041,18 +2043,18 @@ FUNCTION {author.key.label}
FUNCTION {author.editor.key.label}
{ author empty$
{ editor empty$
- { key empty$
+ { key empty$
#if SORTED
- { cite$ #1 #3 substring$ }
-#else !SORTED % need warning here because we won't give it later
- { "for label, need author, editor, or key in " cite$ * warning$
- cite$ #1 #3 substring$
- }
+ { cite$ #1 #3 substring$ }
+#else !SORTED % need warning here because we won't give it later
+ { "for label, need author, editor, or key in " cite$ * warning$
+ cite$ #1 #3 substring$
+ }
#endif SORTED
- { key #3 text.prefix$ }
- if$
- }
- { editor format.lab.names }
+ { key #3 text.prefix$ }
+ if$
+ }
+ { editor format.lab.names }
if$
}
{ author format.lab.names }
@@ -2062,19 +2064,19 @@ FUNCTION {author.editor.key.label}
FUNCTION {author.key.organization.label}
{ author empty$
{ key empty$
- { organization empty$
+ { organization empty$
#if SORTED
- { cite$ #1 #3 substring$ }
-#else !SORTED % need warning here because we won't give it later
- { "for label, need author, key, or organization in " cite$ *
- warning$
- cite$ #1 #3 substring$
- }
+ { cite$ #1 #3 substring$ }
+#else !SORTED % need warning here because we won't give it later
+ { "for label, need author, key, or organization in " cite$ *
+ warning$
+ cite$ #1 #3 substring$
+ }
#endif SORTED
- { "The " #4 organization chop.word #3 text.prefix$ }
- if$
- }
- { key #3 text.prefix$ }
+ { "The " #4 organization chop.word #3 text.prefix$ }
+ if$
+ }
+ { key #3 text.prefix$ }
if$
}
{ author format.lab.names }
@@ -2084,19 +2086,19 @@ FUNCTION {author.key.organization.label}
FUNCTION {editor.key.organization.label}
{ editor empty$
{ key empty$
- { organization empty$
+ { organization empty$
#if SORTED
- { cite$ #1 #3 substring$ }
-#else !SORTED % need warning here because we won't give it later
- { "for label, need editor, key, or organization in " cite$ *
- warning$
- cite$ #1 #3 substring$
- }
+ { cite$ #1 #3 substring$ }
+#else !SORTED % need warning here because we won't give it later
+ { "for label, need editor, key, or organization in " cite$ *
+ warning$
+ cite$ #1 #3 substring$
+ }
#endif SORTED
- { "The " #4 organization chop.word #3 text.prefix$ }
- if$
- }
- { key #3 text.prefix$ }
+ { "The " #4 organization chop.word #3 text.prefix$ }
+ if$
+ }
+ { key #3 text.prefix$ }
if$
}
{ editor format.lab.names }
@@ -2109,12 +2111,12 @@ FUNCTION {calc.label}
or
'author.editor.key.label
{ type$ "proceedings" =
- 'editor.key.organization.label
- { type$ "manual" =
- 'author.key.organization.label
- 'author.key.label
- if$
- }
+ 'editor.key.organization.label
+ { type$ "manual" =
+ 'author.key.organization.label
+ 'author.key.label
+ if$
+ }
if$
}
if$
@@ -2171,8 +2173,8 @@ FUNCTION {sort.format.names}
numnames 'namesleft :=
{ namesleft #0 > }
{ nameptr #1 >
- { " " * }
- 'skip$
+ { " " * }
+ 'skip$
if$
#if NAME_FULL
s nameptr "{vv{ } }{ll{ }}{ ff{ }}{ jj{ }}" format.name$ 't :=
@@ -2180,8 +2182,8 @@ FUNCTION {sort.format.names}
s nameptr "{vv{ } }{ll{ }}{ f{ }}{ jj{ }}" format.name$ 't :=
#endif NAME_FULL
nameptr numnames = t "others" = and
- { "et al" * }
- { t sortify * }
+ { "et al" * }
+ { t sortify * }
if$
nameptr #1 + 'nameptr :=
namesleft #1 - 'namesleft :=
@@ -2212,10 +2214,10 @@ FUNCTION {sort.format.title}
FUNCTION {author.sort}
{ author empty$
{ key empty$
- { "to sort, need author or key in " cite$ * warning$
- ""
- }
- { key sortify }
+ { "to sort, need author or key in " cite$ * warning$
+ ""
+ }
+ { key sortify }
if$
}
{ author sort.format.names }
@@ -2225,14 +2227,14 @@ FUNCTION {author.sort}
FUNCTION {author.editor.sort}
{ author empty$
{ editor empty$
- { key empty$
- { "to sort, need author, editor, or key in " cite$ * warning$
- ""
- }
- { key sortify }
- if$
- }
- { editor sort.format.names }
+ { key empty$
+ { "to sort, need author, editor, or key in " cite$ * warning$
+ ""
+ }
+ { key sortify }
+ if$
+ }
+ { editor sort.format.names }
if$
}
{ author sort.format.names }
@@ -2242,14 +2244,14 @@ FUNCTION {author.editor.sort}
FUNCTION {author.organization.sort}
{ author empty$
{ organization empty$
- { key empty$
- { "to sort, need author, organization, or key in " cite$ * warning$
- ""
- }
- { key sortify }
- if$
- }
- { "The " #4 organization chop.word sortify }
+ { key empty$
+ { "to sort, need author, organization, or key in " cite$ * warning$
+ ""
+ }
+ { key sortify }
+ if$
+ }
+ { "The " #4 organization chop.word sortify }
if$
}
{ author sort.format.names }
@@ -2259,14 +2261,14 @@ FUNCTION {author.organization.sort}
FUNCTION {editor.organization.sort}
{ editor empty$
{ organization empty$
- { key empty$
- { "to sort, need editor, organization, or key in " cite$ * warning$
- ""
- }
- { key sortify }
- if$
- }
- { "The " #4 organization chop.word sortify }
+ { key empty$
+ { "to sort, need editor, organization, or key in " cite$ * warning$
+ ""
+ }
+ { key sortify }
+ if$
+ }
+ { "The " #4 organization chop.word sortify }
if$
}
{ editor sort.format.names }
@@ -2292,12 +2294,12 @@ FUNCTION {presort}
or
'author.editor.sort
{ type$ "proceedings" =
- 'editor.organization.sort
- { type$ "manual" =
- 'author.organization.sort
- 'author.sort
- if$
- }
+ 'editor.organization.sort
+ { type$ "manual" =
+ 'author.organization.sort
+ 'author.sort
+ if$
+ }
if$
}
if$
@@ -2340,36 +2342,36 @@ SORT
%
% initialize.longest.label ==
% BEGIN
-% longest.label := ""
-% last.sort.label := int.to.chr$(0)
-% next.extra := ""
-% longest.label.width := 0
-% last.extra.num := 0
+% longest.label := ""
+% last.sort.label := int.to.chr$(0)
+% next.extra := ""
+% longest.label.width := 0
+% last.extra.num := 0
% END
%
% forward.pass ==
% BEGIN
-% if last.sort.label = sort.label then
-% last.extra.num := last.extra.num + 1
-% extra.label := int.to.chr$(last.extra.num)
-% else
-% last.extra.num := chr.to.int$("a")
-% extra.label := ""
-% last.sort.label := sort.label
-% fi
+% if last.sort.label = sort.label then
+% last.extra.num := last.extra.num + 1
+% extra.label := int.to.chr$(last.extra.num)
+% else
+% last.extra.num := chr.to.int$("a")
+% extra.label := ""
+% last.sort.label := sort.label
+% fi
% END
%
% reverse.pass ==
% BEGIN
-% if next.extra = "b" then
-% extra.label := "a"
-% fi
-% label := label * extra.label
-% if width$(label) > longest.label.width then
-% longest.label := label
-% longest.label.width := width$(label)
-% fi
-% next.extra := extra.label
+% if next.extra = "b" then
+% extra.label := "a"
+% fi
+% label := label * extra.label
+% if width$(label) > longest.label.width then
+% longest.label := label
+% longest.label.width := width$(label)
+% fi
+% next.extra := extra.label
% END
#if LAB_ALPH