mirror of
https://review.haiku-os.org/buildtools
synced 2025-01-19 12:51:22 +01:00
0b514caa50
Moving it inside gcc dir allows gcc to detect and build isl while building gcc. It has dependencies on other libraries that would need to be prebuilt if we build it ourselves. This is one of a few steps in building gcc with isl and allowing graphite optimization flags.
1727 lines
38 KiB
Plaintext
1727 lines
38 KiB
Plaintext
%%% ====================================================================
|
|
%%% @BibTeX-style-file{
|
|
%%% author = "Glenn Paulley",
|
|
%%% version = "4",
|
|
%%% date = "28 August 1992",
|
|
%%% time = "10:23:39 199",
|
|
%%% filename = "chicago.bst",
|
|
%%% address = "Data Structuring Group
|
|
%%% Department of Computer Science
|
|
%%% University of Waterloo
|
|
%%% Waterloo, Ontario, Canada
|
|
%%% N2L 3G1",
|
|
%%% telephone = "(519) 885-1211",
|
|
%%% FAX = "(519) 885-1208",
|
|
%%% checksum = "26323 1654 5143 37417",
|
|
%%% email = "gnpaulle@bluebox.uwaterloo.ca",
|
|
%%% codetable = "ISO/ASCII",
|
|
%%% keywords = "",
|
|
%%% supported = "yes",
|
|
%%% abstract = "A BibTeX bibliography style that follows the
|
|
%%% `B' reference style of the 13th Edition of
|
|
%%% the Chicago Manual of Style. A detailed
|
|
%%% feature list is given below.",
|
|
%%% docstring = "The checksum field above contains a CRC-16
|
|
%%% checksum as the first value, followed by the
|
|
%%% equivalent of the standard UNIX wc (word
|
|
%%% count) utility output of lines, words, and
|
|
%%% characters. This is produced by Robert
|
|
%%% Solovay's checksum utility.",
|
|
%%% }
|
|
%%% ====================================================================
|
|
%
|
|
% "Chicago" BibTeX style, chicago.bst
|
|
% ===================================
|
|
%
|
|
% BibTeX `chicago' style file for BibTeX version 0.99c, LaTeX version 2.09
|
|
% Place it in a file called chicago.bst in the BibTeX search path.
|
|
% You need to include chicago.sty as a \documentstyle option.
|
|
% (Placing it in the same directory as the LaTeX document should also work.)
|
|
% This "chicago" style is based on newapa.bst (American Psych. Assoc.)
|
|
% found at ymir.claremont.edu.
|
|
%
|
|
% Citation format: (author-last-name year)
|
|
% (author-last-name and author-last-name year)
|
|
% (author-last-name, author-last-name, and author-last-name year)
|
|
% (author-last-name et al. year)
|
|
% (author-last-name)
|
|
% author-last-name (year)
|
|
% (author-last-name and author-last-name)
|
|
% (author-last-name et al.)
|
|
% (year) or (year,year)
|
|
% year or year,year
|
|
%
|
|
% Reference list ordering: alphabetical by author or whatever passes
|
|
% for author in the absence of one.
|
|
%
|
|
% This BibTeX style has support for abbreviated author lists and for
|
|
% year-only citations. This is done by having the citations
|
|
% actually look like
|
|
%
|
|
% \citeauthoryear{full-author-info}{abbrev-author-info}{year}
|
|
%
|
|
% The LaTeX style has to have the following (or similar)
|
|
%
|
|
% \let\@internalcite\cite
|
|
% \def\fullcite{\def\citeauthoryear##1##2##3{##1, ##3}\@internalcite}
|
|
% \def\fullciteA{\def\citeauthoryear##1##2##3{##1}\@internalcite}
|
|
% \def\shortcite{\def\citeauthoryear##1##2##3{##2, ##3}\@internalcite}
|
|
% \def\shortciteA{\def\citeauthoryear##1##2##3{##2}\@internalcite}
|
|
% \def\citeyear{\def\citeauthoryear##1##2##3{##3}\@internalcite}
|
|
%
|
|
% These TeX macro definitions are found in chicago.sty. Additional
|
|
% commands to manipulate different components of a citation can be defined
|
|
% so that, for example, you can list author's names without parentheses
|
|
% if using a citation as a noun or object in a sentence.
|
|
%
|
|
% This file was originally copied from newapa.bst at ymir.claremont.edu.
|
|
%
|
|
% Features of chicago.bst:
|
|
% =======================
|
|
%
|
|
% - full names used in citations, but abbreviated citations are available
|
|
% (see above)
|
|
% - if an entry has a "month", then the month and year are also printed
|
|
% as part of that bibitem.
|
|
% - all conjunctions use "and" instead of "\&"
|
|
% - major modification from Chicago Manual of Style (13th ed.) is that
|
|
% only the first author in a reference appears last name first-
|
|
% additional authors appear as J. Q. Public.
|
|
% - pages are listed as "pp. xx-xx" in all entry types except
|
|
% article entries.
|
|
% - book, inbook, and manual use "location: publisher" (or organization)
|
|
% for address and publisher. All other types list publishers separately.
|
|
% - "pp." are used to identify page numbers for all entry types except
|
|
% articles.
|
|
% - organization is used as a citation label if neither author nor editor
|
|
% is present (for manuals).
|
|
% - "et al." is used for long author and editor lists, or when "others"
|
|
% is used.
|
|
%
|
|
% Modifications and bug fixes from newapa.bst:
|
|
% ===========================================
|
|
%
|
|
% - added month, year to bib entries if month is present
|
|
% - fixed bug with In proceedings, added necessary comma after title
|
|
% - all conjunctions changed to "and" from "\&"
|
|
% - fixed bug with author labels in my.full.label: "et al." now is
|
|
% generated when "others" is an author name
|
|
% - major modification from Chicago Manual of Style (13th ed.) is that
|
|
% only the first author in a reference appears last name first-
|
|
% additional authors appear as J. Q. Public.
|
|
% - pages are listed as "pp. xx-xx" in all entry types except
|
|
% article entries. Unnecessary (IMHO) "()" around page numbers
|
|
% were removed, and page numbers now don't end with a period.
|
|
% - created chicago.sty for use with this bibstyle (required).
|
|
% - fixed bugs in FUNCTION {format.vol.num.pages} for missing volume,
|
|
% number, and /or pages. Renamed to format.jour.vol.
|
|
% - fixed bug in formatting booktitles: additional period an error if
|
|
% book has a volume.
|
|
% - fixed bug: editors usually given redundant period before next clause
|
|
% (format.editors.dot) removed.
|
|
% - added label support for organizations, if both author and editor
|
|
% are missing (from alpha.bst). If organization is too long, then
|
|
% the key field is used for abbreviated citations.
|
|
% - In proceedings or books of several volumes, no comma was written
|
|
% between the "Volume x" and the page numbers (this was intentional
|
|
% in newapa.bst). Fixed.
|
|
% - Some journals may not have volumes/numbers, only month/year (eg.
|
|
% IEEE Computer). Fixed bug in article style that assumed volume/number
|
|
% was always present.
|
|
%
|
|
% Original documentation for newapa.sty:
|
|
% =====================================
|
|
%
|
|
% This version was made by modifying the master file made by
|
|
% Oren Patashnik (PATASHNIK@SCORE.STANFORD.EDU), and the 'named' BibTeX
|
|
% style of Peter F. Patel-Schneider.
|
|
%
|
|
% 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 'newapa.bst'.
|
|
% There are undoubtably bugs in this style. If you make bug fixes,
|
|
% improvements, etc. please let me know. My e-mail address is:
|
|
% spencer@cgrg.ohio.state.edu or 71160.3141@compuserve.com
|
|
%
|
|
% This style was made from 'plain.bst', 'named.bst', and 'apalike.bst',
|
|
% with lots of tweaking to make it look like APA style, along with tips
|
|
% from Young Ryu and Brian Reiser's modifications of 'apalike.bst'.
|
|
|
|
ENTRY
|
|
{ address
|
|
author
|
|
booktitle
|
|
chapter
|
|
edition
|
|
editor
|
|
fjournal
|
|
howpublished
|
|
institution
|
|
journal
|
|
key
|
|
month
|
|
note
|
|
number
|
|
organization
|
|
pages
|
|
publisher
|
|
school
|
|
series
|
|
title
|
|
type
|
|
volume
|
|
year
|
|
}
|
|
{}
|
|
{ label.year extra.label sort.year sort.label }
|
|
|
|
INTEGERS { output.state before.all mid.sentence after.sentence after.block }
|
|
|
|
FUNCTION {init.state.consts}
|
|
{ #0 'before.all :=
|
|
#1 'mid.sentence :=
|
|
#2 'after.sentence :=
|
|
#3 'after.block :=
|
|
}
|
|
|
|
STRINGS { s t u }
|
|
|
|
FUNCTION {output.nonnull}
|
|
{ 's :=
|
|
output.state mid.sentence =
|
|
{ ", " * write$ }
|
|
{ output.state after.block =
|
|
{ add.period$ write$
|
|
newline$
|
|
"\newblock " write$
|
|
}
|
|
{ output.state before.all =
|
|
'write$
|
|
{ add.period$ " " * write$ }
|
|
if$
|
|
}
|
|
if$
|
|
mid.sentence 'output.state :=
|
|
}
|
|
if$
|
|
s
|
|
}
|
|
|
|
% Use a colon to separate output. Used only for address/publisher
|
|
% combination in book/inbook types, address/institution for manuals,
|
|
% and organization:publisher for proceedings (inproceedings).
|
|
%
|
|
FUNCTION {output.nonnull.colon}
|
|
{ 's :=
|
|
output.state mid.sentence =
|
|
{ ": " * write$ }
|
|
{ output.state after.block =
|
|
{ add.period$ write$
|
|
newline$
|
|
"\newblock " write$
|
|
}
|
|
{ output.state before.all =
|
|
'write$
|
|
{ add.period$ " " * write$ }
|
|
if$
|
|
}
|
|
if$
|
|
mid.sentence 'output.state :=
|
|
}
|
|
if$
|
|
s
|
|
}
|
|
|
|
FUNCTION {output}
|
|
{ duplicate$ empty$
|
|
'pop$
|
|
'output.nonnull
|
|
if$
|
|
}
|
|
|
|
FUNCTION {output.colon}
|
|
{ duplicate$ empty$
|
|
'pop$
|
|
'output.nonnull.colon
|
|
if$
|
|
}
|
|
|
|
FUNCTION {output.check}
|
|
{ 't :=
|
|
duplicate$ empty$
|
|
{ pop$ "empty " t * " in " * cite$ * warning$ }
|
|
'output.nonnull
|
|
if$
|
|
}
|
|
|
|
FUNCTION {output.check.colon}
|
|
{ 't :=
|
|
duplicate$ empty$
|
|
{ pop$ "empty " t * " in " * cite$ * warning$ }
|
|
'output.nonnull.colon
|
|
if$
|
|
}
|
|
|
|
FUNCTION {output.year.check}
|
|
{ year empty$
|
|
{ "empty year in " cite$ * warning$ }
|
|
{ write$
|
|
" (" year * extra.label *
|
|
month empty$
|
|
{ ")" * }
|
|
{ ", " * month * ")" * }
|
|
if$
|
|
mid.sentence 'output.state :=
|
|
}
|
|
if$
|
|
}
|
|
|
|
|
|
FUNCTION {fin.entry}
|
|
{ add.period$
|
|
write$
|
|
newline$
|
|
}
|
|
|
|
FUNCTION {new.block}
|
|
{ output.state before.all =
|
|
'skip$
|
|
{ after.block 'output.state := }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {new.sentence}
|
|
{ output.state after.block =
|
|
'skip$
|
|
{ output.state before.all =
|
|
'skip$
|
|
{ after.sentence 'output.state := }
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
|
|
FUNCTION {not}
|
|
{ { #0 }
|
|
{ #1 }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {and}
|
|
{ 'skip$
|
|
{ pop$ #0 }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {or}
|
|
{ { pop$ #1 }
|
|
'skip$
|
|
if$
|
|
}
|
|
|
|
FUNCTION {new.block.checka}
|
|
{ empty$
|
|
'skip$
|
|
'new.block
|
|
if$
|
|
}
|
|
|
|
FUNCTION {new.block.checkb}
|
|
{ empty$
|
|
swap$ empty$
|
|
and
|
|
'skip$
|
|
'new.block
|
|
if$
|
|
}
|
|
|
|
FUNCTION {new.sentence.checka}
|
|
{ empty$
|
|
'skip$
|
|
'new.sentence
|
|
if$
|
|
}
|
|
|
|
FUNCTION {new.sentence.checkb}
|
|
{ empty$
|
|
swap$ empty$
|
|
and
|
|
'skip$
|
|
'new.sentence
|
|
if$
|
|
}
|
|
|
|
FUNCTION {field.or.null}
|
|
{ duplicate$ empty$
|
|
{ pop$ "" }
|
|
'skip$
|
|
if$
|
|
}
|
|
|
|
%
|
|
% Emphasize the top string on the stack.
|
|
%
|
|
FUNCTION {emphasize}
|
|
{ duplicate$ empty$
|
|
{ pop$ "" }
|
|
{ "{\em " swap$ * "}" * }
|
|
if$
|
|
}
|
|
|
|
%
|
|
% Emphasize the top string on the stack, but add a trailing space.
|
|
%
|
|
FUNCTION {emphasize.space}
|
|
{ duplicate$ empty$
|
|
{ pop$ "" }
|
|
{ "{\em " swap$ * "\/}" * }
|
|
if$
|
|
}
|
|
|
|
INTEGERS { nameptr namesleft numnames }
|
|
%
|
|
% Format bibliographical entries with the first author last name first,
|
|
% and subsequent authors with initials followed by last name.
|
|
% All names are formatted in this routine.
|
|
%
|
|
FUNCTION {format.names}
|
|
{ 's :=
|
|
#1 'nameptr := % nameptr = 1;
|
|
s num.names$ 'numnames := % numnames = num.name$(s);
|
|
numnames 'namesleft :=
|
|
{ namesleft #0 > }
|
|
|
|
{ nameptr #1 =
|
|
{s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ 't := }
|
|
{s nameptr "{f.~}{vv~}{ll}{, jj}" format.name$ 't := }
|
|
if$
|
|
nameptr #1 >
|
|
{ namesleft #1 >
|
|
{ ", " * t * }
|
|
{ numnames #2 >
|
|
{ "," * }
|
|
'skip$
|
|
if$
|
|
t "others" =
|
|
{ " et~al." * }
|
|
{ " and " * t * } % from Chicago Manual of Style
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
't
|
|
if$
|
|
s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ 't :=
|
|
"\protect \index {" * t * "|hyperemph}" *
|
|
nameptr #1 + 'nameptr := % nameptr += 1;
|
|
namesleft #1 - 'namesleft := % namesleft =- 1;
|
|
}
|
|
while$
|
|
}
|
|
|
|
FUNCTION {my.full.label}
|
|
{ 's :=
|
|
#1 'nameptr := % nameptr = 1;
|
|
s num.names$ 'numnames := % numnames = num.name$(s);
|
|
numnames 'namesleft :=
|
|
{ namesleft #0 > }
|
|
|
|
{ s nameptr "{vv~}{ll}" format.name$ 't := % get the next name
|
|
nameptr #1 >
|
|
{ namesleft #1 >
|
|
{ ", " * t * }
|
|
{ numnames #2 >
|
|
{ "," * }
|
|
'skip$
|
|
if$
|
|
t "others" =
|
|
{ " et~al." * }
|
|
{ " and " * t * } % from Chicago Manual of Style
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
't
|
|
if$
|
|
s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ 't :=
|
|
"\protect \index {" * t * "|bold}" *
|
|
nameptr #1 + 'nameptr := % nameptr += 1;
|
|
namesleft #1 - 'namesleft := % namesleft =- 1;
|
|
}
|
|
while$
|
|
|
|
}
|
|
|
|
FUNCTION {format.names.fml}
|
|
%
|
|
% Format names in "familiar" format, with first initial followed by
|
|
% last name. Like format.names, ALL names are formatted.
|
|
%
|
|
{ 's :=
|
|
#1 'nameptr := % nameptr = 1;
|
|
s num.names$ 'numnames := % numnames = num.name$(s);
|
|
numnames 'namesleft :=
|
|
{ namesleft #0 > }
|
|
|
|
{ s nameptr "{f.~}{vv~}{ll}{, jj}" format.name$ 't :=
|
|
|
|
nameptr #1 >
|
|
{ namesleft #1 >
|
|
{ ", " * t * }
|
|
{ numnames #2 >
|
|
{ "," * }
|
|
'skip$
|
|
if$
|
|
t "others" =
|
|
{ " et~al." * }
|
|
{ " and " * t * }
|
|
% { " \& " * t * }
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
't
|
|
if$
|
|
nameptr #1 + 'nameptr := % nameptr += 1;
|
|
namesleft #1 - 'namesleft := % namesleft =- 1;
|
|
}
|
|
while$
|
|
}
|
|
|
|
FUNCTION {format.authors}
|
|
{ author empty$
|
|
{ "" }
|
|
{ author format.names }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {format.key}
|
|
{ empty$
|
|
{ key field.or.null }
|
|
{ "" }
|
|
if$
|
|
}
|
|
|
|
%
|
|
% Format editor names for use in the "in" types: inbook, incollection,
|
|
% inproceedings: first initial, then last names. When editors are the
|
|
% LABEL for an entry, then format.editor is used which lists editors
|
|
% by last name first.
|
|
%
|
|
FUNCTION {format.editors.fml}
|
|
{ editor empty$
|
|
{ "" }
|
|
{ editor format.names.fml
|
|
editor num.names$ #1 >
|
|
{ " (Eds.)" * }
|
|
{ " (Ed.)" * }
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
|
|
%
|
|
% Format editor names for use in labels, last names first.
|
|
%
|
|
FUNCTION {format.editors}
|
|
{ editor empty$
|
|
{ "" }
|
|
{ editor format.names
|
|
editor num.names$ #1 >
|
|
{ " (Eds.)" * }
|
|
{ " (Ed.)" * }
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
|
|
FUNCTION {format.title}
|
|
{ title empty$
|
|
{ "" }
|
|
{ title "t" change.case$ }
|
|
if$
|
|
}
|
|
|
|
% Note that the APA style requres case changes
|
|
% in article titles. The following does not
|
|
% change cases. If you perfer it, uncomment the
|
|
% following and comment out the above.
|
|
|
|
%FUNCTION {format.title}
|
|
%{ title empty$
|
|
% { "" }
|
|
% { title }
|
|
% if$
|
|
%}
|
|
|
|
FUNCTION {n.dashify}
|
|
{ 't :=
|
|
""
|
|
{ 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 :=
|
|
}
|
|
if$
|
|
}
|
|
while$
|
|
}
|
|
|
|
FUNCTION {format.btitle}
|
|
{ edition empty$
|
|
{ title emphasize }
|
|
{ title empty$
|
|
{ title emphasize }
|
|
{ volume empty$ % gnp - check for volume, then don't need period
|
|
{ "{\em " title * "\/} (" * edition * " ed.)" * "." * }
|
|
{ "{\em " title * "\/} (" * edition * " ed.)" * }
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
|
|
FUNCTION {format.emphasize.booktitle}
|
|
{ edition empty$
|
|
{ booktitle emphasize }
|
|
{ booktitle empty$
|
|
{ booktitle emphasize }
|
|
{ volume empty$ % gnp - extra period an error if book has a volume
|
|
{ "{\em " booktitle * "\/} (" * edition * " ed.)" * "." *}
|
|
{ "{\em " booktitle * "\/} (" * edition * " ed.)" * }
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
|
|
|
|
FUNCTION {tie.or.space.connect}
|
|
{ duplicate$ text.length$ #3 <
|
|
{ "~" }
|
|
{ " " }
|
|
if$
|
|
swap$ * *
|
|
}
|
|
|
|
FUNCTION {either.or.check}
|
|
{ empty$
|
|
'pop$
|
|
{ "can't use both " swap$ * " fields in " * cite$ * warning$ }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {format.bvolume}
|
|
{ volume empty$
|
|
{ "" }
|
|
{ "Volume" volume tie.or.space.connect % gnp - changed to mixed case
|
|
series empty$
|
|
'skip$
|
|
{ " of " * series emphasize * }
|
|
if$
|
|
"volume and number" number either.or.check
|
|
}
|
|
if$
|
|
}
|
|
|
|
FUNCTION {format.number.series}
|
|
{ volume empty$
|
|
{ number empty$
|
|
{ series field.or.null }
|
|
{ output.state mid.sentence =
|
|
{ "Number" } % gnp - changed to mixed case always
|
|
{ "Number" }
|
|
if$
|
|
number tie.or.space.connect
|
|
series empty$
|
|
{ "there's a number but no series in " cite$ * warning$ }
|
|
{ " in " * series * }
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
{ "" }
|
|
if$
|
|
}
|
|
|
|
INTEGERS { multiresult }
|
|
|
|
FUNCTION {multi.page.check}
|
|
{ 't :=
|
|
#0 'multiresult :=
|
|
{ multiresult not
|
|
t empty$ not
|
|
and
|
|
}
|
|
{ t #1 #1 substring$
|
|
duplicate$ "-" =
|
|
swap$ duplicate$ "," =
|
|
swap$ "+" =
|
|
or or
|
|
{ #1 'multiresult := }
|
|
{ t #2 global.max$ substring$ 't := }
|
|
if$
|
|
}
|
|
while$
|
|
multiresult
|
|
}
|
|
|
|
FUNCTION {format.pages}
|
|
{ pages empty$
|
|
{ "" }
|
|
{ pages multi.page.check
|
|
{ "pp.\ " pages n.dashify tie.or.space.connect } % gnp - removed ()
|
|
{ "pp.\ " pages tie.or.space.connect }
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
|
|
% By Young (and Spencer)
|
|
% GNP - fixed bugs with missing volume, number, and/or pages
|
|
%
|
|
% Format journal, volume, number, pages for article types.
|
|
%
|
|
FUNCTION {format.jour.vol}
|
|
{ fjournal empty$
|
|
{ journal empty$
|
|
{ "no journal in " cite$ * warning$
|
|
"" }
|
|
{ journal emphasize.space }
|
|
if$
|
|
}
|
|
{ fjournal emphasize.space }
|
|
if$
|
|
number empty$
|
|
{ volume empty$
|
|
{ "no number and no volume in " cite$ * warning$
|
|
"" * }
|
|
{ "~{\em " * Volume * "}" * }
|
|
if$
|
|
}
|
|
{ volume empty$
|
|
{"no volume for " cite$ * warning$
|
|
"~(" * number * ")" * }
|
|
{ "~" *
|
|
volume emphasize.space
|
|
"(" * number * ")" * * }
|
|
if$
|
|
}
|
|
if$
|
|
pages empty$
|
|
{"page numbers missing in " cite$ * warning$
|
|
"" * } % gnp - place a null string on the stack for output
|
|
{ duplicate$ empty$
|
|
{ pop$ format.pages }
|
|
{ ", " * pages n.dashify * } % gnp - removed pp. for articles
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
|
|
FUNCTION {format.chapter.pages}
|
|
{ chapter empty$
|
|
'format.pages
|
|
{ type empty$
|
|
{ "Chapter" } % gnp - changed to mixed case
|
|
{ type "t" change.case$ }
|
|
if$
|
|
chapter tie.or.space.connect
|
|
pages empty$
|
|
{"page numbers missing in " cite$ * warning$} % gnp - added check
|
|
{ ", " * format.pages * }
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
|
|
FUNCTION {format.in.ed.booktitle}
|
|
{ booktitle empty$
|
|
{ "" }
|
|
{ editor empty$
|
|
{ "In " format.emphasize.booktitle * }
|
|
{ "In " format.editors.fml * ", " * format.emphasize.booktitle * }
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
|
|
FUNCTION {format.thesis.type}
|
|
{ type empty$
|
|
'skip$
|
|
{ pop$
|
|
type "t" change.case$
|
|
}
|
|
if$
|
|
}
|
|
|
|
FUNCTION {format.tr.number}
|
|
{ type empty$
|
|
{ "Technical Report" }
|
|
'type
|
|
if$
|
|
number empty$
|
|
{ "t" change.case$ }
|
|
{ number tie.or.space.connect }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {format.article.crossref}
|
|
{ "See"
|
|
"\citeN{" * crossref * "}" *
|
|
}
|
|
|
|
FUNCTION {format.crossref.editor}
|
|
{ editor #1 "{vv~}{ll}" format.name$
|
|
editor num.names$ duplicate$
|
|
#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$
|
|
}
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
|
|
FUNCTION {format.book.crossref}
|
|
{ volume empty$
|
|
{ "empty volume in " cite$ * "'s crossref of " * crossref * warning$
|
|
"In "
|
|
}
|
|
{ "Volume" volume tie.or.space.connect % gnp - changed to mixed case
|
|
" of " *
|
|
}
|
|
if$
|
|
editor empty$
|
|
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 * }
|
|
if$
|
|
}
|
|
{ format.crossref.editor * }
|
|
if$
|
|
" \citeN{" * crossref * "}" *
|
|
}
|
|
|
|
FUNCTION {format.incoll.inproc.crossref}
|
|
{ "See"
|
|
" \citeN{" * crossref * "}" *
|
|
}
|
|
|
|
% format.lab.names:
|
|
%
|
|
% determines "short" names for the abbreviated author information.
|
|
% "Long" labels are created in calc.label, using the routine my.full.label
|
|
% to format author and editor fields.
|
|
%
|
|
% There are 4 cases for labels. (n=3 in the example)
|
|
% a) one author Foo
|
|
% b) one to n Foo, Bar and Baz
|
|
% c) use of "and others" Foo, Bar et al.
|
|
% d) more than n Foo et al.
|
|
%
|
|
FUNCTION {format.lab.names}
|
|
{ 's :=
|
|
s num.names$ 'numnames :=
|
|
numnames #2 > % change number to number of others allowed before
|
|
% forcing "et al".
|
|
{ s #1 "{vv~}{ll}" format.name$
|
|
"\protect \index {" *
|
|
s #1 "{vv~}{ll}{, jj}{, f.}" format.name$ *
|
|
"}" *
|
|
"\protect\chicagoetal/" * }
|
|
{
|
|
numnames #1 - 'namesleft :=
|
|
#2 'nameptr :=
|
|
s #1 "{vv~}{ll}" format.name$
|
|
"\protect \index {" *
|
|
s #1 "{vv~}{ll}{, jj}{, f.}" format.name$ *
|
|
"}" *
|
|
{ namesleft #0 > }
|
|
{ nameptr numnames =
|
|
{ s nameptr "{ff }{vv }{ll}{ jj}" format.name$ "others" =
|
|
{ "\protect\chicagoetal/" * }
|
|
{ "\protect\chicagoand/" * s nameptr "{vv~}{ll}" format.name$ *
|
|
"\protect \index {" *
|
|
s nameptr "{vv~}{ll}{, jj}{, f.}" format.name$ *
|
|
"}" *
|
|
}
|
|
if$
|
|
}
|
|
{ ", " * s nameptr "{vv~}{ll}" format.name$ * }
|
|
if$
|
|
nameptr #1 + 'nameptr :=
|
|
namesleft #1 - 'namesleft :=
|
|
}
|
|
while$
|
|
}
|
|
if$
|
|
}
|
|
|
|
FUNCTION {author.key.label}
|
|
{ author empty$
|
|
{ key empty$
|
|
{ "no key, author in " cite$ * warning$
|
|
cite$ #1 #3 substring$ }
|
|
'key
|
|
if$
|
|
}
|
|
{ author format.lab.names }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {editor.key.label}
|
|
{ editor empty$
|
|
{ key empty$
|
|
{ "no key, editor in " cite$ * warning$
|
|
cite$ #1 #3 substring$ }
|
|
'key
|
|
if$
|
|
}
|
|
{ editor format.lab.names }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {author.key.organization.label}
|
|
%
|
|
% added - gnp. Provide label formatting by organization if author is null.
|
|
%
|
|
{ author empty$
|
|
{ organization empty$
|
|
{ key empty$
|
|
{ "no key, author or organization in " cite$ * warning$
|
|
cite$ #1 #3 substring$ }
|
|
'key
|
|
if$
|
|
}
|
|
{ organization }
|
|
if$
|
|
}
|
|
{ author format.lab.names }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {editor.key.organization.label}
|
|
%
|
|
% added - gnp. Provide label formatting by organization if editor is null.
|
|
%
|
|
{ editor empty$
|
|
{ organization empty$
|
|
{ key empty$
|
|
{ "no key, editor or organization in " cite$ * warning$
|
|
cite$ #1 #3 substring$ }
|
|
'key
|
|
if$
|
|
}
|
|
{ organization }
|
|
if$
|
|
}
|
|
{ editor format.lab.names }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {author.editor.key.label}
|
|
{ author empty$
|
|
{ editor empty$
|
|
{ key empty$
|
|
{ "no key, author, or editor in " cite$ * warning$
|
|
cite$ #1 #3 substring$ }
|
|
'key
|
|
if$
|
|
}
|
|
{ editor format.lab.names }
|
|
if$
|
|
}
|
|
{ author format.lab.names }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {calc.label.orig}
|
|
%
|
|
% Changed - GNP. See also author.organization.sort, editor.organization.sort
|
|
% Form label for BibTeX entry. The classification of which fields are used
|
|
% for which type of entry (book, inbook, etc.) are taken from alpha.bst.
|
|
% The change here from newapa is to also include organization as a
|
|
% citation label if author or editor is missing.
|
|
%
|
|
{ type$ "book" =
|
|
type$ "inbook" =
|
|
or
|
|
'author.editor.key.label
|
|
{ type$ "proceedings" =
|
|
'editor.key.organization.label
|
|
{ type$ "manual" =
|
|
'author.key.organization.label
|
|
'author.key.label
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
if$
|
|
|
|
author empty$ % generate the full label citation information.
|
|
{ editor empty$
|
|
{ organization empty$
|
|
{ "no author, editor, or organization in " cite$ * warning$
|
|
"??" }
|
|
{ organization }
|
|
if$
|
|
}
|
|
{ editor my.full.label }
|
|
if$
|
|
}
|
|
{ author.key.label }
|
|
if$
|
|
|
|
% leave label on the stack, to be popped when required.
|
|
|
|
"}{" * swap$ *
|
|
% year field.or.null purify$ #-1 #4 substring$ *
|
|
%
|
|
% save the year for sort processing afterwards (adding a, b, c, etc.)
|
|
%
|
|
year field.or.null purify$ #-1 #4 substring$
|
|
'label.year :=
|
|
}
|
|
|
|
FUNCTION {calc.label}
|
|
%
|
|
% Changed - GNP. See also author.organization.sort, editor.organization.sort
|
|
% Form label for BibTeX entry. The classification of which fields are used
|
|
% for which type of entry (book, inbook, etc.) are taken from alpha.bst.
|
|
% The change here from newapa is to also include organization as a
|
|
% citation label if author or editor is missing.
|
|
%
|
|
{ type$ "book" =
|
|
type$ "inbook" =
|
|
or
|
|
'author.editor.key.label
|
|
{ type$ "proceedings" =
|
|
'editor.key.organization.label
|
|
{ type$ "manual" =
|
|
'author.key.organization.label
|
|
'author.key.label
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
if$
|
|
|
|
author empty$ % generate the full label citation information.
|
|
{ editor empty$
|
|
{ organization empty$
|
|
{ "no author, editor, or organization in " cite$ * warning$
|
|
"??" }
|
|
{ organization }
|
|
if$
|
|
}
|
|
{ editor my.full.label }
|
|
if$
|
|
}
|
|
{ author my.full.label }
|
|
if$
|
|
|
|
% leave label on the stack, to be popped when required.
|
|
|
|
"}{" * swap$ * "}{" * title * "}{" *
|
|
% year field.or.null purify$ #-1 #4 substring$ *
|
|
%
|
|
% save the year for sort processing afterwards (adding a, b, c, etc.)
|
|
%
|
|
year field.or.null purify$ #-1 #4 substring$
|
|
'label.year :=
|
|
}
|
|
|
|
FUNCTION {output.bibitem}
|
|
{ newline$
|
|
|
|
"\bibitem[\protect\citeauthortitleyear{" write$
|
|
calc.label write$
|
|
sort.year write$
|
|
"}]{" write$
|
|
|
|
cite$ write$
|
|
"}" write$
|
|
newline$
|
|
""
|
|
before.all 'output.state :=
|
|
}
|
|
|
|
FUNCTION {article}
|
|
{ output.bibitem
|
|
format.authors
|
|
"author" output.check
|
|
author format.key output % added
|
|
output.year.check % added
|
|
new.block
|
|
format.title
|
|
"title" output.check
|
|
new.block
|
|
crossref missing$
|
|
{ format.jour.vol output
|
|
}
|
|
{ format.article.crossref output.nonnull
|
|
format.pages output
|
|
}
|
|
if$
|
|
new.block
|
|
note output
|
|
fin.entry
|
|
}
|
|
|
|
FUNCTION {book}
|
|
{ output.bibitem
|
|
author empty$
|
|
{ format.editors
|
|
"author and editor" output.check }
|
|
{ format.authors
|
|
output.nonnull
|
|
crossref missing$
|
|
{ "author and editor" editor either.or.check }
|
|
'skip$
|
|
if$
|
|
}
|
|
if$
|
|
output.year.check % added
|
|
new.block
|
|
format.btitle
|
|
"title" output.check
|
|
crossref missing$
|
|
{ format.bvolume output
|
|
new.block
|
|
format.number.series output
|
|
new.sentence
|
|
address output
|
|
publisher "publisher" output.check.colon
|
|
}
|
|
{ new.block
|
|
format.book.crossref output.nonnull
|
|
}
|
|
if$
|
|
new.block
|
|
note output
|
|
fin.entry
|
|
}
|
|
|
|
FUNCTION {booklet}
|
|
{ output.bibitem
|
|
format.authors output
|
|
author format.key output % added
|
|
output.year.check % added
|
|
new.block
|
|
format.title
|
|
"title" output.check
|
|
new.block
|
|
howpublished output
|
|
address output
|
|
new.block
|
|
note output
|
|
fin.entry
|
|
}
|
|
|
|
FUNCTION {inbook}
|
|
{ output.bibitem
|
|
author empty$
|
|
{ format.editors
|
|
"author and editor" output.check
|
|
}
|
|
{ format.authors output.nonnull
|
|
crossref missing$
|
|
{ "author and editor" editor either.or.check }
|
|
'skip$
|
|
if$
|
|
}
|
|
if$
|
|
output.year.check % added
|
|
new.block
|
|
format.btitle
|
|
"title" output.check
|
|
crossref missing$
|
|
{ format.bvolume output
|
|
format.chapter.pages
|
|
"chapter and pages" output.check
|
|
new.block
|
|
format.number.series output
|
|
new.sentence
|
|
address output
|
|
publisher
|
|
"publisher" output.check.colon
|
|
}
|
|
{ format.chapter.pages "chapter and pages" output.check
|
|
new.block
|
|
format.book.crossref output.nonnull
|
|
}
|
|
if$
|
|
new.block
|
|
note output
|
|
fin.entry
|
|
}
|
|
|
|
FUNCTION {incollection}
|
|
{ output.bibitem
|
|
format.authors
|
|
"author" output.check
|
|
author format.key output % added
|
|
output.year.check % added
|
|
new.block
|
|
format.title
|
|
"title" output.check
|
|
new.block
|
|
crossref missing$
|
|
{ format.in.ed.booktitle
|
|
"booktitle" output.check
|
|
format.bvolume output
|
|
format.number.series output
|
|
format.chapter.pages output % gnp - was special.output.nonnull
|
|
% left out comma before page numbers
|
|
new.sentence
|
|
address output
|
|
publisher "publisher" output.check.colon
|
|
}
|
|
{ format.incoll.inproc.crossref
|
|
output.nonnull
|
|
format.chapter.pages output
|
|
}
|
|
if$
|
|
new.block
|
|
note output
|
|
fin.entry
|
|
}
|
|
|
|
FUNCTION {inproceedings}
|
|
{ output.bibitem
|
|
format.authors
|
|
"author" output.check
|
|
author format.key output % added
|
|
output.year.check % added
|
|
new.block
|
|
format.title
|
|
"title" output.check
|
|
new.block
|
|
crossref missing$
|
|
{ format.in.ed.booktitle
|
|
"booktitle" output.check
|
|
format.bvolume output
|
|
format.number.series output
|
|
address output
|
|
format.pages output
|
|
new.sentence
|
|
organization output
|
|
publisher output.colon
|
|
}
|
|
{ format.incoll.inproc.crossref output.nonnull
|
|
format.pages output
|
|
}
|
|
if$
|
|
new.block
|
|
note output
|
|
fin.entry
|
|
}
|
|
|
|
FUNCTION {conference} { inproceedings }
|
|
|
|
FUNCTION {manual}
|
|
{ output.bibitem
|
|
author empty$
|
|
{ editor empty$
|
|
{ organization "organization" output.check
|
|
organization format.key output } % if all else fails, use key
|
|
{ format.editors "author and editor" output.check }
|
|
if$
|
|
}
|
|
{ format.authors output.nonnull }
|
|
if$
|
|
output.year.check % added
|
|
new.block
|
|
format.btitle
|
|
"title" output.check
|
|
organization address new.block.checkb
|
|
% Reversed the order of "address" and "organization", added the ":".
|
|
address output
|
|
organization "organization" output.check.colon
|
|
% address output
|
|
% ":" output
|
|
% organization output
|
|
new.block
|
|
note output
|
|
fin.entry
|
|
}
|
|
|
|
FUNCTION {mastersthesis}
|
|
{ output.bibitem
|
|
format.authors
|
|
"author" output.check
|
|
author format.key output % added
|
|
output.year.check % added
|
|
new.block
|
|
format.title
|
|
"title" output.check
|
|
new.block
|
|
"Master's thesis" format.thesis.type output.nonnull
|
|
school "school" output.check
|
|
address output
|
|
new.block
|
|
note output
|
|
fin.entry
|
|
}
|
|
|
|
FUNCTION {misc}
|
|
{ output.bibitem
|
|
format.authors output
|
|
author format.key output % added
|
|
output.year.check % added
|
|
title howpublished new.block.checkb
|
|
format.title output
|
|
new.block
|
|
howpublished output
|
|
new.block
|
|
note output
|
|
fin.entry
|
|
}
|
|
|
|
FUNCTION {phdthesis}
|
|
{ output.bibitem
|
|
format.authors
|
|
"author" output.check
|
|
author format.key output % added
|
|
output.year.check % added
|
|
new.block
|
|
format.btitle
|
|
"title" output.check
|
|
new.block
|
|
"Ph.\ D. thesis" format.thesis.type output.nonnull
|
|
school "school" output.check
|
|
address output
|
|
new.block
|
|
note output
|
|
fin.entry
|
|
}
|
|
|
|
FUNCTION {proceedings}
|
|
{ output.bibitem
|
|
editor empty$
|
|
{ organization output
|
|
organization format.key output } % gnp - changed from author format.key
|
|
{ format.editors output.nonnull }
|
|
if$
|
|
% author format.key output % gnp - removed (should be either
|
|
% editor or organization
|
|
output.year.check % added (newapa)
|
|
new.block
|
|
format.btitle
|
|
"title" output.check
|
|
format.bvolume output
|
|
format.number.series output
|
|
address output
|
|
new.sentence
|
|
organization output
|
|
publisher output.colon
|
|
new.block
|
|
note output
|
|
fin.entry
|
|
}
|
|
|
|
FUNCTION {techreport}
|
|
{ output.bibitem
|
|
format.authors
|
|
"author" output.check
|
|
author format.key output % added
|
|
output.year.check % added
|
|
new.block
|
|
format.title
|
|
"title" output.check
|
|
new.block
|
|
format.tr.number output.nonnull
|
|
institution
|
|
"institution" output.check
|
|
address output
|
|
new.block
|
|
note output
|
|
fin.entry
|
|
}
|
|
|
|
FUNCTION {unpublished}
|
|
{ output.bibitem
|
|
format.authors
|
|
"author" output.check
|
|
author format.key output % added
|
|
output.year.check % added
|
|
new.block
|
|
format.title
|
|
"title" output.check
|
|
new.block
|
|
note "note" output.check
|
|
fin.entry
|
|
}
|
|
|
|
FUNCTION {default.type} { misc }
|
|
|
|
MACRO {jan} {"January"}
|
|
|
|
MACRO {feb} {"February"}
|
|
|
|
MACRO {mar} {"March"}
|
|
|
|
MACRO {apr} {"April"}
|
|
|
|
MACRO {may} {"May"}
|
|
|
|
MACRO {jun} {"June"}
|
|
|
|
MACRO {jul} {"July"}
|
|
|
|
MACRO {aug} {"August"}
|
|
|
|
MACRO {sep} {"September"}
|
|
|
|
MACRO {oct} {"October"}
|
|
|
|
MACRO {nov} {"November"}
|
|
|
|
MACRO {dec} {"December"}
|
|
|
|
MACRO {acmcs} {"ACM Computing Surveys"}
|
|
|
|
MACRO {acta} {"Acta Informatica"}
|
|
|
|
MACRO {ai} {"Artificial Intelligence"}
|
|
|
|
MACRO {cacm} {"Communications of the ACM"}
|
|
|
|
MACRO {ibmjrd} {"IBM Journal of Research and Development"}
|
|
|
|
MACRO {ibmsj} {"IBM Systems Journal"}
|
|
|
|
MACRO {ieeese} {"IEEE Transactions on Software Engineering"}
|
|
|
|
MACRO {ieeetc} {"IEEE Transactions on Computers"}
|
|
|
|
MACRO {ieeetcad}
|
|
{"IEEE Transactions on Computer-Aided Design of Integrated Circuits"}
|
|
|
|
MACRO {ipl} {"Information Processing Letters"}
|
|
|
|
MACRO {jacm} {"Journal of the ACM"}
|
|
|
|
MACRO {jcss} {"Journal of Computer and System Sciences"}
|
|
|
|
MACRO {scp} {"Science of Computer Programming"}
|
|
|
|
MACRO {sicomp} {"SIAM Journal on Computing"}
|
|
|
|
MACRO {tocs} {"ACM Transactions on Computer Systems"}
|
|
|
|
MACRO {tods} {"ACM Transactions on Database Systems"}
|
|
|
|
MACRO {tog} {"ACM Transactions on Graphics"}
|
|
|
|
MACRO {toms} {"ACM Transactions on Mathematical Software"}
|
|
|
|
MACRO {toois} {"ACM Transactions on Office Information Systems"}
|
|
|
|
MACRO {toplas} {"ACM Transactions on Programming Languages and Systems"}
|
|
|
|
MACRO {tcs} {"Theoretical Computer Science"}
|
|
|
|
READ
|
|
|
|
FUNCTION {sortify}
|
|
{ purify$
|
|
"l" change.case$
|
|
}
|
|
|
|
INTEGERS { len }
|
|
|
|
FUNCTION {chop.word}
|
|
{ 's :=
|
|
'len :=
|
|
s #1 len substring$ =
|
|
{ s len #1 + global.max$ substring$ }
|
|
's
|
|
if$
|
|
}
|
|
|
|
|
|
|
|
FUNCTION {sort.format.names}
|
|
{ 's :=
|
|
#1 'nameptr :=
|
|
""
|
|
s num.names$ 'numnames :=
|
|
numnames 'namesleft :=
|
|
{ namesleft #0 > }
|
|
{ nameptr #2 =
|
|
{ year field.or.null purify$ #-1 #4 substring$ * }
|
|
'skip$
|
|
if$
|
|
nameptr #1 >
|
|
{ " " * }
|
|
'skip$
|
|
if$
|
|
s nameptr "{vv{ } }{ll{ }}{ f{ }}{ jj{ }}" format.name$ 't :=
|
|
nameptr numnames = t "others" = and
|
|
{ " et~al" * }
|
|
{ t sortify * }
|
|
if$
|
|
nameptr #1 + 'nameptr :=
|
|
namesleft #1 - 'namesleft :=
|
|
}
|
|
while$
|
|
}
|
|
|
|
FUNCTION {sort.format.title}
|
|
{ 't :=
|
|
"A " #2
|
|
"An " #3
|
|
"The " #4 t chop.word
|
|
chop.word
|
|
chop.word
|
|
sortify
|
|
#1 global.max$ substring$
|
|
}
|
|
|
|
FUNCTION {author.sort}
|
|
{ author empty$
|
|
{ key empty$
|
|
{ "to sort, need author or key in " cite$ * warning$
|
|
"" }
|
|
{ key sortify }
|
|
if$
|
|
}
|
|
{ author sort.format.names }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {editor.sort}
|
|
{ editor empty$
|
|
{ key empty$
|
|
{ "to sort, need editor or key in " cite$ * warning$
|
|
""
|
|
}
|
|
{ key sortify }
|
|
if$
|
|
}
|
|
{ editor sort.format.names }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {author.editor.sort}
|
|
{ author empty$
|
|
{ "missing author in " cite$ * warning$
|
|
editor empty$
|
|
{ key empty$
|
|
{ "to sort, need author, editor, or key in " cite$ * warning$
|
|
""
|
|
}
|
|
{ key sortify }
|
|
if$
|
|
}
|
|
{ editor sort.format.names }
|
|
if$
|
|
}
|
|
{ author sort.format.names }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {author.organization.sort}
|
|
%
|
|
% added - GNP. Stack author or organization for sorting (from alpha.bst).
|
|
% Unlike alpha.bst, we need entire names, not abbreviations
|
|
%
|
|
{ author empty$
|
|
{ organization empty$
|
|
{ key empty$
|
|
{ "to sort, need author, organization, or key in " cite$ * warning$
|
|
""
|
|
}
|
|
{ key sortify }
|
|
if$
|
|
}
|
|
{ organization sortify }
|
|
if$
|
|
}
|
|
{ author sort.format.names }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {editor.organization.sort}
|
|
%
|
|
% added - GNP. Stack editor or organization for sorting (from alpha.bst).
|
|
% Unlike alpha.bst, we need entire names, not abbreviations
|
|
%
|
|
{ editor empty$
|
|
{ organization empty$
|
|
{ key empty$
|
|
{ "to sort, need editor, organization, or key in " cite$ * warning$
|
|
""
|
|
}
|
|
{ key sortify }
|
|
if$
|
|
}
|
|
{ organization sortify }
|
|
if$
|
|
}
|
|
{ editor sort.format.names }
|
|
if$
|
|
}
|
|
|
|
FUNCTION {presort}
|
|
%
|
|
% Presort creates the bibentry's label via a call to calc.label, and then
|
|
% sorts the entries based on entry type. Chicago.bst adds support for
|
|
% including organizations as the sort key; the following is stolen from
|
|
% alpha.bst.
|
|
%
|
|
{ %calc.label sortify % recalculate bibitem label
|
|
%year field.or.null purify$ #-1 #4 substring$ * % add year
|
|
%duplicate$ warning$
|
|
%" "
|
|
%*
|
|
type$ "book" =
|
|
type$ "inbook" =
|
|
or
|
|
'author.editor.sort
|
|
{ type$ "proceedings" =
|
|
'editor.organization.sort
|
|
{ type$ "manual" =
|
|
'author.organization.sort
|
|
'author.sort
|
|
if$
|
|
}
|
|
if$
|
|
}
|
|
if$
|
|
#1 entry.max$ substring$ % added for newapa
|
|
'sort.label := % added for newapa
|
|
sort.label % added for newapa
|
|
%*
|
|
" "
|
|
*
|
|
title field.or.null
|
|
sort.format.title
|
|
*
|
|
#1 entry.max$ substring$
|
|
'sort.key$ :=
|
|
}
|
|
|
|
ITERATE {presort}
|
|
|
|
SORT % by label, year, author/editor, title
|
|
|
|
STRINGS { last.label next.extra }
|
|
|
|
INTEGERS { last.extra.num }
|
|
|
|
FUNCTION {initialize.extra.label.stuff}
|
|
{ #0 int.to.chr$ 'last.label :=
|
|
"" 'next.extra :=
|
|
#0 'last.extra.num :=
|
|
}
|
|
|
|
FUNCTION {forward.pass}
|
|
%
|
|
% Pass through all entries, comparing current entry to last one.
|
|
% Need to concatenate year to the stack (done by calc.label) to determine
|
|
% if two entries are the same (see presort)
|
|
%
|
|
{ last.label
|
|
calc.label.orig year field.or.null purify$ #-1 #4 substring$ * % add year
|
|
#1 entry.max$ substring$ = % are they equal?
|
|
{ last.extra.num #1 + 'last.extra.num :=
|
|
last.extra.num int.to.chr$ 'extra.label :=
|
|
}
|
|
{ "a" chr.to.int$ 'last.extra.num :=
|
|
"" 'extra.label :=
|
|
calc.label.orig year field.or.null purify$ #-1 #4 substring$ * % add year
|
|
#1 entry.max$ substring$ 'last.label := % assign to last.label
|
|
}
|
|
if$
|
|
}
|
|
|
|
FUNCTION {reverse.pass}
|
|
{ next.extra "b" =
|
|
{ "a" 'extra.label := }
|
|
'skip$
|
|
if$
|
|
label.year extra.label * 'sort.year :=
|
|
extra.label 'next.extra :=
|
|
}
|
|
|
|
EXECUTE {initialize.extra.label.stuff}
|
|
|
|
ITERATE {forward.pass}
|
|
|
|
REVERSE {reverse.pass}
|
|
|
|
FUNCTION {bib.sort.order}
|
|
{ sort.label
|
|
" "
|
|
*
|
|
year field.or.null sortify
|
|
*
|
|
" "
|
|
*
|
|
title field.or.null
|
|
sort.format.title
|
|
*
|
|
#1 entry.max$ substring$
|
|
'sort.key$ :=
|
|
}
|
|
|
|
ITERATE {bib.sort.order}
|
|
|
|
SORT % by sort.label, year, title --- giving final bib. order.
|
|
|
|
FUNCTION {begin.bib}
|
|
|
|
{ preamble$ empty$
|
|
'skip$
|
|
{ preamble$ write$ newline$ }
|
|
if$
|
|
"\begin{thebibliography}{}" write$ newline$
|
|
}
|
|
|
|
|
|
EXECUTE {begin.bib}
|
|
|
|
EXECUTE {init.state.consts}
|
|
|
|
ITERATE {call.type$}
|
|
|
|
FUNCTION {end.bib}
|
|
{ newline$
|
|
"\end{thebibliography}" write$ newline$
|
|
}
|
|
|
|
EXECUTE {end.bib}
|
|
|