diff options
Diffstat (limited to 'Master/texmf-dist/source/latex/amsrefs/amsxport.dtx')
| -rw-r--r-- | Master/texmf-dist/source/latex/amsrefs/amsxport.dtx | 54 |
1 files changed, 21 insertions, 33 deletions
diff --git a/Master/texmf-dist/source/latex/amsrefs/amsxport.dtx b/Master/texmf-dist/source/latex/amsrefs/amsxport.dtx index 308a8c2698c..2a9cd4cdbde 100644 --- a/Master/texmf-dist/source/latex/amsrefs/amsxport.dtx +++ b/Master/texmf-dist/source/latex/amsrefs/amsxport.dtx @@ -1,9 +1,9 @@ %%% ==================================================================== %%% @BibTeX-source-file{ %%% filename = "amsxport.dtx", -%%% version = "2.00", -%%% date = "2004/06/28", -%%% time = "14:50:12 EDT", +%%% version = "2.01", +%%% date = "2007/10/01", +%%% time = "16:20:24 EDT", %%% author = "Michael J Downes", %%% address = "American Mathematical Society, %%% Publications Technical Group, @@ -16,7 +16,13 @@ %%% entries where most of the database structure is %%% retained. This is intended for processing by a smart %%% bibliography package such as the amsrefs package.", -%%% checksum = "40425 1822 6396 51551", +%%% copyright = "Copyright 2001, 2004 American Mathematical Society.", +%%% license = "Unlimited copying and redistribution of this file +%%% are permitted as long as this file is not +%%% modified. Modifications, and distribution of +%%% modified versions, are permitted, but only if +%%% the resulting file is renamed.", +%%% checksum = "09610 1810 6390 51580", %%% docstring = "The checksum field, produced by Robert Solovay's %%% checksum utility, gives CRC-16 checksum, lines, %%% words, and characters.", @@ -439,30 +445,11 @@ FUNCTION {sortify} { % \end{macrocode} % \end{macro} % -% \begin{macro}{rpad} -% Warning: The use of |text.length$| here and in \fn{lpad} -% restricts their use to strings that we know do not contain any -% special characters. Since we only use \fn{lpad} for field names -% and \fn{rpad} for |purify$|ed strings, this is ok. -% -% \<string> \<int> \fn{rpad} -% \begin{macrocode} -FUNCTION {rpad} { - swap$ - 'l := - l text.length$ - 'len := - { len #0 > } - { - l " " * 'l := - len #1 - 'len := - } - while$ - l -} -% \end{macrocode} -% \end{macro} -% % \begin{macro}{lpad} +% Warning: The use of |text.length$| here restricts \fn{lpad}'s use +% to strings that we know do not contain any special characters. +% Since we only use it for field names, this is ok. +% % \<string> \<int> \fn{lpad} % \begin{macrocode} FUNCTION {lpad} { @@ -1383,15 +1370,15 @@ FUNCTION {sort.format.names} { numnames 'namesleft := { namesleft #0 > } { ptr #1 > - { " " * } + { " " * } 'skip$ if$ - s ptr "{ll}{ ff}{ jj}" format.name$ 't := + s ptr "{vv{ } }{ll{ }}{ ff{ }}{ jj{ }}" format.name$ 't := ptr numnames = t "others" = AND { "et al" } { t sortify } if$ - #20 rpad * + * ptr #1 + 'ptr := namesleft #1 - 'namesleft := } @@ -1493,7 +1480,7 @@ FUNCTION {editor.organization.sort} FUNCTION {presort} { %<*alpha|short> calc.label - label #20 rpad + label %</alpha|short> type$ "book" = type$ "inbook" = OR type$ "collection" = OR 'author.editor.sort @@ -1507,8 +1494,9 @@ FUNCTION {presort} { if$ } if$ -%<alpha|short> * " " * -%<!alpha|short> year field.or.null sortify #12 rpad * " " * +%<alpha|short> * + " " * +%<!alpha|short> year field.or.null sortify * " " * title field.or.null sort.format.title * #1 entry.max$ substring$ 'sort.key$ := |