diff options
Diffstat (limited to 'Master/texmf-dist/bibtex/bst/directory/letter.bst')
-rw-r--r-- | Master/texmf-dist/bibtex/bst/directory/letter.bst | 103 |
1 files changed, 95 insertions, 8 deletions
diff --git a/Master/texmf-dist/bibtex/bst/directory/letter.bst b/Master/texmf-dist/bibtex/bst/directory/letter.bst index a86270c01dd..b0b79725cfd 100644 --- a/Master/texmf-dist/bibtex/bst/directory/letter.bst +++ b/Master/texmf-dist/bibtex/bst/directory/letter.bst @@ -1,7 +1,7 @@ %% letter.bst -%% Copyright 1999-2000 Christophe Geuzaine +%% Copyright 1998-2003 Christophe Geuzaine <geuz@geuz.org> % -% Last Mod by Christophe on Sun Aug 27 21:24:23 2000 +% $Id: letter.bst,v 1.7 2003/09/15 05:40:31 geuzaine Exp $ % % This program can be redistributed and/or modified under the terms % of the LaTeX Project Public License distributed from CTAN @@ -11,8 +11,6 @@ % BibTeX bibliography style `letter.bst' % 'directory' database: all fields % -% Christophe.Geuzaine@advalvas.be -% % The parts you may want to customize are labeled with "CUSTOM" % @@ -26,15 +24,56 @@ STRINGS { s t u v } ENTRY { name address + street + city + state + zip + country p.address + p.street + p.city + p.state + p.zip + p.country r.address + r.street + r.city + r.state + r.zip + r.country w.title w.name w.address + w.street + w.city + w.state + w.zip + w.country } {} {} +% ------------------------------------------------------------ +% G E N E R A L +% ------------------------------------------------------------ + +FUNCTION {not} +{ { #0 } + { #1 } + if$ +} + +FUNCTION {and} +{ 'skip$ + { pop$ #0 } + if$ +} + +FUNCTION {or} +{ { pop$ #1 } + 'skip$ + if$ +} % ------------------------------------------------------------ % F O R M A T S @@ -76,21 +115,57 @@ FUNCTION {format.name} FUNCTION {format.address} { address empty$ - { "" } + { + street empty$ city empty$ state empty$ zip empty$ country empty$ + and and and and + { "" } + { " \dirnext " + street empty$ { "" * } { street " \dirnext " * * } if$ + city empty$ { "" * } { city " " * * } if$ + state empty$ { "" * } { state " " * * } if$ + zip empty$ { "" * } { zip " " * * } if$ + country empty$ { "" * } { country * } if$ + } + if$ + } { " \dirnext " address * } if$ } FUNCTION {format.p.address} { p.address empty$ - { "" } + { + p.street empty$ p.city empty$ p.state empty$ p.zip empty$ p.country empty$ + and and and and + { "" } + { " \dirnext " + p.street empty$ { "" * } { p.street " \dirnext " * * } if$ + p.city empty$ { "" * } { p.city " " * * } if$ + p.state empty$ { "" * } { p.state " " * * } if$ + p.zip empty$ { "" * } { p.zip " " * * } if$ + p.country empty$ { "" * } { p.country * } if$ + } + if$ + } { " \dirnext " p.address * } if$ } FUNCTION {format.r.address} { r.address empty$ - { "" } + { + r.street empty$ r.city empty$ r.state empty$ r.zip empty$ r.country empty$ + and and and and + { "" } + { " \dirnext " + r.street empty$ { "" * } { r.street " \dirnext " * * } if$ + r.city empty$ { "" * } { r.city " " * * } if$ + r.state empty$ { "" * } { r.state " " * * } if$ + r.zip empty$ { "" * } { r.zip " " * * } if$ + r.country empty$ { "" * } { r.country * } if$ + } + if$ + } { " \dirnext " r.address * } if$ } @@ -111,7 +186,19 @@ FUNCTION {format.w.name} FUNCTION {format.w.address} { w.address empty$ - { "" } + { + w.street empty$ w.city empty$ w.state empty$ w.zip empty$ w.country empty$ + and and and and + { "" } + { " \dirnext " + w.street empty$ { "" * } { w.street " \dirnext " * * } if$ + w.city empty$ { "" * } { w.city " " * * } if$ + w.state empty$ { "" * } { w.state " " * * } if$ + w.zip empty$ { "" * } { w.zip " " * * } if$ + w.country empty$ { "" * } { w.country * } if$ + } + if$ + } { " \dirnext " w.address * } if$ } |