summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/bibtex/bst/directory/letter.bst
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/bibtex/bst/directory/letter.bst')
-rw-r--r--Master/texmf-dist/bibtex/bst/directory/letter.bst103
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$
}