summaryrefslogtreecommitdiff
path: root/Master/texmf-dist/bibtex/bst/adrconv/adrfax.bst
diff options
context:
space:
mode:
Diffstat (limited to 'Master/texmf-dist/bibtex/bst/adrconv/adrfax.bst')
-rw-r--r--Master/texmf-dist/bibtex/bst/adrconv/adrfax.bst150
1 files changed, 150 insertions, 0 deletions
diff --git a/Master/texmf-dist/bibtex/bst/adrconv/adrfax.bst b/Master/texmf-dist/bibtex/bst/adrconv/adrfax.bst
new file mode 100644
index 00000000000..b4f0f9f7c93
--- /dev/null
+++ b/Master/texmf-dist/bibtex/bst/adrconv/adrfax.bst
@@ -0,0 +1,150 @@
+%%
+%% This is file `adrfax.bst',
+%% generated with the docstrip utility.
+%%
+%% The original source files were:
+%%
+%% adrconv.dtx (with options: `bst,fax')
+%% Copyright (c) 2001 Axel Kielhorn
+%%
+%% This file will generate fast loadable files from adrconv.dtx when
+%% run through LaTeX or TeX.
+%%
+%% This file is part of the adrconv bundle.
+%%
+%% This file can be distributed and/or modified under the conditions of
+%% the LaTeX Project Public License, either version 1.2 of the license
+%% or (at you option) any later version.
+%% The latest version of this license is in
+%% http://www.latex-procejt.org/lppl.txt
+%% and version 1.2 or later ist part of all distributions of LaTeX
+%% version 1999/12/01 or later.
+%%
+%% The adrconv bundle consists at least of the files adrconv.dtx,
+%% adrconv.ins and adrguide.tex.
+%%
+%% You are NOT ALLOWED to change this file.
+%%
+%% You are NOT ALLOWED to distribute this file without adrconv.dtx,
+%% adrconv.ins or adrguide.tex.
+ENTRY
+ { name
+ title
+ organization
+ city
+ zip
+ country
+ street
+ phone
+ mobile
+ fax
+ url
+ email
+ note
+ key
+ birthday
+ nbirthday
+ }
+ {}
+ { adr.char }
+INTEGERS { cur.adr.char }
+FUNCTION {get.names}
+{ name empty$
+ { organization empty$
+ { "{}{}" }
+ { organization "{}" * }
+ if$
+ }
+ { "{" name #1 "{ll}" format.name$ "}" * *
+ "{" name #1 "{ff}{ vv}" format.name$ "}" * * *
+ }
+ if$
+}
+FUNCTION {print.adrchr}
+{ adr.char chr.to.int$ cur.adr.char >
+ { newline$ "\adrchar{" adr.char "}" * * write$ newline$
+ adr.char chr.to.int$ 'cur.adr.char :=
+ }
+ 'skip$
+ if$
+}
+FUNCTION{format.phone.and.fax}
+{ phone empty$
+ { "" }
+ { phone }
+ if$
+ fax empty$
+ 'skip$
+ { phone empty$
+ { fax * }
+ { "\\Fax:\\" fax * * }
+ if$
+ }
+ if$
+}
+FUNCTION{address}
+{
+ print.adrchr
+ "\adrentry" write$
+ get.names write$ newline$
+ "{"
+ street empty$
+ { "" }
+ { street " \\ " *}
+ if$
+ *
+ zip empty$
+ { "" }
+ { zip }
+ if$
+ " " * *
+ city empty$
+ { "" }
+ { city }
+ if$
+ "}{" * *
+ format.phone.and.fax
+ "}{}{}{}{" * *
+ key empty$
+ { "" }
+ { key }
+ if$
+ "}" * * write$ newline$
+}
+FUNCTION{presort}
+{
+ name empty$
+ { organization empty$
+ { key empty$
+ { "No name, organization, or key to sort " cite$ * warning$
+ "???"
+ }
+ { key }
+ if$
+ }
+ { organization }
+ if$
+ }
+ { name #1 "{ll},{f }{v }{, j}" format.name$ }
+ if$
+ duplicate$
+ 'sort.key$ :=
+ #1 #1 substring$
+ 'adr.char :=
+}
+READ
+ITERATE {presort}
+SORT
+FUNCTION {begin.bib}
+{
+ preamble$ empty$
+ 'skip$
+ { preamble$ write$ newline$ }
+ if$
+ #0 'cur.adr.char :=
+}
+EXECUTE {begin.bib}
+ITERATE {call.type$}
+FUNCTION {end.bib}
+{ newline$ }
+EXECUTE {end.bib}