diff options
author | Karl Berry <karl@freefriends.org> | 2006-01-09 00:33:43 +0000 |
---|---|---|
committer | Karl Berry <karl@freefriends.org> | 2006-01-09 00:33:43 +0000 |
commit | f9e662abcd4764ed15dc598ff609d220e8382038 (patch) | |
tree | b17660efa88c33d0b82b8fc0fd083ebf1e3d1d65 /Master/texmf-dist/bibtex/bst/adrconv | |
parent | 812777721ecd6065f14355d9df911ab2e7f2050d (diff) |
texmf-dist/bibtex
git-svn-id: svn://tug.org/texlive/trunk@71 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Master/texmf-dist/bibtex/bst/adrconv')
-rw-r--r-- | Master/texmf-dist/bibtex/bst/adrconv/adrconv.bst | 151 | ||||
-rw-r--r-- | Master/texmf-dist/bibtex/bst/adrconv/adrfax.bst | 150 | ||||
-rw-r--r-- | Master/texmf-dist/bibtex/bst/adrconv/birthday.bst | 158 | ||||
-rw-r--r-- | Master/texmf-dist/bibtex/bst/adrconv/email.bst | 141 |
4 files changed, 600 insertions, 0 deletions
diff --git a/Master/texmf-dist/bibtex/bst/adrconv/adrconv.bst b/Master/texmf-dist/bibtex/bst/adrconv/adrconv.bst new file mode 100644 index 00000000000..2535490a3ea --- /dev/null +++ b/Master/texmf-dist/bibtex/bst/adrconv/adrconv.bst @@ -0,0 +1,151 @@ +%% +%% This is file `adrconv.bst', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% adrconv.dtx (with options: `bst,conv') +%% 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.mobile} +{ phone empty$ + { + mobile empty$ + { "" } + { mobile } + if$ + }{ + mobile empty$ + { phone } + { phone "\\" mobile * * } + 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.mobile + "}{}{}{}{" * * + 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} 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} diff --git a/Master/texmf-dist/bibtex/bst/adrconv/birthday.bst b/Master/texmf-dist/bibtex/bst/adrconv/birthday.bst new file mode 100644 index 00000000000..9fe2a9029bb --- /dev/null +++ b/Master/texmf-dist/bibtex/bst/adrconv/birthday.bst @@ -0,0 +1,158 @@ +%% +%% This is file `birthday.bst', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% adrconv.dtx (with options: `bst,birthday') +%% 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 + } + {} + { b.month } +STRINGS { cur.month num.index alpha.index } +FUNCTION {get.names} +{ name empty$ + { organization empty$ + { "{}{}" } + { organization "{}" * } + if$ + } + { "{" name #1 "{ll}" format.name$ "}" * * + "{" name #1 "{ff}{ vv}" format.name$ "}" * * * + } + if$ +} +FUNCTION {print.adrchr} +{ b.month cur.month = + 'skip$ + { newline$ "\adrchar{\convdate{" b.month "}}" * * write$ newline$ + b.month 'cur.month := + } + if$ +} +FUNCTION{format.phone.and.mobile} +{ phone empty$ + { + mobile empty$ + { "" } + { mobile } + if$ + }{ + mobile empty$ + { phone } + { phone "\\" mobile * * } + if$ + } + if$ +} +FUNCTION{address} +{ + nbirthday empty$ + 'skip$ + { + print.adrchr + "\adrentry" write$ + get.names write$ newline$ + "{" + street empty$ + { "" } + { street " \\ " *} + if$ + * + zip empty$ + { "" } + { zip } + if$ + " " * * + city empty$ + { "" } + { city } + if$ + "}{" * * + format.phone.and.mobile + "}{}{}{}{" * * + birthday empty$ + { "" } + { birthday } + if$ + "}{" * * + key empty$ + { "" } + { "" } + if$ + "}" * * write$ newline$ + } + if$ +} +FUNCTION{presort} +{ nbirthday empty$ + { "" } + { nbirthday } + if$ + duplicate$ + 'sort.key$ := + #1 #2 substring$ + 'b.month := +} +READ +ITERATE {presort} +SORT +FUNCTION {begin.bib} +{ + "\def\convdate#1{\ifcase#1 \or 1 \or 2 \or 3 \or 4 \or 5 " + "\or 6 \or 7 \or 8 \or 9 \or 10 \or 11 \or 12 \fi}" * 'num.index := + "\def\convdate#1{\ifcase#1 \or Januar \or Februar \or " + " M{^^b a}rz \or April \or Mai \or Juni \or Juli " + "\or August \or September \or Oktober \or November \or Dezember \fi}" + * * 'alpha.index := + alpha.index write$ + newline$ + preamble$ empty$ + 'skip$ + { preamble$ write$ newline$ } + if$ + "00" 'cur.month := +} +EXECUTE {begin.bib} +ITERATE {call.type$} +FUNCTION {end.bib} +{ newline$ } +EXECUTE {end.bib} diff --git a/Master/texmf-dist/bibtex/bst/adrconv/email.bst b/Master/texmf-dist/bibtex/bst/adrconv/email.bst new file mode 100644 index 00000000000..47cc1fe4ba6 --- /dev/null +++ b/Master/texmf-dist/bibtex/bst/adrconv/email.bst @@ -0,0 +1,141 @@ +%% +%% This is file `email.bst', +%% generated with the docstrip utility. +%% +%% The original source files were: +%% +%% adrconv.dtx (with options: `bst,email') +%% 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{address} +{ + print.adrchr + "\adrentry" write$ + get.names write$ newline$ + "{" + street empty$ + { "" } + { street " \\ " *} + if$ + * + zip empty$ + { "" } + { zip } + if$ + " " * * + city empty$ + { "" } + { city } + if$ + "}{" * * + email empty$ + { "" } + { email } + if$ + "}{}{}{}{" * * + 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} +{ + "\def\sbscrpt{\_} \catcode`\_=\active \let_=\sbscrpt" + write$ newline$ + preamble$ empty$ + 'skip$ + { preamble$ write$ newline$ } + if$ + #0 'cur.adr.char := +} +EXECUTE {begin.bib} +ITERATE {call.type$} +FUNCTION {end.bib} +{ newline$ } +EXECUTE {end.bib} |